
dim @a,@b
let @b,=,0
set 锁定骑宠,0
delay 500
let @a,=,@[寻找宠物.骑宠]
delay 200
let @b,+,1
if @b,>,30,停止
if @a,=,-1,-4

if @a,=,1,锁骑宠1
if @a,=,2,锁骑宠2
if @a,=,3,锁骑宠3
if @a,=,4,锁骑宠4
if @a,=,5,锁骑宠5
end

label 锁骑宠1
let @b,=,0
chpet 0
delay 500
check 宠物1,职位,=,2,-2
chpet @a,1
delay 100
let @b,+,1
if @b,>,20,停止
check 宠物1,职位,=,1,+2
goto -5
set 锁定骑宠,1
delay 500
end

label 锁骑宠2
let @b,=,0
chpet 0
delay 500
check 宠物2,职位,=,2,-2
chpet @a,1
delay 100
let @b,+,1
if @b,>,20,停止
check 宠物2,职位,=,1,+2
goto -5
set 锁定骑宠,2
delay 500
end

label 锁骑宠3
let @b,=,0
chpet 0
delay 500
check 宠物3,职位,=,2,-2
chpet @a,1
delay 100
let @b,+,1
if @b,>,20,停止
check 宠物3,职位,=,1,+2
goto -5
set 锁定骑宠,3
delay 500
end

label 锁骑宠4
let @b,=,0
chpet 0
delay 500
check 宠物4,职位,=,2,-2
chpet @a,1
delay 100
let @b,+,1
if @b,>,20,停止
check 宠物4,职位,=,1,+2
goto -5
set 锁定骑宠,4
delay 500
end

label 锁骑宠5
let @b,=,0
chpet 0
delay 500
check 宠物5,职位,=,2,-2
chpet @a,1
delay 100
let @b,+,1
if @b,>,20,停止
check 宠物5,职位,=,1,+2
goto -5
set 锁定骑宠,5
delay 500
end

label 停止
end
