DEFINE INT A 2
DEFINE INT B 1

DO

//INDITAS

CALLSUB VAROS
CALLSUB MOVE
CALLSUB ANTIGM
PRINT_TEXT "Inditom a hp figyelo funkciot

LOOP A > B

SUB ANTIGM
 DO
 IF CHAR_MAX_HP < 10000
  SLEEP 3000
  USE_SKILL 1807
  PRINT_TEXT "Le estek a buffok, megyek ujra buffolni!"
  SLEEP 16000
  RETURNSUB
 ELSE
 PRINT_TEXT "Meg van rajtam buff!"
   CALLSUB SWEEP
   SLEEP 1000
   CALLSUB SWEEP
   SLEEP 1000
   CALLSUB HALAL
   LOOP A > B
ENDIF

SUB SWEEP
 IF TARGET_CUR_HP == 0
 USE_SKILL 42
ENDIF
RETURNSUB

SUB BUFF
  PRINT_TEXT "Beszelek a scheme bufferrel hogy felbuffoljak"
  COMMAND "/target High Priest of Dawn"
   SLEEP 2000
  TALK_TARGET
   SLEEP 9000
  NPC_DIALOG "bypass -h Quest 555_NPCBuffer cast 18317 x x"
   SLEEP 12000
RETURNSUB

SUB TELEPORT
  PRINT_TEXT "Megyek a farm helyre"
  COMMAND "/target Court Magician"
  SLEEP 2000
 TALK_TARGET
  SLEEP 2000
NPC_DIALOG "bypass -h npc_268479002_Chat 1"
  SLEEP 1500
 NPC_DIALOG "bypass -h npc_268479002_Chat 26"
  SLEEP 1500
 NPC_DIALOG "bypass -h npc_268479002_goto 5009"
  SLEEP 2500
RETURNSUB

SUB MOVE
MOVE_TO 10502, -24921, -3662
 SLEEP 13000
MOVE_TO 10484, -23000, -3667
 SLEEP 13000
MOVE_TO 8659, -20930, -3441
 SLEEP 20000
MOVE_TO 5437, -18247, -3736
 SLEEP 25000
MOVE_TO 4668, -17883, -3683
 SLEEP 18000
MOVE_TO 4137, -13906, -3672
 SLEEP 6000
USE_ITEM 4218
 SLEEP 5000
PRINT_TEXT "Vissza kapcsolom a targetelest"
BOTSET ACTIVE_TARGET_ON "<&TRUE&>"
BOTSET ACTIVE_ATTACK_ON "<&TRUE&>"
RETURNSUB

SUB HALAL
IF ( CHAR_CUR_HP == ZERO )
PRINT_TEXT "Meghaltam, megyek a varosba rebuffolni"
SLEEP 3000
TAP_TO TOWN
USE_SKILL 1807
 CALLSUB VAROS
 CALLSUB MOVE
ENDIF
RETURNSUB

SUB VAROS
PRINT_TEXT "Kikapcsolom a targetelest hogy ne bugzodjanak az npc-k"
BOTSET ACTIVE_TARGET_ON "<&FALSE&>"
BOTSET ACTIVE_ATTACK_ON "<&FALSE&>"
IF CHAR_MAX_HP < 13000
 USE_SKILL 1807
 SLEEP 10000
   CALLSUB BUFF
   SLEEP 12000
   CALLSUB TELEPORT
ENDIF
RETURNSUB

RETURN VOID
END_SCRIPT