|
只挂了5个号,频繁掉线和外挂自动关闭。代码也很简单
dim @lv
let @lv,=,5
label 开始
label 升级
call 检查等级
let @lv,+,5
if @lv,<,150,升级
end
label 检查等级
delay 1000
ifpet 2,=,空位,宠物3检测
check 宠物2,LV,>=,@lv,宠物3检测
label 练第二只战宠
delay 1000
set 锁定战宠,2
check 宠物2,LV,<,@lv,练第二只战宠
label 宠物3检测
ifpet 3,=,空位,宠物4检测
label 练第三只战宠
delay 1000
check 宠物3,LV,>=,@lv,宠物4检测
set 锁定战宠,3
check 宠物3,LV,<,@lv,练第三只战宠
label 宠物4检测
ifpet 4,=,空位,宠物5检测
label 练第四只战宠
delay 1000
check 宠物4,LV,>=,@lv,宠物5检测
set 锁定战宠,4
check 宠物4,LV,<,@lv,练第四只战宠
label 宠物5检测
ifpet 5,=,空位,返回
label 练第五只战宠
delay 1000
check 宠物5,LV,>=,@lv,返回
set 锁定战宠,5
check 宠物5,LV,<,@lv,练第五只战宠
label 返回
return
|
|