this buries the bones at the 5 ghost spawns near khazard

@bones:
wait(100)
gotoifbagfull(@bury)
goto(@pick)

@pick:
setvarsnearestitem(%x,%y,20)
gotoifnum1betweennum2andnum3(@xchecked,%x,685,693)
goto(@bones)

@xchecked:
gotoifnum1betweennum2andnum3(@pickthem,%y,648,659)
goto(@bones)

@pickthem:
takeitembyname(%x,%y,Bones)
wait(300)
goto(@bones)

@bury:
setvarfatigue(%f)
gotoifnum1equalnum2(@sleep,%f,100)
useitembyid(20)
wait(500)
gotoifininventory(@bury,20)
goto(@bones)