set %petA WEWSB
set %petB MFSTB
set %bandiechest #backpackid
set %bandies ZLF

initevents

loop:
 gosub healpets
 goto loop
 
sub healpets
 finditem %bandies C_ , %bandiechest
 if #findkind <> -1
 {
    set #lObjectID #findid
    event macro 17 0
    target 5s
    set #ltargetid %petA
    event macro 22 0
    wait 40
    set #lObjectID #findid
    event macro 17 0
    target 5s
    set #ltargetid %petB
    event macro 22 0
    wait 40
 }
 else
 {
  msg All Stay$
  msg ommmmgz0rz no bandies la!!$
  halt
 }
return