Тема: Ссылки на скрипты

Сообщение от Lunar

Can anybody find another skript like this or translate it into ACE?

Noooo!!!

Скрипт движения панорам для ХР никто не подкинет?

Валера, оно?

Код:

#_________________________________________________
# MOG_Scroll Panorama V1.4            
#_________________________________________________
# By Moghunter  
# http://www.atelier-rgss.com
#_________________________________________________
# Movimenta os panoramas na horizontal e na vertical.
# Fade Mode.
# Movimentos aleatórios.
#_________________________________________________
module MOG
#ID da variável que define a velocidade na horizontal.  
VARPANO_X = 8
#ID da variável que define a velocidade na vertical.
VARPANO_Y = 9 
#ID da Switch que ativa o Fade Mode.
PANO_FADE_MODE_SWITCHE_ID = 4 #SWITCH ID 
#Velocidade do Fade.
PANO_FADE_SPEED = 3
#ID da Switch que ativa o Rand Mode.
#O panorama se move em direções aleatórias.
PAN_RAND_MOVE_SWITCHE_ID = 5  #SWITCH ID 
#Tempo para mudar de direção.
PAN_RAND_TIME = 2  #(s)
#ID da Switche que deixa o FOG com prioridade baixa.
FOG_Z_SWITCH_ID = 16
#
FOG_MOTION_SWITCH_ID = 17
end

#===============================================================================
# Game_Map
#===============================================================================
class Game_Map
  attr_reader   :pan_ox                  
  attr_reader   :pan_oy 
  attr_accessor :panorama_opacity
#--------------------------------------------------------------------------
# Setup
#--------------------------------------------------------------------------  
alias mog10_setup setup  
def setup(map_id)
  @pan_ox = 0
  @pan_oy = 0   
  @opa_loop = 0
  @pan_rand_scroll_x = 0
  @pan_rand_scroll_y = 0
  @rand_time_x = 0
  @rand_time_y = 0
  @panorama_opacity = 0
  mog10_setup(map_id)
end
#--------------------------------------------------------------------------
# Update
#--------------------------------------------------------------------------
alias mog10_update update
def update
  if $game_switches[MOG::PANO_FADE_MODE_SWITCHE_ID] == true
    if @opa_loop == 0
    @panorama_opacity -= MOG::PANO_FADE_SPEED
    elsif @opa_loop == 1
    @panorama_opacity += MOG::PANO_FADE_SPEED 
    end
    if @panorama_opacity < 1
    @opa_loop = 1
    elsif @panorama_opacity > 254
    @opa_loop = 0  
    end
  else
  @panorama_opacity = 255 
  end
  if $game_switches[MOG::PAN_RAND_MOVE_SWITCHE_ID] == true 
      @rand_time_x += 1
      @rand_time_y += 1
    if @rand_time_x > 40 * MOG::PAN_RAND_TIME
    @rand_time_x = 0
      case rand(2)
      when 0
        @pan_rand_scroll_x = 0 
      when 1
        @pan_rand_scroll_x = 1
      end
    end
    if @rand_time_y > 40 * MOG::PAN_RAND_TIME
    @rand_time_y = 0
      case rand(2)
      when 0
        @pan_rand_scroll_y = 0 
      when 1
        @pan_rand_scroll_y = 1 
      end
    end
    if @pan_rand_scroll_x == 0 
      @pan_ox -= $game_variables[MOG::VARPANO_X] 
    else 
      @pan_ox += $game_variables[MOG::VARPANO_X]   
    end 
    if @pan_rand_scroll_y == 0 
      @pan_oy -= $game_variables[MOG::VARPANO_Y]  
    else @pan_rand_scroll_y == 1
      @pan_oy += $game_variables[MOG::VARPANO_Y]     
    end   
  else
    @pan_ox -= $game_variables[MOG::VARPANO_X] 
    @pan_oy -= $game_variables[MOG::VARPANO_Y]
  end
mog10_update
end
end

#===============================================================================
# Spriteset_Map
#===============================================================================
class Spriteset_Map
#--------------------------------------------------------------------------
# Update
#--------------------------------------------------------------------------  
  alias mog10_update update
  def update
    mog10_update
    @panorama.ox = $game_map.display_x / 8 + $game_map.pan_ox
    @panorama.oy = $game_map.display_y / 8 + $game_map.pan_oy
    @panorama.opacity = $game_map.panorama_opacity
    if $game_switches[MOG::FOG_Z_SWITCH_ID] == true 
        @fog.z = -500 
    else
        @fog.z = 3000
    end        
    if $game_switches[MOG::FOG_MOTION_SWITCH_ID] == true
        @fog.ox = $game_map.display_x / 3 + $game_map.fog_ox
        @fog.oy = $game_map.display_y / 3 + $game_map.fog_oy        
    else
        @fog.ox = $game_map.display_x / 4 + $game_map.fog_ox
        @fog.oy = $game_map.display_y / 4 + $game_map.fog_oy        
    end    
  end  
end

$mog_rgss_scroll_panorama = true

Или вот это?

Код:

#_______________________________________________________________________________
# ++++ MOG Animated Panorama XP V2.1 +++           
#_______________________________________________________________________________
# By Moghunter     
# http://www.atelier-rgss.com
#_______________________________________________________________________________
# Animação de panorama por frames.
# É necessário ter as imagens extras dos frames para que a animação ocorra.
# Exemplo.
#
# Nuvem.png        (Frame 1)(Essa é a imagem do Database)     
# Nuvem1.png       (Frame 2)
# Nuvem2.png       (Frame 3)
# Nuvem3.png       (Frame 4)
# Nuvem4.png       (Frame 5)
# Etc...
#_______________________________________________________________________________
module MOG
  # Velocidade da animação  
  PANOREFRESH = 8 
  # É possível mudar a velocidade da animação usando este código através do
  # comando chamar script.
  #
  # $game_system.pano_anime_speed = X
  #
  # X = Velocidade da animação.
  #
end

#===============================================================================
# ■ Game_System
#===============================================================================
class Game_System
  
 attr_accessor :pano_anime_speed
 
 #--------------------------------------------------------------------------
 # ● Initialize
 #--------------------------------------------------------------------------      
 alias mog14_initialize initialize
 def initialize
     mog14_initialize
     @pano_anime_speed = MOG::PANOREFRESH 
 end  
end

#===============================================================================
# ■ Spriteset_Map
#===============================================================================
class Spriteset_Map
  
 #--------------------------------------------------------------------------
 # ● Initialize
 #--------------------------------------------------------------------------    
 alias mog14_initialize initialize
 def initialize
     @panospeed = 0 
     @panoframes = 0     
     @panorama_animated = false 
     mog14_initialize
 end 
  
 #--------------------------------------------------------------------------
 # ● Update
 #--------------------------------------------------------------------------    
 alias mog14_update update 
 def update
     can_panorama_animation 
     mog14_update
     update_panorama_animation
 end 

 #--------------------------------------------------------------------------
 # ● can_panorama_animation 
 #--------------------------------------------------------------------------     
 def can_panorama_animation 
     if @panorama_name != $game_map.panorama_name or
        @panorama_hue != $game_map.panorama_hue
        @panospeed = 0
        @panoframes = 0
        @panorama_animated = false 
        image = RPG::Cache.panorama($game_map.panorama_name + "1", $game_map.panorama_hue) rescue nil
        if image != nil
           @panorama_animated = true 
           image.dispose  
        end           
     end
 end
 
 #--------------------------------------------------------------------------
 # ● update_panorama_animation
 #--------------------------------------------------------------------------     
 def update_panorama_animation
     return unless @panorama_animated 
     return if @panorama.bitmap == nil
     @panospeed += 1
     if @panospeed > $game_system.pano_anime_speed
        @panospeed = 0
        @panoframes += 1
        @panorama.bitmap = RPG::Cache.panorama(@panorama_name +  @panoframes.to_s, @panorama_hue) rescue nil
        if @panorama.bitmap == nil
           @panoframes = 0
           @panorama.bitmap = RPG::Cache.panorama(@panorama_name, @panorama_hue)       
        end     
        $game_map.panorama_name = @panorama_name 
        $game_map.panorama_hue = @panorama_hue           
     end
 
 end 
end

$mog_rgss_animemated_panorama = true

Вот демка: https://yadi.sk/d/vyYf4JMeoS6pH

Мил человек! Нашел у кого спросить: то или не то...
Нашел, вот, в одной игре от 2004... вроде бы то...

Спойлер туто:

#================================================= ==
# ■ Parallax Background - R1 - Created by dubealex
# - Moving Panoramas & More -
#================================================= ==
# For more infos and update, visit:
# rmxp.dubealex.com
#
# November 26, 2004
#================================================= ==

#================================================= ==
# ▼ CLASS Parallax Begins
#================================================= ==
class Parallax

def initialize(name, direction, speed, opacity, hue)
@speed=speed
$parallax_active=true
$parallax_move[3]=name
$parallax_move[4]=hue
$parallax = Sprite.new
$parallax.bitmap = RPG::Cache.panorama(name, hue)
$parallax.x = 0
$parallax.y = 0
$parallax.z = -500
$parallax.opacity = opacity
if direction != 0 and speed != 0
case direction
when 2, 8
if speed > 60
speed=60
end
when 4, 6
if speed > 40
speed=40
end
end
move(direction, speed)
end
end

def erase
$parallax_active=false
$parallax_fade[0]=0
$parallax_move[0]=0
case $parallax_direction
when 0
$parallax.dispose
when 2
$parallax.dispose
$dummy_u.dispose
when 8
$parallax.dispose
$dummy_d.dispose
when 4
$parallax.dispose
$dummy_r.dispose
when 6
$parallax.dispose
$dummy_l.dispose
end
end

def fade_in(speed)
if @speed == 0
$parallax_direction=0
end
$parallax_fade[0]=1
$parallax_fade[1]=speed
end

def fade_out(speed)
if @speed == 0
$parallax_direction=0
end
$parallax_fade[0]=2
$parallax_fade[1]=speed
end

def stop_fade
$parallax_fade[0]=0
end

def fade_loop(speed)
if @speed == 0
$parallax_direction=0
end
$parallax_fade[0]=3
$parallax_fade[1]=speed
$parallax_fade[2]=1
end

def move(direction, speed)
$parallax_direction=direction
$parallax_move[0]=1
$parallax_move[1]=speed
$parallax_move[2]=0
end

end
#================================================= ==
# ▲ CLASS Parallax Ends
#================================================= ==


#================================================= ==
# ▼ CLASS Scene_Map Additional Code Begins
#================================================= ==
class Scene_Map

alias original_update update

def update
original_update
case $parallax_fade[0]
when 1 #Fade In
case $parallax_direction
when 0 #Not Moving
unless $parallax.opacity == 255
$parallax.opacity+=$parallax_fade[1]
else
$parallax_fade[0]=0
end
when 2 #Moving down
unless $parallax.opacity == 255
$parallax.opacity+=$parallax_fade[1]
$dummy_u.opacity+=$parallax_fade[1]
else
$parallax_fade[0]=0
end
when 6 #Moving right
unless $parallax.opacity == 255
$parallax.opacity+=$parallax_fade[1]
$dummy_l.opacity+=$parallax_fade[1]
else
$parallax_fade[0]=0
end
when 4 #Moving left
unless $parallax.opacity == 255
$parallax.opacity+=$parallax_fade[1]
$dummy_r.opacity+=$parallax_fade[1]
else
$parallax_fade[0]=0
end
when 8 #Moving up
unless $parallax.opacity == 255
$parallax.opacity+=$parallax_fade[1]
$dummy_d.opacity+=$parallax_fade[1]
else
$parallax_fade[0]=0
end
end
when 2 #Fade Out
case $parallax_direction
when 0 #Not Moving
unless $parallax.opacity == 0
$parallax.opacity-=$parallax_fade[1]
else
$parallax_fade[0]=0
end
when 2 #Moving down
unless $parallax.opacity == 0
$parallax.opacity-=$parallax_fade[1]
$dummy_u.opacity-=$parallax_fade[1]
else
$parallax_fade[0]=0
end
when 4 #Moving left
unless $parallax.opacity == 0
$parallax.opacity-=$parallax_fade[1]
$dummy_r.opacity-=$parallax_fade[1]
else
$parallax_fade[0]=0
end
when 6 #Moving right
unless $parallax.opacity == 0
$parallax.opacity-=$parallax_fade[1]
$dummy_l.opacity-=$parallax_fade[1]
else
$parallax_fade[0]=0
end
when 8 #Moving up
unless $parallax.opacity == 0
$parallax.opacity-=$parallax_fade[1]
$dummy_d.opacity-=$parallax_fade[1]
else
$parallax_fade[0]=0
end
end
when 3 #Fade Loop
case $parallax_direction
when 0 #Not Moving
case $parallax_fade[2] when 1 then
unless $parallax.opacity == 255
$parallax.opacity+=$parallax_fade[1]
else
$parallax_fade[2]=2
end
when 2
unless $parallax.opacity == 0
$parallax.opacity-=$parallax_fade[1]
else
$parallax_fade[2]=1
end
end
when 2 #Moving down
case $parallax_fade[2] when 1 then
unless $parallax.opacity == 255
$parallax.opacity+=$parallax_fade[1]
$dummy_u.opacity+=$parallax_fade[1]
else
$parallax_fade[2]=2
end
when 2
unless $parallax.opacity == 0
$parallax.opacity-=$parallax_fade[1]
$dummy_u.opacity-=$parallax_fade[1]
else
$parallax_fade[2]=1
end
end
when 8 #Moving up
case $parallax_fade[2] when 1 then
unless $parallax.opacity == 255
$parallax.opacity+=$parallax_fade[1]
$dummy_d.opacity+=$parallax_fade[1]
else
$parallax_fade[2]=2
end
when 2
unless $parallax.opacity == 0
$parallax.opacity-=$parallax_fade[1]
$dummy_d.opacity-=$parallax_fade[1]
else
$parallax_fade[2]=1
end
end
when 6 #Moving right
case $parallax_fade[2] when 1 then
unless $parallax.opacity == 255
$parallax.opacity+=$parallax_fade[1]
$dummy_l.opacity+=$parallax_fade[1]
else
$parallax_fade[2]=2
end
when 2
unless $parallax.opacity == 0
$parallax.opacity-=$parallax_fade[1]
$dummy_l.opacity-=$parallax_fade[1]
else
$parallax_fade[2]=1
end
end
when 4 #Moving left
case $parallax_fade[2] when 1 then
unless $parallax.opacity == 255
$parallax.opacity+=$parallax_fade[1]
$dummy_r.opacity+=$parallax_fade[1]
else
$parallax_fade[2]=2
end
when 2
unless $parallax.opacity == 0
$parallax.opacity-=$parallax_fade[1]
$dummy_r.opacity-=$parallax_fade[1]
else
$parallax_fade[2]=1
end
end
end
end


case $parallax_move[0]
when 1
if $parallax_move[2]==0
case $parallax_direction
when 4
$dummy_r = Sprite.new
$dummy_r.bitmap = RPG::Cache.panorama($parallax_move[3], $parallax_move[4])
$dummy_r.x = 640
$dummy_r.y = 0
$dummy_r.z = -500
$dummy_r.opacity = $parallax.opacity
when 6
$dummy_l = Sprite.new
$dummy_l.bitmap = RPG::Cache.panorama($parallax_move[3], $parallax_move[4])
$dummy_l.x = -640
$dummy_l.y = 0
$dummy_l.z = -500
$dummy_l.opacity = $parallax.opacity
when 8
$dummy_d = Sprite.new
$dummy_d.bitmap = RPG::Cache.panorama($parallax_move[3], $parallax_move[4])
$dummy_d.x = 0
$dummy_d.y = 480
$dummy_d.z = -500
$dummy_d.opacity = $parallax.opacity
when 2
$dummy_u = Sprite.new
$dummy_u.bitmap = RPG::Cache.panorama($parallax_move[3], $parallax_move[4])
$dummy_u.x = 0
$dummy_u.y = -480
$dummy_u.z = -500
$dummy_u.opacity = $parallax.opacity
end
$parallax_move[2]=1
end

case $parallax_direction
when 4
$dummy_r.x-=$parallax_move[1]
$parallax.x-=$parallax_move[1]
if $dummy_r.x==0
$parallax.x=640
end
if $parallax.x==0
$dummy_r.x=640
end
when 6
$dummy_l.x+=$parallax_move[1]
$parallax.x+=$parallax_move[1]
if $parallax.x==640
$parallax.x=-640
end
if $dummy_l.x==640
$dummy_l.x=-640
end
when 8
$dummy_d.y-=$parallax_move[1]
$parallax.y-=$parallax_move[1]
if $dummy_d.y==0
$parallax.y=480
end
if $parallax.y==0
$dummy_d.y=480
end
when 2
$dummy_u.y+=$parallax_move[1]
$parallax.y+=$parallax_move[1]
if $dummy_u.y==0
$parallax.y=-480
end
if $parallax.y==0
$dummy_u.y=-480
end
end
end
end

end
#================================================= ==
# ▲ CLASS Scene_Map Additional Code Ends
#================================================= ==


#================================================= ==
# ▼ CLASS Scene_Title Additional Code Begins
#================================================= ==
class Scene_Title
$parallax_fade=[]
$parallax_move=[]
$parallax_direction=0
$parallax_active=false
end
#================================================= ==
# ▲ CLASS Scene_Title Additional Code Ends
#================================================= ==

Теперь другой вопрос: как это регулировать из игры?
( я уж придумал, как сделать движение без скрипта, но "по науке" оно надежнее... )

Сообщение от Валера

Нашел у кого спросить

Но...там же....демки...

В первом скрипт двигает фон слева направо или справа налево и останавливает
А во втором позволяет просто анимированый фон делать

Скачал, еще не посмотрел. Спасибочки! Бум думать дальше.