赞 | 0 |
VIP | 16 |
好人卡 | 4 |
积分 | 1 |
经验 | 6133 |
最后登录 | 2018-7-27 |
在线时间 | 233 小时 |
Lv1.梦旅人
- 梦石
- 0
- 星屑
- 70
- 在线时间
- 233 小时
- 注册时间
- 2011-4-25
- 帖子
- 148
|
3楼
楼主 |
发表于 2012-12-28 20:30:14
|
只看该作者
[code]=begin
Graphics.frame_rate=40
window=Window.new
window.x=0
window.y=0
window.width=200
window.height=200
window.windowskin=Bitmap.new("Graphics/Windowskins/Window.png")
window.openness=255
loop do
window.openness=(Graphics.frame_count*2)&0xFF
Graphics.update
end
exit
=end
$DEBUG=false
def pbCallTitle
return Scene_Intro.new
end
Console::setup_console if $DEBUG
if $DEBUG
pbCreateGift("MysteryGift.txt","GiftCode.txt")
end
def mainFunction
return pbCriticalCode {
getCurrentProcess=Win32API.new("kernel32.dll","GetCurrentProcess","","l")
setPriorityClass=Win32API.new("kernel32.dll","SetPriorityClass",%w(l i),"")
getPriorityClass=Win32API.new("kernel32.dll","GetPriorityClass",%w(l),"l")
getCurrentThread=Win32API.new("kernel32.dll","GetCurrentThread","","l")
setThreadPriority=Win32API.new("kernel32.dll","SetThreadPriority",%w(l i),"")
setPriorityClass.call(getCurrentProcess.call(),32768) # "Above normal" priority class
$data_animations = load_data("Data/Animations.rxdata")
$data_tilesets = load_data("Data/Tilesets.rxdata")
$data_common_events = load_data("Data/CommonEvents.rxdata")
$data_system = load_data("Data/System.rxdata")
$game_system = Game_System.new
setScreenBorderName("border.png")
Graphics.update
Graphics.freeze
$scene = Scene_Intro.new
while $scene != nil
$scene.main
end
Graphics.transition(20)
}
end
loop do
retval=mainFunction
if retval==0 # failed
loop do
Graphics.update
end
elsif retval==1 # ended successfully
break
end
end
|
|