debug 10


gosub COUNT jadice flower
gosub COUNT yelith root
gosub COUNT plovik leaf
gosub COUNT ithor potion
gosub COUNT nemoih salve
gosub COUNT eghmok potion
gosub COUNT georin salve
gosub COUNT riolur leaf
gosub COUNT hulnik grass
gosub COUNT junliar stem
gosub COUNT nilos salve
gosub COUNT muljin sap
gosub COUNT sufil sap
gosub COUNT aevaes solution


var herblist jadice flower|yelith root|plovik leaf|ithor potion|nemoih salve|eghmok potion|georin salve|riolur leaf|hulnik grass|junliar stem|nilos salve|muljin sap|sufil sap|aevaes solution
var herbcount %jadicecount|%yelithcount|%plovikcount|%ithorcount|%nemoihcount|%eghmokcount|%georincount|%riolurcount|%hulnikcount|%junliarcount|%niloscount|%muljincount|%sufilcount|%aevaescount

eval length count("%herblist","|")
var count 1000
var index 0
herb_loop:
  eval herbs %herblist(%index)
  eval amt %herbcount(%index)
  if (%amt < %count) then
  {
    var herb_to_buy %herbs
    var count %amt
  }
  math index add 1
  if (%index < %length) then goto herb_loop

put #echo herb to buy: %herb_to_buy
exit


COUNT:
var herb $1
matchre count1 (There are|You count out) (1|one) (part|use)
matchre count2 (There are|You count out) (2|two) (parts|uses)
matchre count3 (There are|You count out) (3|three) (parts|uses)
matchre count4 (There are|You count out) (4|four) (parts|uses)
matchre count5 (There are|You count out) (5|five) (parts|uses)
matchre count6 (There are|You count out) (6|six) (parts|uses)
matchre count7 (There are|You count out) (7|seven) (parts|uses)
matchre count8 (There are|You count out) (8|eight) (parts|uses)
matchre count9 (There are|You count out) (9|nine) (parts|uses)
matchre count10 (There are|You count out) (10|ten) (parts|uses)
matchre count11 (There are|You count out) (11|eleven) (parts|uses)
matchre count12 (There are|You count out) (12|twelve) (parts|uses)
matchre count13 (There are|You count out) (13|thirteen) (parts|uses)
matchre count14 (There are|You count out) (14|fourteen) (parts|uses)
matchre count15 (There are|You count out) (15|fifteen) (parts|uses)
matchre count16 (There are|You count out) (16|sixteen) (parts|uses)
matchre count17 (There are|You count out) (17|seventeen) (parts|uses)
matchre count18 (There are|You count out) (18|eighteen) (parts|uses)
matchre count19 (There are|You count out) (19|nineteen) (parts|uses)
matchre count20 (There are|You count out) (20|twenty) (parts|uses)
matchre count21 (There are|You count out) (21|twenty-one) (parts|uses)
matchre count22 (There are|You count out) (22|twenty-two) (parts|uses)
matchre count23 (There are|You count out) (23|twenty-three) (parts|uses)
matchre count24 (There are|You count out) (24|twenty-four) (parts|uses)
matchre count25 (There are|You count out) (25|twenty-five) (parts|uses)
matchre count26 (There are|You count out) (26|twenty-six) (parts|uses)
matchre count27 (There are|You count out) (27|twenty-seven) (parts|uses)
matchre count28 (There are|You count out) (28|twenty-eight) (parts|uses)
matchre count29 (There are|You count out) (29|twenty-nine) (parts|uses)
put count $0 in smock
matchwait

count1:
	var herbcount 1
	goto %herb
count2:
	var herbcount 2
	goto %herb
count3:
	var herbcount 3
	goto %herb
count4:
	var herbcount 4
	goto %herb
count5:
	var herbcount 5
	goto %herb
count6:
	var herbcount 6
	goto %herb
count7:
	var herbcount 7
	goto %herb
count8:
	var herbcount 8
	goto %herb
count9:
	var herbcount 9
	goto %herb
count10:
	var herbcount 10
	goto %herb
count11:
	var herbcount 11
	goto %herb
count12:
	var herbcount 12
	goto %herb
count13:
	var herbcount 13
	goto %herb
count14:
	var herbcount 14
	goto %herb
count15:
	var herbcount 15
	goto %herb
count16:
	var herbcount 16
	goto %herb
count17:
	var herbcount 17
	goto %herb
count18:
	var herbcount 18
	goto %herb
count19:
	var herbcount 19
	goto %herb
count20:
	var herbcount 20
	goto %herb
count21:
	var herbcount 21
	goto %herb
count22:
	var herbcount 22
	goto %herb
count23:
	var herbcount 23
	goto %herb
count24:
	var herbcount 24
	goto %herb
count25:
	var herbcount 25
	goto %herb
count26:
	var herbcount 26
	goto %herb
count27:
	var herbcount 27
	goto %herb
count28:
	var herbcount 28
	goto %herb
count29:
	var herbcount 29
goto %herb




jadice:
var jadicecount %herbcount
put #echo Jadice %jadicecount
return

yelith:
var yelithcount %herbcount
return

plovik:
var plovikcount %herbcount
return

ithor:
var ithorcount %herbcount
return

nemoih:
var nemoihcount %herbcount
return

eghmok:
var eghmokcount %herbcount
return

georin:
var georincount %herbcount
return

riolur:
var riolurcount %herbcount
return

hulnik:
var hulnikcount %herbcount
return

junliar:
var junliarcount %herbcount
return

nilos:
var niloscount %herbcount
return

muljin:
var muljincount %herbcount
return

sufil:
var sufilcount %herbcount
return

aevaes:
var aevaescount %herbcount
return