Gammon Forum

Dim maxhealth, maxmana, curhealth, curmana, autosip
Dim prevhealth, prevmana, health_mana_override, automoss

Sub Auto_Sipping
  If AutoSip = 1 & drinkbalance = 1 then
  world.note "auto sip is on same with drink balance"
    If health_mana_override = "health" then
    world.note "health mana override for health"
      If curHealth < (.85 * maxHealth) then
        Drink_Health
      ElseIf curMana < (.85 * maxMana) then
      World.Note "Gotta sip mana"
        Drink_Mana
      End If
    ElseIf health_mana_override = "mana" then
      If curMana < (.85 * maxMana) then
        Drink_Mana
      ElseIf curHealth < (.85 * maxHealth) then
        Drink_Health
      End If
    End If
  End If
  'If AutoMoss = 1 & mossbalance = 1 then
  '  If curHealth < (.75 * maxHealth) or curMana < (.75 * maxMana) then
  '    Eat_Moss
  '  End If
  '	End If
End Sub

sub OnPluginPartialLine (sText)
Dim regEx, Matches, Match

' Make a regular expression to match on the line:
 
  Set regEx = New RegExp

'  exit CDATA block so we can use the trigger entity

]]>

  regEx.Pattern = "&regexp_match;"

<![CDATA[

'  Execute regular expression

  Set Matches = regEx.Execute (sText)

'  Exit if no match
 
  if Matches.Count = 0 then  
    Set regEx = Nothing
    Set Matches = Nothing
	exit sub
  end if

  Set Match = Matches.Item (0)

  Set regEx = Nothing
  Set Matches = Nothing
  
  prevhealth = curhealth
  premana = curmana
  
  curHealth = Match.SubMatches (0)
  curMana = Match.SubMatches (1)

  Auto_Sipping
  
  Set Match = Nothing

End sub