resetlastservermessage()
@cut2:
setvarfatigue(%f)
gotoifnum1abovenum2(@sleep,%f,95)
setvarsnearestobjects(%x,%y,0,1)
objcmd1(%x,%y)
wait(500)
gotoifbagfull(@shafts)
goto(@cut2)

@shafts:
setvarfatigue(%f)
gotoifnum1abovenum2(@sleep,%f,95)
useitemwithitembyid(13,14)
waitforquestmenu(4000)
answer(0)
wait(500)
gotoifininventory(@shafts,14)
goto(@cut2)

@sleep:
wait(2000)
useitembyid(1263)
wait(2000)
waitforwakeup(28000)
gotoifsleeping(@sleep)
goto(@cut2)