=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*3)&0xFF
Graphics.update
end
exit
=end
def pbCallTitle
return Scene_Intro.new(['Pic_1'], ['Pic_1.1'], ['Pic_2'])
end
def mainFunction
if $DEBUG
pbCriticalCode { mainFunctionDebug }
else
mainFunctionDebug
end
return 1
end
def mainFunctionDebug
begin
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 = pbCallTitle
while $scene != true
$scene.main
end
Graphics.transition(20)
rescue Hangup
pbEmergencySave
raise
end
end
loop do
retval=mainFunction
if retval==0 # failed
loop do
Graphics.update
end
elsif retval==1 # ended successfully
break
end
end