action (barbbuff) var abilitystarted 1 when ^But you are already practicing that form\!|But you are already enraged with that berserk\.

BARB_CHECK:
     pause 0.001
     pause 0.001
     if (!$standing) then gosub STAND
     send meditate flame
     pause 2
     pause 0.5
     if ($innerFire > 2) && (%zerkFamine) && (!$zerkFamine) then
          {
			   action (barbbuff) on
			   var abilitystarted 0
               send berserk famine
               pause
			   if %abilitystarted 1 then put #tvar zerkFamine 1
			   action (barbbuff) off
          }
     if ($innerFire > 2) && (%zerkWildfire) && (!$zerkWildfire) then
          {
			   action (barbbuff) on
			   var abilitystarted 0
               send berserk wildfire
               pause
			   if %abilitystarted 1 then put #tvar zerkWildfire 1
			   action (barbbuff) off
          }
     if ($innerFire > 2) && ($stamina < 70) && (%zerkAvalanche) && (!$zerkAvalanche) then
          {
			   action (barbbuff) on
			   var abilitystarted 0
               send berserk avalanche
               pause
			   if %abilitystarted 1 then put #tvar zerkAvalanche 1
			   action (barbbuff) off
          }
     if ($innerFire > 3) && (%zerkTsunami) && (!$zerkTsunami) then
          {
			   action (barbbuff) on
			   var abilitystarted 0
               send berserk tsunami
               pause
			   if %abilitystarted 1 then put #tvar zerkTsunami 1
			   action (barbbuff) off
          }
     if ($innerFire > 3) && (%zerkEarthquake) && (!$zerkEarthquake) then
          {
			   action (barbbuff) on
			   var abilitystarted 0
               send berserk earthquake
               pause
			   if %abilitystarted 1 then put #tvar zerkEarthquake 1
			   action (barbbuff) off
          }
     if ($innerFire > 3) && (%zerkFlashflood) && (!$zerkFlashflood) then
          {
			   action (barbbuff) on
			   var abilitystarted 0
               send berserk flash flood
               pause
			   if %abilitystarted 1 then put #tvar zerkFlashflood 1
			   action (barbbuff) off
          }
     if ($stamina > 98) && ($zerkAvalanche) then put berserk stop avalanche
     # MELEE
	if (%barbMonkey) && (!$barbMonkey) && ($innerFire > 2) then
          {
			   action (barbbuff) on
			   var abilitystarted 0
               gosub PUT form monkey
               pause 0.5
			   if %abilitystarted 1 then put #tvar barbMonkey 1
			   action (barbbuff) off
          }
	if (%barbBuffalo) && (!$barbBuffalo) && ($innerFire > 2) then
          {
			   action (barbbuff) on
			   var abilitystarted 0
               send form buffalo
               pause 0.5
			   if %abilitystarted 1 then put #tvar barbBuffalo 1
			   action (barbbuff) off
          }
	if ($barbPanther) && (%melee = 1) || ($barbPanther) && ($innerFire < 2) then gosub PUT form stop panther
	if ($barbEagle) && (%melee = 1) || ($barbEagle) && ($innerFire < 2) then gosub PUT form stop eagle
	if ($barbBadger) && (%melee = 1) || ($barbBadger) && ($innerFire < 2) then gosub PUT form stop badger
	if (%barbDragon) && (!$barbDragon) && (%melee = 1) && ($innerFire > 2) then
          {
			   action (barbbuff) on
			   var abilitystarted 0
               gosub PUT form dragon
               pause 0.5
			   if %abilitystarted 1 then put #tvar barbDragon 1
			   action (barbbuff) off
          }
	if (%barbPiranha) && (!$barbPiranha) && ($circle > 50) && ($innerFire > 2) then
          {
			   action (barbbuff) on
			   var abilitystarted 0
               gosub PUT form piranha
               pause 0.5
			   if %abilitystarted 1 then put #tvar barbPiranha 1
			   action (barbbuff) off
          }
	if (%barbTurtle) && (!$barbTurtle) && (%melee = 1) && ($circle > 50) && ($innerFire > 2) then
          {
			   action (barbbuff) on
			   var abilitystarted 0
               gosub PUT form turtle
               pause 0.5
			   if %abilitystarted 1 then put #tvar barbTurtle 1
			   action (barbbuff) off
          }
     ## RANGED
	if ($barbMonkey) && (%ranged = 1) || ($barbMonkey) && ($innerFire < 2) then gosub PUT form stop monkey
	if ($barbDragon) && (%ranged = 1) || ($barbDragon) && ($innerFire < 2) then gosub PUT form stop dragon
	if ($barbTurtle) && (%ranged = 1) || ($barbTurtle) && ($innerFire < 2) then gosub PUT form stop turtle
     if (%barbEagle) && (!$barbEagle) && (%ranged = 1) && ($innerFire > 2) then
          {
			   action (barbbuff) on
			   var abilitystarted 0
               gosub PUT form eagle
               pause 0.5
			   if %abilitystarted 1 then put #tvar barbEagle 1
			   action (barbbuff) off
          }
	if (%barbPanther) && (!$barbPanther) && ($innerFire > 2) then
          {
			   action (barbbuff) on
			   var abilitystarted 0
               gosub PUT form panther
               pause 0.5
			   if %abilitystarted 1 then put #tvar barbPanther 1
			   action (barbbuff) off
          }
     if (%barbBadger) && (!$barbBadger) && ($circle > 50) && ($innerFire > 2) then
          {
			   action (barbbuff) on
			   var abilitystarted 0
               gosub PUT form badger
               pause 0.5
			   if %abilitystarted 1 then put #tvar barbBadger 1
			   action (barbbuff) off
          }
	if (%barbSwan) && (!$barbSwan) && ($innerFire > 1) && ($innerFire > 2) then
          {
			   action (barbbuff) on
			   var abilitystarted 0
               gosub PUT form swan
               pause 0.5
			   if %abilitystarted 1 then put #tvar barbSwan 1
			   action (barbbuff) off
          }
	if ($Warding.LearningRate > 33) && ($barbSwan) then send form stop swan
     # MISC
	if (%barbBear) && (!$barbBear) && ($innerFire > 2) then
          {
			   action (barbbuff) on
			   var abilitystarted 0
               gosub PUT form bear
               pause 0.5
			   if %abilitystarted 1 then put #tvar barbBear 1
			   action (barbbuff) off
          }
     pause 0.3
     put #var BarbBuffs $gametime
     if ($Warding.LearningRate < 32) then send meditate research turtle
     pause 0.3
     pause 0.3
     return