
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
chpet @a
set 锁定战宠,1
delay 500
end

label 锁战宠2
chpet @a
set 锁定战宠,2
delay 500
end

label 锁战宠3
chpet @a
set 锁定战宠,3
delay 500
end

label 锁战宠4
chpet @a
set 锁定战宠,4
delay 500
end

label 锁战宠5
chpet @a
set 锁定战宠,5
delay 500
end

label 停止
end
