Log in

View Full Version : 21. Darashia Rotworms - by BldMx


blackd
02-18-2011, 21:20
Hunts rots in east cave and refills/deposits.
Start at Depot



setBot OldLootMode=1
setMeleeKill rotworm queen
setMeleeKill carrion worm
setPriority rotworm queen:+5
setMeleeKill rotworm
setMeleeKill wasp
setMeleeKill lion
setMeleeKill nomad
setMeleeKill hyaena
setMeleeKill spider
setMeleeKill poison spider
setMeleeKill Sandcrawler
setMeleeKill wolf
setSpellKill carrion worm,exori flam,3
setSpellKill rotworm queen,exori flam,3
setSpellKill nomad,exori flam,3
setFriendly
setLoot D7 0B
setLoot DC 25
:tothecave
move 33214,32456,8
move 33214,32454,7
move 33220,32387,7
move 33217,32400,7
move 33200,32404,7
move 33168,32417,7
move 33116,32399,7
move 33081,32389,7
move 33058,32376,7
move 33058,32375,8
:hunt
IfTrue ($mycap$#number<=#2000) Goto $nlineoflabel:bank$
IfTrue ($countitems:0C 01$#number<#10) Goto $nlineoflabel:bank$
IfTrue ($countitems:0A 01$#number<#10) Goto $nlineoflabel:bank$
move 33032,32370,8
move 33040,32375,8
move 33049,32371,8
move 33055,32370,8
move 33059,32362,8
move 33062,32361,8
move 33064,32361,8
IfTrue ($mycap$#number<=#2000) Goto $nlineoflabel:bank$
IfTrue ($countitems:0C 01$#number<#10) Goto $nlineoflabel:bank$
IfTrue ($countitems:0A 01$#number<#10) Goto $nlineoflabel:bank$
move 33064,32360,9
move 33066,32363,9
move 33064,32373,9
move 33066,32376,9
move 33064,32360,9
move 33058,32350,9
move 33068,32338,9
move 33055,32349,9
move 33052,32348,9
move 33056,32354,9
move 33064,32360,9
IfTrue ($mycap$#number<=#2000) Goto $nlineoflabel:bank$
IfTrue ($countitems:0C 01$#number<#10) Goto $nlineoflabel:bank$
IfTrue ($countitems:0A 01$#number<#10) Goto $nlineoflabel:bank$
move 33064,32361,8
move 33061,32362,8
move 33039,32375,8
move 33034,32373,8
move 33027,32370,8
move 33021,32369,8
move 33015,32372,8
move 33015,32374,8
IfTrue ($mycap$#number<=#2000) Goto $nlineoflabel:bank$
IfTrue ($countitems:0C 01$#number<#10) Goto $nlineoflabel:bank$
IfTrue ($countitems:0A 01$#number<#10) Goto $nlineoflabel:bank$
move 33014,32374,9
move 33010,32368,9
move 33020,32371,9
move 33021,32367,9
move 33022,32375,9
move 33025,32377,9
move 33032,32376,9
move 33028,32376,9
move 33015,32375,9
move 33014,32374,9
IfTrue ($mycap$#number<=#2000) Goto $nlineoflabel:bank$
IfTrue ($countitems:0C 01$#number<#10) Goto $nlineoflabel:bank$
IfTrue ($countitems:0A 01$#number<#10) Goto $nlineoflabel:bank$
move 33014,32375,8
move 33013,32375,8
move 33013,32374,8
move 33013,32373,8
move 33014,32373,8
move 33015,32372,8
move 33020,32365,8
IfTrue ($mycap$#number<=#2000) Goto $nlineoflabel:bank$
IfTrue ($countitems:0C 01$#number<#10) Goto $nlineoflabel:bank$
IfTrue ($countitems:0A 01$#number<#10) Goto $nlineoflabel:bank$
move 33023,32351,8
move 33017,32354,8
move 33012,32349,8
move 33009,32344,8
move 33008,32344,8
IfTrue ($mycap$#number<=#2000) Goto $nlineoflabel:bank$
IfTrue ($countitems:0C 01$#number<#10) Goto $nlineoflabel:bank$
IfTrue ($countitems:0A 01$#number<#10) Goto $nlineoflabel:bank$
move 33008,32343,9
move 33003,32338,9
move 33004,32348,9
move 33011,32343,9
move 33017,32339,9
move 33020,32338,9
move 33010,32344,9
move 33009,32343,9
move 33008,32343,9
IfTrue ($mycap$#number<=#2000) Goto $nlineoflabel:bank$
IfTrue ($countitems:0C 01$#number<#10) Goto $nlineoflabel:bank$
IfTrue ($countitems:0A 01$#number<#10) Goto $nlineoflabel:bank$
move 33008,32344,8
move 33009,32346,8
move 33017,32355,8
move 33020,32360,8
move 33026,32369,8
IfTrue ($mycap$#number<=#2000) Goto $nlineoflabel:bank$
IfTrue ($countitems:0C 01$#number<#10) Goto $nlineoflabel:bank$
IfTrue ($countitems:0A 01$#number<#10) Goto $nlineoflabel:bank$
gotoScriptLine $nlineoflabel:hunt$
:bank
move 33058,32375,8
move 33058,32376,7
move 33081,32389,7
move 33116,32399,7
move 33168,32417,7
move 33200,32404,7
move 33217,32400,7
move 33220,32387,7
waitX 1
fastExiva > 96 04 $hex-tibiastr:hi$
waitX 2
fastExiva > 96 04 $hex-tibiastr:Deposit all$
waitX 2
fastExiva > 96 04 $hex-tibiastr:yes$
move 33219,32422,7
move 33214,32454,7
move 33214,32460,8
putLootOnDepot
IfTrue ($countitems:0C 01$#number<#60) Goto $nlineoflabel:buyManas$
IfTrue ($countitems:0A 01$#number<#20) Goto $nlineoflabel:buyHealth$
gotoScriptLine $nlineoflabel:tothecave$
:buyManas
fastExiva _mananeeded = $numericalexp:60-{$countitems:0C 01$}$
fastExiva _costmana = $numericalexp:50*{$_mananeeded$}$
move 33214,32456,8
move 33214,32454,7
move 33222,32387,7
waitX 1
fastExiva > 96 04 $hex-tibiastr:hi$
waitX 2
sayInTrade withdraw $_costmana$
waitX 1
fastExiva > 96 04 $hex-tibiastr:yes$
waitX 1
fastExiva > 96 04 $hex-tibiastr:bye$
waitX 1
move 33216,32401,7
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 0C 01 00 $numbertohex2:{$_mananeeded$}$
waitX 1
sayInTrade bye
waitX 1
move 33214,32454,7
move 33214,32456,8
IfTrue ($countitems:0A 01$#number<#20) Goto $nlineoflabel:buyHealth$
gotoScriptLine $nlineoflabel:tothecave$
:buyHealth
move 33214,32456,8
move 33214,32454,7
move 33222,32387,7
fastExiva _healthneeded = $numericalexp:20-{$countitems:0A 01$}$
fastExiva _costhealth = $numericalexp:45*{$_healthneeded$}$
waitX 1
sayMessage hi
waitX 2
sayInTrade withdraw $_costhealth$
waitX 1
sayInTrade yes
waitX 1
sayInTrade bye
waitX 1
move 33216,32401,7
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 33214,32454,7
move 33214,32456,8
gotoScriptLine $nlineoflabel:tothecave$
elban_nr.1@hotmail.com
05-06-2011, 17:04
Doesn't it hunt in west cave? :p
urcoco
05-07-2011, 03:00
it goes to west cave goes down kill like 4 rotworms and then goes back to store...
Spinewal
05-07-2011, 15:14
I don't seem to have any trouble with it...
crazyguy
05-08-2011, 22:18
it goes to west cave goes down kill like 4 rotworms and then goes back to store...

happened to me too. :(
crazyguy
05-09-2011, 18:47
I fixed it abit, i tested it.
IT IS NOT PERFEKT!
but i like it, cause its my first sript i tryed to fix :)
Its only cash depositer and Hunting!
Code:

fastExiva _captodp = 20
fastExiva _gp = 1000
###
:cap*100
fastExiva _captogodp = $numericalexp:{$_captodp$}*100$
###
:start
setChaoticMovesON
onGMpause
setVeryFriendly
setLoot D7 0B
setMeleeKill rotworm queen
setMeleeKill carrion worm
setPriority carrion worm:+1
setPriority rotworm queen:+2
setMeleeKill rotworm
setMeleeKill wasp
setMeleeKill lion
setMeleeKill nomad
setMeleeKill hyaena
setMeleeKill spider
setMeleeKill poison spider
setMeleeKill Sandcrawler
setMeleeKill wolf
setLoot DC 25
###
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
#exp
move 33214,32456,8
move 33214,32454,7
move 33220,32387,7
move 33217,32400,7
move 33200,32404,7
move 33168,32417,7
move 33116,32399,7
move 33081,32389,7
move 33058,32376,7
move 33058,32375,8
:hunt
move 33032,32370,8
move 33040,32375,8
move 33049,32371,8
move 33055,32370,8
move 33059,32362,8
move 33062,32361,8
move 33064,32361,8
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
move 33064,32360,9
move 33066,32363,9
move 33064,32373,9
move 33066,32376,9
move 33064,32360,9
move 33058,32350,9
move 33068,32338,9
move 33055,32349,9
move 33052,32348,9
move 33056,32354,9
move 33064,32360,9
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
move 33064,32361,8
move 33061,32362,8
move 33039,32375,8
move 33034,32373,8
move 33027,32370,8
move 33021,32369,8
move 33015,32372,8
move 33015,32374,8
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
move 33014,32374,9
move 33010,32368,9
move 33020,32371,9
move 33021,32367,9
move 33022,32375,9
move 33025,32377,9
move 33032,32376,9
move 33028,32376,9
move 33015,32375,9
move 33014,32374,9
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
move 33014,32375,8
move 33013,32375,8
move 33013,32374,8
move 33013,32373,8
move 33014,32373,8
move 33015,32372,8
move 33020,32365,8
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
move 33023,32351,8
move 33017,32354,8
move 33012,32349,8
move 33009,32344,8
move 33008,32344,8
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
move 33008,32343,9
move 33003,32338,9
move 33004,32348,9
move 33011,32343,9
move 33017,32339,9
move 33020,32338,9
move 33010,32344,9
move 33009,32343,9
move 33008,32343,9
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
move 33008,32344,8
move 33009,32346,8
move 33017,32355,8
move 33020,32360,8
move 33026,32369,8
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
gotoScriptLine $nlineoflabel:hunt$
:dp
setChaoticMovesOFF
move 33058,32375,8
move 33058,32376,7
move 33081,32389,7
move 33116,32399,7
move 33168,32417,7
move 33200,32404,7
move 33217,32400,7
move 33220,32387,7
sayInTrade hi
waitX $randomnumber:1>2$
sayInTrade deposit all
waitX $randomnumber:1>2$
sayInTrade yes
waitX $randomnumber:1>2$
sayInTrade balance
gotoScriptLine $nlineoflabel:start$
corrupt
05-10-2011, 21:09
I fixed it abit, i tested it.
IT IS NOT PERFEKT!
but i like it, cause its my first sript i tryed to fix :)
Its only cash depositer and Hunting!
Code:

fastExiva _captodp = 20
fastExiva _gp = 1000
###
:cap*100
fastExiva _captogodp = $numericalexp:{$_captodp$}*100$
###
:start
setChaoticMovesON
onGMpause
setVeryFriendly
setLoot D7 0B
setMeleeKill rotworm queen
setMeleeKill carrion worm
setPriority carrion worm:+1
setPriority rotworm queen:+2
setMeleeKill rotworm
setMeleeKill wasp
setMeleeKill lion
setMeleeKill nomad
setMeleeKill hyaena
setMeleeKill spider
setMeleeKill poison spider
setMeleeKill Sandcrawler
setMeleeKill wolf
setLoot DC 25
###
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
#exp
move 33214,32456,8
move 33214,32454,7
move 33220,32387,7
move 33217,32400,7
move 33200,32404,7
move 33168,32417,7
move 33116,32399,7
move 33081,32389,7
move 33058,32376,7
move 33058,32375,8
:hunt
move 33032,32370,8
move 33040,32375,8
move 33049,32371,8
move 33055,32370,8
move 33059,32362,8
move 33062,32361,8
move 33064,32361,8
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
move 33064,32360,9
move 33066,32363,9
move 33064,32373,9
move 33066,32376,9
move 33064,32360,9
move 33058,32350,9
move 33068,32338,9
move 33055,32349,9
move 33052,32348,9
move 33056,32354,9
move 33064,32360,9
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
move 33064,32361,8
move 33061,32362,8
move 33039,32375,8
move 33034,32373,8
move 33027,32370,8
move 33021,32369,8
move 33015,32372,8
move 33015,32374,8
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
move 33014,32374,9
move 33010,32368,9
move 33020,32371,9
move 33021,32367,9
move 33022,32375,9
move 33025,32377,9
move 33032,32376,9
move 33028,32376,9
move 33015,32375,9
move 33014,32374,9
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
move 33014,32375,8
move 33013,32375,8
move 33013,32374,8
move 33013,32373,8
move 33014,32373,8
move 33015,32372,8
move 33020,32365,8
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
move 33023,32351,8
move 33017,32354,8
move 33012,32349,8
move 33009,32344,8
move 33008,32344,8
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
move 33008,32343,9
move 33003,32338,9
move 33004,32348,9
move 33011,32343,9
move 33017,32339,9
move 33020,32338,9
move 33010,32344,9
move 33009,32343,9
move 33008,32343,9
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
move 33008,32344,8
move 33009,32346,8
move 33017,32355,8
move 33020,32360,8
move 33026,32369,8
IFTrue ($mycap$#number<=$_captogodp$) Goto $nlineoflabel:dp$
IFTrue ($countitems:D7 0B$#number>=#$_gp$) Goto $nlineoflabel:dp$
gotoScriptLine $nlineoflabel:hunt$
:dp
setChaoticMovesOFF
move 33058,32375,8
move 33058,32376,7
move 33081,32389,7
move 33116,32399,7
move 33168,32417,7
move 33200,32404,7
move 33217,32400,7
move 33220,32387,7
sayInTrade hi
waitX $randomnumber:1>2$
sayInTrade deposit all
waitX $randomnumber:1>2$
sayInTrade yes
waitX $randomnumber:1>2$
sayInTrade balance
gotoScriptLine $nlineoflabel:start$


If i could get someone to add in the hp pots/mana pots/ and the buyer from the previous one, would be much appreciated.
mati88
05-26-2011, 14:14
it doesn't rope me to the store :s
Rivve
07-28-2011, 19:34
Nice script, testing it right now,
People having problems with it id suggest you change
IfTrue ($countitems:0C 01$#number<#60) Goto $nlineoflabel:buyManas$
IfTrue ($countitems:0A 01$#number<#20) Goto $nlineoflabel:buyHealth$