Confira o Videos Épicos #45!
2 Respostas   2117 Visualizações
0 Membros e 1 Visitante estão vendo este tópico.
$anim.name = "" $anim.x = $anim.y = $anim.frame = $anim.wait = $anim.show
$anim.name = "Imagem" $anim.x = 120$anim.y = 158$anim.frame = 6$anim.wait = 25$anim.show
#==============================================================================# ** MSX - Animation Player#==============================================================================# Autor: Melosx# Versão: 1.0# Data de lançamento: 30/06/2012 => v1.0# Tradução: MayLeone#==============================================================================# * Instruções:# -----------------------------------# Chame o comando de script para definir a animação a seguir:## $anim.name = "" -> Nome da imagem base da animação. # $anim.x = Coordenada X da imagem na tela.# $anim.y = Coordenada Y da imagem na tela.# $anim.frame = Número de frames.# $anim.wait = n -> Tempo de espera de uma frame para outra. (60 frames = 1seg.)# $anim.show -> Inicio da animação.# -----------------------------------## * Exemplo:# -----------------------------------# $anim.name = "Anim"# $anim.x = 150# $anim.y = 150# $anim.frame = 3# $anim.wait = 5# $anim.show## As outras imagens contendo o mesmo nome da imagem base # numeradas ordenadamente, deverão estar na pasta "Pictures". "Anim1", "Anim2", # "Anim3".#==============================================================================class AnimPlayer < Scene_Base attr_accessor :name, :x, :y, :wait, :frame def initialize @name = "" @x = 0 @y = 0 @frame = 0 @wait = 0 end def wait(duration) duration.times { Fiber.yield } end def show for i in 1..@frame @pic = Sprite.new @pic.bitmap = Cache.picture(@name + i.to_s) @pic.x = @x @pic.y = @y wait(@wait) @pic.bitmap.dispose @pic.dispose Cache.clear end endend$anim = AnimPlayer.new