- 53
- Posts
- 4
- Years
- Age 26
- Seen May 29, 2022
I've tried mej71's script for V17.2 as is and it gives me this NameError message:
Spoiler:Code:NameError occurred while running script. (eval):2undefined method `pbStartLoadScreen' for class `PokemonLoadScreen'
And before you mention there's already an alternate one.. I already checked it out and tried it, but it's full of Syntax errors and after 2 hours of fixing the broken translation to be readable as a separate script.. It still broke the game. Mej71's script was the most stable but doesn't work for V17 or later.. The last version it worked for me was V16.2.
If anyone managed to adapt Mej71's script to V17 and later (And had it work without any errors) or the creator of that script is working on a V17 and later version, can anyone let me know?
P.S. Mej71, If you get a chance to see this: Your Multiple Save script was a life saver because every time I wanted to work on the female story of my game or do nuzlocke runs without having to delete my main file. I'll keep trying to get it to work on V17.2 but I'm not too good with Save/Load scripts..
Update:
Oof! >~< All I had to do was pay attention.. I got it working for V17 here's the codes for it:
Scene_Intro
Spoiler:
Code:
class IntroEventScene < EventScene
def initialize(pics,splash,viewport=nil)
super(nil)
@pics=pics
@splash=splash
@pic=addImage(0,0,"")
@pic.moveOpacity(0,0,0) # fade to opacity 0 in 0 frames after waiting 0 frames
@pic2=addImage(0,322,"") # flashing "Press Enter" picture
@pic2.moveOpacity(0,0,0)
@index=0
data_system = pbLoadRxData("Data/System")
pbBGMPlay(data_system.title_bgm)
openPic(self,nil)
end
def openPic(scene,args)
onCTrigger.clear
@pic.name="Graphics/Titles/"+@pics[@index]
@pic.moveOpacity(15,0,255) # fade to opacity 255 in 15 frames after waiting 0 frames
pictureWait
@timer=0 # reset the timer
onUpdate.set(method(:timer)) # call timer every frame
onCTrigger.set(method(:closePic)) # call closePic when C key is pressed
end
def timer(scene,args)
@timer+=1
if @timer>80
@timer=0
closePic(scene,args) # Close the picture
end
end
def closePic(scene,args)
onCTrigger.clear
onUpdate.clear
@pic.moveOpacity(15,0,0)
pictureWait
@index+=1 # Move to the next picture
if @index>[email protected]
openSplash(scene,args)
else
openPic(scene,args)
end
end
def openSplash(scene,args)
onCTrigger.clear
onUpdate.clear
@pic.name="Graphics/Titles/"+@splash
@pic.moveOpacity(15,0,255)
@pic2.name="Graphics/Titles/start"
@pic2.moveOpacity(15,0,255)
pictureWait
onUpdate.set(method(:splashUpdate)) # call splashUpdate every frame
onCTrigger.set(method(:closeSplash)) # call closeSplash when C key is pressed
end
def splashUpdate(scene,args)
@timer+=1
@timer=0 if @timer>=80
if @timer>=32
@pic2.moveOpacity(0,0,8*(@timer-32))
else
@pic2.moveOpacity(0,0,255-(8*@timer))
end
if Input.press?(Input::DOWN) &&
Input.press?(Input::B) &&
Input.press?(Input::CTRL)
closeSplashDelete(scene,args)
end
end
def closeSplash(scene,args)
onCTrigger.clear
onUpdate.clear
# Play random cry
cry=pbResolveAudioSE(pbCryFile(1+rand(PBSpecies.maxValue)))
pbSEPlay(cry,100,100) if cry
# Fade out
@pic.moveOpacity(15,0,0)
@pic2.moveOpacity(15,0,0)
pbBGMStop(1.0)
pictureWait
scene.dispose # Close the scene
Graphics.transition(0)
if File.exists?("Data/LastSave.dat")
lastsave=pbGetLastPlayed
lastsave[0]=lastsave[0].to_i
if lastsave[1].to_s=="true"
if lastsave[0]==0 || lastsave[0]==1
savefile=RTP.getSaveFileName("Game_autosave.rxdata")
else
savefile = RTP.getSaveFileName("Game_#{lastsave[0]}_autosave.rxdata")
end
elsif lastsave[0]==0 || lastsave[0]==1
savefile=RTP.getSaveFileName("Game.rxdata")
else
savefile = RTP.getSaveFileName("Game_#{lastsave[0]}.rxdata")
end
lastsave[1]=nil if lastsave[1]!="true"
if safeExists?(savefile)
sscene=PokemonLoad_Scene.new
sscreen=PokemonLoadScreen.new(sscene)
sscreen.pbStartLoadScreen(lastsave[0].to_i,lastsave[1],"Save File #{lastsave[0]}")
else
sscene=PokemonLoad_Scene.new
sscreen=PokemonLoadScreen.new(sscene)
sscreen.pbStartLoadScreen
end
else
sscene=PokemonLoad_Scene.new
sscreen=PokemonLoadScreen.new(sscene)
sscreen.pbStartLoadScreen
end
end
def closeSplashDelete(scene,args)
onCTrigger.clear
onUpdate.clear
# Play random cry
cry=pbResolveAudioSE(pbCryFile(1+rand(PBSpecies.maxValue)))
pbSEPlay(cry,100,100) if cry
# Fade out
@pic.moveOpacity(15,0,0)
@pic2.moveOpacity(15,0,0)
pbBGMStop(1.0)
pictureWait
scene.dispose # Close the scene
Graphics.transition(0)
if File.exists?("Data/LastSave.dat")
lastsave=pbGetLastPlayed
lastsave[0]=lastsave[0].to_i
if lastsave[1].to_s=="true"
if lastsave[0]==0 || lastsave[0]==1
savefile=RTP.getSaveFileName("Game_autosave.rxdata")
else
savefile = RTP.getSaveFileName("Game_#{lastsave[0]}_autosave.rxdata")
end
elsif lastsave[0]==0 || lastsave[0]==1
savefile=RTP.getSaveFileName("Game.rxdata")
else
savefile = RTP.getSaveFileName("Game_#{lastsave[0]}.rxdata")
end
lastsave[1]=nil if lastsave[1]!="true"
if safeExists?(savefile)
sscene=PokemonLoad_Scene.new
sscreen=PokemonLoadScreen.new(sscene)
sscreen.pbStartLoadScreen(lastsave[0].to_i,lastsave[1],"Save File #{lastsave[0]}")
else
sscene=PokemonLoad_Scene.new
sscreen=PokemonLoadScreen.new(sscene)
sscreen.pbStartLoadScreen
end
else
sscene=PokemonLoad_Scene.new
sscreen=PokemonLoadScreen.new(sscene)
sscreen.pbStartLoadScreen
end
end
end
class Scene_Intro
def initialize(pics, splash = nil)
@pics=pics
@splash=splash
end
def main
Graphics.transition(0)
@eventscene=IntroEventScene.new(@pics,@splash)
@eventscene.main
Graphics.freeze
end
endSystem
Spoiler:
Code:
# Loads data from a file "safely", similar to load_data. If an encrypted archive
# exists, the real file is deleted to ensure that the file is loaded from the
# encrypted archive.
def pbSafeLoad(file)
if (safeExists?("./Game.rgssad") || safeExists?("./Game.rgss2a")) && safeExists?(file)
File.delete(file) rescue nil
end
return load_data(file)
end
def pbLoadRxData(file) # :nodoc:
if $RPGVX
return load_data(file+".rvdata")
else
return load_data(file+".rxdata")
end
end
def pbChooseLanguage
commands=[]
for lang in LANGUAGES
commands.push(lang[0])
end
return Kernel.pbShowCommands(nil,commands)
end
if !Kernel.respond_to?("pbSetResizeFactor")
def pbSetResizeFactor(dummy); end
def setScreenBorderName(border); end
$ResizeFactor=1.0
$ResizeFactorMul=100
$ResizeOffsetX=0
$ResizeOffsetY=0
$ResizeFactorSet=false
module Graphics
def self.snap_to_bitmap; return nil; end
end
end
#############
#############
def pbSetUpSystem(tempsave=0,autosave=nil)
begin
trainer=nil
framecount=0
havedata=false
game_system=nil
pokemonSystem=nil
if tempsave>1
if autosave !=nil
File.open(RTP.getSaveFileName("Game_"+tempsave.to_s+"_autosave.rxdata")){|f|
trainer=Marshal.load(f)
framecount=Marshal.load(f)
game_system=Marshal.load(f)
pokemonSystem=Marshal.load(f)
}
else
File.open(RTP.getSaveFileName("Game_"+tempsave.to_s+".rxdata")){|f|
trainer=Marshal.load(f)
framecount=Marshal.load(f)
game_system=Marshal.load(f)
pokemonSystem=Marshal.load(f)
}
end
elsif autosave !=nil
File.open(RTP.getSaveFileName("Game_autosave.rxdata")){|f|
trainer=Marshal.load(f)
framecount=Marshal.load(f)
game_system=Marshal.load(f)
pokemonSystem=Marshal.load(f)
}
else
File.open(RTP.getSaveFileName("Game.rxdata")){|f|
trainer=Marshal.load(f)
framecount=Marshal.load(f)
game_system=Marshal.load(f)
pokemonSystem=Marshal.load(f)
}
end
raise "Corrupted file" if !trainer.is_a?(PokeBattle_Trainer)
raise "Corrupted file" if !framecount.is_a?(Numeric)
raise "Corrupted file" if !game_system.is_a?(Game_System)
raise "Corrupted file" if !pokemonSystem.is_a?(PokemonSystem)
havedata=true
rescue
pokemonSystem=PokemonSystem.new
game_system=Game_System.new
end
if !$INEDITOR
$PokemonSystem=pokemonSystem
$game_system=Game_System
$ResizeOffsetX=0 #[0,0][$PokemonSystem.screensize]
$ResizeOffsetY=0 #[0,0][$PokemonSystem.screensize]
resizefactor=[0.5,1.0,2.0][$PokemonSystem.screensize]
pbSetResizeFactor(resizefactor)
else
pbSetResizeFactor(1.0)
end
# Load constants
begin
consts=pbSafeLoad("Data/Constants.rxdata")
consts=[] if !consts
rescue
consts=[]
end
for script in consts
next if !script
eval(Zlib::Inflate.inflate(script[2]),nil,script[1])
end
if LANGUAGES.length>=2
if !havedata
pokemonSystem.language=pbChooseLanguage
end
pbLoadMessages("Data/"+LANGUAGES[pokemonSystem.language][1])
end
end
def pbScreenCapture
capturefile=nil
5000.times {|i|
filename=RTP.getSaveFileName(sprintf("capture%03d.bmp",i))
if !safeExists?(filename)
capturefile=filename
break
end
i+=1
}
if capturefile && safeExists?("rubyscreen.dll")
takescreen=Win32API.new("rubyscreen.dll","TakeScreenshot","%w(p)","i")
takescreen.call(capturefile)
if safeExists?(capturefile)
pbSEPlay("expfull") if FileTest.audio_exist?("Audio/SE/expfull")
end
end
end
module Input
unless defined?(update_KGC_ScreenCapture)
class << Input
alias update_KGC_ScreenCapture update
end
end
def self.update
update_KGC_ScreenCapture
if trigger?(Input::F8)
pbScreenCapture
end
if trigger?(Input::F7)
pbDebugF7
end
end
end
def pbDebugF7
if $DEBUG
Console::setup_console
begin
debugBitmaps
rescue
end
pbSEPlay("expfull") if FileTest.audio_exist?("Audio/SE/expfull")
end
end
pbSetUpSystem()Save
Spoiler:
Code:
class PokemonSave_Scene
def pbStartScreen
@viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
@viewport.z=99999
@sprites={}
totalsec = Graphics.frame_count / Graphics.frame_rate
hour = totalsec / 60 / 60
min = totalsec / 60 % 60
mapname=$game_map.name
textColor=["0070F8,78B8E8","E82010,F8A8B8","0070F8,78B8E8"][$Trainer.gender]
loctext=_INTL("<ac><c2=06644bd2>{1}</c2></ac>",mapname)
loctext+=_INTL("Player<r><c3={1}>{2}</c3><br>",textColor,$Trainer.name)
loctext+=_ISPRINTF("Time<r><c3={1:s}>{2:02d}:{3:02d}</c3><br>",textColor,hour,min)
loctext+=_INTL("Badges<r><c3={1}>{2}</c3><br>",textColor,$Trainer.numbadges)
if $Trainer.pokedex
loctext+=_INTL("Pokédex<r><c3={1}>{2}/{3}</c3><br>",textColor,$Trainer.pokedexOwned,$Trainer.pokedexSeen)
end
if $game_variables[99]>1
loctext+=_INTL("Save File:<r><c3={1}>{2}</c3><br>",textColor,$game_variables[99])
else
loctext+=_INTL("Save File:<r><c3={1}>1</c3><br>",textColor)
end
@sprites["locwindow"]=Window_AdvancedTextPokemon.new(loctext)
@sprites["locwindow"].viewport=@viewport
@sprites["locwindow"].x=0
@sprites["locwindow"].y=0
@sprites["locwindow"].width=228 if @sprites["locwindow"].width<228
@sprites["locwindow"].visible=true
end
def pbEndScreen
pbDisposeSpriteHash(@sprites)
@viewport.dispose
end
end
def pbEmergencySave
oldscene=$scene
$scene=nil
Kernel.pbMessage(_INTL("The script is taking too long. The game will restart."))
return if !$Trainer
if $game_variables[99]>1
savename="Game_"+$game_variables[99].to_s+".rxdata"
else
savename="Game.rxdata"
end
if safeExists?(RTP.getSaveFileName(savename))
File.open(RTP.getSaveFileName("Game.rxdata"), 'rb') {|r|
File.open(RTP.getSaveFileName("Game.rxdata.bak"), 'wb') {|w|
while s = r.read(4096)
w.write s
end
}
}
end
if pbSave
Kernel.pbMessage(_INTL("\\se[]The game was saved.\\se[save]\\wtnp[30]"))
else
Kernel.pbMessage(_INTL("\\se[]Save failed.\\wtnp[30]"))
end
$scene=oldscene
end
def pbAutoSave(safesave=false)
if $game_variables[99]>1
savename="Game_"+$game_variables[99].to_s+"_autosave.rxdata"
else
savename="Game_autosave.rxdata"
end
begin
File.open(RTP.getSaveFileName(savename),"wb"){|f|
Marshal.dump($Trainer,f)
Marshal.dump(Graphics.frame_count,f)
if $data_system.respond_to?("magic_number")
$game_system.magic_number = $data_system.magic_number
else
$game_system.magic_number = $data_system.version_id
end
$game_system.save_count+=1
Marshal.dump($game_system,f)
Marshal.dump($PokemonSystem,f)
Marshal.dump($game_map.map_id,f)
Marshal.dump($game_switches,f)
Marshal.dump($game_variables,f)
Marshal.dump($game_self_switches,f)
Marshal.dump($game_screen,f)
Marshal.dump($MapFactory,f)
Marshal.dump($game_player,f)
$PokemonGlobal.safesave=safesave
Marshal.dump($PokemonGlobal,f)
Marshal.dump($PokemonMap,f)
Marshal.dump($PokemonBag,f)
Marshal.dump($PokemonStorage,f)
}
Graphics.frame_reset
rescue
return false
end
pbStoredLastPlayed($game_variables[99],true)
return true
end
def pbSave(safesave=false)
$Trainer.metaID=$PokemonGlobal.playerID
if $game_variables[99]>1
savename="Game_"+$game_variables[99].to_s+".rxdata"
else
savename="Game.rxdata"
end
begin
File.open(RTP.getSaveFileName(savename),"wb"){|f|
Marshal.dump($Trainer,f)
Marshal.dump(Graphics.frame_count,f)
if $data_system.respond_to?("magic_number")
$game_system.magic_number = $data_system.magic_number
else
$game_system.magic_number = $data_system.version_id
end
$game_system.save_count+=1
Marshal.dump($game_system,f)
Marshal.dump($PokemonSystem,f)
Marshal.dump($game_map.map_id,f)
Marshal.dump($game_switches,f)
Marshal.dump($game_variables,f)
Marshal.dump($game_self_switches,f)
Marshal.dump($game_screen,f)
Marshal.dump($MapFactory,f)
Marshal.dump($game_player,f)
$PokemonGlobal.safesave=safesave
Marshal.dump($PokemonGlobal,f)
Marshal.dump($PokemonMap,f)
Marshal.dump($PokemonBag,f)
Marshal.dump($PokemonStorage,f)
}
Graphics.frame_reset
rescue
return false
end
pbStoredLastPlayed($game_variables[99],nil)
return true
end
class PokemonSaveScreen
def initialize(scene)
@scene=scene
end
def pbDisplay(text,brief=false)
@scene.pbDisplay(text,brief)
end
def pbDisplayPaused(text)
@scene.pbDisplayPaused(text)
end
def pbConfirm(text)
return @scene.pbConfirm(text)
end
def pbSaveScreen
ret=false
@scene.pbStartScreen
if Kernel.pbConfirmMessage(_INTL("Would you like to save the game?"))
if $game_variables[99]>1
savename="Game_"+$game_variables[99].to_s+".rxdata"
else
savename="Game.rxdata"
end
if safeExists?(RTP.getSaveFileName(savename))
confirm=""
if !Kernel.pbConfirmMessage(
_INTL("There is already a saved file. Is it OK to overwrite it?"))
@scene.pbEndScreen
return false
end
end
$PokemonTemp.begunNewGame=false
if pbSave
Kernel.pbMessage(_INTL("\\se[]{1} saved the game.\\se[save]\\wtnp[30]",$Trainer.name))
ret=true
else
Kernel.pbMessage(_INTL("\\se[]Save failed.\\wtnp[30]"))
ret=false
end
end
@scene.pbEndScreen
return ret
end
endLoad
Spoiler:
Code:
class PokemonLoadPanel < SpriteWrapper
attr_reader :selected
def initialize(index,title,isContinue,trainer,framecount,mapid,viewport=nil)
super(viewport)
@index=index
@title=title
@isContinue=isContinue
@trainer=trainer
@totalsec=(framecount || 0)/Graphics.frame_rate
@mapid=mapid
@selected=(index==0)
@bgbitmap=AnimatedBitmap.new("Graphics/Pictures/loadPanels")
@refreshBitmap=true
@refreshing=false
refresh
end
def dispose
@bgbitmap.dispose
self.bitmap.dispose
super
end
def selected=(value)
if @selected!=value
@selected=value
@refreshBitmap=true
refresh
end
end
def pbRefresh
# Draw contents
@refreshBitmap=true
refresh
end
def refresh
return if @refreshing
return if disposed?
@refreshing=true
if !self.bitmap || self.bitmap.disposed?
self.bitmap=BitmapWrapper.new(@bgbitmap.width,111*2)
pbSetSystemFont(self.bitmap)
end
if @refreshBitmap
@refreshBitmap=false
self.bitmap.clear if self.bitmap
if @isContinue
self.bitmap.blt(0,0,@bgbitmap.bitmap,
Rect.new(0,(@selected ? 111*2 : 0),@bgbitmap.width,111*2))
else
self.bitmap.blt(0,0,@bgbitmap.bitmap,
Rect.new(0,111*2*2+(@selected ? 23*2 : 0),@bgbitmap.width,23*2))
end
textpos=[]
if @isContinue
textpos.push([@title,16*2,5*2,0,Color.new(232,232,232),Color.new(136,136,136)])
textpos.push([_INTL("Badges:"),16*2,56*2,0,Color.new(232,232,232),Color.new(136,136,136)])
textpos.push([@trainer.numbadges.to_s,103*2,56*2,1,Color.new(232,232,232),Color.new(136,136,136)])
textpos.push([_INTL("Pokédex:"),16*2,72*2,0,Color.new(232,232,232),Color.new(136,136,136)])
textpos.push([@trainer.pokedexSeen.to_s,103*2,72*2,1,Color.new(232,232,232),Color.new(136,136,136)])
textpos.push([_INTL("Time:"),16*2,88*2,0,Color.new(232,232,232),Color.new(136,136,136)])
hour = @totalsec / 60 / 60
min = @totalsec / 60 % 60
if hour>0
textpos.push([_INTL("{1}h {2}m",hour,min),103*2,88*2,1,Color.new(232,232,232),Color.new(136,136,136)])
else
textpos.push([_INTL("{1}m",min),103*2,88*2,1,Color.new(232,232,232),Color.new(136,136,136)])
end
if @trainer.gender==0
textpos.push([@trainer.name,56*2,32*2,0,Color.new(56,160,248),Color.new(56,104,168)])
else
textpos.push([@trainer.name,56*2,32*2,0,Color.new(240,72,88),Color.new(160,64,64)])
end
mapname=pbGetMapNameFromId(@mapid)
mapname.gsub!(/\\PN/,@trainer.name)
textpos.push([mapname,193*2,5*2,1,Color.new(232,232,232),Color.new(136,136,136)])
else
textpos.push([@title,16*2,4*2,0,Color.new(232,232,232),Color.new(136,136,136)])
end
pbDrawTextPositions(self.bitmap,textpos)
end
@refreshing=false
end
end
class PokemonLoad_Scene
def pbUpdate
oldi=@sprites["cmdwindow"].index rescue 0
pbUpdateSpriteHash(@sprites)
newi=@sprites["cmdwindow"].index rescue 0
if oldi!=newi
@sprites["panel#{oldi}"].selected=false
@sprites["panel#{oldi}"].pbRefresh
@sprites["panel#{newi}"].selected=true
@sprites["panel#{newi}"].pbRefresh
while @sprites["panel#{newi}"].y>Graphics.height-16*2-23*2-1*2
for i in [email protected]
@sprites["panel#{i}"].y-=23*2+1*2
end
for i in 0...6
break if !@sprites["party#{i}"]
@sprites["party#{i}"].y-=23*2+1*2
end
@sprites["player"].y-=23*2+1*2 if @sprites["player"]
end
while @sprites["panel#{newi}"].y<16*2
for i in [email protected]
@sprites["panel#{i}"].y+=23*2+1*2
end
for i in 0...6
break if !@sprites["party#{i}"]
@sprites["party#{i}"].y+=23*2+1*2
end
@sprites["player"].y+=23*2+1*2 if @sprites["player"]
end
end
end
def pbStartScene(commands,showContinue,trainer,framecount,mapid)
@commands=commands
@sprites={}
@viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
@viewport.z=99998
@textviewport=Viewport.new(0,0,Graphics.width,Graphics.height)
@[email protected]+1
@sprites["overlay"]=BitmapSprite.new(Graphics.width,Graphics.height,@textviewport)
@sprites["overlay2"]=BitmapSprite.new(Graphics.width,Graphics.height,@textviewport)
addBackgroundOrColoredPlane(@sprites,"background","loadbg",
Color.new(248,248,248),@viewport)
y=16*2
for i in 0...commands.length
@sprites["panel#{i}"]=PokemonLoadPanel.new(i,commands[i],
(showContinue ? (i==0) : false),trainer,framecount,mapid,@viewport)
@sprites["panel#{i}"].pbRefresh
@sprites["panel#{i}"].x=24*2
@sprites["panel#{i}"].y=y
y+=(showContinue && i==0) ? 111*2+1*2 : 23*2+1*2
end
@sprites["cmdwindow"]=Window_CommandPokemon.new([])
@sprites["cmdwindow"].x=Graphics.width
@sprites["cmdwindow"].y=0
@sprites["cmdwindow"].viewport=@viewport
@sprites["cmdwindow"].visible=false
end
def pbStartScene2
pbFadeInAndShow(@sprites) { pbUpdate }
end
def pbMoveSprites(xoffset)
@sprites["cmdwindow"].x-=xoffset
@sprites["player"].x-=xoffset if @sprites["player"]
for i in 0..5
@sprites["party#{i}"].x-=xoffset if @sprites["party#{i}"]
end
for i in 0..5
@sprites["panel#{i}"].x-=xoffset if @sprites["panel#{i}"]
end
end
def pbDrawSaveCommands(savefiles)
@savefiles=savefiles
@sprites["overlay"].bitmap.clear
textpos=[]
if savefiles.length>=9
numsavebuttons=9
else
numsavebuttons=savefiles.length
end
for i in 0...numsavebuttons
@sprites["savefile#{i}"]=IconSprite.new(Graphics.width/2-384/2,i*45,@viewport)
@sprites["savefile#{i}"].setBitmap("Graphics/Pictures/loadsavepanel")
@sprites["savefile#{i}"].zoom_x=0.5
@sprites["savefile#{i}"].zoom_y=0.5
Graphics.update
loop do
@sprites["savefile#{i}"].zoom_x+=0.125
@sprites["savefile#{i}"].zoom_y+=0.125
Graphics.update
break if @sprites["savefile#{i}"].zoom_x==1
end
if i<10
textpos.push([savefiles[i][1],Graphics.width/2-savefiles[i][1].length*5,i*45+12,0,Color.new(255,255,255),Color.new(125,125,125)])
pbDrawTextPositions(@sprites["overlay"].bitmap,textpos)
end
end
@sprites["saveselect"]=IconSprite.new(Graphics.width/2-384/2,0,@viewport)
@sprites["saveselect"].setBitmap("Graphics/Pictures/loadsavepanel_1")
Graphics.update
pbToggleSelecting
end
def pbRemoveSaveCommands
@sprites["overlay"].bitmap.clear
@index=0 if !@index
Graphics.update
pbDisposeSprite(@sprites,"saveselect")
Graphics.update
for i in [email protected]
pbDisposeSprite(@sprites,"savefile#{i}")
Graphics.update
end
end
def pbChooseAutoSubFile(index,arrayindex)
if !@sprites["autosavefile"]
@sprites["overlay"].bitmap.clear
@sprites["newsavefile1"]=IconSprite.new(20,Graphics.height/3,@viewport)
@sprites["newsavefile1"].setBitmap("Graphics/Pictures/loadsavepanel")
@sprites["autosavefile"]=IconSprite.new(300,Graphics.height/3,@viewport)
@sprites["autosavefile"].setBitmap("Graphics/Pictures/loadsavepanel")
@sprites["saveselect"]=IconSprite.new(20,Graphics.height/3,@viewport)
@sprites["saveselect"].setBitmap("Graphics/Pictures/loadsavepanel_1")
@sprites["autosavefile"].zoom_x=0.5
@sprites["newsavefile1"].zoom_x=0.5
@sprites["newsavefile1"].zoom_y=1.5
@sprites["autosavefile"].zoom_y=1.5
@sprites["saveselect"].zoom_x=0.5
@sprites["saveselect"].zoom_y=1.5
@sprites["overlay2"].bitmap.font.size=22
textpos=[]
textpos.push([@savefiles[arrayindex][1],Graphics.width/2-@savefiles[arrayindex][1].length/2*10,30,0,Color.new(0,0,0),Color.new(125,125,125)])
textpos.push(["Normal Save",55,Graphics.height/3+12,0,Color.new(255,255,255),Color.new(125,125,125)])
textpos.push(["Autosave",350,Graphics.height/3+12,0,Color.new(255,255,255),Color.new(125,125,125)])
textpos.push([@savefiles[arrayindex][4],30,Graphics.height/3+35,0,Color.new(255,255,255),Color.new(125,125,125)])
textpos.push([@savefiles[arrayindex][5],315,Graphics.height/3+35,0,Color.new(255,255,255),Color.new(125,125,125)])
pbDrawTextPositions(@sprites["overlay"].bitmap,textpos)
end
if index==0
@sprites["saveselect"].x=20
else
@sprites["saveselect"].x=300
end
end
def pbClearOverlay2
@sprites["overlay2"].bitmap.clear
end
def pbDrawCurrentSaveFile(savename="",auto=nil)
@sprites["overlay2"].bitmap.clear
textpos=[]
if auto==nil
textpos.push([savename,0,0,0,Color.new(255,255,255),Color.new(125,125,125)])
else
textpos.push([savename+ " Auto Save",0,0,0,Color.new(255,255,255),Color.new(125,125,125)])
end
pbDrawTextPositions(@sprites["overlay2"].bitmap,textpos)
end
def pbDrawSaveText(savefiles,xoffset=0,yoffset=0)
@sprites["overlay"].bitmap.clear
textpos=[]
#@savefiles=savefiles
for i in 0...savefiles.length
if !((i*45+12-yoffset)<0) && !((i*45+12-yoffset>9*45))
textpos.push([savefiles[i][1],Graphics.width/2-savefiles[i][1].length*5+xoffset,i*45+12-yoffset,0,Color.new(255,255,255),Color.new(125,125,125)])
end
end
pbDrawTextPositions(@sprites["overlay"].bitmap,textpos)
end
def pbToggleSelecting
if @saveselecting
@saveselecting=!@saveselecting
else
@saveselecting=true
end
end
def pbMoveSaveSel(index)
@index=index
if index<=7 &&
@sprites["saveselect"].y=index*45
pbDrawSaveText(@savefiles)
elsif [email protected]
@sprites["saveselect"].y=7*45
pbDrawSaveText(@savefiles,0,45*(index-7))
else
pbDrawSaveText(@savefiles,0,45*(index-7))
end
if index==(@savefiles.length-1) && @savefiles.length-1>=8
@sprites["savefile8"].visible=false if @sprites["savefile8"]
else
@sprites["savefile8"].visible=true if @sprites["savefile8"]
end
Graphics.update
end
def pbStartDeleteScene
@sprites={}
@viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
@viewport.z=99998
addBackgroundOrColoredPlane(@sprites,"background","loadbg",
Color.new(248,248,248),@viewport)
end
def pbSetParty(trainer)
return if !trainer || !trainer.party
meta=pbGetMetadata(0,MetadataPlayerA+trainer.metaID)
if meta
filename=pbGetPlayerCharset(meta,1,trainer)
@sprites["player"]=TrainerWalkingCharSprite.new(filename,@viewport)
charwidth=@sprites["player"].bitmap.width
charheight=@sprites["player"].bitmap.height
@sprites["player"].x = 56*2 - charwidth/8
@sprites["player"].y = 56*2 - charheight/8
@sprites["player"].src_rect = Rect.new(0,0,charwidth/4,charheight/4)
end
for i in 0...trainer.party.length
@sprites["party#{i}"]=PokemonIconSprite.new(trainer.party[i],@viewport)
@sprites["party#{i}"].z=99999
@sprites["party#{i}"].x=151*2+33*2*(i&1)
@sprites["party#{i}"].y=36*2+25*2*(i/2)
end
end
def pbChoose(commands)
@sprites["cmdwindow"].commands=commands
loop do
Graphics.update
Input.update
pbUpdate
if Input.trigger?(Input::C) && (!@saveselecting || @saveselecting==false)
return @sprites["cmdwindow"].index
end
end
end
def pbEndScene
pbFadeOutAndHide(@sprites) #{ pbUpdate }
pbDisposeSpriteHash(@sprites)
@viewport.dispose
@commands=nil
@textviewport.dispose
end
def pbCloseScene
pbDisposeSpriteHash(@sprites)
@viewport.dispose
end
end
class PokemonLoadScreen
def initialize(scene)
@scene=scene
end
def pbTryLoadFile(savefile)
trainer=nil
framecount=nil
game_system=nil
pokemonSystem=nil
mapid=nil
File.open(savefile){|f|
trainer=Marshal.load(f)
framecount=Marshal.load(f)
game_system=Marshal.load(f)
pokemonSystem=Marshal.load(f)
mapid=Marshal.load(f)
}
raise "Corrupted file" if !trainer.is_a?(PokeBattle_Trainer)
raise "Corrupted file" if !framecount.is_a?(Numeric)
raise "Corrupted file" if !game_system.is_a?(Game_System)
raise "Corrupted file" if !pokemonSystem.is_a?(PokemonSystem)
raise "Corrupted file" if !mapid.is_a?(Numeric)
return [trainer,framecount,game_system,pokemonSystem,mapid]
end
def pbStartDeleteScreen
savefile=RTP.getSaveFileName("Game.rxdata")
@scene.pbStartDeleteScene
@scene.pbStartScene2
if safeExists?(savefile)
if Kernel.pbConfirmMessageSerious(_INTL("Delete all saved data?"))
Kernel.pbMessage(_INTL("Once data has been deleted, there is no way to recover it.\1"))
if Kernel.pbConfirmMessageSerious(_INTL("Delete the saved data anyway?"))
Kernel.pbMessage(_INTL("Deleting all data.\r\nDon't turn off the power.\\wtnp[0]"))
begin; File.delete(savefile); rescue; end
begin; File.delete(savefile+".bak"); rescue; end
Kernel.pbMessage(_INTL("The save file was deleted."))
end
end
else
Kernel.pbMessage(_INTL("No save file was found."))
end
@scene.pbEndScene
$scene=pbCallTitle
end
def pbStartLoadScreen(savenum=0,auto=nil,savename="Save Slot 1")
$PokemonTemp = PokemonTemp.new
$game_temp = Game_Temp.new
$game_system = Game_System.new
$PokemonSystem = PokemonSystem.new if !$PokemonSystem
cmdContinue = -1
cmdNewGame = -1
cmdChooseSaveFile =-1
cmdOption = -1
cmdLanguage = -1
cmdMysteryGift = -1
cmdDeleteSaveFile =-1
commands = []
if auto !=nil
if savenum==0 || savenum==1
savefile=RTP.getSaveFileName("Game_autosave.rxdata")
else
savefile = RTP.getSaveFileName("Game_"+savenum.to_s+"_autosave.rxdata")
end
elsif savenum==0 || savenum==1
savefile=RTP.getSaveFileName("Game.rxdata")
else
savefile = RTP.getSaveFileName("Game_"+savenum.to_s+".rxdata")
end
FontInstaller.install
data_system = pbLoadRxData("Data/System")
mapfile=$RPGVX ? sprintf("Data/Map%03d.rvdata",data_system.start_map_id) :
sprintf("Data/Map%03d.rxdata",data_system.start_map_id)
if data_system.start_map_id==0 || !pbRgssExists?(mapfile)
Kernel.pbMessage(_INTL("No starting position was set in the map editor.\1"))
Kernel.pbMessage(_INTL("The game cannot continue."))
@scene.pbEndScene
$scene=nil
return
end
if safeExists?(savefile)
trainer=nil
framecount=0
mapid=0
showContinue=false
haveBackup=false
begin
trainer, framecount, $game_system, $PokemonSystem, mapid=pbTryLoadFile(savefile)
showContinue=true
rescue
if safeExists?(savefile+".bak")
begin
trainer, framecount, $game_system, $PokemonSystem, mapid=pbTryLoadFile(savefile+".bak")
haveBackup=true
showContinue=true
rescue
end
end
if haveBackup
Kernel.pbMessage(_INTL("The save file is corrupt. The previous save file will be loaded."))
else
Kernel.pbMessage(_INTL("The save file is corrupt, or is incompatible with this game."))
if !Kernel.pbConfirmMessageSerious(_INTL("Do you want to delete the save file and start anew?"))
raise "scss error - Corrupted or incompatible save file."
end
begin; File.delete(savefile); rescue; end
begin; File.delete(savefile+".bak"); rescue; end
$game_system=Game_System.new
$PokemonSystem=PokemonSystem.new if !$PokemonSystem
Kernel.pbMessage(_INTL("The save file was deleted."))
end
end
if showContinue
if !haveBackup
begin; File.delete(savefile+".bak"); rescue; end
end
end
commands[cmdContinue=commands.length]=_INTL("Continue") if showContinue
commands[cmdNewGame=commands.length]=_INTL("New Game")
commands[cmdChooseSaveFile=commands.length]=_INTL("Other Save Files")
commands[cmdDeleteSaveFile=commands.length]=_INTL("Delete This Save File")
commands[cmdMysteryGift=commands.length]=_INTL("Mystery Gift") if (trainer.mysterygiftaccess rescue false)
commands[cmdOption=commands.length]=_INTL("Options")
else
commands[cmdNewGame=commands.length]=_INTL("New Game")
commands[cmdChooseSaveFile=commands.length]=_INTL("Other Save Files")
commands[cmdOption=commands.length]=_INTL("Options")
end
if LANGUAGES.length>=2
commands[cmdLanguage=commands.length]=_INTL("Language")
end
@scene.pbStartScene(commands,showContinue,trainer,framecount,mapid)
@scene.pbSetParty(trainer) if showContinue
@scene.pbStartScene2
@scene.pbDrawCurrentSaveFile(savename,auto)
loop do
[email protected](commands)
deleting=false
if cmdDeleteSaveFile>=0 && command==cmdDeleteSaveFile
if Kernel.pbConfirmMessageSerious(_INTL("Are you sure you want to delete this save file?"))
if Kernel.pbConfirmMessageSerious(_INTL("All data will be lost. Confirm once more to proceed."))
begin; File.delete(savefile); rescue; end
begin; File.delete(savefile+".bak"); rescue; end
deleting=true
@scene.pbClearOverlay2
@scene.pbEndScene
return
pbSetUpSystem(0,nil)
sscene=PokemonLoad_Scene.new
sscreen=PokemonLoadScreen.new(sscene)
sscreen.pbStartLoadScreen(0,nil)
end
end
retry if deleting==false
elsif cmdContinue>=0 && command==cmdContinue
unless safeExists?(savefile)
pbPlayBuzzerSE()
next
end
@scene.pbEndScene
metadata=nil
File.open(savefile){|f|
Marshal.load(f) # Trainer already loaded
$Trainer = trainer
Graphics.frame_count = Marshal.load(f)
$game_system = Marshal.load(f)
Marshal.load(f) # PokemonSystem already loaded
Marshal.load(f) # Current map id no longer needed
$game_switches = Marshal.load(f)
$game_variables = Marshal.load(f)
$game_self_switches = Marshal.load(f)
$game_screen = Marshal.load(f)
$MapFactory = Marshal.load(f)
$game_map = $MapFactory.map
$game_player = Marshal.load(f)
$PokemonGlobal = Marshal.load(f)
metadata = Marshal.load(f)
$ItemData = readItemList("Data/items.dat")
$PokemonBag = Marshal.load(f)
$PokemonStorage = Marshal.load(f)
magicNumberMatches=false
if $data_system.respond_to?("magic_number")
magicNumberMatches=($game_system.magic_number==$data_system.magic_number)
else
magicNumberMatches=($game_system.magic_number==$data_system.version_id)
end
if !magicNumberMatches || $PokemonGlobal.safesave
if pbMapInterpreterRunning?
pbMapInterpreter.setup(nil,0)
end
begin
$MapFactory.setup($game_map.map_id) # calls setMapChanged
rescue Errno::ENOENT
if $DEBUG
Kernel.pbMessage(_INTL("Map {1} was not found.",$game_map.map_id))
map=pbWarpToMap()
if map
$MapFactory.setup(map[0])
$game_player.moveto(map[1],map[2])
else
$game_map=nil
$scene=nil
return
end
else
$game_map=nil
$scene=nil
Kernel.pbMessage(_INTL("The map was not found. The game cannot continue."))
end
end
$game_player.center($game_player.x, $game_player.y)
else
$MapFactory.setMapChanged($game_map.map_id)
end
}
if !$game_map.events # Map wasn't set up
$game_map=nil
$scene=nil
Kernel.pbMessage(_INTL("The map is corrupt. The game cannot continue."))
return
end
$PokemonMap=metadata
$PokemonEncounters=PokemonEncounters.new
$PokemonEncounters.setup($game_map.map_id)
pbAutoplayOnSave
$game_map.update
$PokemonMap.updateMap
auto=(auto==nil)?false:auto
pbStoredLastPlayed($game_variables[99],auto)
$scene = Scene_Map.new
return
elsif cmdNewGame>=0 && command==cmdNewGame
@scene.pbEndScene
if $game_map && $game_map.events
for event in $game_map.events.values
event.clear_starting
end
end
$game_temp.common_event_id=0 if $game_temp
$scene = Scene_Map.new
Graphics.frame_count = 0
$game_system = Game_System.new
$game_switches = Game_Switches.new
$game_variables = Game_Variables.new
$game_self_switches = Game_SelfSwitches.new
$game_screen = Game_Screen.new
$game_player = Game_Player.new
$ItemData = readItemList("Data/items.dat")
$PokemonMap = PokemonMapMetadata.new
$PokemonGlobal = PokemonGlobalMetadata.new
$PokemonStorage = PokemonStorage.new
$PokemonEncounters = PokemonEncounters.new
$PokemonTemp.begunNewGame=true
$data_system = pbLoadRxData("Data/System")
$MapFactory = PokemonMapFactory.new($data_system.start_map_id) # calls setMapChanged
$game_player.moveto($data_system.start_x, $data_system.start_y)
$game_player.refresh
$game_map.autoplay
$game_map.update
#find next available slot
checksave=RTP.getSaveFileName("Game.rxdata")
if !safeExists?(checksave)
$game_variables[99]=0
else
j=2
loop do
checksave=RTP.getSaveFileName("Game_"+j.to_s+".rxdata")
if !safeExists?(checksave)
$game_variables[99]=j
break
end
j+=1
end
end
auto=(auto==nil)?false:auto
pbStoredLastPlayed($game_variables[99],auto)
return
elsif cmdMysteryGift>=0 && command==cmdMysteryGift
pbFadeOutIn(99999){
trainer=pbDownloadMysteryGift(trainer)
}
elsif cmdChooseSaveFile>=0 && command==cmdChooseSaveFile
cancelled=false
saveslots=[]
newsavecheck=RTP.getSaveFileName("Game.rxdata") #load first save file outside the loop, since a save number isn't involved
newautosavecheck=RTP.getSaveFileName("Game_autosave.rxdata")
if safeExists?(newsavecheck)
hasauto=(safeExists?(newautosavecheck))?true:false
if hasauto==true
t=File.mtime(newautosavecheck) rescue pbGetTimeNow
autosavetime=t.strftime("%c")
else
autosavetime=""
end
t=File.mtime(newsavecheck) rescue pbGetTimeNow
savetime=t.strftime("%c")
saveslots.push([1,"Save Slot 1",hasauto,true,savetime,autosavetime])
elsif safeExists?(newautosavecheck)
t=File.mtime(newautosavecheck) rescue pbGetTimeNow
autosavetime=t.strftime("%c")
savetime=""
saveslots.push([1,"Save Slot 1",true,false,savetime,autosavetime])
end
i=2
loop do
newsavecheck=RTP.getSaveFileName("Game_"+i.to_s+".rxdata")
newautosavecheck=RTP.getSaveFileName("Game_"+i.to_s+"_autosave.rxdata")
if safeExists?(newsavecheck)
t=File.mtime(newsavecheck) rescue pbGetTimeNow
savetime=t.strftime("%c")
hasauto=(safeExists?(newautosavecheck))?true:false
if hasauto==true
t=File.mtime(newautosavecheck) rescue pbGetTimeNow
autosavetime=t.strftime("%c")
else
autosavetime=""
end
slotname=sprintf("Save Slot %d",i)
saveslots.push([i,slotname,hasauto,true,savetime,autosavetime])
#Kernel.pbMessage(_INTL("{1}",saveslots))
elsif safeExists?(newautosavecheck)
t=File.mtime(newautosavecheck) rescue pbGetTimeNow
savetime=""
autosavetime=t.strftime("%c")
slotname=sprintf("Save Slot %d",i)
saveslots.push([i,slotname,true,false,savetime,autosavetime])
else #don't break quite yet, in case save file in middle was removed
newi=(i+1)
newsavecheck=RTP.getSaveFileName("Game_"+newi.to_s+".rxdata")
newautosavecheck=RTP.getSaveFileName("Game_"+newi.to_s+"_autosave.rxdata")
if safeExists?(newsavecheck)
i=newi
t=File.mtime(newsavecheck) rescue pbGetTimeNow
savetime=t.strftime("%c")
hasauto=(safeExists?(newautosavecheck))?true:false
if hasauto==true
t=File.mtime(newautosavecheck) rescue pbGetTimeNow
autosavetime=t.strftime("%c")
else
autosavetime=""
end
slotname=sprintf("Save Slot %d",newi)
saveslots.push([newi,slotname,hasauto,true,savetime,autosavetime])
elsif safeExists?(newautosavecheck)
i=newi
t=File.mtime(newautosavecheck) rescue pbGetTimeNow
autosavetime=t.strftime("%c")
savetime=""
slotname=sprintf("Save Slot %d",newi)
saveslots.push([newi,slotname,true,false,savetime,autosavetime])
else #give one extra slot space check
newi+=1
newsavecheck=RTP.getSaveFileName("Game_"+newi.to_s+".rxdata")
newautosavecheck=RTP.getSaveFileName("Game_"+newi.to_s+"_autosave.rxdata")
if safeExists?(newsavecheck)
i=newi
t=File.mtime(newsavecheck) rescue pbGetTimeNow
savetime=t.strftime("%c")
hasauto=(safeExists?(newautosavecheck))?true:false
if hasauto==true
t=File.mtime(newautosavecheck) rescue pbGetTimeNow
autosavetime=t.strftime("%c")
else
autosavetime=""
end
slotname=sprintf("Save Slot %d",newi)
saveslots.push([newi,slotname,hasauto,true,savetime,autosavetime])
elsif safeExists?(newautosavecheck)
i=newi
t=File.mtime(newautosavecheck) rescue pbGetTimeNow
autosavetime=t.strftime("%c")
savetime=""
slotname=sprintf("Save Slot %d",newi)
saveslots.push([newi,slotname,true,false,savetime,autosavetime])
else
break
end
end
end
i+=1
end
if saveslots.length>=1
for i in 1..21 #move the commands and other graphics
@scene.pbMoveSprites(i*2)
Graphics.update
end
@scene.pbDrawSaveCommands(saveslots)
#@scene.pbDrawSaveText(saveslots)
Graphics.update
@selected=0
loop do
Input.update
Graphics.update
if Input.trigger?(Input::DOWN)
#@scene.pbToggleSelecting
if @selected==saveslots.length-1
@selected=0
else
@selected+=1
end
@scene.pbMoveSaveSel(@selected)
elsif Input.trigger?(Input::UP)
if @selected==0
@selected=saveslots.length-1
else
@selected-=1
end
@scene.pbMoveSaveSel(@selected)
elsif Input.trigger?(Input::B)
@scene.pbRemoveSaveCommands
Graphics.update
for i in 1..21 #move the commands and other graphics
@scene.pbMoveSprites(i*-2)
Graphics.update
end
@scene.pbToggleSelecting
break
elsif Input.trigger?(Input::C)
@scene.pbRemoveSaveCommands
if saveslots[@selected][2]==true && saveslots[@selected][3]==true
@scene.pbRemoveSaveCommands
Graphics.update
@scene.pbChooseAutoSubFile(0,@selected)
autoindex=0
loop do
Graphics.update
Input.update
if Input.trigger?(Input::LEFT)
if autoindex==0
autoindex=1
@scene.pbChooseAutoSubFile(1,@selected)
else
autoindex=0
@scene.pbChooseAutoSubFile(0,@selected)
end
elsif Input.trigger?(Input::RIGHT)
if autoindex==1
autoindex=0
@scene.pbChooseAutoSubFile(0,@selected)
else
autoindex=1
@scene.pbChooseAutoSubFile(1,@selected)
end
elsif Input.trigger?(Input::C)
break
end
end
auto=(autoindex==1)?true:nil
tempsave=saveslots[@selected][0]
@scene.pbEndScene
pbSetUpSystem(tempsave,auto)
scene=PokemonLoad_Scene.new
screen=PokemonLoadScreen.new(scene)
screen.pbStartLoadScreen(tempsave,auto,saveslots[@selected][1])
return
elsif saveslots[@selected][2]==true
tempsave=saveslots[@selected][0]
@scene.pbEndScene
pbSetUpSystem(tempsave,true)
scene=PokemonLoad_Scene.new
screen=PokemonLoadScreen.new(scene)
screen.pbStartLoadScreen(tempsave,auto,saveslots[@selected][1])
return
else
tempsave=saveslots[@selected][0]
@scene.pbEndScene
pbSetUpSystem(tempsave,nil)
scene=PokemonLoad_Scene.new
screen=PokemonLoadScreen.new(scene)
screen.pbStartLoadScreen(tempsave,nil,saveslots[@selected][1])
return
end
end
end
else
Kernel.pbMessage(_INTL("You don't have any other save files"))
end
elsif cmdOption>=0 && command==cmdOption
scene=PokemonOption_Scene.new
screen=PokemonOptionScreen.new(scene)
pbFadeOutIn(99999) { screen.pbStartScreen }
elsif cmdLanguage>=0 && command==cmdLanguage
@scene.pbEndScene
$PokemonSystem.language=pbChooseLanguage
pbLoadMessages("Data/"+LANGUAGES[$PokemonSystem.language][1])
savedata=[]
if safeExists?(savefile)
File.open(savefile,"rb"){|f|
15.times { savedata.push(Marshal.load(f)) }
}
savedata[3]=$PokemonSystem
begin
File.open(RTP.getSaveFileName("Game.rxdata"),"wb"){|f|
15.times {|i| Marshal.dump(savedata[i],f) }
}
rescue; end
end
$scene=pbCallTitle
return
end
end
@scene.pbEndScene
return
end
end
################################################################################
# Font installer
################################################################################
module FontInstaller
# filenames of fonts to be installed
Filenames = [
'pkmnem.ttf',
'pkmnemn.ttf',
'pkmnems.ttf',
'pkmnrs.ttf',
'pkmndp.ttf',
'pkmnfl.ttf'
]
# names (not filenames) of fonts to be installed
Names = [
'Power Green',
'Power Green Narrow',
'Power Green Small',
'Power Red and Blue',
'Power Clear',
'Power Red and Green'
]
# whether to notify player (via pop-up message) that fonts were installed
Notify = true
# location of fonts (relative to game folder)
Source = 'Fonts/'
def self.getFontFolder
fontfolder=MiniRegistry.get(MiniRegistry::HKEY_CURRENT_USER,
"Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\Shell Folders",
"Fonts")
return fontfolder+"\\" if fontfolder
if ENV['SystemRoot']
return ENV['SystemRoot'] + '\\Fonts\\'
elsif ENV['windir']
return ENV['windir'] + '\\Fonts\\'
else
return '\\Windows\\Fonts\\'
end
end
AFR = Win32API.new('gdi32', 'AddFontResource', ['P'], 'L')
WPS = Win32API.new('kernel32', 'WriteProfileString', ['P'] * 3, 'L')
SM = Win32API.new('user32', 'PostMessage', ['L'] * 4, 'L')
WM_FONTCHANGE = 0x001D
HWND_BROADCAST = 0xffff
def self.copy_file(src,dest)
File.open(src, 'rb') {|r|
File.open(dest, 'wb') {|w|
while s = r.read(4096)
w.write s
end
}
}
end
def self.pbResolveFont(name)
RTP.eachPathFor(Source+name) {|file|
return file if safeExists?(file)
}
return Source+name
end
def self.install
success = []
# Check if all fonts already exist
filesExist=true
fontsExist=true
dest=self.getFontFolder()
for i in 0...Names.size
if !safeExists?(dest + Filenames[i])
filesExist=false
end
if !Font.exist?(Names[i])
fontsExist=false
end
end
return if filesExist
# Check if all source fonts exist
exist=true
for i in 0...Names.size
if !RTP.exists?(Source + Filenames[i])
exist=false
break
end
end
return if !exist # Exit if not all source fonts exist
Kernel.pbMessage(_INTL("One or more fonts used in this game do not exist on the system.\1"))
Kernel.pbMessage(_INTL("The game can be played, but the look of the game's text will not be optimal.\1"))
failed=false
for i in 0...Filenames.size
f = Filenames[i]
if safeExists?(dest + f) && !Font.exist?(Names[i])
File.delete(dest + f) rescue nil
end
# check if already installed...
if not safeExists?(dest + f)
# check to ensure font is in specified location...
if RTP.exists?(Source + f)
# copy file to fonts folder
succeeded=false
begin
copy_file(pbResolveFont(f), dest + f)
# add font resource
AFR.call(dest + f)
# add entry to win.ini/registry
WPS.call('Fonts', Names[i] + ' (TrueType)', f)
succeeded=safeExists?(dest + f)
rescue SystemCallError
# failed
succeeded=false
end
if succeeded
success.push(Names[i])
else
failed=true
end
end
else
success.push(Names[i]) # assume success
end
end
if success.length>0 # one or more fonts successfully installed
SM.call(HWND_BROADCAST,WM_FONTCHANGE,0,0)
if Notify
fonts = ''
success.each do |f|
fonts << f << ', '
end
if failed
Kernel.pbMessage(_INTL("Some of the fonts were successfully installed.\1"))
Kernel.pbMessage(_INTL("To install the other fonts, copy the files in this game's Fonts folder to the Fonts folder in Control Panel."))
else
Kernel.pbMessage(_INTL("The fonts were successfully installed.\1"))
end
if Kernel.pbConfirmMessage(_INTL("Would you like to restart the game and apply the changes?"))
a = Thread.new { system('Game') }
exit
end
end
else
# No fonts were installed.
Kernel.pbMessage(_INTL("To install the necessary fonts, copy the files in this game's Fonts folder to the Fonts folder in Control Panel."))
end
end
end
def pbGetLastPlayed
info=[]
counter=0
text=File.open("LastSave.dat", 'rb')
#text.gsub!(/\r\n?/, "\n")
text.each_line do |line|
line.chomp
info.push(line) if counter<=1
counter = counter + 1
end
info[0]=info[0].to_i
info[0]+=1 if info[0]<1
return [info[0],info[1]]
end
def pbStoredLastPlayed(savenum,auto)
File.open("LastSave.dat", 'w'){ |file| file.write("#{savenum}")
file.write("\n")
file.write("#{auto.to_s}")}
endMain
Spoiler:
Code:
class Scene_DebugIntro
def main
Graphics.transition(0)
if File.exists?("Data/LastSave.dat")
lastsave=pbGetLastPlayed
if lastsave[1].to_s=="true"
if lastsave[0]==0 || lastsave[0]==1
savefile=RTP.getSaveFileName("Game_autosave.rxdata")
else
savefile = RTP.getSaveFileName("Game_#{lastsave[0]}_autosave.rxdata")
end
elsif lastsave[0]==0 || lastsave[0]==1
savefile=RTP.getSaveFileName("Game.rxdata")
else
savefile = RTP.getSaveFileName("Game_#{lastsave[0]}.rxdata")
end
lastsave[1]=nil if lastsave[1]!="true"
if safeExists?(savefile)
sscene = PokemonLoad_Scene.new
sscreen = PokemonLoadScreen.new(sscene)
sscreen.pbStartLoadScreen(lastsave[0].to_i,lastsave[1],"Save File #{lastsave[0]}")
else
sscene = PokemonLoad_Scene.new
sscreen = PokemonLoadScreen.new(sscene)
sscreen.pbStartLoadScreen
end
else
sscene = PokemonLoad_Scene.new
sscreen = PokemonLoadScreen.new(sscene)
sscreen.pbStartLoadScreen
end
Graphics.freeze
end
end
def pbCallTitle
if $DEBUG
return Scene_DebugIntro.new
else
# First parameter is an array of images in the Titles
# directory without a file extension, to show before the
# actual title screen. Second parameter is the actual
# title screen filename, also in Titles with no extension.
return Scene_Intro.new(['intro1'], 'splash')
end
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),"")
setPriorityClass.call(getCurrentProcess.call(),32768) # "Above normal" priority class
$data_animations = pbLoadRxData("Data/Animations")
$data_tilesets = pbLoadRxData("Data/Tilesets")
$data_common_events = pbLoadRxData("Data/CommonEvents")
$data_system = pbLoadRxData("Data/System")
$game_system = Game_System.new
setScreenBorderName("border") # Sets image file for the border
Graphics.update
Graphics.freeze
$scene = pbCallTitle
while $scene != nil
$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
endI pulled it off a few days ago but didn't get around to it due to development and Nuzlocke testing >~< Credit to Mej71