Moderator: MacroQuest Developers
Code: Select all
#define FirstItem v40
#define Times v41
#define StartingPlat v42
#define CurrentPlat v43
#define PlatMade v44
#event Zombiecorpse "There are no 'a zombie's corpse' around here." /target corpse radius 25 "corpse"
Sub Main
/zapvars
/press esc
/press esc
/press esc
/alert clear 1
/alert add 1 "GM"
/alert clear 2
/alert add 1 "mob name"
/varset Times 1
/varcalc StartingPlat $char(plat)+$char(gold)/10+$char(silver)/100+$char(copper)/1000
:loop
/if $alert(1)==True {
/afk
}
/if $alert(2)==True {
/zapvars
/goto :kill
}
:kill
/varcalc CurrentPlat $char(plat)+$char(gold)/10+$char(silver)/100+$char(copper)/1000
/varcalc PlatMade $CurrentPlat-$StartingPlat
/echo Platinum made is: $PlatMade
/delay 3s
/face fast nopredict
/attack on
/if n $target(id)==0 /call LootMob
/goto :loop
/return
sub LootMob
/echo Looting...
/attack off
/target corpse radius 25 "a zombie's corpse"
/if target=="a skeleton's corpse" then /loot
/delay 1s
/loot
/loot
/delay 1s
/varset FirstItem 0
/click left corpse 0
/delay 1s
/if $cursor()==TRUE {
/varset FirstItem 1
/delay 1s
/click left auto
}
/delay 1s
/if n $FirstItem!=0 {
/click left corpse 1
/delay 1s
/if $cursor()==TRUE {
/delay 1s
/click left auto
}
}
/cleanup
/press esc
/return