UltimaForum :: Zobacz temat

PaKiTos

Opis:
Mamy 8 slotów na zapis gry.

Kod:

Spoiler:

Kod:

#==============================================================================
# ■ 8 SaveSlots
#------------------------------------------------------------------------------
# Pako Script Pack 1
#==============================================================================

class Window_SaveFile < Window_Base
#--------------------------------------------------------------------------
attr_reader :filename
attr_reader :selected
#--------------------------------------------------------------------------
def initialize(file_index, filename)
super(0, 0 + file_index % 8 * 59, 640, 69)
self.contents = Bitmap.new(width - 32, height - 32)
@file_index = file_index
@filename = "Save#{@file_index + 1}.rxdata"
@time_stamp = Time.at(0)
@file_exist = FileTest.exist?(@filename)
if @file_exist
file = File.open(@filename, "r")
@time_stamp = file.mtime
@characters = Marshal.load(file)
@frame_count = Marshal.load(file)
@game_system = Marshal.load(file)
@game_switches = Marshal.load(file)
@game_variables = Marshal.load(file)
@total_sec = @frame_count / Graphics.frame_rate
file.close
end
refresh
@selected = false
end
#--------------------------------------------------------------------------
def refresh
self.contents.clear
self.contents.font.color = normal_color
name = "Zapis #{@file_index + 1}"
self.contents.draw_text(4, 0, 600, 32, name)
@name_width = contents.text_size(name).width
if @file_exist
self.contents.font.color = normal_color
time_string = @time_stamp.strftime("%Y/%m/%d %H:%M")
self.contents.draw_text(334, 1, 600, 32, "Zapisany")
end
end
#--------------------------------------------------------------------------
def selected=(selected)
@selected = selected
update_cursor_rect
end
#--------------------------------------------------------------------------
def update_cursor_rect
if @selected
self.cursor_rect.set(0, 0, @name_width + 8, 32)
else
self.cursor_rect.empty
end
end
end
#==============================================================================
# ■ Scene_File
#==============================================================================

class Scene_File
#--------------------------------------------------------------------------
def initialize(help_text)
@help_text = help_text
end
#--------------------------------------------------------------------------
def main
@savefile_windows = []
for i in 0..7
@savefile_windows.push(Window_SaveFile.new(i, make_filename(i)))
end
@file_index = $game_temp.last_file_index
@savefile_windows[@file_index].selected = true
Graphics.transition
loop do
Graphics.update
Input.update
update
if $scene != self
break
end
end
Graphics.freeze
for i in @savefile_windows
i.dispose
end
end
#--------------------------------------------------------------------------
def update
for i in @savefile_windows
i.update
end
if Input.trigger?(Input::C)
on_decision(make_filename(@file_index))
$game_temp.last_file_index = @file_index
return
end
if Input.trigger?(Input::B)
on_cancel
return
end
if Input.repeat?(Input::DOWN)
if Input.trigger?(Input::DOWN) or @file_index < 7
$game_system.se_play($data_system.cursor_se)
@savefile_windows[@file_index].selected = false
@file_index = (@file_index + 1) % 8
@savefile_windows[@file_index].selected = true
return
end
end
if Input.repeat?(Input::UP)
if Input.trigger?(Input::UP) or @file_index > 0
$game_system.se_play($data_system.cursor_se)
@savefile_windows[@file_index].selected = false
@file_index = (@file_index + 7) % 8
@savefile_windows[@file_index].selected = true
return
end
end
end
#--------------------------------------------------------------------------
def make_filename(file_index)
return "Save#{file_index + 1}.rxdata"
end
end

tracersgta

Dziwna treść skryptu... same &i tu jakaś 5 liczbowa cyfra(albo cyfrowa liczba :P).

Ayene

PaKiTos, skrypt przydatny, ale kolejnym razem prosiłabym o usuwanie japońskich komentarzy oraz dostosowanie skryptu do 'standardów' wersji angielskiej.

Skrypt zedytowany.

mic2311 · Preferowany: Dołączył: 03 Sie 2011 Posty: 5

Dzięki za skrypt, dzięki za "FAKTY" ;-)