#======================================================================= # ? [VX] ? Quick Save / Load / Delete ? ? # * Save/Load/Delete save file you want with call script * #------------------------------------------------------------------- # ? by Woratana [woratana@hotmail.com] # ? Thaiware RPG Maker Community # ? Released on: 22/05/2008 # ? Version: 1.0 #=======================================================================
#================================================================== # ** FEATURES ** #----------------------------------------------------------------- # - Call script to save/load/delete any save slot # - Compatible with most of the scripts that edited Scene_File
#================================================================== # ** HOW TO USE ** #----------------------------------------------------------------- # - To do a quick save, call script: # $save.do(slot) # For example: $save.do(1) # * Script above will save in slot 1 # # - To do a quick save on last slot that you use quick save, call script: # $save.redo #----------------------------------------------------------------- # - To do a quick load, call script: # $load.do(slot) # # - To do a quick load on last slot that you use quick load, call script: # $load.redo #----------------------------------------------------------------- # - To do a quick delete save file, call script: # $save.del(slot) #----------------------------------------------------------------- # +[ TIP ]+ # If you want to use value in variable for slot, type this for slot: # $game_variables[variable_id] # For example: $save.do ($game_variables[1]) #===========================================================================
#-------------------------- # ** START SETUP PART #--------------------------
QUICK_LOAD_FADE_SCREEN = true # (true/false) # Do you want screen to fade when using Quick Load?
#-------------------------- # ** END SETUP PART #--------------------------
$worale = {} if $worale.nil? $worale["QuickSave"] = true #------------------------------- # Quick Save #------------------------------- class Quick_Save def do(slot = 0) return if slot == 0 $game_system.last_qsave_slot = slot save = Scene_File.new(false,false,false,1,slot) end
def redo save = Scene_File.new(false,false,false,1, $game_system.last_qsave_slot) end
def del(slot = 0) return if slot == 0 delete = Scene_File.new(false,false,false,3,slot) end end $save = Quick_Save.new #------------------------------- # Quick Load #------------------------------- class Quick_Load def do(slot = 0) return if slot == 0 $game_system.last_qload_slot = slot save = Scene_File.new(false,false,false,2,slot) end
def redo save = Scene_File.new(false,false,false,2, $game_system.last_qsave_slot) end end $load = Quick_Load.new #------------------------------------ # Game System: Store Variables #------------------------------------ class Game_System attr_accessor :last_qsave_slot, :last_qload_slot alias wor_qsave_gamsys_ini initialize def initialize wor_qsave_gamsys_ini @last_qsave_slot = 1 @last_qload_slot = 1 end end #------------------------------------ # Scene File: Save/Load/Delete File #------------------------------------ class Scene_File < Scene_Base alias wor_qsave_scefil_ini initialize
def initialize(saving, from_title, from_event, skip = 0, slot = 0) filename = make_filename(slot - 1) if slot > 0 if skip == 1 and slot > 0 file = File.open(filename, "wb") write_save_data(file) file.close return elsif skip == 2 and slot > 0 return if not FileTest.exist?(filename) file = File.open(filename, "rb") read_save_data(file) file.close $scene = Scene_Map.new if QUICK_LOAD_FADE_SCREEN RPG::BGM.fade(1) Graphics.fadeout(1) Graphics.wait(1) end @last_bgm.play @last_bgs.play elsif skip == 3 and slot > 0 File.delete(filename) if FileTest.exist?(filename) else wor_qsave_scefil_ini(saving, from_title, from_event) end end end
Man erblickt auf die zerstörte Welt Deldaros einer der letzten überlebenen der schlacht setzt sich mit den anderen überleben zusammen um eine lösung zu finden damit dies niemals wieder geschenkan so kamen sie zu einem enschluss das sie ihr gesammtes wissen fähigkeiten Auf die kontinente aufteilen müssten um das einen weiteren krieg zu verhindern darum wurden die kontinente durch barrieren getrennt doch nichts ist von dauer
wir schlagen das jahr 3847 nach dem ende des krieges ein neues leben erblick ei junge das anglitz von Caruba (Kontinent 3). Er wächst in der mittelschicht auf beginnt eine ausbildung(was?) doch eines Tages passiert ein unglück nichts ahnend wird er in eine welt gerissen die er aus mythen und sagen kennt doch nie hätte er gedacht das er einmal selbst so nahe bekanntschaft mit dem Iones machen würde. Gar erschrocken als er das erste mal seinen cairan(seelenwesen) erblickt, doch er versteht es, sieht es und fühlt es, Doch es sind keine worte mehr die emotionen die er selbst fühlt und verstehen kann. Es hilft im dabei sich in seiner neuen welt zurecht zu finden doch schon bald soll er herausfinden das er nicht der einzigste ist. Die Korobals eine vereinigung zur aufrechterhaltung des gleichgewichtes der kräfte kontaktiert in er wird die möglichkeit bekommen sich ihnen anzuschliessen oder gegen sie zu kämpfen
Einarbeitung eines Uhrfolkes die krieg führten sie waren hochtechnologisiert doch bekriegten sich ununterbrochen in dieser zeit nutzten sie mehr und mehr die kräfte beider seiten die Iones(Tod) und den Flax(Leben) doch am ende zerstörten sie fast die komplette welt nur wenige konnten überleben sie schuffen barrieren zum Schutz des ganzen planeten zwischen dan kontinenten und verteilten verschiedenst ihr wissen und fähigkeiten auf die kontinente sie verwoben die siegel zum aufrecht erhaltung dabei so tief mit der welt das man sie niemals brechen könne geschweigeden durchdringen so erhofften die Alten sich einen schutz damit so ein Krieg niemals wieder entstehen könne
class Game_Interpreter def command_122 value = 0 case @params[3] # Operand when 0 # Constant value = @params[4] when 1 # Variable value = $game_variables[@params[4]] when 2 # Random value = @params[4] + rand(@params[5] - @params[4] + 1) when 3 # Item value = $game_party.item_number($data_items[@params[4]]) when 4 # Actor actor = $game_actors[@params[4]] if actor != nil case @params[5] when 0 # Level value = actor.level when 1 # Experience value = actor.exp when 2 # HP value = actor.hp when 3 # MP value = actor.mp when 4 # Maximum HP value = actor.maxhp when 5 # Maximum MP value = actor.maxmp when 6 # Attack value = actor.atk when 7 # Defense value = actor.def when 8 # Spirit value = actor.spi when 9 # Agility value = actor.agi when 10 end end when 5 # Enemy enemy = $game_troop.members[@params[4]] if enemy != nil case @params[5] when 0 # HP value = enemy.hp when 1 # MP value = enemy.mp when 2 # Maximum HP value = enemy.maxhp when 3 # Maximum MP value = enemy.maxmp when 4 # Attack value = enemy.atk when 5 # Defense value = enemy.def when 6 # Spirit value = enemy.spi when 7 # Agility value = enemy.agi end end when 6 # Character character = get_character(@params[4]) if character != nil case @params[5] when 0 # x-coordinate value = character.x when 1 # y-coordinate value = character.y when 2 # direction value = character.direction when 3 # screen x-coordinate value = character.screen_x when 4 # screen y-coordinate value = character.screen_y end end when 7 # Other case @params[4] when 0 # map ID value = $game_map.map_id when 1 # number of party members value = $game_party.members.size when 2 # gold value = $game_party.gold when 3 # steps value = $game_party.steps when 4 # play time value = Graphics.frame_count / Graphics.frame_rate when 5 # timer value = $game_system.timer / Graphics.frame_rate when 6 # save count value = $game_system.save_count end end for i in @params[0] .. @params[1] # Batch control case @params[2] # Operation when 0 # Set $game_variables[i] = value when 1 # Add $game_variables[i] += value when 2 # Sub $game_variables[i] -= value when 3 # Mul $game_variables[i] *= value when 4 # Div $game_variables[i] /= value if value != 0 when 5 # Mod $game_variables[i] %= value if value != 0 end if $game_variables[i] > 99999999 # Maximum limit check $game_variables[i] = 99999999 end if $game_variables[i] < -99999999 # Minimum limit check $game_variables[i] = -99999999 end end $game_map.need_refresh = true return true end end
Projekt-OF-VX » Foren Suche nach Inhalten von Rackos
04.08.2011 13:47
