Set %HealWait 5000 ; set an amount of miliseconds between each treatment,
                   ; 5s for healing is already in the script
Set %SysTimeAnat 0

Set #TargCurs 1
Event Sysmessage ok Target your partner now.
WaitingLoop:
If #TargCurs = 1
   GoTo WaitingLoop
Set %Partner #lTargetID
Wait 10

Loop:
If #SysTime > %SysTimeHeal + %HealWait
   GoSub Healing
If #Systime > %SysTimeHeal && #Systime > %SysTimeAnat
   GoSub Anat
GoTo Loop

Sub Healing
   Repeat
   FindItem ZLF C_ , #BackPackID
   if #findkind = -1
      {
      msg Stop, I dont have bandages!! $
      wait 1s
      msg Stop, I dont have bandages!! $
      display ok No bandages found, halting.
      halt
      }
   set #lObjectID #FindID
   set #lTargetID %partner
   set #lTargetKind 1
   Event Macro 17 ;Last Object
   Target 3s
   Until #TargCurs = 1
   Set %StartJournal #JINDEX
   Event Macro 22 ;Last Target
   Wait 10
   Set %StopJournal #JINDEX
   For %n %StartJournal %StopJournal
   {
      ScanJournal %n
      If Your_patient_is_at_full_heath. in #Journal 2
         Set %SysTimeHeal #SysTime
         Return
   }
   Set %SysTimeHeal #SysTime + 5000
   }
Return

Sub Anat
   Set #lTargetID %Partner
   Set #lTargetKind 1
   Set #lSkill 1 ;Anathomy
   Event Macro 14
   Target 3s
   Event Macro 22 ;Last Target
   Set %SysTimeAnat #Systime + 11000
   Wait 30
Return