有谁可以帮我把脚本汉(在外国拿来的) - Project1

class Game_Map
attr_accessor :tileset_name
attr_accessor :autotile_names
attr_accessor :panorama_name
attr_accessor :panorama_hue
attr_accessor :fog_name
attr_accessor :fog_hue
attr_accessor :fog_opacity
attr_accessor :fog_blend_type
attr_accessor :fog_zoom
attr_accessor :fog_sx
attr_accessor :fog_sy
attr_accessor :battleback_name
attr_accessor :display_x
attr_accessor :display_y
attr_accessor :need_refresh
attr_reader :passages
attr_reader :priorities
attr_reader :terrain_tags
attr_reader :events
attr_reader :fog_ox
attr_reader :fog_oy
attr_reader :fog_tone
attr_reader :mapsInRange
def initialize
@map_id = 0
@display_x = 0
@display_y = 0
end
def setup(map_id)
@map_id = map_id
@map = load_data(sprintf("Data/Map%03d.rxdata", @map_id))
tileset = $data_tilesets[@map.tileset_id]
@tileset_name = tileset.tileset_name
@autotile_names = tileset.autotile_names
@panorama_name = tileset.panorama_name
@panorama_hue = tileset.panorama_hue
@fog_name = tileset.fog_name
@fog_hue = tileset.fog_hue
@fog_opacity = tileset.fog_opacity
@fog_blend_type = tileset.fog_blend_type
@fog_zoom = tileset.fog_zoom
@fog_sx = tileset.fog_sx
@fog_sy = tileset.fog_sy
@battleback_name = tileset.battleback_name
@passages = tileset.passages
@priorities = tileset.priorities
@terrain_tags = tileset.terrain_tags
self.display_x = 0
self.display_y = 0
@need_refresh = false
Events.onMapCreate.trigger(self,map_id, @map, tileset)
@events = {}
for i in @map.events.keys
@events[i] = Game_Event.new(@map_id, @map.events[i],self)
end
@common_events = {}
for i in 1...$data_common_events.size
@common_events[i] = Game_CommonEvent.new(i)
end
@fog_ox = 0
@fog_oy = 0
@fog_tone = Tone.new(0, 0, 0, 0)
@fog_tone_target = Tone.new(0, 0, 0, 0)
@fog_tone_duration = 0
@fog_opacity_duration = 0
@fog_opacity_target = 0
@scroll_direction = 2
@scroll_rest = 0
@scroll_speed = 4
end
def map_id
return @map_id
end
def width
return @map.width
end
def height
return @map.height
end
def encounter_list
return @map.encounter_list
end
def encounter_step
return @map.encounter_step
end
#--------------------------------------------------------------------------
# ● マップデータの取得
#--------------------------------------------------------------------------
def data
return @map.data
end
def autoplayAsCue
if @map.autoplay_bgm # Checks whether the map has an autoplay BGM
if (Time.now.hour<6||Time.now.hour>=20) && # Checks if it's night time - the values are editable
FileTest.audio_exist?("Audio/BGM/"+ @map.bgm.name+ "n")
# Checks whether a BGM file with the filename [normal BGM]n exists
pbCueBGM(
RPG::AudioFile.new(@map.bgm.name+"n",
@map.bgm.volume,@map.bgm.pitch),1.0) # Plays it
else
pbCueBGM(@map.bgm,1.0) # Plays the normal BGM
end
end
if @map.autoplay_bgs
$game_system.bgs_play(@map.bgs)
end
end
def autoplay
if @map.autoplay_bgm # Checks whether the map has an autoplay BGM
if (Time.now.hour<6||Time.now.hour>=20) && # Checks if it's night time - the values are editable
FileTest.audio_exist?("Audio/BGM/"+ @map.bgm.name+ "n")
# Checks whether a BGM file with the filename [normal BGM]n exists
$game_system.bgm_play(@map.bgm.name+"n",
@map.bgm.volume,@map.bgm.pitch) # Plays it
else
$game_system.bgm_play(@map.bgm) # Plays the normal BGM
end
end
if @map.autoplay_bgs
$game_system.bgs_play(@map.bgs)
end
end
def refresh
if @map_id > 0
for event in @events.values
event.refresh
end
for common_event in @common_events.values
common_event.refresh
end
end
@need_refresh = false
end
def scroll_down(distance)
@display_y = [@display_y + distance, (self.height - 15) * 128].min
end
def scroll_left(distance)
@display_x = [@display_x - distance, 0].max
end
def scroll_right(distance)
@display_x = [@display_x + distance, (self.width - 20) * 128].min
end
def scroll_up(distance)
@display_y = [@display_y - distance, 0].max
end
def valid?(x, y)
return (x >= 0 and x < width and y >= 0 and y < height)
end
def validLax?(x, y)
return (x >=-10 and x <= width+10 and y >=-10 and y <= height+10)
end
def passable?(x, y, d, self_event = nil)
return false if !valid?(x, y)
bit = (1 << (d / 2 - 1)) & 0x0f
for event in events.values
if event.tile_id >= 0 and event != self_event and
event.x == x and event.y == y and not event.through
return false if @passages[event.tile_id] & bit != 0
return false if @passages[event.tile_id] & 0x0f == 0x0f
return true if @priorities[event.tile_id] == 0
end
end
for i in [2, 1, 0]
tile_id = data[x, y, i]
if tile_id == nil
return false
# Make water tiles passable if player is surfing
elsif pbIsPassableWaterTag?(@terrain_tags[tile_id]) &&
$PokemonGlobal.surfing
return true
elsif @passages[tile_id] & bit != 0
return false
elsif @passages[tile_id] & 0x0f == 0x0f
return false
elsif @priorities[tile_id] == 0
return true
end
end
return true
end
def passableStrict?(x, y, d, self_event = nil)
return false if !valid?(x, y)
for event in events.values
if event.tile_id >= 0 and event != self_event and
event.x == x and event.y == y and not event.through
return false if @passages[event.tile_id] & 0x0f !=0
return true if @priorities[event.tile_id] == 0
end
end
for i in [2, 1, 0]
tile_id = data[x, y, i]
return false if tile_id == nil
return false if @passages[tile_id] & 0x0f !=0
return true if @priorities[tile_id] == 0
end
return true
end
def bush?(x, y)
if @map_id != 0
for i in [2, 1, 0]
tile_id = data[x, y, i]
if tile_id == nil
return false
elsif @passages[tile_id] & 0x40 == 0x40
return true
end
end
end
return false
end
def counter?(x, y)
if @map_id != 0
for i in [2, 1, 0]
tile_id = data[x, y, i]
if tile_id == nil
return false
elsif @passages[tile_id] && @passages[tile_id] & 0x80 == 0x80
return true
end
end
end
return false
end
def terrain_tag(x, y)
if @map_id != 0
for i in [2, 1, 0]
tile_id = data[x, y, i]
if tile_id == nil
return 0
elsif @terrain_tags[tile_id] && @terrain_tags[tile_id] > 0
return @terrain_tags[tile_id]
end
end
end
return 0
end
def check_event(x, y)
for event in self.events.values
if event.x == x and event.y == y
return event.id
end
end
end
def start_scroll(direction, distance, speed)
@scroll_direction = direction
@scroll_rest = distance * 128
@scroll_speed = speed
end
def scrolling?
return @scroll_rest > 0
end
def start_fog_tone_change(tone, duration)
@fog_tone_target = tone.clone
@fog_tone_duration = duration
if @fog_tone_duration == 0
@fog_tone = @fog_tone_target.clone
end
end
def start_fog_opacity_change(opacity, duration)
@fog_opacity_target = opacity * 1.0
@fog_opacity_duration = duration
if @fog_opacity_duration == 0
@fog_opacity = @fog_opacity_target
end
end
def in_range?(object)
return true if $PokemonSystem.tilemap==2
screne_x = display_x
screne_x -= 256
screne_y = display_y
screne_y -= 256
screne_width = display_x
screne_width += Graphics.width*4+256 # 2816
screne_height = display_y
screne_height += Graphics.height*4+256 # 2176
return false if object.real_x <= screne_x
return false if object.real_x >= screne_width
return false if object.real_y <= screne_y
return false if object.real_y >= screne_height
return true
end
def update
if $MapFactory
for i in $MapFactory.maps
i.refresh if i.need_refresh
end
$MapFactory.setCurrentMap
end
if @scroll_rest > 0
distance = 2 ** @scroll_speed
case @scroll_direction
when 2
scroll_down(distance)
when 4
scroll_left(distance)
when 6
scroll_right(distance)
when 8
scroll_up(distance)
end
@scroll_rest -= distance
end
for event in @events.values
if in_range?(event) or event.trigger == 3 or event.trigger == 4
event.update
end
end
for common_event in @common_events.values
common_event.update
end
@fog_ox -= @fog_sx / 8.0
@fog_oy -= @fog_sy / 8.0
if @fog_tone_duration >= 1
d = @fog_tone_duration
target = @fog_tone_target
@fog_tone.red = (@fog_tone.red * (d - 1) + target.red) / d
@fog_tone.green = (@fog_tone.green * (d - 1) + target.green) / d
@fog_tone.blue = (@fog_tone.blue * (d - 1) + target.blue) / d
@fog_tone.gray = (@fog_tone.gray * (d - 1) + target.gray) / d
@fog_tone_duration -= 1
end
if @fog_opacity_duration >= 1
d = @fog_opacity_duration
@fog_opacity = (@fog_opacity * (d - 1) + @fog_opacity_target) / d
@fog_opacity_duration -= 1
end
end
end
class Game_Map
def name
return pbGetMessage(MessageTypes::MapNames,self.map_id)
end
end

复制代码

class Game_Character
def move_down(turn_enabled = true)
if turn_enabled
turn_down
end
if passable?(@x, @y, 2)
turn_down
@y += 1
increase_steps
else
check_event_trigger_touch(@x, @y+1)
end
end
def move_left(turn_enabled = true)
if turn_enabled
turn_left
end
if passable?(@x, @y, 4)
turn_left
@x -= 1
increase_steps
else
check_event_trigger_touch(@x-1, @y)
end
end
def move_right(turn_enabled = true)
if turn_enabled
turn_right
end
if passable?(@x, @y, 6)
turn_right
@x += 1
increase_steps
else
check_event_trigger_touch(@x+1, @y)
end
end
def move_up(turn_enabled = true)
if turn_enabled
turn_up
end
if passable?(@x, @y, 8)
turn_up
@y -= 1
increase_steps
else
check_event_trigger_touch(@x, @y-1)
end
end
#--------------------------------------------------------------------------
# ● 左下に移動
#--------------------------------------------------------------------------
def move_lower_left
unless @direction_fix
@direction = (@direction == 6 ? 4 : @direction == 8 ? 2 : @direction)
end
if (passable?(@x, @y, 2) and passable?(@x, @y + 1, 4)) or
(passable?(@x, @y, 4) and passable?(@x - 1, @y, 2))
@x -= 1
@y += 1
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 右下に移動
#--------------------------------------------------------------------------
def move_lower_right
unless @direction_fix
@direction = (@direction == 4 ? 6 : @direction == 8 ? 2 : @direction)
end
if (passable?(@x, @y, 2) and passable?(@x, @y + 1, 6)) or
(passable?(@x, @y, 6) and passable?(@x + 1, @y, 2))
@x += 1
@y += 1
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 左上に移動
#--------------------------------------------------------------------------
def move_upper_left
# 向き固定でない場合
unless @direction_fix
# 右向きだった場合は左を、下向きだった場合は上を向く
@direction = (@direction == 6 ? 4 : @direction == 2 ? 8 : @direction)
end
# 上→左、左→上のどちらかのコースが通行可能な場合
if (passable?(@x, @y, 8) and passable?(@x, @y - 1, 4)) or
(passable?(@x, @y, 4) and passable?(@x - 1, @y, 8))
# 座標を更新
@x -= 1
@y -= 1
# 歩数増加
increase_steps
end
end
#--------------------------------------------------------------------------
# ● 右上に移動
#--------------------------------------------------------------------------
def move_upper_right
# 向き固定でない場合
unless @direction_fix
# 左向きだった場合は右を、下向きだった場合は上を向く
@direction = (@direction == 4 ? 6 : @direction == 2 ? 8 : @direction)
end
# 上→右、右→上のどちらかのコースが通行可能な場合
if (passable?(@x, @y, 8) and passable?(@x, @y - 1, 6)) or
(passable?(@x, @y, 6) and passable?(@x + 1, @y, 8))
# 座標を更新
@x += 1
@y -= 1
# 歩数増加
increase_steps
end
end
#--------------------------------------------------------------------------
# ● ランダムに移動
#--------------------------------------------------------------------------
def move_random
case rand(4)
when 0 # 下に移動
move_down(false)
when 1 # 左に移動
move_left(false)
when 2 # 右に移動
move_right(false)
when 3 # 上に移動
move_up(false)
end
end
#--------------------------------------------------------------------------
# ● プレイヤーに近づく
#--------------------------------------------------------------------------
def move_toward_player
# プレイヤーの座標との差を求める
sx = @x - $game_player.x
sy = @y - $game_player.y
# 座標が等しい場合
if sx == 0 and sy == 0
return
end
# 差の絶対値を求める
abs_sx = sx.abs
abs_sy = sy.abs
# 横の距離と縦の距離が等しい場合
if abs_sx == abs_sy
# ランダムでどちらかを 1 増やす
rand(2) == 0 ? abs_sx += 1 : abs_sy += 1
end
# 横の距離のほうが長い場合
if abs_sx > abs_sy
# 左右方向を優先し、プレイヤーのいるほうへ移動
sx > 0 ? move_left : move_right
if not moving? and sy != 0
sy > 0 ? move_up : move_down
end
# 縦の距離のほうが長い場合
else
# 上下方向を優先し、プレイヤーのいるほうへ移動
sy > 0 ? move_up : move_down
if not moving? and sx != 0
sx > 0 ? move_left : move_right
end
end
end
#--------------------------------------------------------------------------
# ● プレイヤーから遠ざかる
#--------------------------------------------------------------------------
def move_away_from_player
# プレイヤーの座標との差を求める
sx = @x - $game_player.x
sy = @y - $game_player.y
# 座標が等しい場合
if sx == 0 and sy == 0
return
end
# 差の絶対値を求める
abs_sx = sx.abs
abs_sy = sy.abs
# 横の距離と縦の距離が等しい場合
if abs_sx == abs_sy
# ランダムでどちらかを 1 増やす
rand(2) == 0 ? abs_sx += 1 : abs_sy += 1
end
# 横の距離のほうが長い場合
if abs_sx > abs_sy
# 左右方向を優先し、プレイヤーのいないほうへ移動
sx > 0 ? move_right : move_left
if not moving? and sy != 0
sy > 0 ? move_down : move_up
end
# 縦の距離のほうが長い場合
else
# 上下方向を優先し、プレイヤーのいないほうへ移動
sy > 0 ? move_down : move_up
if not moving? and sx != 0
sx > 0 ? move_right : move_left
end
end
end
#--------------------------------------------------------------------------
# ● 一歩前進
#--------------------------------------------------------------------------
def move_forward
case @direction
when 2
move_down(false)
when 4
move_left(false)
when 6
move_right(false)
when 8
move_up(false)
end
end
#--------------------------------------------------------------------------
# ● 一歩後退
#--------------------------------------------------------------------------
def move_backward
# 向き固定の状態を記憶
last_direction_fix = @direction_fix
# 強制的に向き固定
@direction_fix = true
# 向きで分岐
case @direction
when 2 # 下
move_up(false)
when 4 # 左
move_right(false)
when 6 # 右
move_left(false)
when 8 # 上
move_down(false)
end
# 向き固定の状態を元に戻す
@direction_fix = last_direction_fix
end
#--------------------------------------------------------------------------
# ● ジャンプ
# x_plus : X 座標加算値
# y_plus : Y 座標加算値
#--------------------------------------------------------------------------
def jump(x_plus, y_plus)
# 加算値が (0,0) ではない場合
if x_plus != 0 or y_plus != 0
# 横の距離のほうが長い場合
if x_plus.abs > y_plus.abs
# 左右どちらかに向き変更
x_plus < 0 ? turn_left : turn_right
# 縦の距離のほうが長いか等しい場合
else
# 上下どちらかに向き変更
y_plus < 0 ? turn_up : turn_down
end
end
# 新しい座標を計算
new_x = @x + x_plus
new_y = @y + y_plus
# 加算値が (0,0) の場合か、ジャンプ先が通行可能な場合
if (x_plus == 0 and y_plus == 0) or passable?(new_x, new_y, 0)
# 姿勢を矯正
straighten
# 座標を更新
@x = new_x
@y = new_y
# 距離を計算
distance = x_plus * x_plus + y_plus * y_plus
# ジャンプカウントを設定
@jump_peak = 10 + distance - @move_speed
@jump_peak = @jump_peak.floor
@jump_count = @jump_peak * 2
# 停止カウントをクリア
@stop_count = 0
if self.is_a?(Game_Player)
self.pbJumpDependentEvents
end
end
end
def turnGeneric(dir)
unless @direction_fix
oldDirection=@direction
@direction=dir
@stop_count=0
if dir!=oldDirection
pbCheckEventTriggerAfterTurning
end
end
end
#--------------------------------------------------------------------------
# ● 下を向く
#--------------------------------------------------------------------------
def turn_down; turnGeneric(2); end
def turn_left; turnGeneric(4); end
def turn_right; turnGeneric(6); end
def turn_up; turnGeneric(8); end
#--------------------------------------------------------------------------
# ● 右に 90 度回転
#--------------------------------------------------------------------------
def turn_right_90
case @direction
when 2
turn_left
when 4
turn_up
when 6
turn_down
when 8
turn_right
end
end
#--------------------------------------------------------------------------
# ● 左に 90 度回転
#--------------------------------------------------------------------------
def turn_left_90
case @direction
when 2
turn_right
when 4
turn_down
when 6
turn_up
when 8
turn_left
end
end
#--------------------------------------------------------------------------
# ● 180 度回転
#--------------------------------------------------------------------------
def turn_180
case @direction
when 2
turn_up
when 4
turn_right
when 6
turn_left
when 8
turn_down
end
end
#--------------------------------------------------------------------------
# ● 右か左に 90 度回転
#--------------------------------------------------------------------------
def turn_right_or_left_90
if rand(2) == 0
turn_right_90
else
turn_left_90
end
end
#--------------------------------------------------------------------------
# ● ランダムに方向転換
#--------------------------------------------------------------------------
def turn_random
case rand(4)
when 0
turn_up
when 1
turn_right
when 2
turn_left
when 3
turn_down
end
end
#--------------------------------------------------------------------------
# ● プレイヤーの方を向く
#--------------------------------------------------------------------------
def turn_toward_player
# プレイヤーの座標との差を求める
sx = @x - $game_player.x
sy = @y - $game_player.y
# 座標が等しい場合
if sx == 0 and sy == 0
return
end
# 横の距離のほうが長い場合
if sx.abs > sy.abs
# 左右方向でプレイヤーのいるほうを向く
sx > 0 ? turn_left : turn_right
# 縦の距離のほうが長い場合
else
# 上下方向でプレイヤーのいるほうを向く
sy > 0 ? turn_up : turn_down
end
end
#--------------------------------------------------------------------------
# ● プレイヤーの逆を向く
#--------------------------------------------------------------------------
def turn_away_from_player
# プレイヤーの座標との差を求める
sx = @x - $game_player.x
sy = @y - $game_player.y
# 座標が等しい場合
if sx == 0 and sy == 0
return
end
# 横の距離のほうが長い場合
if sx.abs > sy.abs
# 左右方向でプレイヤーのいないほうを向く
sx > 0 ? turn_right : turn_left
# 縦の距離のほうが長い場合
else
# 上下方向でプレイヤーのいないほうを向く
sy > 0 ? turn_down : turn_up
end
end
end

复制代码

class Game_Event < Game_Character
attr_reader :trigger
attr_reader :list
attr_reader :starting
attr_reader :keypress # Event triggered by a key press
attr_reader :tempSwitches # Temporary self-switches
attr_accessor :need_refresh
def initialize(map_id, event, map=nil)
super(map)
@map_id = map_id
@event = event
@id = @event.id
@erased = false
@starting = false
@keypress=false
@need_refresh=false
@route_erased=false
@through = true
@tempSwitches={}
moveto(@event.x, @event.y) if map
refresh
end
def clear_starting
@starting = false
end
def over_trigger?
if @character_name != "" and not @through
return false
end
unless self.map.passable?(@x, @y, 0)
return false
end
return true
end
def start(keypress=false)
if @list.size > 1
@starting = true
@keypress=keypress
end
end
def erase
@erased = true
refresh
end
def erase_route
@route_erased=true
refresh
end
def name
return @event.name
end
def id
return @event.id
end
def pbCheckEventTriggerAfterTurning
if $game_system.map_interpreter.running?
return
end
if @event.name[/^Trainer$(\d+)$$/]
distance=$~[1].to_i
if @trigger == 2 and pbEventCanReachPlayer?(self,$game_player,distance)
if not jumping? and not over_trigger?
start
end
end
end
end
def tsOn?(c)
return @tempSwitches && @tempSwitches[c]==true
end
def tsOff?(c)
return !@tempSwitches || !@tempSwitches[c]
end
def setTempSwitchOn(c)
@tempSwitches[c]=true
refresh
end
def setTempSwitchOff(c)
@tempSwitches[c]=false
refresh
end
def variable
return nil if !$PokemonGlobal.eventvars
return $PokemonGlobal.eventvars[[@map_id,@event.id]]
end
def setVariable(variable)
$PokemonGlobal.eventvars[[@map_id,@event.id]]=variable
end
def varAsInt
return 0 if !$PokemonGlobal.eventvars
return $PokemonGlobal.eventvars[[@map_id,@event.id]].to_i
end
def expired?(secs=86400)
ontime=self.variable
return ontime && (Time.now.to_i>ontime+secs)
end
def onEvent?
return @map_id==$game_map.map_id &&
$game_player.x==self.x && $game_player.y==self.y
end
def isOff?(c)
return !$game_self_switches[[@map_id,@event.id,c]]
end
def switchIsOn?(id)
switchname=$data_system.switches[id]
return false if !switchname
if switchname[/^s\:/]
return eval($~.post_match)
else
return $game_switches[id]
end
end
def refresh
new_page = nil
unless @erased
for page in @event.pages.reverse
c = page.condition
if c.switch1_valid
if !switchIsOn?(c.switch1_id)
next
end
end
if c.switch2_valid
if !switchIsOn?(c.switch2_id)
next
end
end
if c.variable_valid
if $game_variables[c.variable_id] < c.variable_value
next
end
end
if c.self_switch_valid
key = [@map_id, @event.id, c.self_switch_ch]
if $game_self_switches[key] != true
next
end
end
new_page = page
break
end
end
if new_page == @page
return
end
@page = new_page
clear_starting
if @page == nil
@tile_id = 0
@character_name = ""
@character_hue = 0
@move_type = 0
@through = true
@trigger = nil
@list = nil
@interpreter = nil
return
end
@tile_id = @page.graphic.tile_id
@character_name = @page.graphic.character_name
@character_hue = @page.graphic.character_hue
if @original_direction != @page.graphic.direction
@direction = @page.graphic.direction
@original_direction = @direction
@prelock_direction = 0
end
if @original_pattern != @page.graphic.pattern
@pattern = @page.graphic.pattern
@original_pattern = @pattern
end
@opacity = @page.graphic.opacity
@blend_type = @page.graphic.blend_type
@move_type = @page.move_type
@move_speed = @page.move_speed * 1.25
@move_frequency = @page.move_frequency
@move_route = @route_erased ? RPG::MoveRoute.new : @page.move_route
@move_route_index = 0
@move_route_forcing = false
@walk_anime = @page.walk_anime
@step_anime = @page.step_anime
@direction_fix = @page.direction_fix
@through = @page.through
@always_on_top = @page.always_on_top
@trigger = @page.trigger
@list = @page.list
@interpreter = nil
if @trigger == 4
@interpreter = Interpreter.new
end
check_event_trigger_auto
end
def check_event_trigger_touch(x, y)
if $game_system.map_interpreter.running?
return
end
return if @trigger!=2
return if x != $game_player.x || y != $game_player.y
if not jumping? and not over_trigger?
start
end
end
def check_event_trigger_auto
if @trigger == 2 and @x == $game_player.x and @y == $game_player.y
if not jumping? and over_trigger?
start
end
end
if @trigger == 3
start
end
end
def update
last_moving=moving?
super
if !moving? && last_moving
$game_player.pbCheckEventTriggerFromDistance([2])
end
if @need_refresh
@need_refresh=false
refresh
end
check_event_trigger_auto
if @interpreter != nil
unless @interpreter.running?
@interpreter.setup(@list, @event.id)
end
@interpreter.update
end
end
end

复制代码

#==============================================================================
# ** Game_Player
#------------------------------------------------------------------------------
# This class handles the player. Its functions include event starting
# determinants and map scrolling. Refer to "$game_player" for the one
# instance of this class.
#==============================================================================
def pbAddDependency(event)
$game_player.addDependentEvent(event)
end
def pbRemoveDependency(event)
$game_player.removeDependentEvent(event)
end
def pbTurnTowardEvent(event,otherEvent)
sx = event.x - otherEvent.x
sy = event.y - otherEvent.y
if sx == 0 and sy == 0
return
end
if sx.abs > sy.abs
sx > 0 ? event.turn_left : event.turn_right
else
sy > 0 ? event.turn_up : event.turn_down
end
if event.is_a?(Game_Event)
$PokemonMap.addMovedEvent(event.id)
end
end
def pbMoveBehindEvent(leader,follower)
d=leader.direction
newX = leader.x + (d == 6 ? -1 : d == 4 ? 1 : 0)
newY = leader.y + (d == 2 ? -1 : d == 8 ? 1 : 0)
if follower.x!=newX || follower.y!=newY
follower.moveto(newX,newY)
end
case leader.direction
when 2 # down
follower.turn_down
when 4 # left
follower.turn_left
when 6 # right
follower.turn_right
when 8 # up
follower.turn_up
end
if follower.is_a?(Game_Event)
$PokemonMap.addMovedEvent(follower.id)
end
end
def pbFollowEvent(leader,follower)
d=leader.direction
newX = leader.x + (d == 6 ? -1 : d == 4 ? 1 : 0)
newY = leader.y + (d == 2 ? -1 : d == 8 ? 1 : 0)
posX = newX + (d == 6 ? -1 : d == 4 ? 1 : 0)
posY = newY + (d == 2 ? -1 : d == 8 ? 1 : 0)
if follower.x-newX==-1 && follower.y==newY
follower.move_right
elsif follower.x-newX==1 && follower.y==newY
follower.move_left
elsif follower.y-newY==-1 && follower.x==newX
follower.move_down
elsif follower.y-newY==1 && follower.x==newX
follower.move_up
elsif follower.x!=posX || follower.y!=posY
follower.moveto(posX,posY)
case leader.direction
when 2 # down
follower.move_down
when 4 # left
follower.move_left
when 6 # right
follower.move_right
when 8 # up
follower.move_up
end
end
if follower.is_a?(Game_Event)
$PokemonMap.addMovedEvent(follower.id)
end
end
def pbFollowEventJumping(leader,follower)
d=leader.direction
newX = leader.x + (d == 6 ? -1 : d == 4 ? 1 : 0)
newY = leader.y + (d == 2 ? -1 : d == 8 ? 1 : 0)
posX = newX + (d == 6 ? -1 : d == 4 ? 1 : 0)
posY = newY + (d == 2 ? -1 : d == 8 ? 1 : 0)
if follower.x-newX==-1 && follower.y==newY
follower.jump(1,0)
return
elsif follower.x-newX==1 && follower.y==newY
follower.jump(-1,0)
return
elsif follower.y-newY==-1 && follower.x==newX
follower.jump(0,1)
return
elsif follower.y-newY==1 && follower.x==newX
follower.jump(0,-1)
return
elsif follower.x!=posX || follower.y!=posY
follower.moveto(posX,posY)
end
case leader.direction
when 2 # down
follower.jump(0,1)
when 4 # left
follower.jump(-1,0)
when 6 # right
follower.jump(1,0)
when 8 # up
follower.jump(0,-1)
end
if follower.is_a?(Game_Event)
$PokemonMap.addMovedEvent(follower.id)
end
end
class Game_Player < Game_Character
def map
@map=nil
return $game_map
end
#--------------------------------------------------------------------------
# * Invariables
#--------------------------------------------------------------------------
def initialize(*arg)
super(*arg)
@lastdir=0
@lastdirframe=0
end
def pbHasDependentEvents?
return @dependentEvents && (@dependentEvents.length>0)
end
def addDependentEvent(event)
@dependentEvents=[] if !@dependentEvents
for i in [email protected]
if @dependentEvents[i][0]==$game_map.map_id&&
@dependentEvents[i][1]==event.id
# Already exists
return
end
end
@dependentEvents.push([$game_map.map_id,event.id,event.through])
event.through=true
end
def removeDependentEvent(event)
if @dependentEvents
mapid=$game_map.map_id
for i in [email protected]
if @dependentEvents[i][0]==mapid &&
@dependentEvents[i][1]==event.id
event.through=@dependentEvents[i][2]
@dependentEvents[i]=nil
end
end
@dependentEvents.compact!
end
end
def updateDependentEvents
if @dependentEvents
for i in [email protected]
@dependentEvents[i]=nil if @dependentEvents[i][0]!=$game_map.map_id
end
@dependentEvents.compact!
end
end
def getDependentEvent(evt)
event=$game_map.events[evt[1]]
if event
event.through=true
end
return event
end
def move_down(turn_enabled = true)
if turn_enabled
turn_down
end
pbBridgeCheck(2)
if passable?(@x, @y, 2)
return if pbLedge(0,1)
return if pbEndSurf(0,1)
turn_down
@y += 1
pbMoveDependentEvents
increase_steps
else
if !check_event_trigger_touch(@x, @y+1)
Audio.se_play("Audio/SE/bump.wav")
end
end
end
def move_left(turn_enabled = true)
if turn_enabled
turn_left
end
pbBridgeCheck(4)
if passable?(@x, @y, 4)
return if pbLedge(-1,0)
return if pbEndSurf(-1,0)
turn_left
@x -= 1
pbMoveDependentEvents
increase_steps
else
if !check_event_trigger_touch(@x-1, @y)
Audio.se_play("Audio/SE/bump.wav")
end
end
end
def move_right(turn_enabled = true)
if turn_enabled
turn_right
end
pbBridgeCheck(6)
if passable?(@x, @y, 6)
return if pbLedge(1,0)
return if pbEndSurf(1,0)
turn_right
@x += 1
pbMoveDependentEvents
increase_steps
else
if !check_event_trigger_touch(@x+1, @y)
Audio.se_play("Audio/SE/bump.wav")
end
end
end
def move_up(turn_enabled = true)
if turn_enabled
turn_up
end
pbBridgeCheck(8)
if passable?(@x, @y, 8)
return if pbLedge(0,-1)
return if pbEndSurf(0,-1)
turn_up
@y -= 1
pbMoveDependentEvents
increase_steps
else
if !check_event_trigger_touch(@x, @y-1)
Audio.se_play("Audio/SE/bump.wav")
end
end
end
def pbMoveDependentEvents
return if !@dependentEvents
updateDependentEvents
leader=self
for evt in @dependentEvents
event=getDependentEvent(evt)
if event
pbFollowEvent(leader,event)
leader=event
end
end
end
def pbJumpDependentEvents
return if !@dependentEvents
updateDependentEvents
leader=self
for evt in @dependentEvents
event=getDependentEvent(evt)
if event
pbFollowEventJumping(leader,event)
leader=event
end
end
end
def pbTurnDependentEvents
return if !@dependentEvents
updateDependentEvents
leader=self
for evt in @dependentEvents
event=getDependentEvent(evt)
if event
pbTurnTowardEvent(event,leader)
leader=event
end
end
end
def pbTriggeredTrainerEvents(triggers,checkIfRunning=true)
result = []
# If event is running
if checkIfRunning && $game_system.map_interpreter.running?
return result
end
# All event loops
for event in $game_map.events.values
next if !event.name[/^Trainer$(\d+)$$/]
distance=$~[1].to_i
# If event coordinates and triggers are consistent
if pbEventCanReachPlayer?(event,self,distance) and triggers.include?(event.trigger)
# If starting determinant is front event (other than jumping)
if not event.jumping? and not event.over_trigger?
result.push(event)
end
end
end
return result
end
def pbTriggeredCounterEvents(triggers,checkIfRunning=true)
result = []
# If event is running
if checkIfRunning && $game_system.map_interpreter.running?
return result
end
# All event loops
for event in $game_map.events.values
next if !event.name[/^Counter$(\d+)$$/]
distance=$~[1].to_i
# If event coordinates and triggers are consistent
if pbEventFacesPlayer?(event,self,distance) and triggers.include?(event.trigger)
# If starting determinant is front event (other than jumping)
if not event.jumping? and not event.over_trigger?
result.push(event)
end
end
end
return result
end
def pbCheckEventTriggerAfterTurning
end
def pbCheckEventTriggerFromDistance(triggers)
ret=pbTriggeredTrainerEvents(triggers)
ret.concat(pbTriggeredCounterEvents(triggers))
return false if ret.length==0
for event in ret
event.start
end
return true
end
def pbFacingEvent
if $game_system.map_interpreter.running?
return nil
end
new_x = @x + (@direction == 6 ? 1 : @direction == 4 ? -1 : 0)
new_y = @y + (@direction == 2 ? 1 : @direction == 8 ? -1 : 0)
for event in $game_map.events.values
if event.x == new_x and event.y == new_y
if not event.jumping? and not event.over_trigger?
return event
end
end
end
if $game_map.counter?(new_x, new_y)
new_x += (@direction == 6 ? 1 : @direction == 4 ? -1 : 0)
new_y += (@direction == 2 ? 1 : @direction == 8 ? -1 : 0)
for event in $game_map.events.values
if event.x == new_x and event.y == new_y
if not event.jumping? and not event.over_trigger?
return event
end
end
end
end
return nil
end
#--------------------------------------------------------------------------
# * Passable Determinants
# x : x-coordinate
# y : y-coordinate
# d : direction (0,2,4,6,8)
# * 0 = Determines if all directions are impassable (for jumping)
#--------------------------------------------------------------------------
def passable?(x, y, d)
# Get new coordinates
new_x = x + (d == 6 ? 1 : d == 4 ? -1 : 0)
new_y = y + (d == 2 ? 1 : d == 8 ? -1 : 0)
# If coordinates are outside of map
unless $game_map.validLax?(new_x, new_y)
# Impassable
return false
end
if !$game_map.valid?(new_x, new_y)
return false if !$MapFactory
return $MapFactory.isPassableFromEdge?(new_x, new_y)
end
# If debug mode is ON and ctrl key was pressed
if $DEBUG and Input.press?(Input::CTRL)
# Passable
return true
end
super
end
#--------------------------------------------------------------------------
# * Set Map Display Position to Center of Screen
#--------------------------------------------------------------------------
def center(x, y)
center_x = (Graphics.width/2 - 16) * 4 # Center screen x-coordinate * 4
center_y = (Graphics.height/2 - 16) * 4 # Center screen y-coordinate * 4
max_x = ($game_map.width - Graphics.width/32.0) * 128
max_y = ($game_map.height - Graphics.height/32.0) * 128
$game_map.display_x = [0, [x * 128 - center_x, max_x].min].max
$game_map.display_y = [0, [y * 128 - center_y, max_y].min].max
end
#--------------------------------------------------------------------------
# * Move to Designated Position
# x : x-coordinate
# y : y-coordinate
#--------------------------------------------------------------------------
def moveto(x, y)
super
# Centering
center(x, y)
# Make encounter count
make_encounter_count
end
#--------------------------------------------------------------------------
# * Increase Steps
#--------------------------------------------------------------------------
def increase_steps
super
end
#--------------------------------------------------------------------------
# * Get Encounter Count
#--------------------------------------------------------------------------
def encounter_count
return @encounter_count
end
#--------------------------------------------------------------------------
# * Make Encounter Count
#--------------------------------------------------------------------------
def make_encounter_count
# Image of two dice rolling
if $game_map.map_id != 0
n = $game_map.encounter_step
@encounter_count = rand(n) + rand(n) + 1
end
end
#--------------------------------------------------------------------------
# * Refresh
#--------------------------------------------------------------------------
def refresh
@opacity = 255
@blend_type = 0
end
#--------------------------------------------------------------------------
# * Same Position Starting Determinant
#--------------------------------------------------------------------------
def check_event_trigger_here(triggers,keypress=false)
result = false
# If event is running
if $game_system.map_interpreter.running?
return result
end
# All event loops
for event in $game_map.events.values
# If event coordinates and triggers are consistent
if event.x == @x and event.y == @y and triggers.include?(event.trigger)
# If starting determinant is same position event (other than jumping)
if not event.jumping? and event.over_trigger?
event.start(keypress)
result = true
end
end
end
return result
end
#--------------------------------------------------------------------------
# * Front Envent Starting Determinant
#--------------------------------------------------------------------------
def check_event_trigger_there(triggers,keypress=false)
result = false
# If event is running
if $game_system.map_interpreter.running?
return result
end
# Calculate front event coordinates
new_x = @x + (@direction == 6 ? 1 : @direction == 4 ? -1 : 0)
new_y = @y + (@direction == 2 ? 1 : @direction == 8 ? -1 : 0)
# All event loops
for event in $game_map.events.values
# If event coordinates and triggers are consistent
if event.x == new_x and event.y == new_y and
triggers.include?(event.trigger)
# If starting determinant is front event (other than jumping)
if not event.jumping? and (keypress || !event.over_trigger?)
event.start(keypress)
result = true
end
end
end
# If fitting event is not found
if result == false
# If front tile is a counter
if $game_map.counter?(new_x, new_y)
# Calculate 1 tile inside coordinates
new_x += (@direction == 6 ? 1 : @direction == 4 ? -1 : 0)
new_y += (@direction == 2 ? 1 : @direction == 8 ? -1 : 0)
# All event loops
for event in $game_map.events.values
# If event coordinates and triggers are consistent
if event.x == new_x and event.y == new_y and
triggers.include?(event.trigger)
# If starting determinant is front event (other than jumping)
if not event.jumping? and (keypress || !event.over_trigger?)
event.start
result = true
end
end
end
end
end
return result
end
#--------------------------------------------------------------------------
# * Touch Event Starting Determinant
#--------------------------------------------------------------------------
def check_event_trigger_touch(x, y)
result = false
# If event is running
if $game_system.map_interpreter.running?
return result
end
# All event loops
for event in $game_map.events.values
if event.name[/^Trainer$(\d+)$$/]
distance=$~[1].to_i
next if !pbEventCanReachPlayer?(event,self,distance)
end
if event.name[/^Counter$(\d+)$$/]
distance=$~[1].to_i
next if !pbEventFacesPlayer?(event,self,distance)
end
# If event coordinates and triggers are consistent
if event.x == x and event.y == y and [1,2].include?(event.trigger)
# If starting determinant is front event (other than jumping)
if not event.jumping? and not event.over_trigger?
event.start
result = true
end
end
end
return result
end
#--------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
def update
updateDependentEvents
# Remember whether or not moving in local variables
last_moving = moving?
# If moving, event running, move route forcing, and message window
# display are all not occurring
dir=Input.dir4
unless moving? or $game_system.map_interpreter.running? or
@move_route_forcing or $game_temp.message_window_showing or
$PokemonTemp.miniupdate
# Move player in the direction the directional button is being pressed
if dir==@lastdir && Graphics.frame_count-@lastdirframe>2
case dir
when 2
move_down
when 4
move_left
when 6
move_right
when 8
move_up
end
elsif dir!=@lastdir
case dir
when 2
turn_down
when 4
turn_left
when 6
turn_right
when 8
turn_up
end
end
end
if dir!=@lastdir
@lastdirframe=Graphics.frame_count
end
@lastdir=dir
# Remember coordinates in local variables
last_real_x = @real_x
last_real_y = @real_y
super
center_x = (Graphics.width/2 - 16) * 4 # Center screen x-coordinate * 4
center_y = (Graphics.height/2 - 16) * 4 # Center screen y-coordinate * 4
# If character moves down and is positioned lower than the center
# of the screen
if @real_y > last_real_y and @real_y - $game_map.display_y > center_y
# Scroll map down
$game_map.scroll_down(@real_y - last_real_y)
end
# If character moves left and is positioned more let on-screen than
# center
if @real_x < last_real_x and @real_x - $game_map.display_x < center_x
# Scroll map left
$game_map.scroll_left(last_real_x - @real_x)
end
# If character moves right and is positioned more right on-screen than
# center
if @real_x > last_real_x and @real_x - $game_map.display_x > center_x
# Scroll map right
$game_map.scroll_right(@real_x - last_real_x)
end
# If character moves up and is positioned higher than the center
# of the screen
if @real_y < last_real_y and @real_y - $game_map.display_y < center_y
# Scroll map up
$game_map.scroll_up(last_real_y - @real_y)
end
# If not moving
unless moving?
# If player was moving last time
if last_moving
pbTurnDependentEvents
result = pbCheckEventTriggerFromDistance([2])
# Event determinant is via touch of same position event
result |= check_event_trigger_here([1,2])
# If event which started does not exist
Kernel.pbOnStepTaken(result) # *Added function call
if result == false
# Disregard if debug mode is ON and ctrl key was pressed
unless $DEBUG and Input.press?(Input::CTRL)
# Encounter countdown
if @encounter_count > 0
@encounter_count -= 1
end
end
end
end
# If C button was pressed
if Input.trigger?(Input::C) && !$PokemonTemp.miniupdate
# Same position and front event determinant
check_event_trigger_here([0],true)
check_event_trigger_there([0,2],true) # *Modified to prevent unnecessary triggers
end
end
end
end

复制代码