help con euo

[MarioTidus2000]

salve a tutti, ho iniziato a scriptare da sta mattina e ora ho partorito questo script che gestisce i pet.
chi mi da qualche consiglio\critica su come migliorare? XD

 ; Pet Saifer ver: 1.0

set %pet1 DGDK ;ID PRIMO PET
set %ballpet1 GFGKUMD ; ID PRIMA PETBALL
set %pet2 XHAC ;ID SECONDO PET
set %ballpet2  ;ID SECONDA PETBALL

;===========================

set %petcorrente %pet1
set %ballcorrente %ballpet1
chooseskill mage
set %magery #skill
chooseskill chiv
set %chivarly #skill

if ( %magery < 500 && %chivarly < 400 )
{
  sysmessage TU NON POTRAI CURARE IL PET DAL VELENO
  set %pg 2
  goto loop
}
else
{
  if %magery > %chivarly
  {
    set %pg 0
  }
  else
  {
    set %pg 1
  }
}
;==============================
;===========MAIN LOOP==========
;==============================

loop:

onhotkey D CTRL ; RISALI SUL PET
{
  event sysmessage Risali
  gosub Risali

}

onhotkey T  ; CURE PET DAL VELENO
{
  event sysmessage Cura pet
  gosub Curepet
}

onhotkey J ; Ress pet
{
  event sysmessage Ressing Pet
  gosub resspet
}

onhotkey C CTRL ; USA PRIMO PET
{
  set %petcorrente %pet1
  set %ballcorrente %ballpet1
  gosub summpet
}

onhotkey B CTRL ; USA SECONDO PET
{
  set %petcorrente %pet2
  set %ballcorrente %ballpet2
  gosub summpet
}

goto loop

sub risali
{

  event macro 1 0 all follow me
  set #lobjectid %petcorrente
  event macro 17 0
  event macro 17 0
  wait 1
}

sub summpet
{
  set #lobjectid %ballcorrente
  event macro 17 0
  wait 1
  {
    gosub risali
  }
  wait 1
}

sub Curepet
{
if %pg = 1 || %pg = 0
{
  set #ltargetid %petcorrente
  set #ltargetkind 1
  if %pg = 0
    {
      event macro 15 10
      target 80
      event macro 22 0
      wait 1
    }
  else
    {
     event macro 15 201
     target 80
     event macro 22 0
     wait 1
    }
    gosub risali
}
else
{
  event sysmessage NON PUOI CURARE PET
  goto loop
}
}

sub resspet
{
   finditem ZLF C_ , #BACKPACKID
   if findcnt = 0
      {
      event sysmessage Non hai bende
      goto loop
      }
   else
      {
      set #lobjectid #findid
      event macro 17 0
      target 8s
      set #ltargetid %petcorrente
      set #ltargetkind 1
      event macro 22 0
      while #contkind <> SXQ
        {
        wait 2
        }
      click 111 166
      wait 3
      gosub risali
      }

}
goto loop