@main:
gotoifobjectwithindist(@checkpos,97,0)
goto(@cutfire)

@checkpos:
setvarsnearestobject(%x,%y,97)
useitemwithobject(%x,%y,372)
wait(200)
goto(@main)

@cutfire:
setvarsnearestobject(%x,%y,70)
setvarmyx(%x)
setvarmyy(%y)
debugrs(%x)
debugrs(%y)
objcmd2(%x,%y)
wait(2000)
setvarmyx(%x)
setvarmyy(%y)
debugrs(%x)
debugrs(%y)
useitemwithgrounditem(%x,%y,14,0)
wait(2000)
goto(@main)