Other - DreadBox Server: Use Dragonballs and AA Tokens

[Slade the Magician]

This macro is made for the Dreadbox EMU Server. It will use all Dragonballs and AA tokens. No more mouse hotkeys to right click these for what feels like forever. It was originally began with an adaptation with a turn in macro from @kkmonte which was adapted to Dreadbox Server by @Dead. I further modified it since now the turn in portion is no longer necessary and all of these items can just be clicked from inventory.

Useage:

 /mac usetoken

with Dragon Balls or AA Tokens in your inventory.

|turnin.mac - 20 DEC 2004
|Originally by kkmonte. Updated by Redbot for use on Redguides.com
|
|Dragonballs.mac - 11 NOV 2021
|Adapted by Dead (Redguides) or Keadian (Dreadbox) for the use of turning in dragonballs on DreadBox Private Emulated Server
|USAGE: /macro DragonBalls
|
|usetoken.mac - 20 NOV 2021
|Adapted by Slade the Magician (Redguides) or Garg (Dreadbox) for use in consuming AA Tokens and Dragon Balls on Dreadbox Private Emulated Server
|USAGE: /macro usetoken
|

Sub Main

:First 
   /if (${FindItemCount[=1000 AA Token]}<1) /goto :Second
   /nomodkey /useitem "1000 AA Token"
/goto :First
:Second
   /if (${FindItemCount[=5000 AA Token]}<1) /goto :Third
   /nomodkey /useitem "5000 AA Token"
/goto :Second
:Third
   /if (${FindItemCount[=10000 AA Token]}<1) /goto :Fourth
   /nomodkey /useitem "10000 AA Token"
/goto :Third
:Fourth 
   /if (${FindItemCount[=I Star Dragon Ball]}<1) /goto :Fifth
   /nomodkey /useitem "I Star Dragon Ball"
/goto :Fourth
:Fifth 
   /if (${FindItemCount[=II Star Dragon Ball]}<1) /goto :Sixth
   /nomodkey /useitem "II Star Dragon Ball"
/goto :Fifth
:Sixth 
   /if (${FindItemCount[=III Star Dragon Ball]}<1) /goto :Seventh
   /nomodkey /useitem "III Star Dragon Ball"
/goto :Sixth
:Seventh 
   /if (${FindItemCount[=IV Star Dragon Ball]}<1) /goto :Eigth
   /nomodkey /useitem "IV Star Dragon Ball"
/goto :Seventh
:Eigth 
   /if (${FindItemCount[=V Star Dragon Ball]}<1) /goto :Ninth
   /nomodkey /useitem "V Star Dragon Ball"
/goto :Eigth
:Ninth 
   /if (${FindItemCount[=VI Star Dragon Ball]}<1) /goto :Tenth
   /nomodkey /useitem "VI Star Dragon Ball"
/goto :Ninth
:Tenth 
   /if (${FindItemCount[=VII Star Dragon Ball]}<1) /goto :Done
   /nomodkey /useitem "VII Star Dragon Ball"
/goto :Tenth
:Done
/delay 1
/echo All Dragons Balls and AA Tokens have been turned used.
/endmacro