Laguna Amazon Island -1 & -2 with Depositor/Supply/Spearbuyer

Exp/h: 30+k/h is the minimum you get there. You can get up to 40k/h on a higher leveled character.
Depositor/Supply Buyer: Yes
Vocations: Knight, Paladin
Loot: Alot of gold, turtle shells, war hammers and tortoise eggs
Monsters: Toad, Tortoise, Thornback Tortoise, Blood Crab, Frogs, Amazon
Advised level: 50
Information: Start the script at depot on the sqm shown at the screenshot below. Allow reposition at start if your starting the script at laguna. Note that I can only guarantee it'll be bugfree if you start the script at depot. You need backpacks to carry your loot and potions. If you don't know how to organise your backpacks, again check the screenshot below. You will also need a shovel and a rope. If you want to run this script on a paladin you have to wear atleast 1 royal spear! The script will deposit the loot in depot, will go to the bank and deposit the looted money, withdraws money to buy potions, goes to the potionshop and sells empty flasks, buys new potions and if you're a paladin it'll buy royal spears. Then it'll make his way to laguna. The script will keep hunting until it has less than 21 potions or 30 capacity for knights or less than 21 potions or 11 royal spears for paladins. You shouldn't worry to much about the 'hero' monsters. I never seen one before there and they are very rare. You should be fine with the build-in function of blackD.

Code:

#IF YOU WANT TO USE THIS SCRIPT FOR A PALADIN YOU NEED TO CARRY ATLEAST 1 ROYAL SPEAR!!
#Strong - Health/Mana potions (id of potion) HP= 0A 01, SHP= EC 00, GHP = EF 00, MP = 0C 01, SMP = ED 00, GMP = EE 00
fastExiva _kmana= ED 00
#Potion price HP= 45, SHP= 100, GHP= 190, MP= 50, SMP= 80, GMP= 120
fastExiva _cpotion= 80
#Potion (How many potions you want at the start of the hunt)
fastExiva _xmana= 40
fastExiva < B4 13 $hex-tibiastr:Script written by Arne. Visit tibiascripts.tk for more scripts! Enjoy.$
onGMpause
SetFriendly
setMeleeKill thornback tortoise
setMeleeKill tortoise
setMeleeKill wasp
setMeleeKill amazon
setMeleeKill rat
setMeleeKill azure frog
setMeleeKill spider
setMeleeKill bug
setMeleeKill poison spider
setMeleeKill orchid frog
setMeleeKill crocodile
setMeleeKill crimson frog
setMeleeKill coral frog
setMeleeKill crab
setMeleeKill toad
setMeleeKill tortoise
move 32337,32838,7
move 32337,32838,7
move 32336,32837,6
move 32333,32832,6
move 32333,32832,6
resetLoot
setLoot 0B 17
setLoot 2E 16
setLoot CF 0C
waitX 1
putLootOnDepot
move 32336,32837,6
move 32336,32839,7
move 32338,32836,7
resetLoot
:cumpliments
move 32338,32836,7
move 32338,32836,7
sayMessage hi
waitX 1
fastExiva > 96 04 $hex-tibiastr:deposit all$
waitX 1
fastExiva > 96 04 $hex-tibiastr:yes$
waitX 2
fastExiva _mana1= $countitems:{$_kmana$}$
fastExiva _manapotion = $numericalexp:{$_xmana$}-{$_mana1$}$
fastExiva _manapotionmoney = $numericalexp:{$_manapotion$}*{$_cpotion$}$
SayInTrade Withdraw $_manapotionmoney$
waitx 1
SayIntrade Yes
waitX 1
move 32344,32810,7
waitX 1
#empty flasks selling
fastExiva > 96 04 $hex-tibiastr:hi$
waitX 1
sayInTrade Vial
waitX 1
sayInTrade Yes
waitX 1
#Mana buyer
sayInTrade trade
waitX 1
fastExiva > 07 00 7A $_kmana$ 00 $numbertohex2:{$_manapotion$}$ 00
waitX 1
move 32339,32836,7
sayMessage hi
waitX 2
fastExiva > 96 04 $hex-tibiastr:deposit all$
waitX 1
sayInTrade Withdraw 50
sayInTrade Yes
waitX 1
IfTrue ($countitems:D2 1C$#number=#0) Goto $nlineoflabel:toisland$
fastExiva _spears = $numericalexp:{$numericalexp:{$mycap$}/2500$}-1$
fastExiva _spearcost = $numericalexp:{$numericalexp:{$_spears$}*15$}+50$
fastExiva > 96 04 $hex-tibiastr:withdraw {$_spearcost$}$
sayInTrade yes
move 32311,32832,7
move 32295,32818,7
move 32295,32818,7
sayMessage hi
waitX 2
fastExiva > 96 04 $hex-tibiastr:trade$
waitX 1
fastexiva buy:D2 1C:{$_spears$}
waitX 1
:safetycheck
IfTrue ($countitems:D2 1C$#number=#0) Goto $nlineoflabel:toisland$
IfTrue ($countitems:D2 1C$#number<=#20) Goto $nlineoflabel:cumpliments$
IfTrue ($countitems:D2 1C$#number>=#21) Goto $nlineoflabel:toisland$
:toisland
setLoot D7 0B
setLoot F3 17
setLoot 0B 17
setLoot 2E 16
setLoot CF 0C
move 32347,32855,7
move 32347,32857,7
sayMessage hi
waitX 1
fastExiva > 96 04 $hex-tibiastr:peg leg$
waitX 1
fastExiva > 96 04 $hex-tibiastr:yes$
waitX 1
move 32342,32569,7
move 32340,32540,7
move 32340,32540,7
IfTrue ($myx$#string<>#32340) Goto $nlineoflabel:pass7$
waitX 2
move 32340,32540,7
move 32340,32540,7
:pass7
IfTrue ($myy$#string<>#32540) Goto $nlineoflabel:pass8$
waitX 2
move 32340,32540,7
move 32340,32540,7
:pass8
sayMessage exiva > 01 00 65
sayMessage exiva > 01 00 65
sayMessage exiva > 01 00 65
move 32406,32955,7
move 32432,32970,7
move 32440,32973,7
move 32440,32973,7
IfTrue ($myx$#string<>#32440) Goto $nlineoflabel:pass5$
waitX 2
move 32440,32973,7
move 32440,32973,7
:pass5
IfTrue ($myy$#string<>#32973) Goto $nlineoflabel:pass6$
waitX 2
move 32440,32973,7
move 32440,32973,7
:pass6
sayMessage exiva > 01 00 65
sayMessage exiva > 01 00 65
sayMessage exiva > 01 00 65
move 32521,32963,7
move 32527,32954,7
move 32527,32954,8
:cavehunt
setFollow
setRetryAttacks
setLoot D7 0B
setLoot 0B 17
setLoot 2E 16
setLoot CF 0C
move 32510,32971,8
move 32496,32962,8
move 32486,32968,8
move 32486,32968,9
move 32468,32975,9
move 32487,32958,9
move 32471,32935,9
move 32492,32931,9
move 32506,32967,9
move 32507,32991,9
move 32500,33009,9
move 32500,33010,8
move 32533,32984,8
move 32525,32973,8
$countitems:{$_kmana$}$
IfTrue ($countitems:D2 1C$#number=#0) Goto $nlineoflabel:manacheck$
IfTrue ($countitems:D2 1C$#number<=#10) Goto $nlineoflabel:backtodepot$
IfTrue ($countitems:D2 1C$#number>=#11) Goto $nlineoflabel:cavehunt$
:manacheck
IfTrue ($countitems:{$_kmana$}$#number<=#20) Goto $nlineoflabel:backtodepot$
IfTrue ($countitems:{$_kmana$}$#number>=#21) Goto $nlineoflabel:capcheck$
:capcheck
IfTrue ($mycap$#number>#3000) Goto $nlineoflabel:cavehunt$
IfTrue ($mycap$#number<=#3000) Goto $nlineoflabel:backtodepot$
:backtodepot
move 32527,32954,8
move 32527,32954,7
move 32490,32980,7
move 32490,32980,7
IfTrue ($myx$#string<>#32490) Goto $nlineoflabel:pass3$
waitX 2
move 32490,32980,7
move 32490,32980,7
:pass3
IfTrue ($myy$#string<>#32980) Goto $nlineoflabel:pass4$
waitX 2
move 32490,32980,7
move 32490,32980,7
:pass4
sayMessage exiva > 01 00 65
sayMessage exiva > 01 00 65
move 32490,32978,7
move 32440,32972,7
move 32382,32937,7
move 32359,32902,7
move 32359,32902,7
IfTrue ($myx$#string<>#32359) Goto $nlineoflabel:pass1$
waitX 2
move 32359,32902,7
move 32359,32902,7
IfTrue ($myx$#string<>#32359) Goto $nlineoflabel:pass1$
move 32359,32902,7
move 32359,32902,7
:pass1
IfTrue ($myy$#string<>#32902) Goto $nlineoflabel:pass2$
waitX 2
move 32359,32902,7
move 32359,32902,7
:pass2
sayMessage exiva > 01 00 65
sayMessage exiva > 01 00 65
move 32340,32539,7
move 32347,32593,7
move 32347,32593,7
move 32348,32623,7
move 32348,32623,7
sayMessage hi
waitX 1
fastExiva > 96 04 $hex-tibiastr:liberty bay$
waitX 1
fastExiva > 96 04 $hex-tibiastr:yes$
move 32312,32719,7
move 32312,32734,7
move 32312,32748,7
move 32312,32761,7
move 32311,32770,7
move 32313,32792,7
move 32330,32799,7
move 32324,32820,7
move 32335,32828,7
move 32342,32833,7
waitX 1
gotoScriptLine 0