Thế là hết than phiền về cái Message nhé (dành cho ai chưa biết)

khoaiRPG · 26/4/05

thấy các bạn than nhìu quá nên post cái nì lên, ai thích thì xài nhé

#begin
LETTER_BY_LETTER_MODE = true #Set the letter by letter mode ON/OFF

#===================================================
# ▼ CLASS AMS Begins
#===================================================
class AMS

attr_accessor :name_box_x_offset
attr_accessor :name_box_y_offset
attr_accessor :font_type
attr_accessor :name_font_type
attr_accessor :font_size
attr_accessor :name_font_size
attr_accessor :message_box_opacity
attr_accessor :name_box_skin
attr_accessor :name_box_text_color
attr_accessor :message_box_text_color
attr_accessor :message_box_skin
attr_accessor :name_box_width
attr_accessor :name_box_height

def initialize

@name_box_x_offset = 0 #Choose the X axis offset of the name bos. default= 0
@name_box_y_offset = -10 #Choose the Y axis offset of the name bos. default= -10
@name_box_width = 8 #Choose the width of the Name Box. default= 8
@name_box_height = 26 #Choose the height of the Name Box. default= 26

@font_type = "Arial" #Choose the Font Name (Case Sensitive) for message box
@name_font_type = "Arial" #Choose the Font Name (Case Sensitive) for Name Box
@font_size = 18 #Choose the default Font Size for message box text
@name_font_size = 18 #Choose the deafault Font Size for Name Box text
@name_box_text_color=0 #Choose the Text Color of the Name Box
@message_box_text_color=0 #Choose the Text Color of the Message Box

@message_box_opacity = 160 #Choose the opacity of the message window. Default=160
@message_box_skin = "001-Blue01" #Choose the WindowSkin for the Message Box
@name_box_skin = "001-Blue01" #Choose the WindowSkin for the Name Box

end
end
#===================================================
# ▲ CLASS AMS Ends
#===================================================

#===================================================
# ▼ Class Window_Message Begins
#===================================================
class Window_Message < Window_Selectable

alias xrxs9_initialize initialize

def initialize

@alex_skip = false

xrxs9_initialize

if $soundname_on_speak == nil then
$soundname_on_speak = ""
end

$gaiji_file = "./Graphics/Gaiji/sample.png"

if FileTest.exist?($gaiji_file)
@gaiji_cache = Bitmap.new($gaiji_file)
else
@gaigi_cache = nil
end
@opacity_text_buf = Bitmap.new(32, 32)
end

#--------------------------------------------------------------------------

alias xrxs9_terminate_message terminate_message

def terminate_message

if @name_window_frame != nil
@name_window_frame.dispose
@name_window_frame = nil
end

if @name_window_text != nil
@name_window_text.dispose
@name_window_text = nil
end
xrxs9_terminate_message
end

#--------------------------------------------------------------------------

def refresh

self.contents.clear
self.contents.font.color = text_color($ams.message_box_text_color)
self.contents.font.name = $ams.font_type
self.contents.font.size = $ams.font_size
self.windowskin = RPG::Cache.windowskin($ams.message_box_skin)
@x = @y = @max_x = @max_y = @indent = @lines = 0
@face_indent = 0
@opacity = 255
@cursor_width = 0
@write_speed = 0
@write_wait = 0
@mid_stop = false
@face_file = nil
@popchar = -2

if $game_temp.choice_start == 0
@x = 8
end

if $game_temp.message_text != nil
@now_text = $game_temp.message_text
if (/\A\\[Ff]\[(.+?)\]/.match(@now_text))!=nil then
@face_file = $1 + ".png"
@x = @face_indent = 128
if FileTest.exist?("Graphics/Pictures/" + $1 + ".png")
self.contents.blt(16, 16, RPG::Cache.picture(@face_file), Rect.new(0, 0, 96, 96))
end
@now_text.gsub!(/\\[Ff]\[(.*?)\]/) { "" }
end

begin
last_text = @now_text.clone
@now_text.gsub!(/\\[Vv]\[([IiWwAaSs]?)([0-9]+)\]/) { convart_value($1, $2.to_i) }
end until @now_text == last_text
@now_text.gsub!(/\\[Nn]\[([0-9]+)\]/) do
$game_actors[$1.to_i] != nil ? $game_actors[$1.to_i].name : ""
end

#NEW
#Dubealex's Stop Skip Text ON-OFF
@now_text.gsub!(/\\[%]/) { "\100" }
#End new command

#NEW
#Dubealex's Show Monster Name Feature
@now_text.gsub!(/\\[Mm]\[([0-9]+)\]/) do
$data_enemies[$1.to_i] != nil ? $data_enemies[$1.to_i].name : ""
end
#End new command

#NEW
#Dubealex's Show Item Price Feature
@now_text.gsub!(/\\[Pp]rice\[([0-9]+)\]/) do
$data_items[$1.to_i] != nil ? $data_items[$1.to_i].price : ""
end
#End new command

#NEW
#Dubealex's Show Hero Class Name Feature
@now_text.gsub!(/\\[Cc]lass\[([0-9]+)\]/) do
$data_classes[$data_actors[$1.to_i].class_id] != nil ? $data_classes[$data_actors[$1.to_i].class_id].name : ""
end
#End new command

#NEW
#Dubealex's Show Current Map Name Feature
@now_text.gsub!(/\\[Mm]ap/) do
$game_map.name != nil ? $game_map.name : ""
end
#End new command

#NEW
#Dubealex's Choose Name Box Text Color
@now_text.gsub!(/\\[Zz]\[([0-9]+)\]/) do
$ams.name_box_text_color=$1.to_i
@now_text.sub!(/\\[Zz]\[([0-9]+)\]/) { "" }
end
#End new command

name_window_set = false
if (/\\[Nn]ame\[(.+?)\]/.match(@now_text)) != nil
name_window_set = true
name_text = $1
@now_text.sub!(/\\[Nn]ame\[(.*?)\]/) { "" }
end

if (/\\[Pp]\[([-1,0-9]+)\]/.match(@now_text))!=nil then
@popchar = $1.to_i
if @popchar == -1
@x = @indent = 48
@y = 4
end
@now_text.gsub!(/\\[Pp]\[([-1,0-9]+)\]/) { "" }
end

@max_choice_x = 0
if @popchar >= 0
@text_save = @now_text.clone
@max_x = 0
@max_y = 4
for i in 0..3
line = @now_text.split(/\n/)[3-i]
@max_y -= 1 if line == nil and @max_y <= 4-i
next if line == nil
line.gsub!(/\\\w\[(\w+)\]/) { "" }
cx = contents.text_size(line).width
@max_x = cx if cx > @max_x
if i >= $game_temp.choice_start
@max_choice_x = cx if cx > @max_choice_x
end
end
self.width = @max_x + 32 + @face_indent
self.height = (@max_y - 1) * 32 + 64
@max_choice_x -= 68
@max_choice_x -= @face_indent*216/128
else
@max_x = self.width - 32 - @face_indent
for i in 0..3
line = @now_text.split(/\n/)
next if line == nil
line.gsub!(/\\\w\[(\w+)\]/) { "" }
cx = contents.text_size(line).width
if i >= $game_temp.choice_start
@max_choice_x = cx if cx > @max_choice_x
end
end
@max_choice_x += 8
end
@cursor_width = 0
@now_text.gsub!(/\\\\/) { "\000" }
@now_text.gsub!(/\\[Cc]\[([0123456789ABCDEF#]+)\]/) { "\001[#{$1}]" }
@now_text.gsub!(/\\[Gg]/) { "\002" }
@now_text.gsub!(/\\[Ss]\[([0-9]+)\]/) { "\003[#{$1}]" }
@now_text.gsub!(/\\[Aa]\[(.*?)\]/) { "\004[#{$1}]" }

#NEW
#Dubealex's Permanent Color Change
@now_text.gsub!(/\\[Cc]olor\[([0-9]+)\]/) do
$ams.message_box_text_color= $1.to_i
@now_text.sub!(/\\[Cc]\[([0-9]+)\]/) { "" }
end
#End of new command

#NEW
#Dubealex's Font Change Feature
@now_text.gsub(/\\[Tt]\[(.*?)\]/) do
buftxt = $1.to_s
$ams.font_type = buftxt
@now_text.sub!(/\\[Tt]\[(.*?)\]/) { "" }
end
#End of new command

@now_text.gsub!(/\\[.]/) { "\005" }
@now_text.gsub!(/\\[|]/) { "\006" }
@now_text.gsub!(/\\[>]/) { "\016" }
@now_text.gsub!(/\\[<]/) { "\017" }
@now_text.gsub!(/\\[!]/) { "\020" }
@now_text.gsub!(/\\[~]/) { "\021" }
@now_text.gsub!(/\\[Ee]\[([0-9]+)\]/) { "\022[#{$1}]" }
@now_text.gsub!(/\\[Ii]/) { "\023" }
@now_text.gsub!(/\\[Oo]\[([0-9]+)\]/) { "\024[#{$1}]" }
@now_text.gsub!(/\\[Hh]\[([0-9]+)\]/) { "\025[#{$1}]" }
@now_text.gsub!(/\\[Bb]\[([0-9]+)\]/) { "\026[#{$1}]" }
@now_text.gsub!(/\\[Rr]\[(.*?)\]/) { "\027[#{$1}]" }

reset_window

if name_window_set
color=$ams.name_box_text_color
off_x = $ams.name_box_x_offset
off_y = $ams.name_box_y_offset
space = 2
x = self.x + off_x - space / 2
y = self.y + off_y - space / 2
w = self.contents.text_size(name_text).width + $ams.name_box_width + space
h = $ams.name_box_height + space
@name_window_frame = Window_Frame.new(x, y, w, h)
@name_window_frame.z = self.z + 1
x = self.x + off_x + 4
y = self.y + off_y
@name_window_text = Air_Text.new(x, y, name_text, color)
@name_window_text.z = self.z + 2
end
end

reset_window

if $game_temp.choice_max > 0
@item_max = $game_temp.choice_max
self.active = true
self.index = 0
end

if $game_temp.num_input_variable_id > 0
digits_max = $game_temp.num_input_digits_max
number = $game_variables[$game_temp.num_input_variable_id]
@input_number_window = Window_InputNumber.new(digits_max)
@input_number_window.number = number
@input_number_window.x = self.x + 8
@input_number_window.y = self.y + $game_temp.num_input_start * 32
end
end

#--------------------------------------------------------------------------

def update

super

if @fade_in
self.contents_opacity += 24
if @input_number_window != nil
@input_number_window.contents_opacity += 24
end
if self.contents_opacity == 255
@fade_in = false
end
return
end
@now_text = nil if @now_text == ""

if @now_text != nil and @mid_stop == false
if @write_wait > 0
@write_wait -= 1
return
end
text_not_skip = LETTER_BY_LETTER_MODE
while true
@max_x = @x if @max_x < @x
@max_y = @y if @max_y < @y
if (c = @now_text.slice!(/./m)) != nil
if c == "\000"
c = "\\"
end

if c == "\001"
@now_text.sub!(/\[([0123456789ABCDEF#]+)\]/, "")
temp_color = $1
color = temp_color.to_i
leading_x = temp_color.to_s.slice!(/./m)
if leading_x == "#"
self.contents.font.color = hex_color(temp_color)
next
end
if color >= 0 and color <= 7
self.contents.font.color = text_color(color)
end
next
end

if c == "\002"
if @gold_window == nil and @popchar <= 0
@gold_window = Window_Gold.new
@gold_window.x = 560 - @gold_window.width
if $game_temp.in_battle
@gold_window.y = 192
else
@gold_window.y = self.y >= 128 ? 32 : 384
end
@gold_window.opacity = self.opacity
@gold_window.back_opacity = self.back_opacity
end
c = ""
end

if c == "\003"
@now_text.sub!(/\[([0-9]+)\]/, "")
speed = $1.to_i
if speed >= 0 and speed <= 19
@write_speed = speed
end
c = ""
end

if c == "\004"
@now_text.sub!(/\[(.*?)\]/, "")
buftxt = $1.dup.to_s
if buftxt.match(/\//) == nil and buftxt != "" then
$soundname_on_speak = "Audio/SE/" + buftxt
else
$soundname_on_speak = buftxt.dup
end
c = ""
elsif c == "\004"
c = ""
end

if c == "\005"
@write_wait += 5
c = ""
end

if c == "\006"
@write_wait += 20
c = ""
end

if c == "\016"
text_not_skip = false
c = ""
end

if c == "\017"
text_not_skip = true
c = ""
end

if c == "\020"
@mid_stop = true
c = ""
end

if c == "\021"
terminate_message
return
end

if c == "\023"
@indent = @x
c = ""
end

if c == "\024"
@now_text.sub!(/\[([0-9]+)\]/, "")
@opacity = $1.to_i
color = self.contents.font.color
self.contents.font.name = $ams.font_type
self.contents.font.size = $ams.font_size
self.contents.font.color = Color.new(color.red, color.green, color.blue, color.alpha * @opacity / 255)
c = ""
end

if c == "\025"
@now_text.sub!(/\[([0-9]+)\]/, "")
self.contents.font.size = [[$1.to_i, 6].max, 32].min
c = ""
end

if c == "\026"
@now_text.sub!(/\[([0-9]+)\]/, "")
@x += $1.to_i
c = ""
end

if c == "\027"
@now_text.sub!(/\[(.*?)\]/, "")
@x += ruby_draw_text(self.contents, @x, @y * line_height + (line_height - self.contents.font.size), $1, @opacity)
if $soundname_on_speak != ""
Audio.se_play($soundname_on_speak)
end
c = ""
end

if c == "\030"
@now_text.sub!(/\[(.*?)\]/, "")
self.contents.blt(@x , @y * line_height + 8, RPG::Cache.icon($1), Rect.new(0, 0, 24, 24))
if $soundname_on_speak != ""
Audio.se_play($soundname_on_speak)
end
@x += 24
c = ""
end

if c == "\n"
@lines += 1
@y += 1
@x = 0 + @indent + @face_indent
if @lines >= $game_temp.choice_start
@x = 8 + @indent + @face_indent
@cursor_width = @max_choice_x
end
c = ""
end

if c == "\022"
@now_text.sub!(/\[([0-9]+)\]/, "")
@x += gaiji_draw(4 + @x, @y * line_height + (line_height - self.contents.font.size), $1.to_i)
c = ""
end

#NEW
#Dubealex's Text Skip On/OFF Command
if c == "\100"
if @alex_skip==false
@alex_skip=true
else
@alex_skip=false
end
c = ""
end
#end of new command

if c != ""
self.contents.draw_text(0+@x, 32 * @y, 40, 32, c)
@x += self.contents.text_size(c).width
if $soundname_on_speak != "" then
Audio.se_play($soundname_on_speak)
end
end

#SKIP_TEXT_CODE

# B = Escape, 0 (On The NumPad), X
# C = Enter, Space Bar and C
# A = Shift, Z

if Input.press?(Input::C) # <-- Change the value on that line
if @alex_skip==false
text_not_skip = false
end
end
else
text_not_skip = true
break
end

if text_not_skip
break
end
end
@write_wait += @write_speed
return
end

if @input_number_window != nil
@input_number_window.update
if Input.trigger?(Input::C)
$game_system.se_play($data_system.decision_se)
$game_variables[$game_temp.num_input_variable_id] =
@input_number_window.number
$game_map.need_refresh = true
@input_number_window.dispose
@input_number_window = nil
terminate_message
end
return
end

if @contents_showing
if $game_temp.choice_max == 0
self.pause = true
end

if Input.trigger?(Input::B)
if $game_temp.choice_max > 0 and $game_temp.choice_cancel_type > 0
$game_system.se_play($data_system.cancel_se)
$game_temp.choice_proc.call($game_temp.choice_cancel_type - 1)
terminate_message
end
end

if Input.trigger?(Input::C)
if $game_temp.choice_max > 0
$game_system.se_play($data_system.decision_se)
$game_temp.choice_proc.call(self.index)
end
if @mid_stop
@mid_stop = false
return
else
terminate_message
end
end
return
end

if @fade_out == false and $game_temp.message_text != nil
@contents_showing = true
$game_temp.message_window_showing = true
refresh
Graphics.frame_reset
self.visible = true
self.contents_opacity = 0
if @input_number_window != nil
@input_number_window.contents_opacity = 0
end
@fade_in = true
return
end

if self.visible
@fade_out = true
self.opacity -= 48
if self.opacity == 0
self.visible = false
@fade_out = false
$game_temp.message_window_showing = false
end
return
end
end

#--------------------------------------------------------------------------

def get_character(parameter)

case parameter
when 0
return $game_player
else
events = $game_map.events
return events == nil ? nil : events[parameter]
end
end

#--------------------------------------------------------------------------

def reset_window

if @popchar >= 0
events = $game_map.events
if events != nil
character = get_character(@popchar)
x = [[character.screen_x - 0 - self.width / 2, 4].max, 636 - self.width].min
y = [[character.screen_y - 48 - self.height, 4].max, 476 - self.height].min
self.x = x
self.y = y
end
elsif @popchar == -1
self.x = -4
self.y = -4
self.width = 648
self.height = 488
else
if $game_temp.in_battle
self.y = 16
else
case $game_system.message_position
when 0
self.y = 16
when 1
self.y = 160
when 2
self.y = 304
end
self.x = 80
if @face_file == nil
self.width = 480
else
self.width = 600
self.x -= 60
end
self.height = 160
end
end
self.contents = Bitmap.new(self.width - 32, self.height - 32)
self.contents.font.color = text_color($ams.message_box_text_color)
self.contents.font.name = $ams.font_type
self.contents.font.size = $ams.font_size
if @face_file != nil
self.contents.blt(16, 16, RPG::Cache.picture(@face_file), Rect.new(0, 0, 96, 96))
end
if @popchar == -1
self.opacity = 255
self.back_opacity = 0
elsif $game_system.message_frame == 0
self.opacity = 255
self.back_opacity = $ams.message_box_opacity
else
self.opacity = 0
self.back_opacity = $ams.message_box_opacity
end
end

#--------------------------------------------------------------------------

def gaiji_draw(x, y, num)

if @gaiji_cache == nil
return 0
else
if @gaiji_cache.width < num * 24
return 0
end

if self.contents.font.size >= 20 and self.contents.font.size <= 24
size = 24
else
size = self.contents.font.size * 100 * 24 / 2200
end

self.contents.stretch_blt(Rect.new(x, y, size, size), @gaiji_cache, Rect.new(num * 24, 0, 24, 24))

if $soundname_on_speak != "" then
Audio.se_play($soundname_on_speak)
end
return size
end
end

#--------------------------------------------------------------------------

def line_height
return 32

if self.contents.font.size >= 20 and self.contents.font.size <= 24
return 32
else
return self.contents.font.size * 15 / 10
end
end

#--------------------------------------------------------------------------

def ruby_draw_text(target, x, y, str,opacity)

sizeback = target.font.size
target.font.size * 3 / 2 > 32 ? rubysize = 32 - target.font.size : rubysize = target.font.size / 2
rubysize = [rubysize, 6].max
opacity = [[opacity, 0].max, 255].min
split_s = str.split(/,/)
split_s[0] == nil ? split_s[0] = "" : nil
split_s[1] == nil ? split_s[1] = "" : nil

height = sizeback + rubysize
width = target.text_size(split_s[0]).width

target.font.size = rubysize
ruby_width = target.text_size(split_s[1]).width
target.font.size = sizeback

buf_width = [target.text_size(split_s[0]).width, ruby_width].max

width - ruby_width != 0 ? sub_x = (width - ruby_width) / 2 : sub_x = 0

if opacity == 255
target.font.size = rubysize
target.draw_text(x + sub_x, y - target.font.size, target.text_size(split_s[1]).width, target.font.size, split_s[1])
target.font.size = sizeback
target.draw_text(x, y, width, target.font.size, split_s[0])
return width
else
if @opacity_text_buf.width < buf_width or @opacity_text_buf.height < height
@opacity_text_buf.dispose
@opacity_text_buf = Bitmap.new(buf_width, height)
else
@opacity_text_buf.clear
end
@opacity_text_buf.font.size = rubysize
@opacity_text_buf.draw_text(0 , 0, buf_width, rubysize, split_s[1], 1)
@opacity_text_buf.font.size = sizeback
@opacity_text_buf.draw_text(0 , rubysize, buf_width, sizeback, split_s[0], 1)
if sub_x >= 0
target.blt(x, y - rubysize, @opacity_text_buf, Rect.new(0, 0, buf_width, height), opacity)
else
target.blt(x + sub_x, y - rubysize, @opacity_text_buf, Rect.new(0, 0, buf_width, height), opacity)
end
return width
end
end

#--------------------------------------------------------------------------

def convart_value(option, index)
option == nil ? option = "" : nil
option.downcase!

case option
when "i"
unless $data_items[index].name == nil
r = sprintf("\030[%s]%s", $data_items[index].icon_name, $data_items[index].name)
end
when "w"
unless $data_weapons[index].name == nil
r = sprintf("\030[%s]%s", $data_weapons[index].icon_name, $data_weapons[index].name)
end
when "a"
unless $data_armors[index].name == nil
r = sprintf("\030[%s]%s", $data_armors[index].icon_name, $data_armors[index].name)
end
when "s"
unless $data_skills[index].name == nil
r = sprintf("\030[%s]%s", $data_skills[index].icon_name, $data_skills[index].name)
end
else
r = $game_variables[index]
end

r == nil ? r = "" : nil
return r
end

#--------------------------------------------------------------------------

def dispose
terminate_message

if @gaiji_cache != nil
unless @gaiji_cache.disposed?
@gaiji_cache.dispose
end
end

unless @opacity_text_buf.disposed?
@opacity_text_buf.dispose
end

$game_temp.message_window_showing = false
if @input_number_window != nil
@input_number_window.dispose
end
super
end

#--------------------------------------------------------------------------

def update_cursor_rect
if @index >= 0
n = $game_temp.choice_start + @index
self.cursor_rect.set(8 + @indent + @face_indent, n * 32, @cursor_width, 32)
else
self.cursor_rect.empty
end
end
end
#=========================================
# ▲ CLASS Window_Message Ends
#=========================================

#=========================================
# ▼ Class Window_Frame Begins
#=========================================
class Window_Frame < Window_Base

def initialize(x, y, width, height)
super(x, y, width, height)
self.windowskin = RPG::Cache.windowskin($ams.name_box_skin)
self.contents = nil
end

#--------------------------------------------------------------------------

def dispose
super
end
end
#=========================================
# ▲ CLASS Window_Frame Ends
#=========================================

#=========================================
# ▼ CLASS Game_Map Additional Code Begins
#=========================================
class Game_Map

#Dubealex's Addition (from XRXS) to show Map Name on screen
def name
$map_infos[@map_id]
end
end
#=========================================
# ▲ CLASS Game_Map Additional Code Ends
#=========================================

#=========================================
# ▼ CLASS Scene_Title Additional Code Begins
#=========================================
class Scene_Title

#Dubealex's Addition (from XRXS) to show Map Name on screen
$map_infos = load_data("Data/MapInfos.rxdata")
for key in $map_infos.keys
$map_infos[key] = $map_infos[key].name
end

#Dubealex's addition to save data from the AMS in the save files
$ams = AMS.new

end
#=========================================
# ▲ CLASS Scene_Title Additional Code Ends
#=========================================

#=========================================
# ▼ CLASS Window_Base Additional Code Begins
#=========================================
class Window_Base < Window

#Dubealex Addition (from Phylomorphis) to use HTML Hex Code Colors
def hex_color(string)
red = 0
green = 0
blue = 0
if string.size != 6
print("Hex strings must be six characters long.")
print("White text will be used.")
return Color.new(255, 255, 255, 255)
end
for i in 1..6
s = string.slice!(/./m)
if s == "#"
print("Hex color string may not contain the \"#\" character.")
print("White text will be used.")
return Color.new(255, 255, 255, 255)
end
value = hex_convert(s)
if value == -1
print("Error converting hex value.")
print("White text will be used.")
return Color.new(255, 255, 255, 255)
end
case i
when 1
red += value * 16
when 2
red += value
when 3
green += value * 16
when 4
green += value
when 5
blue += value * 16
when 6
blue += value
end
end
return Color.new(red, green, blue, 255)
end

#--------------------------------------------------------------------------

def hex_convert(character)
case character
when "0"
return 0
when "1"
return 1
when "2"
return 2
when "3"
return 3
when "4"
return 4
when "5"
return 5
when "6"
return 6
when "7"
return 7
when "8"
return 8
when "9"
return 9
when "A"
return 10
when "B"
return 11
when "C"
return 12
when "D"
return 13
when "E"
return 14
when "F"
return 15
end
return -1
end
end
#=========================================
# ▲ CLASS Window_Base Additional Code Ends
#=========================================

#=========================================
# ▼ Class Air_Text Begins
#=========================================
class Air_Text < Window_Base

def initialize(x, y, designate_text, color=0)

super(x-16, y-16, 32 + designate_text.size * 12, 56)
self.opacity = 0
self.back_opacity = 0
self.contents = Bitmap.new(self.width - 32, self.height - 32)
w = self.contents.width
h = self.contents.height
self.contents.font.name = $ams.name_font_type
self.contents.font.size = $ams.name_font_size
self.contents.font.color = text_color(color)
self.contents.draw_text(0, 0, w, h, designate_text)
end

#--------------------------------------------------------------------------

def dispose
self.contents.clear
super
end
end
#==========================================
# ▲ CLASS Air_Text Ends
#==========================================

#===================================================
# ▼ CLASS Scene_Save Additional Code Begins
#===================================================
class Scene_Save < Scene_File

alias ams_original_write_save_data write_save_data

def write_save_data(file)
ams_original_write_save_data(file)
Marshal.dump($ams, file)
end

end
#===================================================
# ▲ CLASS Scene_Save Additional Code Ends
#===================================================

#===================================================
# ▼ CLASS Scene_Load Additional Code Begins
[QUOCTE]
#===================================================
class Scene_Load < Scene_File

alias ams_original_read_save_data read_save_data

def read_save_data(file)
ams_original_read_save_data(file)
$ams = Marshal.load(file)
end

end
#===================================================
# ▲ CLASS Scene_Load Additional Code Ends
#===================================================
#end

Click to expand...

cách sử dụng:
tạo event, messager rùi gõ vào, cấu trúc lệnh như sau

\! :cần bấm enter để tiếp tục
đặt ở nơi nào cần dừng lại

\s: speed hiển thị mỗi kí tự
\h: font size
\c: colour
Ex: \s[24]\h[32]\c[#FF0000]show me the money.
phải đặt ở đầu câu hoặc đầu mỗi chữ

\f[tên pic]: hiển thị face
\a[name of sound]: play sound
phải đặt ở đầu câu

\m[thứ tự]: hiển thị tên quái vật
\v[thứ tự]: print item pic
\Price[thứ tự]: hiển thị giá vàng của item
\Map: hiển thị tên map hiện tại
\G : hiển thị số tiền bạn có
đặt ở nơi nào cần dùng
ex:tôi kiếm được món \v[1] ở \Map sau khi giết \m[3],tôi sẽ bán nó cho cậu với giá \Price[1], bạn kiếm được bao nhiu tiền rùi \G.

\p[ex:7]: hiển thị khung messenger phía trên event số: ex: EV007 (là 7)
\Name[tên cho window messager (tùy ý)]
phải đặt ở cuối câu

khoaiRPG · 27/4/05

đừng gọi vô địch nữa, gọi = nick mới đeeeeeeeeeeê .
hiệu ứng in bóng dưới nước

#==============================================================================
# ■ Sprite_Reflection
# Based on Sprite_Mirror, Modified By: JmsPlDnl, rewritten entirely by Rataime
#==============================================================================
CATERPILLAR_COMPATIBLE = true

class Game_Party
attr_reader :characters
end

class Sprite_Reflection < RPG::Sprite

attr_accessor :character

def initialize(viewport=nil, character=nil,self_angle = 180)
super(viewport)
@character = character
@self_angle=self_angle
self.opacity=0
@reflected=false
@former=false
@moving=false
if $game_map.terrain_tag(@character.real_x/128,@character.real_y/128+1)==7
@reflected=true
@former=true
end
update
end

def update
super
if @tile_id != @character.tile_id or
@character_name != @character.character_name or
@character_hue != @character.character_hue
@tile_id = @character.tile_id
@character_name = @character.character_name
@character_hue = @character.character_hue
if @tile_id >= 384
self.bitmap = RPG::Cache.tile($game_map.tileset_name,
@tile_id, @character.character_hue)
self.src_rect.set(0, 0, 32, 32)
self.ox = 16
self.oy = 32
else
self.bitmap = RPG::Cache.character(@character.character_name,
@character.character_hue)
@cw = bitmap.width / 4
@ch = bitmap.height / 4
self.ox = @cw / 2
self.oy = @ch
end
end

self.visible = (not @character.transparent)
if @tile_id == 0
sx = (@character.pattern) * @cw
sy = (@character.direction - 2) / 2 * @ch
if @character.direction== 6
sy = ( 4- 2) / 2 * @ch
end
if @character.direction== 4
sy = ( 6- 2) / 2 * @ch
end
if @character.direction != 4 and @character.direction != 6
sy = (@character.direction - 2) / 2 * @ch
end
end

self.x = @character.screen_x
self.y = @character.screen_y-5
@moving=!(@character.real_x%128==0 and @character.real_y%128==0)
@[email protected]
@rect=[sx, sy, @cw, @ch]
if !(@moving)
if $game_map.terrain_tag(@character.real_x/128,@character.real_y/128+1)==7
@reflected=true
@former=true
else
@reflected=false
@former=false
end

else
case @d

when 2
if $game_map.terrain_tag(@character.real_x/128,@character.real_y/128+2)==7
@reflected=true
if @former==false
@offset = (@character.screen_y%32)*@ch/32
@rect=[sx, sy, @cw, @offset]
[email protected]_y-5
end
else
@reflected=false
end

when 4
if $game_map.terrain_tag(@character.real_x/128,@character.real_y/128+1)!=7
@offset = ((@character.screen_x-@cw/2)%32)*@cw/32
@rect=[sx, sy, @offset, @ch]
[email protected]_x
else
@reflected=true
if @former==false
@offset = ((@character.screen_x-@cw/2)%32)*@cw/32
@rect=[sx+@offset, sy, @cw-@offset, @ch]
[email protected]_x-@offset
end
end

when 6
if $game_map.terrain_tag(@character.real_x/128+1,@character.real_y/128+1)!=7
@offset = ((@character.screen_x-@cw/2)%32)*@cw/32
@rect=[sx+@offset, sy, @cw-@offset, @ch]
[email protected]_x-@offset
else
@reflected=true
if @former==false
@offset = ((@character.screen_x-@cw/2)%32)*@cw/32
@rect=[sx, sy, @offset, @ch]
[email protected]_x
end
end

when 8
if $game_map.terrain_tag(@character.real_x/128,@character.real_y/128+2)==7
@reflected=true
if $game_map.terrain_tag(@character.real_x/128,@character.real_y/128+1)!=7
@offset = (@character.screen_y%32)*@ch/32
@rect=[sx, sy, @cw, @offset]
[email protected]_y-5
end
else
@reflected=false
end

end

end
if @reflected
self.opacity=128
else
@rect=[sx, sy, @cw, @ch]
self.opacity=0
end

if $game_map.terrain_tag((@character.real_x+64)/128,@character.real_y/128+2)!=7
if $game_map.terrain_tag((@character.real_x+64)/128,@character.real_y/128+2)!=7
@rect[1]= @rect[1]+@ch/2
@rect[3]= @rect[3]/2
self.y = self.y - @ch/2
else
@reflected=false
end
end

self.src_rect.set(@rect[0],@rect[1],@rect[2],@rect[3])

@character.is_a?(Game_Player) ? self.z = 9 : self.z = 5
self.blend_type = @character.blend_type
self.bush_depth = @character.bush_depth
if @character.animation_id != 0
animation = $data_animations[@character.animation_id]
animation(animation, true)
@character.animation_id = 0
end

self.angle = @self_angle
end
end

#===================================================
# ▼ CLASS Sprite_Character edit
#===================================================

class Sprite_Character < RPG::Sprite
alias reflect_initialize initialize

def initialize(viewport, character = nil)
@character = character
@reflection = []
super(viewport)
if (character.is_a?(Game_Event) and character.list!=nil and character.list[0].code == 108 and character.list[0].parameters == ["r"])
@reflection.push(Sprite_Reflection.new(viewport,@character))
end
if (character.is_a?(Game_Event) and character.list!=nil and character.list[0].code == 108 and character.list[0].parameters == ["hero_r"])
@reflection.push(Sprite_Reflection.new(viewport,$game_player))
#===================================================
# ● Compatibility with fukuyama's caterpillar script
#===================================================
if CATERPILLAR_COMPATIBLE and $game_party.characters!=nil

for member in $game_party.characters
@reflection.push(Sprite_Reflection.new(viewport,member))
end

end
#===================================================
# ● End of the compatibility
#===================================================
end
reflect_initialize(viewport, @character)
end

alias reflect_update update

def update
reflect_update
if @reflection!=nil
for reflect in @reflection
reflect.update
end
end
end

end
Click to expand...

để sử dụng thì tạo 1 event bất kỳ chọn trigger là PP
chọn comment ghi vào hero_r xong

SVS · 27/4/05

^^ Bravo! Vô địch có vẻ cải tà quy chánh rồi! Thanks ông nhìu! Tui khoái mấy cái nè đó! À mà ông có cái scrip nào dùng để hiển thị máu thành cột không? Tui muốn hiện ra cột máu mà không làm được! Chỉ để chữ thôi thì chán quá!

khoaiRPG · 27/4/05

hiển thị, trong menu hay ở ngoài lun,
đừng nói bậy nhé, hồi trước toàn thằng long spam, tui ko hề spam lần nèo
đây là cột máu

alias :draw_actor_hp_original :draw_actor_hp
def draw_actor_hp(actor, x, y, width = 144)
if actor.maxhp != 0
rate = actor.hp.to_f / actor.maxhp
else
rate = 0
end

plus_x = 0
rate_x = 0
plus_y = 35
plus_width = 0
rate_width = 100
height = 10
align1 = 1
align2 = 2
align3 = 0
grade1 = 1
grade2 = 0
color1 = Color.new(0, 0, 0, 192)
color2 = Color.new(255, 255, 192, 192)
color3 = Color.new(0, 0, 0, 192)
color4 = Color.new(64, 0, 0, 192)
color5 = Color.new(80 - 24 * rate, 80 * rate, 14 * rate, 192)
color6 = Color.new(240 - 72 * rate, 240 * rate, 62 * rate, 192)

if actor.maxhp != 0
hp = (width + plus_width) * actor.hp * rate_width / 100 / actor.maxhp
else
hp = 0
end

gauge_rect(x + plus_x + width * rate_x / 100, y + plus_y,
width, plus_width + width * rate_width / 100,
height, hp, align1, align2, align3,
color1, color2, color3, color4, color5, color6, grade1, grade2)
draw_actor_hp_original(actor, x, y, width)
end
Click to expand...

muốn đặt trong class nào tùy ông

zubachi · 27/4/05

@khoai Pà Già:
Chú em giã từ GameMaker rồi à?

khoaiRPG · 27/4/05

@zubachi
ko phải giã từ mà ko có sprite để làm ke ke.
thấy có mấy bạn cần intro với splash screen thì đây:

#=====================================================
class Scene_Introduction

def main
$data_system = load_data("Data/System.rxdata")
$game_system = Game_System.new
$game_system.bgm_play($data_system.title_bgm)

#slides for introduction
@wait = 0
@sprite = Sprite.new
@sprite.bitmap = RPG::Cache.picture("splash")
Graphics.transition(200)
Graphics.freeze
@sprite.dispose
@sprite = Sprite.new
@sprite.bitmap = RPG::Cache.picture("splash1")
Graphics.transition(200)
Graphics.freeze
Audio.bgm_play("Audio/BGM/" + "battle_04", 90, 100)
@sprite.dispose
@sprite = Sprite.new
@sprite.bitmap = RPG::Cache.picture("splash2")
Graphics.transition(200)
Graphics.freeze
@sprite.dispose
@sprite = Sprite.new
@sprite.bitmap = RPG::Cache.picture("splash3")
Graphics.transition(200)
Graphics.freeze
@sprite.dispose
Graphics.transition(200)
@sprite = Sprite.new
@sprite.bitmap = RPG::Cache.picture("main")
@intro = Sprite.new
@intro.bitmap = RPG::Cache.picture("str")
@intro.x = 150
@intro.y = 270
@intro.z = 500
@intro.opacity = 10
#slides for introduction
Graphics.transition
loop do
Graphics.update
Input.update
update
if @sprite.bitmap == RPG::Cache.picture("main")
@wait += 1.5
end
if @wait >= 1000
@intro.dispose
$scene = Scene_Introduction.new
return @wait = 0
end
if $scene != self
break
end
end
Graphics.freeze
@sprite.dispose
@intro.dispose
end

def update
@sprite.update
@intro.update
if @intro.opacity < 250
@intro.opacity += 2
return
end
if @intro.opacity == 250
loop do
Graphics.update
Input.update
@intro.update
@intro.opacity -= 2
break if @intro.opacity == 10
next
end
end
if @intro.visible == true
break if Input.trigger?(Input::C) or Input.trigger?(Input::B)
$scene = Scene_Title.new
end
end

end
Click to expand...

vào main thay $scene = Scene_Title.new = $scene = Scene_Introduction.new
mấy thông số với pic tùy mấy ông chỉnh,
để dành làm creadit cũng đẹp lắm
còn ai mún hỏi làm sao ngoài menu title có thêm menu chọn thì vầy
vào Scene_Title chỗ s1,s2,s3.. thêm dzô s4="Creadit" hoặc tên nào thì tùy
vào chỗ :
@command_window = Window_Command.new(192, [s1, s2, s3])
thêm s4 vô như vầy :
@command_window = Window_Command.new(192, [s1, s2, s3, s4])
xuống dưới chỗ :
when 0 # ニューゲーム
command_new_game
when 1 # コンティニュー
command_continue
when 2 # シャットダウン
command_shutdown
thêm vô :
when 0 # ニューゲーム
command_new_game
when 1 # コンティニュー
command_continue
when 2 # シャットダウン
command_shutdown
when 3 # play intro or creadit
$scene = Scene_Introduction.new

xong

zubachi · 27/4/05

@khoái Rờ Pà Già:
Móc sprite từ RPG đem sang.

@Saddam:
Đủ 15 chữ chưa?

khoaiRPG · 27/4/05

cách Play intro movie
tạo script mới đặt tên là Scence_Movie_Intro

class Scene_Movie_Intro

def initialize(movie,length)
@movie_name = Dir.getwd()+"\\Movies\\"+movie+".mpg"
@counter = length
end

def main

Graphics.transition
@wnd = Win32API.new('user32','FindWindowEx','%w(l,l,p,p)','L')
@temp = @wnd.call(0,0,nil,"GoldenSun: Battle System").to_s
@movie = Win32API.new('winmm','mciSendString','%w(p,p,l,l)','V')
@movie.call("open \""+@movie_name+"\" alias FILE style 1073741824 parent "

+ @temp.to_s,0,0,0)
@movie.call("play FILE",0,0,0)
loop do
Graphics.update
sleep(1)
Input.update
if Input.trigger?(Input::B)
break
end
@counter = @counter - 1
if @counter == 0
break
end
end
@movie.call("close FILE",0,0,0)
$scene = Scene_Title.new
Graphics.freeze
end
end
Click to expand...

vào main đổi :

$scene = Scene_Title.new
Click to expand...

thành :

$scene = Scene_Movie_Intro(tên file movie, thời gian play(s))
Click to expand...

ex:

$scene = Scene_Movie_Intro("digimon",20)
Click to expand...

Xong

zubachi · 27/4/05

Gửi nhờ món hàng lên đây nhé. Viết cho đủ chữ.

khoaiRPG · 28/4/05

đây là Script làm creadit
có kèm Example, muốn đổi thông tin creadit thì vào data\creadit\creadit.rxdata mở file này = notepad rùi sữa, sau đây là vài màu chữ
*01 Màu xanh
*02 Màu đỏ
*03 màu xanh lá cây
*04 màu xanh nhạt
*05 màu tím
*06 màu vàng
*07 màu xám
muốn đổi đường dẫn tới file creadit thì vào script text_scroll mà đổi
have fun!

#===================================================
# ■ Text Scroll Script R3-Fixed - Created by dubealex
#===================================================
# For more infos and update, visit:
# rmxp.dubealex.com
#
# -> Stack level too deep bug caused by ALIAS is now fixed.
#
# December 4, 2004
#===================================================

#===================================================
# ▼ CLASS Text_Scroller Begins
#===================================================
class Text_Scroller

def initialize (file, opacity_scroll, opacity_bg, speed, live_scroll)

text=IO.readlines("Data/Creadit/#{file}")
$tss_speed = speed
$tss_iteration = 480.0/speed
$tss_sy= (text.size*32) + 64

$tss_scroll_window = Window_Scroll.new(file, 640, $tss_sy)
$tss_scroll_window.opacity = opacity_scroll
$tss_scroll_window.z=500
$tss_scroll_window.x = 0
$tss_scroll_window.y = 480

$tss_bg_window = Window_bg.new
$tss_bg_window.opacity = opacity_bg
$tss_bg_window.z=400

case live_scroll
when 0
update
when 1
$live_scroll=true
end
end

def update
for i in 0...(($tss_sy/480.0) * $tss_iteration) + $tss_iteration
$tss_scroll_window.y -= $tss_speed
Graphics.update
end
$tss_scroll_window.dispose
$tss_bg_window.dispose
end
end
#===================================================
# ▲ CLASS Text_Scroller Ends
#===================================================

#===================================================
# ▼ CLASS Window_Scroll Begins
#===================================================
class Window_Scroll < Window_Base

def initialize (file, sx, sy)
@sx=sx
@sy=sy

super(0, 0, sx, sy)
self.contents = Bitmap.new(width - 32, height - 32)
self.contents.font.name = ".VnTime"
self.contents.font.size = 24
@text=IO.readlines("Data/Creadit/#{file}")
@text_color=0
refresh
end

def refresh
y=0
for i in [email protected]
y+=32
if @text.index('/') == 0
@text_color=@text.slice! (0..2)
@text_color.slice!(0)
end
if @text.index('*') == 0
line_color=@text.slice! (0..2)
line_color.slice!(0)
self.contents.font.color = text_color(line_color.to_i)
else
self.contents.font.color = text_color(@text_color.to_i)
end
self.contents.draw_text(0, y, @sx, 32, @text)
end
end
end
#===================================================
# ▲ CLASS Window_Scroll Ends
#===================================================

#===================================================
# ▼ CLASS Scene_Map Additional Code Begins
#===================================================
class Scene_Map

alias alex_tss_original_update update
@@i=0

def update
alex_tss_original_update

if $live_scroll==true
$tss_scroll_window.y -= $tss_speed
@@i+=1
if @@i =$tss_sy/480.0) * $tss_iteration) + $tss_iteration
$tss_scroll_window.dispose
$tss_bg_window.dispose
@@i=0
$live_scroll=false
end
end
end
end
#===================================================
# ▲ CLASS Scene_Map Additional Code Ends
#===================================================

#===================================================
# ▼ CLASS Window_bg Begins
#===================================================
class Window_bg < Window_Base

def initialize
super(0, 0, 640, 480)
end
end
#===================================================
# ▲ CLASS Window_bg Ends
#===================================================

Click to expand...

Holy_Healing · 28/4/05

Vậy bạn có cái script naò cho phép bỏ hoặc thay đổi hẳn chế độ level đi được ko ?
Ví dụ như tôi muốn nhân vật của mình khi đạt được 1 số EXP nhất định thì sẽ đạt đến 1 class mới , chứ ko có hiện ra level trên bảng menu , đuợc chớ ?

khoaiRPG · 28/4/05

chỉ cần ko cho hiện level thui phải ko, hay sao.

Holy_Healing · 29/4/05

Uh ... ^__^ Ko cần hiện level cũng được ,nếu ko thì có cách nào khác nữa để EXP ko công trực tiếp vào level ko ? Giúp tôi nhé khoaiRPG ... cứ coi như bên trên là 2 ý riêng biệt ...

Hube · 29/4/05

Yeahhhhh, thanx bác khoai RPG nhiều nhiều nha
Mấy cái này em mới là newbie thui hy vọng các bác giúp đỡ nhiều hơn ....

khoaiRPG · 29/4/05

ko + trực tiếp vào level là sao ko hiểu, bạn nói tui hiểu tui chết liền.

Holy_Healing · 30/4/05

^^ À , ý tôi là biến level từ số thành chữ ấy mà . Ví dụ như level 1 thay vì tên là lv1 thì có tên là Kiếm sĩ chẳng hạn ^____^ Huynh giúp được thì tại hạ thanks nhiều mà ko giúp được thì tại hạ cũng thanks nhiều nhiều
Nếu ko thì huynh giúp hộ cái vụ ko hiện level trong bảng menu và tất tần tật những gì liên quan đến level đuọc ko ?

Ice Dragon · 6/5/05

Hic,cho hỏi có cách nào chuyển từ Number qua String không vậy?Nó không chịu hiện Number trong Window Message.Ví dụ 1 đọan script hiện giá trị của biến 1 vầy đi:
Mã:
$game_temp.message_text = $game_variables[1]
$game_temp.message_window_show = true
Là nó báo lỗi liền hà,cho hỏi sao vậy?

yugi_vn · 9/5/05

hi hi ông bạn này hỏi rõ ràng quá , dễ trả lời , dễ kiếm thêm exp
trả lời ông nè
sprintf : đây là câu lênh định dạng cho 1 chuỗi text
đoạn code ông đưa ra chắc chưa chuyển sang string chớ gì.
thử thế này xem
text = sprintf($game_variables[1])

Ice Dragon · 9/5/05

Hic,vẫn không được
Mã:
$game_temp.message_text = sprintf($game_variables[1])
$game_temp.message_window_showing = true
Bác xem có gì sai nào?
Ha ha ha ha!!!!!!!!!!!!!Thế này mới đúng nè:
Mã:
$game_temp.message_text =$game_variables[1].[B]to_s[/B]
$game_temp.message_window_showing = true
Ha ha ha!Tui mò ra rồi!!!!!!!!!!!!Vậy là tui hiểu mấy cái .to_i là gì rồi!!!!!!!!!

Super thám tử · 10/5/05

Anh em xem hộ tui cá này, tại sao ở trong bảng Tiếng Việt lại không hiện ra chữ trong bảng Input Name, nhưng chọn vào không khí thì nó vẫn hiện ra, giống kiểu lúc đầu mọi người cứ thắc mắc về Input Name ấy.

class Window_NameInput < Window_Base
# ----------------------------------
attr_accessor :mode
# ----------------------------------
ENGLISH_TABLE =
[
"A","B","C","D","E",
"F","G","H","I","J",
"K","L","M","N","O",
"P","Q","R","S","T",
"U","V","W","X","Y",
"Z","","","","",
"0","1","2","3","4",
"5", "6" ,"7", "8" ,"9",
"","","","","",
"a", "b" ,"c", "d" ,"e",
"f","g","h","i","j",
"k","l","m","n","o",
"p","q","r","s","t",
"u","v","w","x","y",
"z","","","","",
".",",","?","!","/",
"\\","<",">",";",":",
"","", "" , "" , "" ,
"@","#","$","%","^",
"&","*","(",")","",
"[","]","'","\"","~",
"","","","","",
"","","","","",
"","","","","",
"","","","","",
"", "" ,"", "" ,"",
"","","","","",
]
VIETNAMES_TABLE =
[
"¡","¢","§","£","Ằ",
"Ầ","Ã","Ẵ","Ẫ","Ạ",
"Ặ","Ậ","Ả","Ẳ","Ẩ",
"É","Ế","‚È","Ế","Ẹ",
"Ệ","Ẽ","Ễ","Ẻ","Ể",
"‚Í","‚Ð","‚Ó","‚Ö","‚Ù",
"‚Ü","‚Ý","‚Þ","‚ß","‚à",
"‚â", "" ,"‚ä", "" ,"‚æ",
"‚ç","‚è","‚é","‚ê","‚ë",
"‚í", "" ,"‚ð", "" ,"‚ñ",
"‚ª","‚¬","‚®","‚°","‚²",
"‚´","‚¶","‚¸","‚º","‚¼",
"‚¾","‚À","‚Ã","‚Å","‚Ç",
"‚Î","‚Ñ","‚Ô","‚×","‚Ú",
"‚Ï","‚Ò","‚Õ","‚Ø","‚Û",
"‚á","‚ã","‚å","‚Á","‚ì",
"‚Ÿ","‚¡","‚£","‚¥","‚§",
"[","E", "" , "" , "" ,
"","","","","",
"","","","","",
"","","","","",
"","","","","",
"","","","","",
"","","","","",
"","","","","",
"","","","","",
"","","","","",
"","","","","",
]
# ----------------------------------
def initialize
super(160, 128, 480, 352)
self.contents = Bitmap.new(width - 32, height - 32)
self.active = false
@index = -1
@mode = 1
refresh
update_cursor_rect
end
# ----------------------------------
def index=(value)
@index = value
update_cursor_rect
end
#--------------------------------------
def character
if @mode == 1
return ENGLISH_TABLE[@index]
elsif @mode == 2
return HIRAGANA_TABLE[@index]
end
end
# ----------------------------------
def refresh
self.contents.clear
for i in 0..134
x = 4 + i / 5 / 9 * 152 + i % 5 * 28
y = i / 5 % 9 * 32
if @mode == 1
self.contents.font.name = ".VnTime"
self.contents.font.size = 24
self.contents.draw_text(x, y, 28, 32, ENGLISH_TABLE, 1)
end
end
end
# ----------------------------------
def update_cursor_rect
if self.active == false
self.cursor_rect.empty
else
x = 4 + @index / 5 / 9 * 152 + @index % 5 * 28
y = @index / 5 % 9 * 32
self.cursor_rect.set(x, y, 28, 32)
end
end
# ----------------------------------
def update
super
if @index >= 0 && @index <= 134
if Input.repeat?(Input::RIGHT)
$game_system.se_play($data_system.cursor_se)
if @index % 5 == 4
if @index < 94
@index += 41
end
else
@index += 1
end
end
if Input.repeat?(Input::LEFT)
$game_system.se_play($data_system.cursor_se)
if @index % 5 == 0
if @index < 45
self.active = false
@index = -999
return
else
@index -= 41
end
else
@index -= 1
end
end
if Input.repeat?(Input:OWN)
$game_system.se_play($data_system.cursor_se)
if @index % 45 < 40
@index += 5
end
end
if Input.repeat?(Input::UP)
if Input.trigger?(Input::UP) or @index % 45 >= 5
$game_system.se_play($data_system.cursor_se)
if @index % 45 >= 5
@index -= 5
end
end
end
end
update_cursor_rect
end
end

Click to expand...

Đăng nhập

Thế là hết than phiền về cái Message nhé (dành cho ai chưa biết)

khoaiRPG T.E.T.Я.I.S

khoaiRPG T.E.T.Я.I.S

SVS Mario & Luigi

khoaiRPG T.E.T.Я.I.S

zubachi Donkey Kong

khoaiRPG T.E.T.Я.I.S

zubachi Donkey Kong

khoaiRPG T.E.T.Я.I.S

zubachi Donkey Kong

Các file đính kèm:

MapEdit.rar

khoaiRPG T.E.T.Я.I.S

Các file đính kèm:

Text.rar

Holy_Healing Youtube Master Race

khoaiRPG T.E.T.Я.I.S

Holy_Healing Youtube Master Race

Hube Youtube Master Race

khoaiRPG T.E.T.Я.I.S

Holy_Healing Youtube Master Race

Ice Dragon Mega Man

yugi_vn Legend of Zelda

Ice Dragon Mega Man

Super thám tử C O N T R A

Chia sẻ trang này

Đăng nhập

Thế là hết than phiền về cái Message nhé (dành cho ai chưa biết)

khoaiRPG T.E.T.Я.I.S

khoaiRPG T.E.T.Я.I.S

SVS Mario & Luigi

khoaiRPG T.E.T.Я.I.S

zubachi Donkey Kong

khoaiRPG T.E.T.Я.I.S

zubachi Donkey Kong

khoaiRPG T.E.T.Я.I.S

zubachi Donkey Kong

Các file đính kèm:

MapEdit.rar

khoaiRPG T.E.T.Я.I.S

Các file đính kèm:

Text.rar

Holy_Healing Youtube Master Race

khoaiRPG T.E.T.Я.I.S

Holy_Healing Youtube Master Race

Hube Youtube Master Race

khoaiRPG T.E.T.Я.I.S

Holy_Healing Youtube Master Race

Ice Dragon Mega Man

yugi_vn Legend of Zelda

Ice Dragon Mega Man

Super thám tử C O N T R A

Chia sẻ trang này

Tìm kiếm hữu ích