动物园挂训兽

initevents
chooseSkill anim
gosub checkskill
event macro 32 0
event pathfind 4511 1388 23
wait 6s
set %startplace A
set %tame %placea
loop:
finditem %tame G_7
if #findkind = -1
gosub nextplace
set #ltargetid #findid
set #ltargetkind 1
event macro 27 0 ; attack last
wait 2
event macro 13 35 ; animal taming
target 2s
event macro 22 0 ; last target
wait 3s
goto loop

sub nextplace
if %startplace = A
{
set %startplace B
set %tame %placeb
event pathfind 4501 1368 23
wait 6s
goto placeok
}
if %startplace = B
{
set %startplace C
set %tame %placec
event pathfind 4519 1364 23
wait 6s
goto placeok
}
if %startplace = C
{
set %tame %placed
set %startplace D
event pathfind 4525 1368 23
wait 6s
goto placeok
}
if %startplace = D
{
set %tame %placea
set %startplace A
event pathfind 4511 1388 23
wait 6s
goto placeok
}
placeok:
return

sub checkskill
set %placea NOSUCHCREATURE
set %placeb NOSUCHCREATURE
set %placec NOSUCHCREATURE
set %placed NOSUCHCREATURE
set %placed NOSUCHCREATURE
if #skill >= 351
set %placea VF
if #skill >= 471
{
set %placec UF
set %placed UE
}
if #skill >= 531
set %placea VF_L_M
if #skill >= 591
set %placeb SD
if #skill >= 651
set %placea VF_L_M_GE_ZD
if #skill >= 747
set %placea VF_L_M_GE_ZD_KD
return