;*********************************************************************
;*********************************************************************
;***** Script:           Cast, medi, heal               **************
;***** Author:           Rhino                          **************
;***** Last update:      31 jan 2010                     **************
;***** Version:          2.2                            **************
;***** Shard:            Neverlands Reborn              **************
;*********************************************************************
;*********************************************************************

menu Window Title Rhino's script ©
menu Window Size 225 235
menu show 100 100
menu Font Name MS Sans Serif
menu Font Size 8
menu font style b
set #SYSMSGCOL 88
menu Text Text 10 10 Select what spell you want to cast:
menu Combo Create spell 10 30 100
menu Combo Add spell Flamestrike
menu Combo Add spell E-Bolt
menu Combo Add spell Explosion
menu Combo Add spell Mass Curse
menu Combo Select spell 1
menu Text Text 10 55 Start medition when below:
menu Edit ManaRange 10 70 30 40
menu Text Text 40 72 MP
menu Text Text 10 95 Only meditating when at:
menu Edit ManaRangeLow 10 110 30 0
menu Text Text 40 112 MP (or higher)
menu Text Text 10 135 Healing range:
menu Edit HealthRange 10 150 30 50
menu Text Text 40 152 HP
menu Font Size 12
menu Button StartBtn 65 180 80 30 Start!



set %start #false
repeat
if #MENUBUTTON = StartBtn
{
    menu get spell
    if #MENURES = 1
    {
    set %spell 51
    event sysMessage Casting spell: manavamp
    }
    if #MENURES = 2
    {
    set %spell 40
    event sysMessage Casting spell: E-Bolt
    }
    if #MENURES = 3
    {
    set %spell 41
    event sysMessage Casting spell: Explosion
    }
    if #MENURES = 4
    {
    set %spell 44
    event sysMessage Casting spell: Mass Curse
    }
    menu get ManaRange
    Set %MediRange #MENURES
    event sysMessage Meditating starts below: %MediRange MP
    menu get ManaRangeLow
    Set %MediRangeLow #MENURES
    event sysMessage Only meditating at %MediRangeLow MP or higher.
    menu get HealthRange
    Set %HealingRange #MENURES
    event sysMessage Healing below: %HealingRange HP
    menu hide
    set %start #true
}
until %start = #true

;*********************************************************************
;***************************  Variables  *****************************
;*********************************************************************

Set %Bandages ZLF
set %food EDF_QQD_FWI_UWI_TWI_KPE_MQE_UQE_CWE_KPE_ZPE_AXI_YWI_WLI_ACG_QRD_NRD_FUD_WBG_JQE

;*********************************************************************
;************************ Script Using Subs **************************
;*********************************************************************

Start:

if #scnt2 > 6000
{
set #scnt2 0
GoSub hunger
}
GoSub CheckMana
GoSub CheckHealth
GoSub Cast

GoTo Start

;*********************************************************************
;************************** Subs Defined *****************************
;*********************************************************************

Sub CheckMana
   if #Mana < %MediRange
   {
      MediLoop:
      if #MANA = #MAXMANA
      {
         Return
      }
      if #sCnt > 10 && #mana => %MediRangeLow
      {
         set %jstart #jIndex
         set #sCnt 0
         event macro 13 46
         wait 20
         for %ji %jstart #jIndex
         {
       scanjournal %ji
            if meditating in #journal
               GoTo MaxManaCheck
         }
      }
      GoTo MediLoop
   }
   return
   ;=======================================
   ;==== Check for mana to be full
   ;=======================================
   MaxManaCheck:
   if #MANA = #MAXMANA
   {
      Return
   }
   GoTo MaxManaCheck:

;*********************************************************************
;*********************************************************************

Sub CheckHealth
   HealLoop:
   if #HITS < %HealingRange
   {
      Finditem %Bandages C_ , #BACKPACKID
      if #findkind = -1
      {
         FINDITEM %Bandages G_2
         if #findkind = -1
         {
             Display You Dont Have Any Bandages !!
             Halt
         }
      }
      Set #LOBJECTID #FINDID
      Event Macro 17 0
      target
      set %jstart #jIndex
      Event Macro 23 0
      repeat
      {
         set %jend #jIndex
         for %ji %jstart #jIndex
         {
            scanjournal %ji
            if You_could_not_heal_him. in #journal
               GoTo HealLoop
            if has_healed_you in #journal
               Return
         }
      }
      until #HITS = #MAXHITS
   }
Return

;*********************************************************************
;*********************************************************************

Sub Cast
   Casting:
   set %jstart #jIndex
   Event Macro 15 %spell
   wait 10
   repeat
   {
   for %ji %jstart #jIndex
         {
         scanjournal %ji
         if The_spell_fizzles. in #journal
         {
           delete #journal
           event sysMessage Casting again.
           GoTo Casting
         }
         }
   }
   until #TARGCURS = 1
   Event Macro 23 0
   wait 30
Return

;*********************************************************************
;*********************************************************************

sub hunger
  set %eat N/A
  set %jstart #jIndex
  msg .hunger$
  wait 20
  set %jend #jIndex
  for %ji %jstart %jend
  {
    scanjournal %ji
    if watch_your_weight in #journal
      return
    if three_square_meals in #journal
      return
    if Your_diet_is_consistent in #journal
      set %eat 1
    if Even_thought_you_are_not_starving,_some_food_would_be_welcome. in #journal
      set %eat 3
    if stomach_is_growling in #journal
      set %eat 6
    if Are_you_Anorexic in #journal
      set %eat 8
  }
  if %eat = N/A
    return
  for %i 1 %eat
  {
      finditem %food c_
      set #LOBJECTID #FINDID
      event macro 17
      wait 20
  }
return

;*********************************************************************
;************************* The End  **********************************
;*********************************************************************