debug off

counter set %scriptsdustuses
counter add 1
setvariable scriptsdustuses %c


if_1 goto mode%1
dust:
match full Your dust pan appears to be full.
match dust Roundtime:
match dust ...wait
match nomore Sweep what?
put sweep dust
matchwait

full:
ECHO DUSTPAN IS FULL!
waitfor [Annex, Equipment Room]
put put pan in bin
match stoweverything [You have completed your training task.]
matchwait
exit

nomore:
ECHO NO MORE DUST HERE.
exit

stoweverything:
put put my pan in closet
put put my broom in closet
put go door
put go walk
exit

modeh:
match modeh ...wait 
match modeh Wait
match auto2 Cast Roundtime 3 Seconds.
put incant 506
matchwait

#----------------------------------------------------------------------------
#              AUTO

modeauto:
match auto1 [Wizard Guild, Courtyard]
put look
matchwait

auto1:
put go walk
put go b door
put get broom
put get pan
put go b door
put nw
setvariable dustauto 1
goto auto2

auto2:
match autoempty Your dust pan appears to be full.
match autoempty But your dust pan is already full!
match auto2 Roundtime changed
match modeh R>
match auto2 ...wait
match automove Sweep what?
match automove What did the dust ever do to you?
match automove Someone else is already sweeping
match automove Wait 1
match automove Wait 2
match automove Wait 3
put sweep dust
matchwait

automove:
goto automove%dustauto

automove1:
match automove1 ...wait
match automove1b [Wizard Guild Annex, Locus]
put se
matchwait
automove1b:
put n
setvariable dustauto 2
goto auto2
automove2:
match automove2 ...wait
match automove2b [Wizard Guild Annex, Locus]
put s
matchwait
automove2b:
put ne
setvariable dustauto 3
goto auto2
automove3:
match automove3 ...wait
match automove1c [Wizard Guild Annex, Locus]
put sw
matchwait
automove1c:
put se
setvariable dustauto 4
goto auto2
automove4:
match automove4 ...wait
match automove1d [Wizard Guild Annex, Locus]
put nw
matchwait
automove1d:
put s
setvariable dustauto 5
goto auto2
automove5:
match automove5 ...wait
match automove1e [Wizard Guild Annex, Locus]
put n
matchwait
automove1e:
put sw
setvariable dustauto 6
goto auto2
automove6:
match automove6 ...wait
match automove1f [Wizard Guild Annex, Locus]
put ne
matchwait
automove1f:
put nw
setvariable dustauto 1
goto auto2

autoempty:
counter set %scriptsdustpans
counter add 1
setvariable scriptsdustpans %c
goto autoempty%dustauto

autoempty1:
match autoempty1 ...wait
match autoempty1a [Wizard Guild Annex, Locus]
put se
matchwait
autoempty1a:
put go b door
goto autoempty0
autoempty2:
match autoempty2 ...wait
match autoempty1b [Wizard Guild Annex, Locus]
put s
matchwait
autoempty1b:
put go b door
goto autoempty0
autoempty3:
match autoempty3 ...wait
match autoempty1c [Wizard Guild Annex, Locus]
put sw
matchwait
autoempty1c:
put go b door
goto autoempty0
autoempty4:
match autoempty4 ...wait
match autoempty1d [Wizard Guild Annex, Locus]
put nw
matchwait
autoempty1d:
put go b door
goto autoempty0
autoempty5:
match autoempty5 ...wait
match autoempty1e [Wizard Guild Annex, Locus]
put n
matchwait
autoempty1e:
put go b door
goto autoempty0
autoempty6:
match autoempty6 ...wait
match autoempty1f [Wizard Guild Annex, Locus]
put ne
matchwait
autoempty1f:
put go b door
goto autoempty0

autoempty0:
match autoresume remaining.]
match stoweverything [You have completed your training task.]
match autoempty0 ...wait
put put pan in bin
matchwait

autoresume:
put go b door
goto autoresume%dustauto

autoresume1:
match autoresume1 ...wait
match autoresume1a [Wizard Guild Annex, Locus]
put nw
matchwait
autoresume1a:
goto auto2

autoresume2:
match autoresume2 ...wait
match autoresume1b [Wizard Guild Annex, Locus]
put n
matchwait
autoresume1b:
goto auto2


autoresume3:
match autoresume3 ...wait
match autoresume1c [Wizard Guild Annex, Locus]
put ne
matchwait
autoresume1c:
goto auto2


autoresume4:
match autoresume4 ...wait
match autoresume1d [Wizard Guild Annex, Locus]
put se
matchwait
autoresume1d:
goto auto2


autoresume5:
match autoresume1 ...wait
match autoresume1e [Wizard Guild Annex, Locus]
put s
matchwait
autoresume1e:
goto auto2


autoresume6:
match autoresume1 ...wait
match autoresume1f [Wizard Guild Annex, Locus]
put sw
matchwait
autoresume1f:
goto auto2