dim @qz,@ty,@ms,@zx,@zy
dim @dj,@rd,@ox,@oy
let @dj,=,3
let @qz,=,0
let @ty,=,0
msg 《石器so-刷骑宠证》||达到条件后手动继续：||一，记录在渔村储存点。在村外打到一个乌力斯坦的肉就去图腾处记录。|二，道具栏1-4格没有其他物品，因为会把东西移动到1-2格，丢弃3-4格。|三，已经解开物品安全锁。|四，足够换证的石币。|五，将要设置成丢肉、吃肉、自动叠加道具。|六，足够的储存空位，因为会循环寄存同意书。||提醒：||* 开始刷怪时会开启原地保护。|* 会根据人物的最大叠加数来寄存同意书。|* 支持全部种类的储存仓库，按顺序寄存。|* 支持断线重登，需要在外挂-副控中设置服务器和人物。|* 可以自定义刷怪坐标，在脚本代码中‘# 修改开始’到‘# 修改结束’之间修改。
pause
call R根据转数设置
label 开始
call R检查并补充恶魔宝石
set 快速战斗,1
set 自动逃跑,0
set 自动捉宠,0
set 快速遇敌,0
set 原地保护,0
set 自动堆叠,1
set 丢非血肉,1
set 吃补血肉,1
call R回到渔村储存点
call R检查道具已满
ifitem *宠宠同意书,>=,@dj,R储存同意书
let @rd,RND,100
if @rd,>,0.4,+3
call R刷证路线1
goto 跳过回城
call R刷证路线2
label 跳过回城
call R随机走动
call R随机走动
call R随机走动
print 如果身边人多，为了避免丢弃道具失败，可以移动到其他位置。
call R等待战斗结束
set 原地保护,1
useitem 恶魔宝石
waitsay ?,你感受到周边突然充满,1,-1
label 地
call R检查并补充恶魔宝石
ifitem 空位,>=,1,+2
call 战斗中丢弃道具
ifitem *地的石头,>=,3,+3
delay 3000
goto 地
label 水
call R检查并补充恶魔宝石
ifitem 空位,>=,1,+2
call 战斗中丢弃道具
ifitem *水的石头,>=,3,+3
delay 3000
goto 水
label 火
call R检查并补充恶魔宝石
ifitem 空位,>=,1,+2
call 战斗中丢弃道具
ifitem *火的石头,>=,3,+3
delay 3000
goto 火
label 风
call R检查并补充恶魔宝石
ifitem 空位,>=,1,+2
call 战斗中丢弃道具
ifitem *风的石头,>=,3,+3
delay 3000
goto 风
label 去换书
set 原地保护,0
call R回到渔村储存点
delay 500
walkpos 87,51
walkpos 85,51
walkpos 83,51
walkpos 81,51
walkpos 79,51
walkpos 79,53
walkpos 75,53
walkpos 71,53
walkpos 68,53
walkpos 68,50
w 0,0,西
ifitem 空位,>,2,+2
call 移动并丢弃道具
say hi
waitdlg 欢迎,1,1,去换书
button 确定
waitdlg 请选择,1,1,去换书
button 1
waitdlg 需要,1,1,去换书
button 确定
delay 500
ifitem *宠宠同意书,>=,@dj,R换书后储存同意书
goto 开始

label R刷证路线1
walkpos 88,51
walkpos 88,53
walkpos 88,55
walkpos 88,57
walkpos 88,59
walkpos 88,61
walkpos 88,63
walkpos 88,65
walkpos 90,65
walkpos 92,65
walkpos 94,65
walkpos 96,65
walkpos 98,65
walkpos 100,65
walkpos 102,65
walkpos 104,65
walkpos 104,67
walkpos 104,69
walkpos 104,71
walkpos 106,71
walkpos 106,73
walkpos 106,75
walkpos 106,77
walkpos 106,79
walkpos 108,79
waitmap 100,1,-2
'# 修改开始1
walkpos 116,660
walkpos 118,660
walkpos 120,660
'# 修改结束1
return

label R刷证路线2
walkpos 87,51 
walkpos 85,51 
walkpos 83,51 
walkpos 81,51 
walkpos 79,51 
walkpos 77,51 
walkpos 77,49 
walkpos 77,47 
walkpos 76,46 
walkpos 75,45 
walkpos 74,44 
walkpos 73,43 
walkpos 72,42 
walkpos 72,40 
walkpos 72,38 
walkpos 72,36 
walkpos 73,35 
walkpos 74,34 
waitmap 100,1,-1
'# 修改开始2
walkpos 80,614 
walkpos 81,613 
walkpos 81,611 
walkpos 82,610 
'# 修改结束2
return

label R换书后储存同意书
walkpos 68,52 
walkpos 68,54 
walkpos 68,56 
walkpos 68,58 
walkpos 68,60 
walkpos 68,62 
walkpos 68,64 
walkpos 68,66 
walkpos 68,68 
walkpos 68,70 
walkpos 68,72 
walkpos 68,74 
walkpos 69,75 
walkpos 70,76 
walkpos 70,78 
walkpos 70,80 
walkpos 70,82 
walkpos 70,84 
walkpos 70,86 
walkpos 70,88 
walkpos 70,90 
walkpos 70,92 
walkpos 69,93 
walkpos 68,93 
goto C开始储存同意书


label R储存同意书
walkpos 87,51
walkpos 85,51
walkpos 83,51
walkpos 83,53
walkpos 81,53
walkpos 79,53
walkpos 79,55
walkpos 79,57
walkpos 79,59
walkpos 79,61
walkpos 79,63
walkpos 79,65
walkpos 79,67
walkpos 79,69
walkpos 77,69
walkpos 77,71
walkpos 77,73
walkpos 76,73
walkpos 76,75
walkpos 76,77
walkpos 74,77
walkpos 72,77
walkpos 70,77
walkpos 70,79
walkpos 70,81
walkpos 70,83
walkpos 70,85
walkpos 70,87
walkpos 70,89
walkpos 70,91
walkpos 70,93
walkpos 68,93 
goto C开始储存同意书

label C开始储存同意书
walkpos 68,94 
w 68,94,E 
say hi
waitdlg 欢迎光临,1,1,C开始储存同意书
button 1
waitdlg 超过的,1,1,C寄存已满处理结束
button OK
waitdlg 欢迎光临,1,1,C开始储存同意书
button 3
waitdlg 使用道具仓库,1,1,C开始储存同意书
button 1
label C寄存已满处理结束
delay 500
put 宠宠同意书
call R添加骑宠证
goto 开始
 
label 移动并丢弃道具
delay 500
iffight !=,0,-1
moveitem 宠宠同意书,1
delay 500
moveitem 恶魔宝石,2
delay 500
call R丢多余的石头
delay 500
check 道具,空位,>=,2,+2
goto -3
return 

label 移动并丢弃道具1
delay 500
iffight !=,0,-1
moveitem 宠宠同意书,1
delay 500
moveitem 恶魔宝石,2
delay 500
label C丢弃一个
ifitem 地的石头,<=,3,+3
doffitem ?地的石头
return
ifitem 水的石头,<=,3,+3
doffitem ?水的石头
return
ifitem 火的石头,<=,3,+3
doffitem ?火的石头
return
ifitem 风的石头,<=,3,+2
doffitem ?风的石头
doffitem 4
delay 500
ifitem 4,=,空位,+2
goto C丢弃一个
return 
 
label 战斗中丢弃道具
call R取消原地遇敌
delay 500
iffight !=,0,-2
check 道具,空位,>=,2,C空位已满足
delay 500
moveitem 宠宠同意书,1
delay 500
moveitem 恶魔宝石,2
delay 500
call R丢多余的石头
delay 500
check 道具,空位,>=,2,C空位已满足
goto -3
label C空位已满足
delay 500
call R检查并补充恶魔宝石
set 原地保护,1
delay 500
useitem 恶魔宝石
return 
 
label R等待战斗结束
delay 500
iffight !=,0,-1
return
 
label R检查道具已满
ifitem *水的石头,<,3,C道具未满
ifitem *火的石头,<,3,C道具未满
ifitem *风的石头,<,3,C道具未满
ifitem *地的石头,<,3,C道具未满
goto 去换书
label C道具未满
return
 
label R取消原地遇敌
set 原地保护,0
let @zx,=,@[座标X]
let @zy,=,@[座标Y]
let @zx,+,1
call R等待战斗结束
walkpos @zx,@zy
let @zx,-,1
delay 500
call R等待战斗结束
walkpos @zx,@zy
return
 
label R检查并补充恶魔宝石
ifitem ?,=,恶魔宝石,从检查恶魔宝石中返回
set 原地保护,0
call R回到渔村储存点
delay 500
walkpos 86,51
walkpos 84,51
walkpos 82,51
walkpos 79,51
walkpos 76,51
walkpos 76,54
walkpos 76,56
walkpos 73,56
walkpos 70,56
walkpos 67,56
walkpos 64,56
walkpos 61,56
label 重复确认购买恶魔宝石
ifitem 空位,>=,1,+2
call 移动并丢弃道具1
walkpos 60,56
say hi
waitdlg ?,0,1,重复确认购买恶魔宝石
button 1
waitdlg ?,0,1,重复确认购买恶魔宝石
buy 2,1
delay 500
ifitem *,=!,恶魔宝石,重复确认购买恶魔宝石
goto 开始
label 从检查恶魔宝石中返回
return

label R回到渔村储存点
delay 100
iffight >,0,-1
ifmap 2000,+2
goto +2
ifpos 89,51,+5
set 自动逃跑,1
log 1
waitmap 2000,1,R回到渔村储存点
set 自动逃跑,0
return

label R添加骑宠证
let @ty,+,1
if @ty,<,4,C完成添加骑宠证
let @ty,=,0
let @qz,+,1
let @ms,=,刷了
let @ms,&,@qz
let @ms,&,个骑宠证。
print @ms
label C完成添加骑宠证
return

label .log.
label .err.
set 断线重登,1
set 自动登陆,1
delay 6000
waitdlg ?,0,1,+2
button OK
call R使用恶魔宝石
goto 开始
end 

label R使用恶魔宝石
call R检查并补充恶魔宝石
useitem 恶魔宝石
delay 1000
check 说话,?,like,你感受到周边突然充满*,+2
goto -4
return

label R根据转数设置
check 人物,转生,!=,1,+3
let @dj,=,4
goto C根据转数设置结束
check 人物,转生,!=,2,+3
let @dj,=,5
goto C根据转数设置结束
check 人物,转生,!=,3,+3
let @dj,=,6
goto C根据转数设置结束
check 人物,转生,!=,4,+3
let @dj,=,7
goto C根据转数设置结束
check 人物,转生,!=,5,+3
let @dj,=,8
goto C根据转数设置结束
check 人物,转生,!=,6,+3
let @dj,=,9
goto C根据转数设置结束
label C根据转数设置结束
return

label .end.
set 原地保护,0
end

label R丢多余的石头
ifitem 地的石头,<=,3,+3
doffitem ?地的石头
return
ifitem 水的石头,<=,3,+3
doffitem ?水的石头
return
ifitem 火的石头,<=,3,+3
doffitem ?火的石头
return
ifitem 风的石头,<=,3,+2
doffitem ?风的石头
doffitem 3-4
return

label R随机走动
let @ox,=,@[座标X]
let @oy,=,@[座标Y]
let @rd,RND,100
if @rd,>,0.4,+3
let @ox,+,1
goto +2
let @ox,-,1
delay 100
let @rd,RND,100
if @rd,>,0.4,+3
let @oy,+,1
goto +2
let @oy,-,1
walkpos @ox,@oy
return