寵物切割腳本

㈠ 誰能給我一個寵物小精靈的腳本

正常情況下取得第七個徽章以後攀岩上去就會進入湖裡就會自動發生劇情！你用金手指修改過，不保證有沒有那個原因！如果沒存檔的話~~只能重新玩了

㈡ 求一個寵物森林掛機腳本

UserVar hong=70 滿足低於%時，自動餵食。
UserVar var4=3 選擇要進入的副本（1--5）
UserVar var5=1 自動餵食（1是，0否）
VBS f=var4*76
VBS dim hong,,var4,var3,var2,var1,vae5
Delay 60
Plugin w=Window.Foreground()
Delay 60
Plugin Window.Move(w,0,0)
Delay 1000
If var6=1
WaitKey 1
Delay 100
Plugin w1=Window.Foreground()
Delay 60
Plugin Window.Move(w1,250,0)
Delay 100
EndIf
Delay 200
UserVar var1=0 F2技能是否使用（1是，0否）
UserVar var2=0 F3技能是否使用（1是，0否）
UserVar var3=0 F4技能是否使用（1是，0否）
VBS t=1000:t1=100
Gosub 副本確認
Rem 開始
Gosub 總控制台
Delay t1
Goto 開始
Sub 箭頭
Gosub 關閉
Delay 500
IfColor 315,164,8c8e8c,0
VBS y=300
Delay 60
While y<=510
VBS x=280
While x<=760
Delay 60
VBSCall Call SetCursorPos(x,y)
Delay 60
LeftClick 1
Delay 60
VBS x=x+60
EndFor
VBS y=y+70
EndFor
EndIf
Return 箭頭
Sub 總控制台
Delay 100
VBS k=0
Gosub 確認色子
If b=1
Delay t1
If var5=1
Gosub 確認餵食
EndIf
Gosub 採集
Gosub 找怪
EndIf
Gosub 確認色子
If b=0
Gosub 確認戰斗
EndIf
If k=0
Gosub 副本確認
EndIf
Return 總控制台
Sub 找怪
IfColor 331,170,ffffff,0
Gosub 關閉
Delay t1
KeyPress 112,1
Delay 1000
VBS k=k+1
Delay 5000
Else
Gosub 人物
EndIf
Return 找怪
Sub 人物
VBS r=0
VBSCall FindColorEx(933,198,985,240,"000065",1,0.8,x,y)
Delay 100
If x>0 and y>0
Delay 60
MoveTo x y
Delay 500
LeftClick 1
Delay 60
VBS r=r+1
VBS k=k+1
EndIf
If r=0
Gosub 箭頭
EndIf
Return 人物
Sub 戰斗狀態
Rem 01
IfColor 982,221,8eff,0
Goto 003
Else
Gosub 總控制台
EndIf
Rem 003
IfColor 915,249,0,0
Goto 001
Else
Gosub 總控制台
EndIf
Rem 001
IfColor 979,310,ffffff,1
Delay 500
Goto 01
Else
EndIf
Return 戰斗狀態
Sub 確認戰斗
Gosub 關閉2
IfColor 982,221,8eff,0
Goto 00002
Else
Goto 00003
EndIf
Rem 00002
IfColor 915,249,0,0
Delay t1
VBS k=k+1
Delay t1
Gosub 戰斗
Else
EndIf
Rem 00003
Return 確認戰斗
Sub 技能01
Delay t1
VBSCall findcolor(741,242,909,319,"0004ef",x,y)
If X>0 and Y>0
Delay 100
MoveTo x,y
Delay 500
LeftClick 1
EndIf
Return 技能01
Sub 副本確認
Delay 500
Gosub 確認色子
If b=0
Gosub 確認副本2
EndIf
Return 副本確認
Sub 戰斗
Gosub 看藍
VBS z=0
While z<=3
Gosub 戰斗狀態
Delay t1
If z=0
Delay t1
KeyPress 112,1
Goto 00001
EndIf
If z=1
Delay t1
If Var1=1
KeyPress 113,1
Goto 00001
EndIf
EndIf
If z=2
Delay t1
If Var2=1
KeyPress 114,1
Goto 00001
EndIf
EndIf
If z=3
Delay t1
If Var3=1
KeyPress 115,1
Goto 00001
EndIf
EndIf
Rem 00001
Delay t1
Gosub 技能01
Delay 200
If var6=1
Gosub 戰斗2
EndIf
VBS z=z+1
EndWhile
Return 戰斗
Sub 確認色子
Gosub 關閉
VBS b=0
IfColor 290,150,0,0
Goto o1
Else
Goto o2
EndIf
Rem o1
IfColor 290,150,0,0
Delay t1
VBS b=b+1
EndIf
Rem o2
Return 確認色子
Sub 確認副本2
Delay 900
KeyPress 90,1
Delay 100
VBSCall FindPic(0,0,1024,768,"h1.bmp",0.8,x,y)
If x>=0 and y>=0
Delay 900
KeyPress 90,1
Delay 1000
Gosub 進入副本
Delay 1000
Gosub 總控制台
EndIf
Delay 800
KeyPress 90,1
Delay 200
Gosub 總控制台
Return 確認副本2
Sub 關閉
VBSCall FindPic(640,65,807,164,"h2.bmp",0.8,x,y)
If x>=0 and y>=0
Delay 500
KeyPress 90,1
EndIf
Return 關閉
Sub 進入副本
Delay 500
KeyPress 90,1
Delay 100
VBSCall FindPic(0,0,1024,768,"h1.bmp",0.8,x,y)
If x>=0 and y>=0
MoveTo x+5,y+f
Delay 200
LeftClick 1
Delay 1000
MoveTo 358,315
Delay t1
LeftClick 1
Delay 1000
MoveTo 743,688
Delay t1
LeftClick 1
Delay 1000
MoveTo 581,462
Delay t1
LeftClick 1
Delay 1000
Goto 進入延時
EndIf
Delay 800
KeyPress 90,1
Delay 200
Return 進入副本
Sub 進入延時
Rem y1
Gosub 確認色子
If b=1
Delay 100
IfColor 331,170,ffffff,0
Goto 開始
EndIf
EndIf
Delay 1000
Goto y1
Return 進入延時
Sub 餵食
If ws=1
Goto ws01
EndIf
VBSCall FindPic(0,0,1024,768,"h5.bmp",0.8,x,y)
If x>=0 and y>=0
MoveTo x,y
LeftClick 1
Delay 200
EndIf
Rem ws02
VBSCall FindColorEx(667,275,724,331,"bdbebd",1,0.8,x,y)
If x>=0 and y>=0
MoveTo x,y
Delay 300
LeftClick 1
Else
VBS Var5=0
Goto ws01
EndIf
IfColor hong/100*(583-497)+497 288 0 2
Delay 100
Goto ws02
Else
Delay 60
KeyPress 80,1
Delay 60
EndIf
EndIf
Rem ws01
Return 餵食
Sub 確認餵食
KeyPress 80,1
Delay 1000
VBS ws=1
Delay 60
IfColor hong/100*(583-497)+497 288 0 2
Delay 300
VBS ws=ws+1
Else
KeyPress 80,1
Delay 60
Gosub 找怪
EndIf
If var5=1
Gosub 餵食
EndIf
Delay t1
If var7=1
Gosub 餵食2
EndIf
Return 確認餵食
Sub 關閉2
VBSCall FindPic(583,31,672,80,"h2.bmp",0.8,x,y)
If x>=0 and y>=0
Delay 500
KeyPress 80,1
EndIf
Return 關閉2
Sub 關閉3
VBSCall FindPic(833,31,922,80,"h2.bmp",0.8,x,y)
If x>=0 and y>=0
Delay 500
KeyPress 80,1
EndIf
Return 關閉3
Sub 採集
VBSCall FindPic(0,0,1024,768,"hc1.bmp",0.8,x,y)
If x>=0 and y>=0
MoveTo x,y
LeftClick 1
Delay 200
EndIf
Return 採集

㈢ 九天仙夢聽說很多人都用腳本抓寵物， 我剛學按鍵腳本，編了個用起來不對頭啊，誰可以給個好用的 謝謝了

表示沒玩過那游戲，另外問個事，有什麼新出的橫版游戲么？鍵盤操控的游戲，滑鼠點擊的什麼3D的不要，我最近打算換游戲寫腳本了

㈣ 無心寵物掛機腳本

有啊``掛機腳本有好象``以前有看過

㈤ RPG Maker XP寵物系統腳本

需要准備：1. 資料庫—— 角色欄 —— 增加一個角色「幽靈」
2. 資料庫—— 物品欄 —— 增加兩個物品（1.幽靈寵物蛋。
2.召回寵物幽靈。）

公共事件：1.變數操作：變數（xxx）=同伴人數
條件分歧：變數（xxx）<=4
（這里用作限制隊伍人數，假設最多4個人）
替換隊員：「幽靈」加入隊伍

得失物品：「召回寵物幽靈」+1
除此以外的場合
顯示文章：

已達隊伍人數上限！
得失物品：「幽靈寵物蛋」 +1

分歧結束

2. 替換隊員：「幽靈」離開隊伍

得失物品：「幽靈寵物蛋」+1

最後，用物品「幽靈寵物蛋」觸發公共事件1，用「召回寵物幽靈」觸發公共事件2.
如果有兩個同樣的蛋，使用兩次的話，隊伍裡面還是只有一個「幽靈」。

引用於：http://bbs.66rpg.com/thread-254031-1-1.html 4樓回答

㈥ 暗黑破壞神三有什麼可以刷寵物磨腳本嗎😥手刷要吐了😞

刷寵物的我記得以前某寶上有，主要是刷園長，現在不知道還有沒有，你可以去問問。

㈦ 傳奇私服限制寵物數量的腳本怎麼寫

checkjob Wizard (這里是法師的職業檢測可以去掉不限職業了)；CheckSlaveCount <2 (這里的數量限制是1隻)。

傳奇私服裡面的BOSS打死之後可以捉到什麼 ：

剛進去游戲的時候可以領取一個最垃圾的傭兵，傭兵的品質也是隨即給予的，有普通的，上品，稀有，非凡等，感覺與夢幻西遊的寶寶一樣，系統隨機贈送的。

學習的技能好像也是隨機出現的，不過直到現在，小編的傭兵居然沒有學會靈魂火服與施毒術，只有一個召喚神獸勉強可以用用，不過還好了，有總比沒有強啊。

不過傭兵的強大真心讓人咋舌，攻擊力啥的真是太強大了，比人物要不知道強多少倍。裡面的BOSS血量也真是厲害，動不動就幾百萬的血量，嚇得我都懷疑自己的眼睛。

除了傭兵的強大之外，還有更厲害的，就是寵物，居然可以召喚寵物，除了剛開始系統贈送的寵物之外，進入游戲之後只要把BOSS打死，都有幾率產生寵物蛋。

並且寵物蛋孵化之後，有變異寵物與稀有寵物之分，截止到目前為止，就打過一個祖瑪教主變成了寵物，只可惜沒有捉到讓跑了。

裡面的裝備出處居然不是靠打BOSS出的，是靠野外開寶箱才能得到的，並且寶箱這樣的道具都是可遇不可求的東西。

目前為止就看到了一個初級寶箱，打開之後裡面掉落了一件鳳天魔衣，不過裝備的屬性值數真是大，動不動一件衣服防禦就幾百幾千，首飾也是一樣的，極品的也不好出。

升級就更加另類了，在傳統的私服當中一般都是靠打怪升級的，而這個私服的升級方式讓人覺得很無語，居然是靠挖礦來升級的。

挖出的礦石可以換成經驗值，索性就申請了3個小號，直接在挖礦地圖掛起來，挖出的礦都交易給大號，升級果然比打怪要快很多。

㈧ 求英雄無敵3WOG 寵物全技能/全寶物腳本，有其他的好腳本一並發給我 謝謝！

你版本date/s里沒有嗎?

那你試試看下載這個能不能行

㈨ 下載了寵物對戰腳本編輯器導入腳本不能保存,提示錯誤

腳本問題、網速慢、插件沖突。
1、寵物對戰頁面中的腳本編輯器因為技術人員沒有很好的處理好代碼的兼容性或一些細節沒有處理到，導致保存錯誤。但有時候確實不影響使用，這類錯誤就需要程序開發人員來解決。
2、因為網速較慢，導致後面的執行無法繼續進行導致保存提示錯誤，這種情況刷新下頁面載入正常了即可解決問題。
3、是客戶端安裝了一些軟體或瀏覽器安裝了一些插件也會導致保存錯誤，那麼這種情況就比較麻煩了，一般情況我們都是重新安裝下IE軟體才能得到解決。

㈩ RPG Maker XP寵物腳本或有寵物腳本的文檔

6R的柳柳有個抓寵物的腳本
#==============================================================================
# ■ Scene_Battle (分割定義 2)
#------------------------------------------------------------------------------
# 處理戰斗畫面的類。
#==============================================================================

class Scene_Battle
#--------------------------------------------------------------------------
# ● 開始自由戰斗回合
#--------------------------------------------------------------------------
def start_phase1
# 轉移到回合 1
@phase = 1
# 清除全體同伴的行動
$game_party.clear_actions
# 設置戰斗事件
setup_battle_event
end
#--------------------------------------------------------------------------
# ● 刷新畫面 (自由戰斗回合)
#--------------------------------------------------------------------------
def update_phase1
# 勝敗判定
if judge
# 勝利或者失敗的情況下 : 過程結束
return
end
# 開始同伴命令回合
start_phase2
end
#--------------------------------------------------------------------------
# ● 開始同伴命令回合
#--------------------------------------------------------------------------
def start_phase2
# 轉移到回合 2
@phase = 2
# 設置角色為非選擇狀態
@actor_index = -1
@active_battler = nil
# 有效化同伴指令窗口
@party_command_window.active = true
@party_command_window.visible = true
# 無效化角色指令窗口
@actor_command_window.active = false
@actor_command_window.visible = false
# 清除主回合標志
$game_temp.battle_main_phase = false
# 清除全體同伴的行動
$game_party.clear_actions
# 不能輸入命令的情況下
unless $game_party.inputable?
# 開始主回合
start_phase4
end
end
#--------------------------------------------------------------------------
# ● 刷新畫面 (同伴命令回合)
#--------------------------------------------------------------------------
def update_phase2
# 按下 C 鍵的情況下
if Input.trigger?(Input::C)
# 同伴指令窗口游標位置分支
case @party_command_window.index
when 0 # 戰斗
# 演奏確定 SE
$game_system.se_play($data_system.decision_se)
# 開始角色的命令回合
start_phase3
when 1 # 逃跑
# 不能逃跑的情況下
if $game_temp.battle_can_escape == false
# 演奏凍結 SE
$game_system.se_play($data_system.buzzer_se)
return
end
# 演奏確定 SE
$game_system.se_play($data_system.decision_se)
# 逃走處理
update_phase2_escape
end
return
end
end
#--------------------------------------------------------------------------
# ● 畫面更新 (同伴指令回合 : 逃跑)
#--------------------------------------------------------------------------
def update_phase2_escape
# 計算敵人速度的平均值
enemies_agi = 0
enemies_number = 0
for enemy in $game_troop.enemies
if enemy.exist?
enemies_agi += enemy.agi
enemies_number += 1
end
end
if enemies_number > 0
enemies_agi /= enemies_number
end
# 計算角色速度的平均值
actors_agi = 0
actors_number = 0
for actor in $game_party.actors
if actor.exist?
actors_agi += actor.agi
actors_number += 1
end
end
if actors_number > 0
actors_agi /= actors_number
end
# 逃跑成功判定
success = rand(100) < 50 * actors_agi / enemies_agi
# 成功逃跑的情況下
if success
# 演奏逃跑 SE
$game_system.se_play($data_system.escape_se)
# 還原為戰斗開始前的 BGM
$game_system.bgm_play($game_temp.map_bgm)
# 戰斗結束
battle_end(1)
# 逃跑失敗的情況下
else
# 清除全體同伴的行動
$game_party.clear_actions
# 開始主回合
start_phase4
end
end
#--------------------------------------------------------------------------
# ● 開始結束戰斗回合
#--------------------------------------------------------------------------
def start_phase5
# 轉移到回合 5
@phase = 5
# 演奏戰斗結束 ME
$game_system.me_play($game_system.battle_end_me)
# 還原為戰斗開始前的 BGM
$game_system.bgm_play($game_temp.map_bgm)
# 初始化 EXP、金錢、寶物
exp = 0
gold = 0
treasures = []
# 循環
for enemy in $game_troop.enemies
# 敵人不是隱藏狀態的情況下
unless enemy.hidden
# 獲得 EXP、增加金錢
exp += enemy.exp
gold += enemy.gold
# 出現寶物判定
if rand(100) < enemy.treasure_prob
if enemy.item_id > 0
treasures.push($data_items[enemy.item_id])
end
if enemy.weapon_id > 0
treasures.push($data_weapons[enemy.weapon_id])
end
if enemy.armor_id > 0
treasures.push($data_armors[enemy.armor_id])
end
end
end
end
# 限制寶物數為 6 個
treasures = treasures[0..5]
# 獲得 EXP
for i in 0...$game_party.actors.size
actor = $game_party.actors[i]
if actor.cant_get_exp? == false
last_level = actor.level
actor.exp += exp
if actor.level > last_level
@status_window.level_up(i)
end
end
end
# 獲得金錢
$game_party.gain_gold(gold)
# 獲得寶物
for item in treasures
case item
when RPG::Item
$game_party.gain_item(item.id, 1)
when RPG::Weapon
$game_party.gain_weapon(item.id, 1)
when RPG::Armor
$game_party.gain_armor(item.id, 1)
end
end
# 生成戰斗結果窗口
@result_window = Window_BattleResult.new(exp, gold, treasures)

#調用成長的設置再行檢查
$game_temp.common_event_id = 3

# 設置等待計數
@phase5_wait_count = 100
end
#--------------------------------------------------------------------------
# ● 畫面更新 (結束戰斗回合)
#--------------------------------------------------------------------------
def update_phase5
# 等待計數大於 0 的情況下
if @phase5_wait_count > 0
# 減少等待計數
@phase5_wait_count -= 1
# 等待計數為 0 的情況下
if @phase5_wait_count == 0
# 顯示結果窗口
@result_window.visible = true
# 清除主回合標志
$game_temp.battle_main_phase = false
# 刷新狀態窗口
@status_window.refresh
end
return
end
# 按下 C 鍵的情況下
if Input.trigger?(Input::C)
# 戰斗結束
battle_end(0)
end
end
end