BEGIN ~VESINEJ~

IF ~True()~ THEN BEGIN 26
  SAY @0
  IF ~HPPercentLT(Myself,50)~ THEN REPLY @1 EXTERN ~VESINE~ 27
  IF ~HPPercentGT(Myself,49)
HPPercentLT(Myself,95)~ THEN REPLY @1 EXTERN ~VESINE~ 30
  IF ~HPPercentGT(Myself,94)~ THEN REPLY @1 EXTERN ~VESINE~ 34
  IF ~~ THEN REPLY @2 EXIT
  IF ~Global("AR0300","LOCALS",0)
AreaCheck("AR0300")~ THEN REPLY @3 EXTERN ~VESINE~ 38
  IF ~Global("AR0700","LOCALS",0)
AreaCheck("AR0700")~ THEN REPLY @3 EXTERN ~VESINE~ 45
  IF ~Global("AR1100","LOCALS",0)
AreaCheck("AR1100")~ THEN REPLY @3 EXTERN ~VESINE~ 59
  IF ~Global("AR2000","LOCALS",0)
AreaCheck("AR2000")~ THEN REPLY @3 EXTERN ~VESINE~ 62
  IF ~Global("AR1900","LOCALS",0)
AreaCheck("AR1900")~ THEN REPLY @3 EXTERN ~VESINE~ 67
  IF ~Global("AR2100","LOCALS",0)
AreaCheck("AR2100")~ THEN REPLY @3 EXTERN ~VESINE~ 74
  IF ~Global("AR2200","LOCALS",0)
AreaCheck("AR2200")~ THEN REPLY @3 EXTERN ~VESINE~ 74
  IF ~Global("AR2300","LOCALS",0)
AreaCheck("AR2300")~ THEN REPLY @3 EXTERN ~VESINE~ 76
  IF ~Global("AR2400","LOCALS",0)
AreaCheck("AR2400")~ THEN REPLY @3 EXTERN ~VESINE~ 81
  IF ~Global("AR2800","LOCALS",0)
AreaCheck("AR2800")~ THEN REPLY @3 EXTERN ~VESINE~ 85
  IF ~Global("AR2900","LOCALS",0)
AreaCheck("AR2900")~ THEN REPLY @3 EXTERN ~VESINE~ 90
END


