carveItem

#carveItem <name> <chapter> <page> <rock>
echo carveItem <name> <chapter> <page> <rock>
if $charactername = Rajiruji then put khri start focus dampen seren elus
if $charactername = Seisa then var workContainer sack
if $charactername = Rajiruji then var workContainer alch sack
if $charactername = Rajiruji then pause
var workRoom 715
var toolOrderRoom 718
var polishOrderNumber 4
var itemDone 0

action var smoothItem 1 when Upon completion you notice several rough, jagged edges protruding
action var polishItem 1 when Upon finishing you see some discolored areas
action var itemDone 1 when Applying the final touches, you complete working on
action var raspItem 1 when and determine it is no longer level
action var raspItem 1 when  developed an uneven texture along

var rock %4
var page %3
var chapter %2
var name %1

start:
put get my car book
waitfor You
put turn my book to chapter %chapter
waitfor You
put turn my book to page %page
waitfor You
put study my book
pause
pause
put put my book in my %workContainer
waitfor You
put get my chis
waitfor You
firstCarve:
match firstCarveSuccess Roundtime
match firstCarve Encumbrance :
put carve %rock with my chis
put enc
matchwait
firstCarveSuccess:
pause
pause
carveLoop:
gosub carveTime
if %itemDone = 0 then goto carveLoop
put put $righthand in my %workContainer
waitfor You
put ECHO ENDCARVEITEM
exit


carveTime:
if %smoothItem = 1 then gosub smoothIt
if %polishItem = 1 then gosub polishIt
if %raspItem = 1 then gosub raspIt
put carve %name with chis
pause
pause
return


smoothIt:
put get my riff
waitfor You
put rub %name with my riff
pause
pause
put put my riff in my %workContainer
waitfor You
var smoothItem 0
return

polishIt:
match gotPolish You get
match NeedPolish What were you referring to?
put get my polish
matchwait
NeedPolish:
gosub move %toolOrderRoom
put order %polishOrderNumber
waitfor The atte
put order %polishOrderNumber
waitfor The atte
gosub move %workRoom
gotPolish:
put apply my polish to %name
pause
pause
put put my polish in my %workContainer
waitforre You|What
var polishItem 0
return

raspIt:
put get my rasp
waitfor You
put scrap %name with my rasp
pause
pause
put put my rasp in my %workContainer
waitfor You
var raspItem 0
return


move:
retryMove:
var moveRoom $1
put get my pebb
waitforre You|What
put drop my pebb
waitforre You|What
counter set 0
echo #GOTO %moveRoom
put #goto %moveRoom
travelWait:
if $roomid = %moveRoom then goto travelSuccess
pause
counter add 1
if %c > 5 then goto retryMove
goto travelWait

travelSuccess:
return