Royal Spear refiller to this script - Port Hope Tortoises

[damian99]

Hello everyone,
I am looking for support, I need a royal spear refiller to this script or any existing one?
Script is exping at Port Hope Tortoises, I need a spear refiller that buys royal spears in Port Hope when less then 6 spears and also buys mana potion if less then 20. Thanks in advance.

onGMpause
setFollow
setLoot D7 0B
setBot OldLootMode=1
setPriority carniphila:+2
setMeleeKill Blood Crab
setPriority Blood Crab:+1
setMeleeKill Caniphila
setMeleeKill tortoise
setMeleeKill carrion worm
setMeleeKill snake
setMeleeKill cave rat
setMeleeKill centipede
setMeleeKill crab
setMeleeKill crocodile
setMeleeKill swamp troll
setMeleeKill slime
move 32611,32703,8
move 32604,32694,8
move 32595,32704,8
move 32608,32679,8
move 32595,32654,8
move 32585,32673,8
move 32579,32683,8
move 32590,32666,8
move 32609,32674,8
move 32611,32674,8
move 32611,32673,9
move 32591,32671,9
move 32587,32657,9
move 32583,32678,9
move 32564,32695,9
move 32545,32713,9
move 32538,32725,9
move 32524,32728,9
move 32533,32711,9
move 32531,32709,9
move 32531,32708,10
move 32548,32693,10
move 32571,32670,10
move 32585,32654,10
move 32594,32664,10
move 32577,32661,10
move 32574,32678,10
move 32591,32718,10
move 32622,32718,10
move 32639,32719,10
move 32583,32726,10
move 32583,32733,10
move 32599,32746,10
move 32621,32759,10
move 32621,32758,10
move 32621,32759,9
move 32603,32749,9
move 32578,32732,9
move 32600,32735,9
move 32620,32719,9
move 32604,32706,9
move 32589,32716,9
move 32601,32696,9
move 32595,32680,9
move 32609,32672,9
move 32611,32673,9
move 32611,32674,8
move 32606,32683,8
move 32610,32701,8
fastExiva _myvariable = 1
IfTrue ($mycap$#number<=#10) Goto $nlineoflabel:deposit$
IfTrue ($countitems:0A 01$#number<=#5) Goto $nlineoflabel:deposit$
gotoScriptLine 0
:deposit
move 32613,32703,8
move 32613,32704,7
move 32612,32711,7
move 32613,32727,7
move 32617,32742,7
move 32625,32750,7
move 32625,32748,6
move 32625,32746,6
move 32632,32739,6
waitX 1
sayMessage hi
waitX 1
sayInTrade deposit all
waitX 1
sayInTrade yes
waitX 1
sayInTrade balance
waitX 1
IfTrue ($countitems:0A 01$#number<#20) Goto $nlineoflabel:buyHealth$
sayMessage hi
waitX 1
sayInTrade trade
waitX 1
fastExiva > 7B 1D 01 00 $numbertohex1:{$countitems:1D 01$}$
waitX 1
move 32630,32741,5
move 32630,32742,6
move 32632,32739,6
IfTrue ($countitems:0A 01$#number<#5) Goto $nlineoflabel:buyHealth$
gotoScriptLine $nlineoflabel:goDropLoot$
:buyHealth
fastExiva _healthneeded = $numericalexp:60-{$countitems:0A 01$}$
fastExiva _costhealth = $numericalexp:45*{$_healthneeded$}$
move 32632,32739,6
waitX 1
SayMessage Hi
waitX 2
sayInTrade withdraw $_costhealth$
waitX 1
sayInTrade yes
waitX 1
move 32630,32742,6
move 32630,32741,5
move 32624,32740,5
waitX 1
sayMessage hi
waitX 1
sayInTrade trade
waitX 1
fastExiva > 7B 1D 01 00 $numbertohex1:{$countitems:1D 01$}$
waitX 1
fastExiva > 07 00 7A 0A 01 00 $numbertohex2:{$_healthneeded$}$
waitX 1
sayInTrade bye
waitX 1
move 32630,32741,5
move 32630,32742,6
move 32632,32739,6
:goDropLoot
fastExiva < B4 10 $hex-tibiastr:Now going to drop loot.$
move 32625,32748,6
move 32625,32750,7
move 32623,32740,7
gotoScriptLine 0