【脚本】多功能事件 - Project1

#========================================================
#★ 多功能事件 -by joe59491
#========================================================
#========使用說明========================================
#扔物品到地圖上
#Throw_Item_To_Map.new(物品編號,set*) #會扔在主角面前，名稱為物品名，會扣物品
#Throw_Item_To_Map2.new(物品編號,set*) #會扔在主角腳下，名稱為物品名，會扣物品
#放置物品到地圖上
#Item_To_Map.new(物品編號,x,y,set*) #會放在地圖上的(x,y)，名稱為物品名，不扣物品
#丟錢到地圖上
#Throw_Money_To_Map.new(多少錢,set*) #會扔在主角面前，會扣錢
#丟錢到地圖上
#Throw_Money_To_Map2.new(多少錢,set*) #會扔在主角腳下，會扣錢
#放置錢到地圖上
#Money_To_Map.new(多少錢,x,y,set*) #會放在地圖上的(x,y)，不扣錢
#放置經驗到地圖上
#EXP_To_Map.new(多少經驗,x,y,set*) #會放在地圖上的(x,y)，不扣經驗
#放置變數到地圖上
#Variables_To_Map.new(變數ID,多少,x,y,set*) #會放在地圖上的(x,y)
#製造傳送點A
#Telport_To_Map_A.new(set*) #會放在主角面前
#製造傳送點B
#Telport_To_Map_B.new(set*) #會放在主角面前
#製造傳送點A(xy版)
#Telport_To_Map_A_xy.new(x,y,set*) #會放在地圖上的(x,y)
#製造傳送點B(xy版)
#Telport_To_Map_B_xy.new(x,y,set*) #會放在地圖上的(x,y)
# set為是否要刷新地圖，預設會刷新，如果是從非地圖畫面，請寫0
#每對A和B傳送點是互傳的
#複製事件
#Eve_To_Map.new(新X座標,新Y座標,複製事件所在地圖的編號,複製事件編號)
#刪除事件（全部，針對傳送點的）
#Dis_Telport_Eve.new
#刪除事件（全部，針對多功能事件）
#Dis_Eve.new
#刪除某事件（針對多功能事件）
#Dis_A_Eve.new(編號)
#儲存事件（非自動，針對多功能事件）
#Save_Eve.new
#讀取事件（非自動，針對多功能事件）
#Load_Eve.new
#p.s. 當開關關閉時，會事件會被保留，否則會消失。
#多功能事件預設一個地圖最多200個，然後暫時消除多功能事件等於刪掉它
#========================================================
#========參數設定======================================
#Pic開頭是指行走圖名稱
#Dir開頭是指朝向 2上(第一排) 4左(第二排) 6右(第三排) 8下(第四排)
#Item=物品 EXP=經驗 Money=錢 Variables=變數 Telport=傳送點
$Pic_Item = "193-support01"
$Dir_Item = 6
$Pic_EXP = "193-support01"
$Dir_EXP = 6
$Pic_Money = "193-support01"
$Dir_Money = 6
$Pic_Variables = "193-support01"
$Dir_Variables = 6
$Pic_TelportA = "199-support07_tori"
$Dir_TelportA = 2
$Pic_TelportB = "199-support07_tori"
$Dir_TelportB = 6
$Eve_Control = 18 #是否要關閉自動回復地圖上的事件的開關編號
#======================================================
class Game_Character
attr_accessor :id # ID
attr_accessor :tel # ID
end
class Eve_To_Map
def initialize(x, y, map_id, eve_id)
map = load_data(sprintf("Data/Map%03d.rxdata", map_id))
for i in 200..300
if $game_map.events[i] == nil
$game_map.events[i] = Game_Event.new($game_map.map_id, map.events[eve_id])
$game_map.events[i].moveto(x,y)
$game_map.events[i].id=i
$scene.spriteset.dispose
$scene.spriteset = Spriteset_Map.new
break
end
end
end
end
class Game_Event < Game_Character
attr_accessor :erased # erased
def set_as_exp(value,eve_id)
@through = false
@direction_fix = true
@character_name = $Pic_EXP
@pattern=0
@opacity=255
@direction=$Dir_EXP
@page.list=[RPG::EventCommand.new(315,0,[0,0,0,value]),RPG::EventCommand.new(355,0,["Dis_A_Eve.new("+eve_id.to_s+")"]),RPG::EventCommand.new(0,0,[])]
@list=[RPG::EventCommand.new(315,0,[0,0,0,value]),RPG::EventCommand.new(355,0,["Dis_A_Eve.new("+eve_id.to_s+")"]),RPG::EventCommand.new(0,0,[])]
@skippabel=false
@trigger = 0
@step_anime=false
@walk_anime=false
@move_frequency=3
@move_speed=3
@move_type=0
@name=value.to_s + "EXP"
@always_on_top=false
@interpreter = nil
end
def set_as_money(value,eve_id)
@through = false
@direction_fix = true
@character_name = $Pic_Money
@pattern=0
@opacity=255
@direction=$Dir_Money
@page.list=[RPG::EventCommand.new(125,0,[0,0,value]),RPG::EventCommand.new(355,0,["Dis_A_Eve.new("+eve_id.to_s+")"]),RPG::EventCommand.new(0,0,[])]
@list=[RPG::EventCommand.new(125,0,[0,0,value]),RPG::EventCommand.new(355,0,["Dis_A_Eve.new("+eve_id.to_s+")"]),RPG::EventCommand.new(0,0,[])]
@skippabel=false
@trigger = 0
@step_anime=false
@walk_anime=false
@move_frequency=3
@move_speed=3
@move_type=0
@name=value.to_s + $data_system.words.gold
@always_on_top=false
@interpreter = nil
end
def set_as_variables(variables_id,value,eve_id)
@through = false
@direction_fix = true
@character_name = $Pic_Variables
@pattern=0
@opacity=255
@direction=$Dir_Variables
@page.list=[RPG::EventCommand.new(315,0,[variables_id,variables_id,1,0,value,0]),RPG::EventCommand.new(355,0,["Dis_A_Eve.new("+eve_id.to_s+")"]),RPG::EventCommand.new(0,0,[])]
@list=[RPG::EventCommand.new(315,0,[variables_id,variables_id,1,0,value,0]),RPG::EventCommand.new(355,0,["Dis_A_Eve.new("+eve_id.to_s+")"]),RPG::EventCommand.new(0,0,[])]
@skippabel=false
@trigger = 0
@step_anime=false
@walk_anime=false
@move_frequency=3
@move_speed=3
@move_type=0
@name=value.to_s
@always_on_top=false
@interpreter = nil
end
def set_as_item(item_id,eve_id)
@through = false#true
@direction_fix = true
@character_name = $Pic_Item
@pattern=0
@opacity=255
@direction=$Dir_Item
@page.list=[RPG::EventCommand.new(126,0,[item_id,0,0,1]),RPG::EventCommand.new(355,0,["Dis_A_Eve.new("+eve_id.to_s+")"]),RPG::EventCommand.new(0,0,[])]
@list=[RPG::EventCommand.new(126,0,[item_id,0,0,1]),RPG::EventCommand.new(355,0,["Dis_A_Eve.new("+eve_id.to_s+")"]),RPG::EventCommand.new(0,0,[])]
@skippabel=false
@trigger = 0
@step_anime=false
@walk_anime=false
@move_frequency=3
@move_speed=3
@move_type=0
@name=$data_items[item_id].name
@always_on_top=false
@interpreter = nil
end
def set_as_telport_a
@through = true
@direction_fix = true
@character_name = $Pic_TelportA
@pattern=0
@opacity=255
@direction=$Dir_TelportA
@page.list=[RPG::EventCommand.new(101,0,["沒有對應傳送點！"]),RPG::EventCommand.new(0,0,[])]
@list=[RPG::EventCommand.new(101,0,["沒有對應傳送點！"]),RPG::EventCommand.new(0,0,[])]
@skippabel=false
@trigger = 1
@step_anime=true
@walk_anime=false
@move_frequency=3
@move_speed=3
@move_type=0
@name="傳送點"
@always_on_top=false
@interpreter = nil
end
def set_as_telport_b(tox,toy)
@through = true
@direction_fix = true
@character_name = $Pic_TelportA
@pattern=0
@opacity=255
@direction=$Dir_TelportB
@page.list=[RPG::EventCommand.new(201,0,[0,$game_map.map_id,tox,toy,0,1]),RPG::EventCommand.new(0,0,[])]
@list=[RPG::EventCommand.new(201,0,[0,$game_map.map_id,tox,toy,0,1]),RPG::EventCommand.new(0,0,[])]
@skippabel=false
@trigger = 1
@step_anime=true
@walk_anime=false
@move_frequency=3
@move_speed=3
@move_type=0
@name="傳送點"
@always_on_top=false
@interpreter = nil
end
end
class Telport_To_Map_A
def initialize(set = 1)
if $game_map.Telport_A[$game_map.map_id] != nil
$game_temp.message_text = "你已經設過了起點！"
return
end
if !$game_player.passable?($game_player.x, $game_player.y, $game_player.direction)
$game_temp.message_text = "前面無法放傳送點！"
return
end
for i in 200..300
if $game_map.events[i] == nil
x=$game_player.x
y=$game_player.y
if $game_player.direction==2
y += 1
elsif $game_player.direction==4
x -= 1
elsif $game_player.direction==6
x += 1
elsif $game_player.direction==8
y -= 1
end
$game_map.events[i] = Game_Event.new($game_map.map_id,RPG::Event.new(x,y))
$game_map.events[i].id=i
$game_map.events[i].set_as_telport_a
$game_map.events[i].tel = 1
$game_map.Telport_A[$game_map.map_id]=i
if set == 1
$scene.spriteset.push_eve(i)
end
break
end
end
end
end
class Telport_To_Map_B
def initialize(set = 1)
if $game_map.Telport_A[$game_map.map_id] == nil
$game_temp.message_text = "你還沒設起點！"
return
end
if !$game_player.passable?($game_player.x, $game_player.y, $game_player.direction)
$game_temp.message_text = "前面無法放傳送點！"
return
end
for i in 200..300
if $game_map.events[i] == nil
x=$game_player.x
y=$game_player.y
if $game_player.direction==2
y += 1
elsif $game_player.direction==4
x -= 1
elsif $game_player.direction==6
x += 1
elsif $game_player.direction==8
y -= 1
end
$game_map.events[i] = Game_Event.new($game_map.map_id,RPG::Event.new(x,y))
$game_map.events[i].id=i
$game_map.events[i].set_as_telport_b($game_map.events[$game_map.Telport_A[$game_map.map_id]].x,$game_map.events[$game_map.Telport_A[$game_map.map_id]].y)
$game_map.events[$game_map.Telport_A[$game_map.map_id]].set_as_telport_b($game_map.events[i].x,$game_map.events[i].y)
$game_map.events[i].tel = 1
$game_map.Telport_A[$game_map.map_id]=nil
if set == 1
$scene.spriteset.push_eve(i)
end
break
end
end
end
end
class Telport_To_Map_A_xy
def initialize(x,y,set = 1)
if $game_map.Telport_A[$game_map.map_id] != nil
$game_temp.message_text = "你已經設過了起點！"
return
end
for i in 200..300
if $game_map.events[i] == nil
$game_map.events[i] = Game_Event.new($game_map.map_id,RPG::Event.new(x,y))
$game_map.events[i].id=i
$game_map.events[i].set_as_telport_a
$game_map.events[i].tel = 1
$game_map.Telport_A[$game_map.map_id]=i
if set == 1
$scene.spriteset.push_eve(i)
end
break
end
end
end
end
class Telport_To_Map_B_xy
def initialize(x,y,set = 1)
if $game_map.Telport_A[$game_map.map_id] == nil
$game_temp.message_text = "你還沒設起點！"
return
end
for i in 200..300
if $game_map.events[i] == nil
$game_map.events[i] = Game_Event.new($game_map.map_id,RPG::Event.new(x,y))
$game_map.events[i].id=i
$game_map.events[i].set_as_telport_b($game_map.events[$game_map.Telport_A[$game_map.map_id]].x,$game_map.events[$game_map.Telport_A[$game_map.map_id]].y)
$game_map.events[$game_map.Telport_A[$game_map.map_id]].set_as_telport_b($game_map.events[i].x,$game_map.events[i].y)
$game_map.events[i].tel = 1
$game_map.Telport_A[$game_map.map_id]=nil
if set == 1
$scene.spriteset.push_eve(i)
end
break
end
end
end
end
class Throw_Item_To_Map
def initialize(item_id, set = 1)
if $game_party.item_number(item_id)>0
if !$game_player.passable?($game_player.x, $game_player.y, $game_player.direction)
$game_temp.message_text = "前面無法放東西！"
return
end
$game_party.gain_item(item_id, -1)
for i in 200..300
if $game_map.events[i] == nil
x=$game_player.x
y=$game_player.y
if $game_player.direction==2
y += 1
elsif $game_player.direction==4
x -= 1
elsif $game_player.direction==6
x += 1
elsif $game_player.direction==8
y -= 1
end
$game_map.events[i] = Game_Event.new($game_map.map_id,RPG::Event.new(x,y))
$game_map.events[i].id=i
$game_map.events[i].set_as_item(item_id,i)
if set == 1
$scene.spriteset.push_eve(i)
end
break
end
end
end
end
end
class Throw_Item_To_Map2
def initialize(item_id, set = 1)
if $game_party.item_number(item_id)>0
$game_party.gain_item(item_id, -1)
for i in 200..300
if $game_map.events[i] == nil
x=$game_player.x
y=$game_player.y
$game_map.events[i] = Game_Event.new($game_map.map_id,RPG::Event.new(x,y))
$game_map.events[i].id=i
$game_map.events[i].set_as_item(item_id,i)
if set == 1
$scene.spriteset.push_eve(i)
end
break
end
end
end
end
end
class Throw_Money_To_Map2
def initialize(value, set = 1)
if $game_party.gold > value
$game_party.gain_gold(value)
for i in 200..300
if $game_map.events[i] == nil
x=$game_player.x
y=$game_player.y
$game_map.events[i] = Game_Event.new($game_map.map_id,RPG::Event.new(x,y))
$game_map.events[i].id=i
$game_map.events[i].set_as_item_money(value,i)
if set == 1
$scene.spriteset.push_eve(i)
end
break
end
end
end
end
end
class Throw_Money_To_Map
def initialize(value, set = 1)
if $game_party.gold > value
if !$game_player.passable?($game_player.x, $game_player.y, $game_player.direction)
$game_temp.message_text = "前面無法放東西！"
return
end
$game_party.gain_gold(value)
for i in 200..300
if $game_map.events[i] == nil
x=$game_player.x
y=$game_player.y
if $game_player.direction==2
y += 1
elsif $game_player.direction==4
x -= 1
elsif $game_player.direction==6
x += 1
elsif $game_player.direction==8
y -= 1
end
$game_map.events[i] = Game_Event.new($game_map.map_id,RPG::Event.new(x,y))
$game_map.events[i].id=i
$game_map.events[i].set_as_item_money(value,i)
if set == 1
$scene.spriteset.push_eve(i)
end
break
end
end
end
end
end
class Variables_To_Map
def initialize(variables_id,value, x,y,set = 1)
for i in 200..300
if $game_map.events[i] == nil
$game_map.events[i] = Game_Event.new($game_map.map_id,RPG::Event.new(x,y))
$game_map.events[i].id=i
$game_map.events[i].set_as_variables(variables_id,value,i)
if set == 1
$scene.spriteset.push_eve(i)
end
break
end
end
end
end
class Item_To_Map
def initialize(item_id, x,y,set = 1)
for i in 200..300
if $game_map.events[i] == nil
$game_map.events[i] = Game_Event.new($game_map.map_id,RPG::Event.new(x,y))
$game_map.events[i].id=i
$game_map.events[i].set_as_item(item_id,i)
if set == 1
$scene.spriteset.push_eve(i)
end
break
end
end
end
end
class Money_To_Map
def initialize(value, x,y,set = 1)
for i in 200..300
if $game_map.events[i] == nil
$game_map.events[i] = Game_Event.new($game_map.map_id,RPG::Event.new(x,y))
$game_map.events[i].id=i
$game_map.events[i].set_as_money(value,i)
if set == 1
$scene.spriteset.push_eve(i)
end
break
end
end
end
end
class EXP_To_Map
def initialize(value, x,y,set = 1)
for i in 200..300
if $game_map.events[i] == nil
$game_map.events[i] = Game_Event.new($game_map.map_id,RPG::Event.new(x,y))
$game_map.events[i].id=i
$game_map.events[i].set_as_exp(value,i)
if set == 1
$scene.spriteset.push_eve(i)
end
break
end
end
end
end
class Game_Map
attr_accessor :SEve
attr_accessor :Telport_A
alias initialize_seve initialize
def initialize
@SEve=[0]
@Telport_A=[0]
initialize_seve
end
alias update_seve update
def update
if $game_map.need_refresh
end
update_seve
end
end
class Save_Eve
def initialize
$game_map.SEve[$game_map.map_id]=[0]
for i in 200..300
if $game_map.events[i] != nil
if !$game_map.events[i].erased
$game_map.SEve[$game_map.map_id][i-200] = $game_map.events[i]
end
end
end
end
end
class Load_Eve
def initialize
if $game_map.SEve[$game_map.map_id]!=nil
for i in 0..200
if $game_map.SEve[$game_map.map_id][i] != nil and $game_map.SEve[$game_map.map_id][i] != 0
$game_map.events[i+200]=$game_map.SEve[$game_map.map_id][i]
$scene.spriteset.push_eve(i+200)
end
end
end
end
end
class Dis_A_Eve
def initialize(eve_id)
if $game_map.events[eve_id] != nil
$game_map.events[eve_id].erase
end
end
end
class Dis_Telport_Eve
def initialize
for i in 200..300
if $game_map.events[i] != nil
if $game_map.events[i].tel=1
$game_map.events[i].erase
end
end
end
end
end
class Dis_Eve
def initialize
for i in 200..300
if $game_map.events[i] != nil
$game_map.events[i].erase
end
end
end
end
class Interpreter
alias command_201_seve command_201
def command_201
if !$game_switches[$Eve_Control]
Save_Eve.new
end
command_201_seve
end
end
class Scene_Map
attr_accessor :spriteset
alias transfer_player_seve transfer_player
def transfer_player
transfer_player_seve
if !$game_switches[$Eve_Control]
Load_Eve.new
end
# $Jdll.call("$MOVM"+$game_map.map_id.to_s+" "+$game_player.x.to_s+" "+$game_player.y.to_s+" "+$game_player.direction.to_s+" "+$game_player.move_speed.to_s+" "+$game_player.character_name )
# $Send_Msg_Map="$MOVM"$game_map.map_id.to_s+" "+$game_player.x+" "+$game_player.y+" "++$game_player.direction
end
end
class Spriteset_Map
def push_eve(i)
sprite = Sprite_Character.new(@viewport1, $game_map.events[i])
@character_sprites.push(sprite)
end
end
class Game_Character
attr_accessor :to_x
attr_accessor :to_y
end

复制代码