dim @pp1,@pp2,@pp3,@pp4,@pp5
dim @wp,@si
let @pp1,=,0
let @pp2,=,0
let @pp3,=,0
let @pp4,=,0
let @pp5,=,0
msg 《石器so-刷骑宠》||达成条件后手动继续：||一，记录在渔村储存点。在村外打到一个乌力斯坦的肉就去图腾处记录。|二，取消安全锁，会丢弃获得的其他宠物。|三，能战胜5个80级的怪物。
pause
input @wp,准确输入你想要捕捉的宠物的名字。,# 选择宠物
call R设置信息
msg @si
pause
call R确认位置
set 自动KNPC,1
set 快速战斗,1
set 自动逃跑,0
set 自动捉宠,0

label 主程序
check 宠物,空位,<,1,C宠物栏已满
call R去捕捉
check 宠物,空位,>=,1,主程序
label C宠物栏已满
beep
msg 宠物栏已经满了，请处理后继续。
pause
goto 主程序
end

label R检查并丢弃宠物

if @pp1,=,1,C检查宠物1结束
check 宠物1,名称,=,@wp,C检查宠物1结束
doffpet 1
delay 500
check 宠物,1,!=,空位,-2
label C检查宠物1结束

if @pp2,=,1,C检查宠物2结束
check 宠物2,名称,=,@wp,C检查宠物2结束
doffpet 2
delay 500
check 宠物,2,!=,空位,-2
label C检查宠物2结束

if @pp3,=,1,C检查宠物3结束
check 宠物3,名称,=,@wp,C检查宠物3结束
doffpet 3
delay 500
check 宠物,3,!=,空位,-2
label C检查宠物3结束

if @pp4,=,1,C检查宠物4结束
check 宠物4,名称,=,@wp,C检查宠物4结束
doffpet 4
delay 500
check 宠物,4,!=,空位,-2
label C检查宠物4结束

if @pp5,=,1,C检查宠物5结束
check 宠物5,名称,=,@wp,C检查宠物5结束
doffpet 5
delay 500
check 宠物,5,!=,空位,-2
label C检查宠物5结束
return

label R去捕捉
check 地图,编号,!=,2000,+2
check 座标,=,65,58,C重置点
call R回城
walkpos 87,51 
walkpos 85,51 
walkpos 83,51 
walkpos 81,51 
walkpos 80,52 
walkpos 79,53 
walkpos 78,54 
walkpos 77,55 
walkpos 75,55 
walkpos 73,55 
walkpos 71,55 
walkpos 69,55 
walkpos 67,55 
walkpos 65,55 
walkpos 65,57 
walkpos 65,58
label C重置点
walkpos 65,60 
walkpos 65,62 
walkpos 65,64 
walkpos 65,66 
walkpos 65,68 
walkpos 65,70 
walkpos 65,72 
walkpos 65,74 
walkpos 64,75 
walkpos 63,76 
walkpos 63,78 
walkpos 63,80 
walkpos 63,82 
walkpos 62,83 
walkpos 61,84 
walkpos 60,85 
walkpos 60,87 
w 60,87,G 
say 你好，请治疗我。
walkpos 60,89 
walkpos 60,91 
walkpos 60,93 
walkpos 61,94 
walkpos 62,95 
walkpos 63,96 
walkpos 63,98 
walkpos 63,100 
walkpos 62,101 
walkpos 61,102 
walkpos 60,103 
walkpos 60,105 
walkpos 60,107 
walkpos 60,108 
w 60,108,E 
say 你好，请给我骑宠。
delay 1000
iffight >,0,-1
waitmap 148,1,R去捕捉
w 9,6,A 
say 你好，看看是什么。
waitdlg 你有新手票呀,1,1,-2
button 确定
waitdlg ?,0,1,R去捕捉
button OK
waitdlg 你身上宠物太多,0,1,+2
button OK
call R检查并丢弃宠物
walkpos 7,6 
walkpos 7,8 
walkpos 7,10 
walkpos 8,11 
walkpos 8,13 
walkpos 8,15 
walkpos 8,17 
waitmap 2000,1, 
return

label R确认位置
check 宠物,1,=,空位,+2
let @pp1,=,1
check 宠物,2,=,空位,+2
let @pp2,=,1
check 宠物,3,=,空位,+2
let @pp3,=,1
check 宠物,4,=,空位,+2
let @pp4,=,1
check 宠物,5,=,空位,+2
let @pp5,=,1
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,&,|* 捕捉宠物：
let @si,&,@wp
let @si,&,||确认后手动继续。
return