赞 | 0 |
VIP | 177 |
好人卡 | 10 |
积分 | 1 |
经验 | 12547 |
最后登录 | 2017-8-1 |
在线时间 | 193 小时 |
Lv1.梦旅人
- 梦石
- 0
- 星屑
- 50
- 在线时间
- 193 小时
- 注册时间
- 2013-3-24
- 帖子
- 448
|
加入我们,或者,欢迎回来。
您需要 登录 才可以下载或查看,没有帐号?注册会员
x
本帖最后由 joe5491 于 2013-4-28 16:10 编辑
因為上次發的腳本功能實在是太少了??!!
所以這次重新寫了些沒人寫過的功能並整合?!(應該吧)
提供功能:扔物品、放置物品、丟錢、放置錢、放置經驗、置設傳送點、複製事件、刪除前面的這些東西
詳情看註解~
p.s. 「置設傳送點」這功能是給ARPG用的(玩家可以用它來在同一張地圖內傳來傳去躲攻擊?!)
~~~~~~~~~2013/4/6 15:17 修復重大的Bug~~~~~~~~~~(之前會當掉...)
~~~~~~~~~2013/4/6 22:35 加入新功能~~~~~~~~~~~
~~~~~~~~~2013/4/10 21:30 修正註解~~~~~~~~~~~
~~~~~~~~~2013/4/28 16:09 支援RGSS3forXP並改進效率~~~~~~~~~~~- #========================================================
- #★ 多功能事件 -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
复制代码 .
可以扔物品,不過這介面要自己寫....我只提供方法....
物品丟棄完成!
置設傳送點A
置設傳送點B
怪物來了!!快跑!!
呼~逃走了~
附上範例工程: ARPG腳本是愚零武鬥多提供的,不過已經被我大幅修改了
RMEVENT.rar
(481.77 KB, 下载次数: 316)
|
评分
-
查看全部评分
|