Interpreter 6

#============================================
# ¡ Interpreter (•ªŠ„’è‹` 6)
#----------------------------------------------
# @ƒCƒxƒ“ƒgƒRƒ}ƒ“ƒh‚ðŽÀs‚·‚éƒCƒ“ƒ^ƒvƒŠƒ^‚Å‚·B‚±‚̃Nƒ‰ƒX‚Í Game_System ƒNƒ‰
# ƒX‚â Game_Event ƒNƒ‰ƒX‚Ì“à•”‚Ŏg—p‚³‚ê‚Ü‚·B
#============================================

class Interpreter
#------------------------------------------
# œ ƒoƒgƒ‹‚̏ˆ—
#------------------------------------------
def command_301
# –³Œø‚ȃgƒ‹[ƒv‚Å‚È‚¯‚ê‚Î
if $data_troops[@parameters[0]] != nil
# ƒoƒgƒ‹’†’fƒtƒ‰ƒO‚ðƒZƒbƒg
$game_temp.battle_abort = true
# ƒoƒgƒ‹ŒÄ‚яo‚µƒtƒ‰ƒO‚ðƒZƒbƒg
$game_temp.battle_calling = true
$game_temp.battle_troop_id = @parameters[0]
$game_temp.battle_can_escape = @parameters[1]
$game_temp.battle_can_lose = @parameters[2]
# ƒR[ƒ‹ƒoƒbƒN‚ðÝ’è
current_indent = @list[@index].indent
$game_temp.battle_proc = Proc.new { |n| @branch[current_indent] = n }
end
# ƒCƒ“ƒfƒbƒNƒX‚ði‚ß‚é
@index += 1
# I—¹
return false
end
#------------------------------------------
# œ Ÿ‚Á‚½ê‡
#------------------------------------------
def command_601
# ƒoƒgƒ‹Œ‹‰Ê‚ªŸ‚¿‚̏ꍇ
if @branch[@list[@index].indent] == 0
# •ªŠòƒf[ƒ^‚ðíœ
@branch.delete(@list[@index].indent)
# Œp‘±
return true
end
# ðŒ‚ÉŠY“–‚µ‚È‚¢ê‡ : ƒRƒ}ƒ“ƒhƒXƒLƒbƒv
return command_skip
end
#------------------------------------------
# œ “¦‚°‚½ê‡
#------------------------------------------
def command_602
# ƒoƒgƒ‹Œ‹‰Ê‚ª“¦‚°‚̏ꍇ
if @branch[@list[@index].indent] == 1
# •ªŠòƒf[ƒ^‚ðíœ
@branch.delete(@list[@index].indent)
# Œp‘±
return true
end
# ðŒ‚ÉŠY“–‚µ‚È‚¢ê‡ : ƒRƒ}ƒ“ƒhƒXƒLƒbƒv
return command_skip
end
#------------------------------------------
# œ •‰‚¯‚½ê‡
#------------------------------------------
def command_603
# ƒoƒgƒ‹Œ‹‰Ê‚ª•‰‚¯‚̏ꍇ
if @branch[@list[@index].indent] == 2
# •ªŠòƒf[ƒ^‚ðíœ
@branch.delete(@list[@index].indent)
# Œp‘±
return true
end
# ðŒ‚ÉŠY“–‚µ‚È‚¢ê‡ : ƒRƒ}ƒ“ƒhƒXƒLƒbƒv
return command_skip
end
#------------------------------------------
# œ ƒVƒ‡ƒbƒv‚̏ˆ—
#------------------------------------------
def command_302
# ƒoƒgƒ‹’†’fƒtƒ‰ƒO‚ðƒZƒbƒg
$game_temp.battle_abort = true
# ƒVƒ‡ƒbƒvŒÄ‚яo‚µƒtƒ‰ƒO‚ðƒZƒbƒg
$game_temp.shop_calling = true
# ¤•iƒŠƒXƒg‚ɐV‚µ‚¢€–Ú‚ðÝ’è
$game_temp.shop_goods = [@parameters]
# ƒ‹[ƒv
loop do
# ƒCƒ“ƒfƒbƒNƒX‚ði‚ß‚é
@index += 1
# ŽŸ‚̃Cƒxƒ“ƒgƒRƒ}ƒ“ƒh‚ªƒVƒ‡ƒbƒv 2 s–ڈȍ~‚̏ꍇ
if @list[@index].code == 605
# ¤•iƒŠƒXƒg‚ɐV‚µ‚¢€–Ú‚ð’ljÁ
$game_temp.shop_goods.push(@list[@index].parameters)
# ƒCƒxƒ“ƒgƒRƒ}ƒ“ƒh‚ªƒVƒ‡ƒbƒv 2 s–ڈȍ~‚Å‚Í‚È‚¢ê‡
else
# I—¹
return false
end
end
end
#------------------------------------------
# œ –¼‘O“ü—͂̏ˆ—
#------------------------------------------
def command_303
# –³Œø‚ȃAƒNƒ^[‚Å‚È‚¯‚ê‚Î
if $data_actors[@parameters[0]] != nil
# ƒoƒgƒ‹’†’fƒtƒ‰ƒO‚ðƒZƒbƒg
$game_temp.battle_abort = true
# –¼‘O“ü—͌Ăяo‚µƒtƒ‰ƒO‚ðƒZƒbƒg
$game_temp.name_calling = true
$game_temp.name_actor_id = @parameters[0]
$game_temp.name_max_char = @parameters[1]
end
# ƒCƒ“ƒfƒbƒNƒX‚ði‚ß‚é
@index += 1
# I—¹
return false
end
#------------------------------------------
# œ HP ‚Ì‘Œ¸
#------------------------------------------
def command_311
# ‘€ì‚·‚é’l‚ðŽæ“¾
value = operate_value(@parameters[1], @parameters[2], @parameters[3])
# ƒCƒeƒŒ[ƒ^‚ŏˆ—
iterate_actor(@parameters[0]) do |actor|
# HP ‚ª 0 ‚Å‚È‚¢ê‡
if actor.hp > 0
# HP ‚ð•ÏX (í“¬•s”‚ª‹–‰Â‚³‚ê‚Ä‚¢‚È‚¯‚ê‚Î 1 ‚É‚·‚é)
if @parameters[4] == false and actor.hp + value <= 0
actor.hp = 1
else
actor.hp += value
end
end
end
# ƒQ[ƒ€ƒI[ƒo[”»’è
$game_temp.gameover = $game_party.all_dead?
# Œp‘±
return true
end
#------------------------------------------
# œ SP ‚Ì‘Œ¸
#------------------------------------------
def command_312
# ‘€ì‚·‚é’l‚ðŽæ“¾
value = operate_value(@parameters[1], @parameters[2], @parameters[3])
# ƒCƒeƒŒ[ƒ^‚ŏˆ—
iterate_actor(@parameters[0]) do |actor|
# ƒAƒNƒ^[‚Ì SP ‚ð•ÏX
actor.sp += value
end
# Œp‘±
return true
end
#------------------------------------------
# œ ƒXƒe[ƒg‚̕ύX
#------------------------------------------
def command_313
# ƒCƒeƒŒ[ƒ^‚ŏˆ—
iterate_actor(@parameters[0]) do |actor|
# ƒXƒe[ƒg‚ð•ÏX
if @parameters[1] == 0
actor.add_state(@parameters[2])
else
actor.remove_state(@parameters[2])
end
end
# Œp‘±
return true
end
#------------------------------------------
# œ ‘S‰ñ•œ
#------------------------------------------
def command_314
# ƒCƒeƒŒ[ƒ^‚ŏˆ—
iterate_actor(@parameters[0]) do |actor|
# ƒAƒNƒ^[‚ð‘S‰ñ•œ
actor.recover_all
end
# Œp‘±
return true
end
#------------------------------------------
# œ EXP ‚Ì‘Œ¸
#------------------------------------------
def command_315
# ‘€ì‚·‚é’l‚ðŽæ“¾
value = operate_value(@parameters[1], @parameters[2], @parameters[3])
# ƒCƒeƒŒ[ƒ^‚ŏˆ—
iterate_actor(@parameters[0]) do |actor|
# ƒAƒNƒ^[‚Ì EXP ‚ð•ÏX
actor.exp += value
end
# Œp‘±
return true
end
#------------------------------------------
# œ ƒŒƒxƒ‹‚Ì‘Œ¸
#------------------------------------------
def command_316
# ‘€ì‚·‚é’l‚ðŽæ“¾
value = operate_value(@parameters[1], @parameters[2], @parameters[3])
# ƒCƒeƒŒ[ƒ^‚ŏˆ—
iterate_actor(@parameters[0]) do |actor|
# ƒAƒNƒ^[‚̃Œƒxƒ‹‚ð•ÏX
actor.level += value
end
# Œp‘±
return true
end
#------------------------------------------
# œ ƒpƒ‰ƒ[ƒ^‚Ì‘Œ¸
#------------------------------------------
def command_317
# ‘€ì‚·‚é’l‚ðŽæ“¾
value = operate_value(@parameters[2], @parameters[3], @parameters[4])
# ƒAƒNƒ^[‚ðŽæ“¾
actor = $game_actors[@parameters[0]]
# ƒpƒ‰ƒ[ƒ^‚ð•ÏX
if actor != nil
case @parameters[1]
when 0 # MaxHP
actor.maxhp += value
when 1 # MaxSP
actor.maxsp += value
when 2 # ˜r—Í
actor.str += value
when 3 # Ší—p‚³
actor.dex += value
when 4 # ‘f‘‚³
actor.agi += value
when 5 # –‚—Í
actor.int += value
end
end
# Œp‘±
return true
end
#------------------------------------------
# œ ƒXƒLƒ‹‚Ì‘Œ¸
#------------------------------------------
def command_318
# ƒAƒNƒ^[‚ðŽæ“¾
actor = $game_actors[@parameters[0]]
# ƒXƒLƒ‹‚𑝌¸
if actor != nil
if @parameters[1] == 0
actor.learn_skill(@parameters[2])
else
actor.forget_skill(@parameters[2])
end
end
# Œp‘±
return true
end
#------------------------------------------
# œ ‘•”õ‚̕ύX
#------------------------------------------
def command_319
# ƒAƒNƒ^[‚ðŽæ“¾
actor = $game_actors[@parameters[0]]
# ‘•”õ‚ð•ÏX
if actor != nil
actor.equip(@parameters[1], @parameters[2])
end
# Œp‘±
return true
end
#------------------------------------------
# œ ƒAƒNƒ^[‚Ì–¼‘O•ÏX
#------------------------------------------
def command_320
# ƒAƒNƒ^[‚ðŽæ“¾
actor = $game_actors[@parameters[0]]
# –¼‘O‚ð•ÏX
if actor != nil
actor.name = @parameters[1]
end
# Œp‘±
return true
end
#------------------------------------------
# œ ƒAƒNƒ^[‚̃Nƒ‰ƒX•ÏX
#------------------------------------------
def command_321
# ƒAƒNƒ^[‚ðŽæ“¾
actor = $game_actors[@parameters[0]]
# ƒNƒ‰ƒX‚ð•ÏX
if actor != nil
actor.class_id = @parameters[1]
end
# Œp‘±
return true
end
#------------------------------------------
# œ ƒAƒNƒ^[‚̃Oƒ‰ƒtƒBƒbƒN•ÏX
#------------------------------------------
def command_322
# ƒAƒNƒ^[‚ðŽæ“¾
actor = $game_actors[@parameters[0]]
# ƒOƒ‰ƒtƒBƒbƒN‚ð•ÏX
if actor != nil
actor.set_graphic(@parameters[1], @parameters[2],
@parameters[3], @parameters[4])
end
# ƒvƒŒƒCƒ„[‚ðƒŠƒtƒŒƒbƒVƒ…
$game_player.refresh
# Œp‘±
return true
end
end