宠物切割脚本

㈠ 谁能给我一个宠物小精灵的脚本

正常情况下取得第七个徽章以后攀岩上去就会进入湖里就会自动发生剧情！你用金手指修改过，不保证有没有那个原因！如果没存档的话~~只能重新玩了

㈡ 求一个宠物森林挂机脚本

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