Zobacz temat - Wejście

Spoiler:

Kod:

# ------------------------------------------------------------
# Nazwa Teleportu
# by Ayene
# Skrypt na zamówienie Kable
# 23.04.2010
# www.ultimateam.pl
# ------------------------------------------------------------
# Skrypt wyświetla nazwę mapy, na którą prowadzi teleport w zdarzeniu.
# ------------------------------------------------------------
# Instalacja: Umieść skrypt nad Main.
# ------------------------------------------------------------

module Ayene
# Umieść tag w nazwie zdarzenia, by wyświetlić nazwę mapy, na którą
# prowadzi teleport.
TAG_TELEPORTU = '[TEL]'

# Wybierz przezroczystość (opacity) okna (0~255)
PRZEZROCZYSTOŚĆ_OKNA = 0

# Tekst wyświetlany przed nazwą lokacji
TEKST_PRZED_NAZWĄ = 'Cel: '
end

class Scene_Map < Scene_Base
alias ayene_scmap_start start
alias ayene_scmap_terminate terminate
alias ayene_scmap_update update
alias ayene_scmap_update_basic update_basic

def start
ayene_scmap_start
@teleport_window = Window_Teleport.new
@time = 0
@teleport_window.visible = false
end

def terminate
ayene_scmap_terminate
@teleport_window.dispose
end

def update_basic
ayene_scmap_update_basic
@teleport_window.visible = false
end

def update
ayene_scmap_update
@teleport_window.update
if $teleport_refresh == true
@teleport_window.refresh
@teleport_window.visible = true
else
@teleport_window.visible = false
end
end
end

class Window_Teleport < Window_Base
def initialize
super(284, 0, 260, WLH + 32)
self.opacity = Ayene::PRZEZROCZYSTOŚĆ_OKNA
refresh
end
def refresh
self.contents.clear
self.contents.font.shadow = true
text = $game_temp.teleport_name.to_s
if Ayene::PRZEZROCZYSTOŚĆ_OKNA == 0
self.contents.draw_text(4, 0, self.width - 40, WLH, text, 2)
else
self.contents.draw_text(4, 0, self.width - 40, WLH, text, 0)
end
end
end

class Game_Temp
attr_accessor :teleport_name
end

class Game_Player < Game_Character
def check_teleport_touch(x, y)
return false if $game_map.interpreter.running?
result = false
for event in $game_map.events_xy(x, y)
for i in 0...event.list.size
if event.event.name.include?(Ayene::TAG_TELEPORTU) and event.list[i].code == 201
teleport_name = event.list[i].parameters[1]
map_name = load_data("Data/MapInfos.rvdata")
$game_temp.teleport_name = Ayene::TEKST_PRZED_NAZWĄ + map_name[teleport_name].name
$teleport_refresh = true
result = true
end
end
end
return result
end

def check_teleport_out(x, y)
return false if $game_map.interpreter.running?
result = false
for event in $game_map.events_xy(x, y)
for i in 0...event.list.size
if event.event.name.include?(Ayene::TAG_TELEPORTU) and event.list[i].code == 201
teleport_name = event.list[i].parameters[1]
map_name = load_data("Data/MapInfos.rvdata")
$game_temp.teleport_name = ''
$teleport_refresh = true
result = true
end
end
end
return result
end
end

class Game_Event < Game_Character
attr_reader :event
end

class Game_Character
alias ayene_gachar_move_down move_down
def move_down(turn_ok = true)
ayene_gachar_move_down(turn_ok)
check_teleport_touch(@x, @y)
check_teleport_out(@x, @y-1)
end
alias ayene_gachar_move_left move_left
def move_left(turn_ok = true)
ayene_gachar_move_left(turn_ok)
check_teleport_touch(@x, @y)
check_teleport_out(@x+1, @y)
end
alias ayene_gachar_move_right move_right
def move_right(turn_ok = true)
ayene_gachar_move_right(turn_ok)
check_teleport_touch(@x, @y)
check_teleport_out(@x-1, @y)
end
alias ayene_gachar_move_up move_up
def move_up(turn_ok = true)
ayene_gachar_move_up
check_teleport_touch(@x, @y)
check_teleport_out(@x, @y+1)
end
end