UltimaForum :: Zobacz temat

Spoiler:

Kod:

#==============================================================================
# C M S
#------------------------------------------------------------------------------
# CMS by Melvin
#==============================================================================
#------------------------------------------------------------------------------
# class Scene_Map
#------------------------------------------------------------------------------
class Scene_Map
def main
@spriteset = Spriteset_Map.new
@message_window = Window_Message.new
Graphics.transition
loop do
if Input.trigger?(Input::A)
$scene = Scene_CMS.new
end
Graphics.update
Input.update
update
if $scene != self
break
end
end
Graphics.freeze
@spriteset.dispose
@message_window.dispose
if $scene.is_a?(Scene_Title)
Graphics.transition
Graphics.freeze
end
end
end
#------------------------------------------------------------------------------
# class Scene_CMS
#------------------------------------------------------------------------------
class Scene_CMS
def main
@okno1 = Window_Gold_CMS.new
@okno2 = Window_PlayTime_CMS.new
@okno3 = Window_Steps_CMS.new
@okno4 = Window_Location_CMS.new
@okno1.x = -160
@okno1.y = 95
@okno2.x = 640
@okno2.y = 164
@okno3.x = -160
@okno3.y = 0
@okno4.x = 160
@okno4.y = 0
@spriteset = Spriteset_Map.new
@appearing = true
@disappearing = false
Graphics.transition
loop do
Graphics.update
Input.update
update
if $scene != self
break
end
end
Graphics.freeze
@okno1.dispose
@okno2.dispose
@okno3.dispose
@okno4.dispose
@spriteset.dispose
end

def appear
@okno1.x += 5 if @okno1.x < 0
@okno2.x -= 5 if @okno2.x > 480
@okno3.x += 5 if @okno3.x < 0
@okno4.y += 5 if @okno4.y > 0
if @okno1.x == 0 and @okno2.x == 480 and @okno3.x == 0 and
@okno4.y == 0
@appearing = false
end
end

def disappear
@okno1.x -= 5 if @okno1.x > -160
@okno2.x += 5 if @okno2.x < 640
@okno3.x -= 5 if @okno3.x > -160
@okno4.y -= 5 if @okno4.y < -65
if @okno1.x == -160 and @okno2.x == 640 and @okno3.x == -160 and
@okno4.y == -65
$scene = Scene_Map.new
end
end

def update
if @appearing
appear
end
if @disappearing
disappear
end
@okno1.update
@okno2.update
@okno3.update
@okno4.update
@spriteset.update
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
@disappearing = true
end
end
end
#--------------------------------------------------------------------------
# Window_Steps_CMS
#--------------------------------------------------------------------------
class Window_Steps_CMS < Window_Base
def initialize
super(0, 0, 160, 96)
self.contents = Bitmap.new(width - 32, height - 32)
refresh
end
def refresh
self.contents.clear
self.contents.font.color = system_color
self.contents.draw_text(4, 0, 120, 32, "Ilość kroków")
self.contents.font.color = normal_color
self.contents.draw_text(4, 32, 120, 32, $game_party.steps.to_s, 2)
self.back_opacity = 255
end
end
#--------------------------------------------------------------------------
# Window_PlayTime_CMS
#--------------------------------------------------------------------------
class Window_PlayTime_CMS < Window_Base
def initialize
super(0, 0, 160, 96)
self.contents = Bitmap.new(width - 32, height - 32)
refresh
end
def refresh
self.contents.clear
self.contents.font.color = system_color
self.contents.draw_text(4, 0, 120, 32, "Czas gry")
@total_sec = Graphics.frame_count / Graphics.frame_rate
hour = @total_sec / 60 / 60
min = @total_sec / 60 % 60
sec = @total_sec % 60
text = sprintf("%02d:%02d:%02d", hour, min, sec)
self.contents.font.color = normal_color
self.contents.draw_text(4, 32, 120, 32, text, 2)
self.back_opacity = 255
end
def update
super
if Graphics.frame_count / Graphics.frame_rate != @total_sec
refresh
end
end
end
#--------------------------------------------------------------------------
# Window_Gold_CMS
#--------------------------------------------------------------------------
class Window_Gold_CMS < Window_Base
def initialize
super(2, 77, 160, 64)
self.contents = Bitmap.new(width - 32, height - 32)
refresh
end
def refresh
self.contents.clear
cx = contents.text_size($data_system.words.gold).width
self.contents.font.color = normal_color
self.contents.draw_text(4, 0, 120-cx-2, 32, $game_party.gold.to_s, 2)
self.contents.font.color = system_color
self.contents.draw_text(124-cx, 0, cx, 32, $data_system.words.gold, 2)
self.back_opacity = 255
end
end
class Game_Map
def name
$map_info[@map_id]
end
end
class Scene_Title
$map_info = load_data("Data/MapInfos.rxdata")
for key in $map_info.keys
$map_info[key] = $map_info[key].name
end
end
class Window_Base < Window
end
#--------------------------------------------------------------------------
# Window_Location_CMS
#--------------------------------------------------------------------------
class Window_Location_CMS < Window_Base
def initialize(x = 0, y = 0, width = 450, height = 64)
super(x, y, width, height)
self.contents = Bitmap.new(width - 32, height - 32)
self.contents.font.name = "Arial"
self.contents.font.size = 22
self.back_opacity = 255
refresh
end
def refresh
self.contents.clear
self.contents.draw_text(0, 0, 100, 32, "Lokacja:", 1)
self.contents.draw_text(0, 0, 350, 32, $game_map.name, 1)
end
end