YASSE Forage (script)

Version 1
--Hithrael 21:24, 4 November 2010 (UTC)

boxmessage This script brought to you by Kraggur \nVersion 1, November 11 2010

prep:
set predefined on
setvariable style careful
counter set 0


start:
boxmessage Script pauses here, the first entry will set forage item, the second pause will be for the container to place the forgeable in.

getline
setvariable item %l
pause

getline
setvariable boxdrop %l
pause

boxmessage Foraging for: %item \nPlacing in: %boxdrop

foragecycle:
for forloop = 1 to 10
	begin
	pause
	gosub forage
	end

forage:
put forage %item %style
waitfor roundtime
put put %item in %boxdrop
return

expcheck:
pause
put exp skill foraging
waitfor Overall state of mind
getinfo ForagingState 
if %result >= 30 goto report
if %result < 30 
	begin
		counter inc
		goto foragecycle
	end

report:
boxmessage You foraged %item %c cycles (10 times per cycle) to get to at least bewildering.


end:
exit