dim @md,@tm,@si,@pn,@pp
dim @ig,@tl,@wl,@nl,@sd
dim @cn,@cm,@ll,@tt,@nt
dim @ft,@nf,@lc,@zx,@tg
dim @rd,@ox,@oy
let @tg,=,0
let @md,=,0
let @ig,=,0
let @tl,=,0
let @wl,=,0
let @nl,=,0
let @sd,=,0
let @cn,=,1
let @nf,=,0
msg 《石器so-培养玛蕾菲雅》||达成条件后手动继续：||一，记录在渔村储存点。在村外打到一个乌力斯坦的肉就去图腾处记录。|二，足够买灵石项链的资源。||提醒：||* 买灵石项链时如果没有足够的道具空格、资源则会暂停。|* 只会在73级前/初始和73级/终末补满灵石。|* 选择玛蕾菲雅的位置依据外挂-资料所显示。|* 如果选择了改名则会在结束前把全部玛蕾菲雅的名字恢复。
pause

label C输入选择对象
input @md,选择输入要培养的玛蕾菲雅的位置，从1到5，0是培养全部。,# 选择对象
if @md,<,0,C输入选择对象
if @md,>,5,C输入选择对象
call R检测玛蕾菲雅
if @md,=,0,+3
let @pn,=,宠物
let @pn,&,@md
input @ig,是否忽略培养某方面的属性？输入1则是。,# 忽略属性
if @ig,!=,1,C输入忽略属性结束
input @nl,是否忽略培养耐力？输入1则是。# 忽略耐力
input @tl,是否忽略培养体力？输入1则是。# 忽略体力
input @wl,是否忽略培养腕力？输入1则是。# 忽略腕力
input @sd,是否忽略培养速度？输入1则是。# 忽略速度
label C输入忽略属性结束
input @cn,是否为玛蕾菲雅改名来判断喂养状态？输入1则是。,# 改名判断
input @tg,是否跳过73级前/初始喂养？输入1则是。,# 初始喂养
call R设置信息
msg @si
pause

label 主程序
set 快速战斗,1
set 自动逃跑,0
set 自动捉宠,0
if @cn,!=,1,+3
let @ft,=,初始
let @lc,=,初始
if @tg,=,1,+4
call R检查喂养
if @nf,=,0,+2
call R喂养
if @md,!=,0,+2
call R练级73
if @md,=,0,+2
call R单程练级73
if @cn,!=,1,+3
let @ft,=,终末
let @lc,=,终末
call R检查喂养
if @nf,=,0,+2
call R喂养
if @md,!=,0,+2
call R练级79
if @md,=,0,+2
call R单程练级79
set 自动逃跑,0
if @cn,!=,1,+2
call R恢复玛蕾菲雅的名字
beep
msg 已完成培养玛蕾菲雅。
end

label R喂养
check 地图,编号,=,2000,+3
call R回城
goto +3
check 座标,=,57,55,C已经到达地点
call R回城
walkpos 87,51 
walkpos 85,51 
walkpos 83,51 
walkpos 81,51 
walkpos 79,51 
walkpos 77,51 
walkpos 76,52 
walkpos 75,53 
walkpos 74,54 
walkpos 73,55 
walkpos 71,55 
walkpos 69,55 
walkpos 67,55 
walkpos 65,55 
walkpos 63,55 
walkpos 61,55 
walkpos 59,55 
walkpos 57,55 
label C已经到达地点
if @md,!=,0,+2
call R喂养全部
if @md,=,0,+2
call R喂养一个
return

label R喂养一个
let @pp,=,@md
ifpet @pp,!=,玛蕾菲雅,C喂养一个结束
let @tm,=,宠物
let @tm,&,@pp
check @tm,LV,>,73,C喂养一个结束
let @cm,=,@ft
if @nl,=,1,+3
let @cm,&,地
call R喂养地灵石
if @tl,=,1,+3
let @cm,&,水
call R喂养水灵石
if @wl,=,1,+3
let @cm,&,火
call R喂养火灵石
if @sd,=,1,+3
let @cm,&,风
call R喂养风灵石
label C喂养一个结束
return

label R喂养全部
let @pp,=,0
label C轮流喂养
let @pp,+,1
if @pp,>,5,C喂养全部结束
ifpet @pp,!=,玛蕾菲雅,C轮流喂养
let @tm,=,宠物
let @tm,&,@pp
if @lc,=,终末,+2
check @tm,LV,=,73,C轮流喂养
check @tm,LV,>,73,C轮流喂养
let @cm,=,@ft
if @nl,=,1,+3
let @cm,&,地
call R喂养地灵石
if @tl,=,1,+3
let @cm,&,水
call R喂养水灵石
if @wl,=,1,+3
let @cm,&,火
call R喂养火灵石
if @sd,=,1,+3
let @cm,&,风
call R喂养风灵石
if @md,!=,0,+2
goto C轮流喂养
label C喂养全部结束
return

label R喂养地灵石
cls
check 对话,1,=,专卖,C继续购买地灵石
call R检测道具空位
walkpos 57,55 
w 57,55,E 
say hi
waitdlg 专卖,1,1,R喂养灵石
button 1
waitdlg 专卖,1,1,R喂养灵石
label C继续购买地灵石
buy 2,1
waititem ?,地灵项链,1,call R购买失败
useitem ?地灵项链,@pp
delay 500
check 说话,?,like,玛蕾菲雅：耐久*已经达到最高*,+2
goto R喂养地灵石
label C喂养地灵石结束
if @cn,!=,1,+4
let @tm,=,宠物
let @tm,&,@pp
chname @tm,@cm
return

label R喂养水灵石
cls
check 对话,1,=,专卖,C继续购买水灵石
call R检测道具空位
walkpos 57,55 
w 57,55,E 
say hi
waitdlg 专卖,1,1,R喂养灵石
button 1
waitdlg 专卖,1,1,R喂养灵石
label C继续购买水灵石
buy 3,1
waititem ?,水灵项链,1,call R购买失败
useitem ?水灵项链,@pp
delay 500
check 说话,?,like,玛蕾菲雅：体力*已经达到最高*,+2
goto R喂养水灵石
label C喂养水灵石结束
if @cn,!=,1,+4
let @tm,=,宠物
let @tm,&,@pp
chname @tm,@cm
return

label R喂养火灵石
cls
check 对话,1,=,专卖,C继续购买火灵石
call R检测道具空位
walkpos 57,55 
w 57,55,E 
say hi
waitdlg 专卖,1,1,R喂养灵石
button 1
waitdlg 专卖,1,1,R喂养灵石
label C继续购买火灵石
buy 4,1
waititem ?,火灵项链,1,call R购买失败
useitem ?火灵项链,@pp
delay 500
check 说话,?,like,玛蕾菲雅：腕力*已经达到最高*,+2
goto R喂养火灵石
label C喂养火灵石结束
if @cn,!=,1,+4
let @tm,=,宠物
let @tm,&,@pp
chname @tm,@cm
return

label R喂养风灵石
cls
check 对话,1,=,专卖,C继续购买风灵石
call R检测道具空位
walkpos 57,55 
w 57,55,E 
say hi
waitdlg 专卖,1,1,R喂养灵石
button 1
waitdlg 专卖,1,1,R喂养灵石
label C继续购买风灵石
buy 5,1
waititem ?,风灵项链,1,call R购买失败
useitem ?风灵项链,@pp
delay 500
check 说话,?,like,玛蕾菲雅：速度*已经达到最高*,+2
goto R喂养风灵石
label C喂养风灵石结束
if @cn,!=,1,+4
let @tm,=,宠物
let @tm,&,@pp
chname @tm,@cm
return

label R购买失败
msg 购买失败，请处理后手动继续。
pause
return


label R检测道具空位
ifitem 空位,>=,1,C检测道具空位返回
label 处理空位不足
msg 道具空位不足1个，请处理后继续。
pause
goto R检测道具空位
label C检测道具空位返回
return

label R回城
delay 100
iffight >,0,-1
check 地图,编号,=,2000,+3
log 1
goto +3
check 座标,=,89,51,+2
log 1
waitmap 2000,1,R回城
return

label R设置信息
let @si,=,《设置的信息》|
let @si,&,|* 培养对象：
if @md,!=,0,+3
let @si,&,全部
goto +4
let @tm,=,宠物
let @tm,&,@md
let @si,&,@tm
let @si,&,|* 忽略属性：
if @ig,!=,0,+3
let @si,&,无
goto C忽略属性信息结束
if @tl,!=,1,+2
let @si,&,（体力）
if @wl,!=,1,+2
let @si,&,（腕力）
if @nl,!=,1,+2
let @si,&,（耐力）
if @sd,!=,1,+2
let @si,&,（速度）
label C忽略属性信息结束
let @si,&,|* 改名判断：
if @cn,!=,1,+3
let @si,&,是
goto +2
let @si,&,不
let @si,&,|* 初始喂养：
if @tg,!=,1,+3
let @si,&,不
goto +2
let @si,&,是
let @si,&,||确认后手动继续。
return

label R小于10级练级
call R补充恶魔宝石
call R回城
walkpos 87,51 
walkpos 85,51 
walkpos 83,51 
walkpos 81,51 
walkpos 79,51 
walkpos 77,51 
walkpos 76,50 
walkpos 76,48 
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,R小于10级练级
walkpos 80,614 
walkpos 81,613 
walkpos 82,612 
walkpos 82,610 
call R随机走动
call R随机走动
call R随机走动
waitmap 100,1,R小于10级练级
delay 100
iffight >,0,-1
set 自动逃跑,0
set 原地保护,1
useitem 恶魔宝石
waitsay ?,你感受到周边突然充满,1,-1
return
 
label R小于20级练级
call R补充恶魔宝石
call R回城
walkpos 87,51 
walkpos 85,51 
walkpos 83,51 
walkpos 81,51 
walkpos 79,51 
walkpos 78,52 
walkpos 77,53 
walkpos 76,54 
walkpos 75,55 
walkpos 73,55 
walkpos 71,55 
walkpos 69,55 
walkpos 67,55 
w 67,55,A
say hi
waitdlg 传送到哪里,1,1,-3
button 1
waitmap 10001,1,R小于20级练级
set 自动逃跑,1
walkpos 11,11 
walkpos 11,13 
walkpos 11,15 
walkpos 11,17 
walkpos 12,18 
walkpos 13,19 
walkpos 15,19 
walkpos 17,19 
walkpos 19,19 
walkpos 21,19 
walkpos 23,19 
walkpos 24,18 
walkpos 25,17 
walkpos 26,16 
walkpos 27,15 
walkpos 28,14 
walkpos 29,13 
walkpos 30,12 
walkpos 31,11 
walkpos 32,10 
walkpos 33,9 
walkpos 34,8 
walkpos 36,8 
walkpos 37,7 
walkpos 38,6 
walkpos 39,5 
walkpos 40,4 
walkpos 40,3 
waitmap 100,1,R小于20级练级
walkpos 189,365 
walkpos 187,365 
walkpos 186,366
walkpos 185,366
call R随机走动
call R随机走动
call R随机走动
waitmap 100,1,R小于20级练级
delay 100
iffight >,0,-1
set 自动逃跑,0
set 原地保护,1
useitem 恶魔宝石
waitsay ?,你感受到周边突然充满,1,-1
return

label R小于30级练级
call R补充恶魔宝石
call R回城
walkpos 87,51 
walkpos 85,51 
walkpos 83,51 
walkpos 81,51 
walkpos 79,51 
walkpos 78,52 
walkpos 77,53 
walkpos 76,54 
walkpos 75,55 
walkpos 73,55 
walkpos 71,55 
walkpos 69,55 
walkpos 67,55 
w 67,55,A
say hi
waitdlg 传送到哪里,1,1,-3
button 1
waitmap 10001,1,R小于30级练级
walkpos 9,9 
call R随机走动
call R随机走动
call R随机走动
waitmap 10001,1,R小于30级练级
delay 100
iffight >,0,-1
set 自动逃跑,0
set 原地保护,1
useitem 恶魔宝石
waitsay ?,你感受到周边突然充满,1,-1
return
 
label R小于50级练级
call R补充恶魔宝石
call R回城
walkpos 87,51 
walkpos 85,51 
walkpos 83,51 
walkpos 81,51 
walkpos 79,51 
walkpos 78,52 
walkpos 77,53 
walkpos 76,54 
walkpos 75,55 
walkpos 73,55 
walkpos 71,55 
walkpos 69,55 
walkpos 67,55 
w 67,55,A
say hi
waitdlg 传送到哪里,1,1,-3
button 2
waitmap 31401,1,R小于50级练级
walkpos 109,11 
walkpos 108,12 
walkpos 107,13 
call R随机走动
call R随机走动
call R随机走动
waitmap 31401,1,R小于50级练级
delay 100
iffight >,0,-1
set 自动逃跑,0
set 原地保护,1
useitem 恶魔宝石
waitsay ?,你感受到周边突然充满,1,-1
return
 
label R小于73级练级
call R补充恶魔宝石
call R回城
walkpos 87,51 
walkpos 85,51 
walkpos 83,51 
walkpos 81,51 
walkpos 79,51 
walkpos 78,52 
walkpos 77,53 
walkpos 76,54 
walkpos 75,55 
walkpos 73,55 
walkpos 71,55 
walkpos 69,55 
walkpos 67,55 
w 67,55,A
say hi
waitdlg 传送到哪里,1,1,-3
button 3
waitmap 30503,1,R小于73级练级
walkpos 24,11 
walkpos 26,11 
call R随机走动
call R随机走动
call R随机走动
waitmap 30503,1,R小于73级练级
delay 100
iffight >,0,-1
set 自动逃跑,0
set 原地保护,1
useitem 恶魔宝石
waitsay ?,你感受到周边突然充满,1,-1
return
 
label R小于79级练级
call R补充恶魔宝石
call R回城
walkpos 87,51 
walkpos 85,51 
walkpos 83,51 
walkpos 81,51 
walkpos 79,51 
walkpos 78,52 
walkpos 77,53 
walkpos 76,54 
walkpos 75,55 
walkpos 73,55 
walkpos 71,55 
walkpos 69,55 
walkpos 67,55 
w 67,55,A
say hi
waitdlg 传送到哪里,1,1,-3
button 下一页
waitdlg 传送到哪里,1,1,R小于79级练级
button 1
waitmap 300,1,R小于79级练级
walkpos 159,230 
walkpos 160,231
call R随机走动
call R随机走动
call R随机走动
waitmap 300,1,R小于79级练级
delay 100
iffight >,0,-1
set 自动逃跑,0
set 原地保护,1
useitem 恶魔宝石
waitsay ?,你感受到周边突然充满,1,-1
return

label R练级73

label C跳转10级处
let @ll,=,10
call R检查需要练级
if @nt,!=,1,+4
call R小于10级练级
call R同步轮换练级对象
set 原地保护,0

label C跳转20级处
let @ll,=,20
call R检查需要练级
if @nt,!=,1,+4
call R小于20级练级
call R同步轮换练级对象
set 原地保护,0

label C跳转30级处
let @ll,=,30
call R检查需要练级
if @nt,!=,1,+4
call R小于30级练级
call R同步轮换练级对象
set 原地保护,0

label C跳转50级处
let @ll,=,50
call R检查需要练级
if @nt,!=,1,+4
call R小于50级练级
call R同步轮换练级对象
set 原地保护,0

label C跳转73级处
let @ll,=,73
call R检查需要练级
if @nt,!=,1,+4
call R小于73级练级
call R同步轮换练级对象
set 原地保护,0
set 自动逃跑,1
set 锁定战宠,0
call R回城

label C跳转返回处
return

label R练级79
let @ll,=,79
call R检查需要练级
if @nt,!=,1,+4
call R小于79级练级
call R同步轮换练级对象
set 原地保护,0
set 自动逃跑,1
set 锁定战宠,0
call R回城
return


label R同步轮换练级对象
let @pp,=,0
label C继续同步练级
check @pn,LV,!=,73,+2
set 自动逃跑,1
let @pn,=,宠物
let @pp,+,1
let @pn,&,@pp
if @pp,>,5,C同步轮换练级返回
check @pn,LV,>=,@ll,C继续同步练级
ifpet @pp,=,空位,C继续同步练级
ifpet @pp,!=,玛蕾菲雅,C继续同步练级
set 锁定战宠,@pp
chpet @pp
delay 500
check @pn,职位,!=,2,-2
set 自动逃跑,0
label C循环检测直到达到等级
check @pn,LV,>=,@ll,C继续同步练级
delay 500
goto C循环检测直到达到等级
label C同步轮换练级返回
return

label R检查需要练级
let @nt,=,0
let @tt,=,0
label C练级检查
let @tt,+,1
if @tt,>,5,C检查需要练级返回
ifpet @tt,!=,玛蕾菲雅,C练级检查
ifpet @tt,=,空位,C练级检查
let @tm,=,宠物
let @tm,&,@tt
check @tm,LV,>=,@ll,C练级检查
let @nt,=,1
goto +2
goto C练级检查
label C检查需要练级返回
return

label R补充恶魔宝石
check 道具,恶魔宝石,>=,1,C补充恶魔宝石返回
call R回城
check 道具,空位,>=,1,C不用丢东西
delay 500
doffItem 15
delay 500
ifitem 15,!=,空位,-2
label C不用丢东西
walkpos 87,51 
walkpos 85,51 
walkpos 83,51 
walkpos 81,51 
walkpos 79,51 
walkpos 77,51 
walkpos 77,53 
walkpos 77,55 
walkpos 75,55 
walkpos 73,55 
walkpos 71,55 
walkpos 69,55 
walkpos 67,55 
walkpos 65,55 
walkpos 63,55 
walkpos 61,55 
label C对话买恶魔宝石
walkpos 60,56 
w 60,56,G 
say hi
waitdlg 特殊道具,1,1,C对话买恶魔宝石
button 1
delay 500
waitdlg 特殊道具,1,1,C对话买恶魔宝石
buy 2,1
delay 500
check 道具,恶魔宝石,<,1,C对话买恶魔宝石
call R回城
label C补充恶魔宝石返回
return

label R单程练级73
if @pp,=,0,+2
set 锁定战宠,@pp
check @pn,LV,>=,10,+4
call R小于10级练级
call R循环检查达到10级
set 原地保护,0
check @pn,LV,>=,20,+4
call R小于20级练级
call R循环检查达到20级
set 原地保护,0
check @pn,LV,>=,30,+4
call R小于30级练级
call R循环检查达到30级
set 原地保护,0
check @pn,LV,>=,50,+4
call R小于50级练级
call R循环检查达到50级
set 原地保护,0
check @pn,LV,>=,73,+3
call R小于73级练级
call R循环检查达到73级
set 原地保护,0
set 自动逃跑,1
set 锁定战宠,0
call R回城
return

label R单程练级79
if @pp,=,0,+2
set 锁定战宠,@pp
check @pn,LV,>=,79,+4
call R小于79级练级
call R循环检查达到79级
set 原地保护,0
set 自动逃跑,1
set 锁定战宠,0
call R回城
return


label R循环检查达到10级
delay 500
check @pn,LV,>=,10,+3
delay 500
goto R循环检查达到10级
return
 
label R循环检查达到20级
delay 500
check @pn,LV,>=,20,+3
delay 500
goto R循环检查达到20级
return

label R循环检查达到30级
delay 500
check @pn,LV,>=,30,+3
delay 500
goto R循环检查达到30级
return
 
label R循环检查达到50级
delay 500
check @pn,LV,>=,50,+3
delay 500
goto R循环检查达到50级
return
 
label R循环检查达到73级
delay 500
check @pn,LV,>=,73,+3
delay 500
goto R循环检查达到73级
return
 
label R循环检查达到79级
delay 500
check @pn,LV,>=,79,+3
delay 500
goto R循环检查达到79级
return

label R检查喂养
let @nf,=,0
if @md,!=,0,C一个检查
label C轮流检查
let @tt,=,0
if @lc,=,终末,C继续检查喂养73
label C继续检查喂养72
let @tt,+,1
if @tt,>,5,C检查需要喂养结束
ifpet @tt,=,空位,C继续检查喂养72
ifpet @tt,!=,玛蕾菲雅,C继续检查喂养72
let @tm,=,宠物
let @tm,&,@tt
check @tm,LV,>,72,C继续检查喂养72
let @nf,=,1
goto C检查需要喂养结束
label C检查喂养72结束
label C继续检查喂养73
let @tt,+,1
if @tt,>,5,C检查需要喂养结束
ifpet @tt,=,空位,C继续检查喂养73
ifpet @tt,!=,玛蕾菲雅,C继续检查喂养73
let @tm,=,宠物
let @tm,&,@tt
check @tm,LV,>,73,C继续检查喂养73
let @nf,=,1
goto C检查需要喂养结束

label C一个检查
if @lc,=,终末,C检查喂养73
ifpet @md,=,空位,C检查需要喂养结束
ifpet @md,!=,玛蕾菲雅,C检查需要喂养结束
let @tm,=,宠物
let @tm,&,@md
label C检查喂养72
check @tm,LV,>,72,C检查需要喂养结束
let @nf,=,1
goto C检查需要喂养结束
label C检查喂养73
check @tm,LV,>,73,C检查需要喂养结束
let @nf,=,1
label C检查需要喂养结束
return

label R恢复玛蕾菲雅的名字
if @md,=,0,C群体恢复名字
let @pn,=,宠物
let @pn,&,@md
chname @pn
goto C恢复名字结束
label C群体恢复名字
let @pp,=,0
label C继续恢复名字
let @pp,+,1
if @pp,>,5,C恢复名字结束
ifpet @pp,=,空位,C继续恢复名字
ifpet @pp,!=,玛蕾菲雅,C继续恢复名字
let @pn,=,宠物
let @pn,&,@pp
chname @pn
goto C继续恢复名字
label C恢复名字结束
return

label R检测玛蕾菲雅
if @md,=,0,C群体检测
ifpet @md,=,空位,R没有玛蕾菲雅
ifpet @md,!=,玛蕾菲雅,R没有玛蕾菲雅
let @pn,=,宠物
let @pn,&,@md
check @pn,LV,>=,79,R没有玛蕾菲雅
let @tm,+,1
return
label C群体检测
let @tt,=,0
let @tm,=,0
label C继续检测玛蕾菲雅
let @tt,+,1
if @tt,>,5,C检测玛蕾菲雅返回
let @pn,=,宠物
let @pn,&,@tt
ifpet @tt,=,空位,C继续检测玛蕾菲雅
ifpet @tt,!=,玛蕾菲雅,C继续检测玛蕾菲雅
check @pn,LV,>=,79,C继续检测玛蕾菲雅
let @tm,+,1
label C检测玛蕾菲雅返回
if @tm,<,1,R没有玛蕾菲雅
return

label R没有玛蕾菲雅
msg 没有找到可培养的玛蕾菲雅，请处理后继续。
pause
goto C输入选择对象
return

label .end.
set 锁定战宠,0
end

label .log.
label .err.
set 断线重登,1
set 自动登陆,1
delay 6000
goto 主程序
end 

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