Gammon Forum

Sub Eat_Herb (a,b,c)
  if herbbalance = 1 then
    World.Send "eat herb"
  end if
End Sub

and this sub fires on "You have recovered balance" & "You may eat another plant"

So, you don't want to double eat and you get the following output:

2705h, 3290m ex-
You may eat another plant.
2705h, 3290m ex-
You have recovered balance on all limbs.
2705h, 3290m ex-

then you'd double eat.. with a millisecond timer I wouldn't have to worry about that sort of thing.

dim herbbalance

Sub Eat_herb (a,b,c)
  World.Send "eat herb"
  herbbalance = 0
End Sub

I do:

dim herbbalance           ' Variable

Sub herbbalance_on (a,b,c) ' Sub to turn herbbalance on
  herbbalance = 1
End Sub

Sub herbbalance_off (a,b,c) ' Sub to turn herbbalance off
  herbbalance = 0           ' Called on the trigger:
End Sub                     ' ^You have eaten an herb\.$

Sub Eat_herb (a,b,c)        ' Sub to eat an herb
  If herbbalance = 1 then
    World.Send "eat herb"
  End If
End Sub

<timers>
  <timer name="anti_double_eat" script="imaginary_herbbalance_on" second=".3" >
  </timer>
</timers>

dim herbbalance           ' Variable
dim fake_herbbalance

Sub herbbalance_on (a,b,c) ' Sub to turn herbbalance on
  herbbalance = 1
End Sub

Sub herbbalance_off (a,b,c) ' Sub to turn herbbalance off
  herbbalance = 0           ' Called on the trigger:
End Sub                     ' ^You have eaten an herb\.$

Sub imaginary_herbbalance_on (a,b,c)
  fake_herbbalance = 1
End Sub

Sub Eat_herb (a,b,c)        ' Sub to eat an herb
  If fake_herbbalance = 1 AND herbbalance = 1 then
    World.Send "eat herb"
    fake_herbbalance = 0
    World.EnableTimer "anti_double_eat", 1
  End If
End Sub

2705h, 3290m ex-
You may eat another plant.
2705h, 3290m ex-
You have recovered balance on all limbs.
2705h, 3290m ex-

if not just_eaten then
  Send "eat herb"
  just_eaten = true
end -- if