很和谐的防盗版 - Project1

#==============================================================================
# ** Scene_Base
#------------------------------------------------------------------------------
# 这个类是游戏中所有场景画面所共同继承的父类。
#==============================================================================
class Scene_Base
#--------------------------------------------------------------------------
# * 程式开始
#--------------------------------------------------------------------------
def start
$mylogo.show
end
#--------------------------------------------------------------------------
# * 更新帧
#--------------------------------------------------------------------------
def update
$mylogo.update
end
end
#FOR VX
def exitnovx
print "你使用的不是VX"
exit
end
Bitmap.new(1,1).clear_rect(0,0,1,1) rescue (exitnovx)
GC.start
class Logo
Width = 255
Height = 32
HideFPS = 10
FPS = 60
Text = "本游戏在66RPG免费下载"
Opacity = 200
def initialize
@bitmaps = Bitmap.new(Width,Height)
@bitmaps.gradient_fill_rect(Rect.new(0,0,Width,Height),Color.new(0,0,0,255),Color.new(0,0,0,0))
@bitmaps.draw_text(Rect.new(0,0,Width,Height),Text)
@sprite = Sprite.new
@sprite.x = 0
@sprite.y = 0
@sprite.z = 99999
@sprite.bitmap = Bitmap.new(Width,Height)
@showed = false
@hideed = false
@showing = false
@hideing = false
@nx = 0
@xall = FPS/HideFPS
@alp = 255
@aa = 255 / Width
end
def HideTime
return Width / @xall
end
def show
return if @showed
@hideing = false
@showing = true
end
def hide
return if @hideed
@hideing = true
@showing = false
end
def update
if @showing
# @sprite.bitmap.gradient_fill_rect(Rect.new(@nx,0,@xall,Height),Color.new(0,0,0,@alp+(@aa*@xall)-1),Color.new(0,0,0,@alp))
@sprite.bitmap.blt(@nx, 0, @bitmaps, Rect.new(@nx,0,@xall,Height),Opacity)
@alp = @alp - (@aa*@xall)
@nx = @nx+@xall
if @nx >= 256
# @sprite.bitmap.draw_text(Rect.new(0,0,Width,Height),"本游戏在66RPG免费下载")
@nx = 255
@showing = false
@showed = true
@hideed = false
@alp = @alp + @aa
end
end
if @hideing
@sprite.bitmap.clear_rect(Rect.new([@nx,0].max,0,@xall,Height))
@nx -= @xall
if @nx <= -1
@sprite.bitmap.clear
@nx = 0
@hideing = false
@hideed = true
@showed = false
@alp = 255
end
end
end
end
$mylogo = Logo.new

复制代码

以下引用yangff于2009-2-10 18:55:50的发言：

以下引用哈根达斯于2009-2-10 13:13:24的发言：

问一下，怎么样用事件控制那个文字？
说不定还可以拿来当做地图名显示

@bitmaps = Bitmap.new(Width,Height)
@bitmaps.gradient_fill_rect(Rect.new(0,0,Width,Height),Color.new(0,0,0,255),Color.new(0,0,0,0))
@bitmaps.draw_text(Rect.new(0,0,Width,Height),Text)
为了提高效率采用了缓存.
这个在Init里.
把它移到Show里
给Text加上$
移动的时候先Hide
等@hideed=true的时候再Show
修改的时候用$Text = "XXX"

[本贴由作者于 2009-2-10 18:56:31 最后编辑]