Enticement

;Enticement macro for Pangaea-world.dk

set %FoodTimer #SCNT

Event Sysmessage Target your pet for training!
Set #TargCurs 1

While #TargCurs <> 0
wait 1

Set %Pet #LTargetID

GoSub FoodSetup

While #True
 {
  if #SCNT >= %FoodTimer
   {
    GoSub FeedPet
   }

  Set #LTargetID %Pet
  gosub performaction 13 15 22 10s
 }

Sub FeedPet
  finditem %FoodType C_ , #BackPackID
  If #FindStack > 0
   {
    exevent drag #findid 1
    wait 10
    exevent dropc %Pet
    wait 10
    set %FoodTimer #SCNT + 600
   }
  else
   {
    Display ok You are out of Food! $ Halting
    halt
   }
return

Sub FoodSetup
event sysmessage Select Food Type
Set #TARGCURS 1
while #TARGCURS = 1
wait 1

FindItem #LTargetID
Set %FoodType #FindType
return

;========================================
; Script Name: Janus' Perform Skill/Spell Sub
; Author: Janus
; Version: 1.2
; Client Tested with: 4.0.1a client
; EUO version tested with: 1.42 B0094
; Shard OSI / FS: Local Pol Server
; Revision Date: 08-03-04
; Public Release: 08-03-04
; Purpose: you can perform multiple skills/spells in a few gosubs, useful for a combat macro or multi skill trainer
;========================================
sub performaction
event macro %1 %2
if %1 = 13 2
if G in #charstatus
event macro 6 0
if %3 <> 0 2
target 10s
event macro %3 0
wait %4
return