Log in

View Full Version : [OUTDATED][SRL4] Ratz! Combat OverDrive 0.69



Pages : 1 [2] 3

WT-Fakawi
10-02-2007, 06:22 AM
I get this error...

rename RETALIATE in line 675 to RETALIATE2

I will reup a new version later this week.

NiCbaZ
10-02-2007, 11:36 AM
my sscss dosn't work it is stuffed up it only shows a small part of the runescape screen!! HELP

WT-Fakawi
10-02-2007, 06:57 PM
New Ratz!, compatible with SRL 4 Rev #4, minor mods.

Enjoy.

deathcrow
10-03-2007, 12:59 AM
hmm the script works great except it doesnt ever cut logs.....do u think i should use scss to fix this?

NiCbaZ
10-03-2007, 05:15 AM
gunna realise cows again?

WT-Fakawi
10-03-2007, 05:45 AM
hmm the script works great except it doesnt ever cut logs.....do u think i should use scss to fix this?

Set the UseSCSS flag to False.

Gala
10-04-2007, 03:39 PM
Ty very much, it works peferct.

(Its the first script, who is working.) :D

realrocker00
10-06-2007, 07:16 PM
nice script, it works perfectly but it will only run 1 time through. i need help

realrocker00
10-06-2007, 09:07 PM
<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 52 Minutes and 58 Seconds
Killed 69 Rats and Goblins
One Hitters: 0
Good Clicks: 67
Chase Clicks: 20
Chopped 27 Trees
Lit 40 Logs
Ate 16 Meat
Cooked 12 Times
Cooked 92 Meat
Buried 6 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
**********************************************
Name : "username"
Number : 0
Worked for : 0 minutes.
Active : True
**********************************************
0 : "username" = T. AT 17. ST 12. DF 20. PR 2. HP 19. MG 4. CO 7. FM 9. WC 46. W : 0 min. L: R:
**********************************************

under the proggie it says "Error detecting Compass Angle." how do i fix that?

FIXED...i logged in latter and i was all the way in the wizards tower...lol...dont ask me how my guy got their

realrocker00
10-06-2007, 09:09 PM
ps. i got the script to work as you can see i poasted proggie...nice script

thematpan
10-07-2007, 03:24 AM
hey fawk, k i've had no problems with this script before but for some reason i tried running it now and it says, identifier expected in script.. line 182.

EDIT: nvm, i just realized that there was an updated version (.70) sorry bout that

working great now.

DillonSykes
10-07-2007, 05:51 AM
Thanks, Ill try it out.

monstras
10-09-2007, 06:01 PM
ty very good skript

rr856
10-09-2007, 06:08 PM
wow cool script, never seen a script with so many things it can level

what happens when its losses connection, my internet is really bad?

WT-Fakawi
10-09-2007, 07:53 PM
wow cool script, never seen a script with so many things it can level

what happens when its losses connection, my internet is really bad?

You log out :)

Cruel100
10-09-2007, 10:07 PM
The script works well! Congratulations! It´s the first that works well! But it don´t get the bones... Maybe I do something wrong?

tehpure
10-10-2007, 12:11 AM
Nice script. I'm making 3 new pures I guess :)

monstras
10-10-2007, 01:40 PM
good script works for me ty :)

shaun1179
10-10-2007, 09:45 PM
Dude u rule i got ur miner and combat trainer now keep up the good work :P:spot: :spot: :spot: :spot: :spot: :spot:

Fumanchu
10-11-2007, 03:20 AM
This is an awesome script whenever my SCAR doesn't decide to stall itself at random times.

bonzakid
10-11-2007, 06:27 AM
wow very nice, good job =)

Aloush89
10-11-2007, 11:51 AM
i liked the script...its pretty good!

Aloush89
10-11-2007, 11:54 AM
and its flawless too!!
<============== -RatZ 0.70 Divi- Progress Report ===============>
Worked for 23 Hours, 43 Minutes and 21 Seconds

runeman11
10-13-2007, 02:07 AM
finally... gonna use this script while i am in class :)

schoony
10-13-2007, 04:49 PM
Sounds good.

DL'ing now1

Suicidal Bladez
10-14-2007, 09:57 PM
doesn't work...maybe if you help me ill get it to work

WT-Fakawi
10-14-2007, 10:00 PM
doesn't work...maybe if you help me ill get it to work

Shoot.

mortenlt
10-14-2007, 10:18 PM
This script sounds really advanced :o
but then i don't know much about these things...

I'll try to learn a little scripting and make this auto-looter ive always wanted =P

ceapy
10-15-2007, 12:39 AM
Cool script lol :D But i have a problem, when i filled in everything that I had to fill, and when it logged me in, it clicks on the map (on the top right) and just keeps opposite of the direction im facing(so if im facing north, it would click south, and so on :( ) is there something im doing wrong? plz help!

Fumanchu
10-15-2007, 04:33 AM
Mine stalls... I got it to work the very first time I installed SCAR and setup your script... but when I reloaded it it just says the script compiled and just idles there and does nothing.

Ritacame
10-16-2007, 02:23 AM
<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 2 Hours, 26 Minutes and 8 Seconds
Killed 362 Rats and Goblins
One Hitters: 40
Good Clicks: 361
Chase Clicks: 50
Chopped 45 Trees
Lit 62 Logs
Ate 30 Meat
Cooked 15 Times
Cooked 71 Meat
Buried 16 Bones

Sypher
10-16-2007, 07:12 PM
this is a nice script ive been using it for a while now and have had no problems what so ever , nice one :)

Sweden
10-16-2007, 07:46 PM
Me neither, i really like this script :)

RudeBoiAlex
10-18-2007, 08:39 PM
Mwahaha using now army of 14 :p

vanir 00
10-18-2007, 08:44 PM
Man i love this script... been using it like crazy. Thx loads and keep up the good work ;-)

RudeBoiAlex
10-18-2007, 09:17 PM
Ok 8 players all moved to ratz spot i ran this uid deleter script using on firefox, logged in and out color picked the 2 colors now im all set to run it *trys to beat 17 hours*

Main
10-18-2007, 09:48 PM
hope it only cut the tress that i have the lvl for...

Farts
10-18-2007, 11:09 PM
<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 3 Hours, 6 Minutes and 6 Seconds
Killed 267 Rats and Goblins
One Hitters: 0
Good Clicks: 186
Chase Clicks: 72
Chopped 66 Trees
Lit 89 Logs
Ate 26 Meat
Cooked 24 Times
Cooked 113 Meat
Buried 10 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
Dropped 0 Broken Axes
Dropped 1 SqShields

very nice script

RudeBoiAlex
10-19-2007, 08:26 AM
I had a bad run :(


<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 4 Hours, 16 Minutes and 20 Seconds
Killed 594 Rats and Goblins
One Hitters: 0
Good Clicks: 570
Chase Clicks: 40
Chopped 120 Trees
Lit 126 Logs
Ate 13 Meat
Cooked 0 Times
Cooked 0 Meat
Buried 47 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
**********************************************
Name :
Number : 2
Worked for : 102 minutes.
Active : True
**********************************************
0 : = F. AT 27. ST 27. DF 26. PR 14. HP 28. MG 25. CO 1. FM 4. WC 3. W : 28 min. L: No GameTabR:
1 : = F. AT 29. ST 29. DF 29. PR 17. HP 31. MG 29. CO 1. FM 8. WC 6. W : 70 min. L: No GameTabR: Oh Dear You Are in Lumby
2 : = T. AT 29. ST 28. DF 28. PR 14. HP 31. MG 33. CO 1. FM 12. WC 9. W : 102 min. L: GameTabR:
3 : = F. AT 28. ST 27. DF 27. PR 16. HP 3. MG 33. CO 1. FM 1. WC 1. W : 6 min. L: No GameTabR:
4 : = F. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
5 : = F. AT 23. ST 22. DF 22. PR 12. HP 26. MG 27. CO 1. FM 2. WC 2. W : 13 min. L: No GameTabR:
6 : = F. AT 25. ST 24. DF 24. PR 13. HP 27. MG 26. CO 1. FM 3. WC 2. W : 17 min. L: No GameTabR:
7 : = F. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
**********************************************



0
Error detecting Compass Angle.
NextPlayer

My lvl 35 died?

Main
10-19-2007, 12:32 PM
there are sevral problems
#1 some time when you first start the script, it goes to mud skipper point and doing random shit
#2 rs become extremely laggy when you start the script and it goes back to normal when i paused it or stop it

RudeBoiAlex
10-19-2007, 08:42 PM
1) color pick the color correctly
2) i sometimes have this problem restrt the internet.


<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 9 Hours, 35 Minutes and 18 Seconds
Killed 1283 Rats and Goblins
One Hitters: 1
Good Clicks: 1221
Chase Clicks: 96
Chopped 275 Trees
Lit 312 Logs
Ate 21 Meat
Cooked 0 Times
Cooked 0 Meat
Buried 93 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
Dropped 1 GoblinMails
**********************************************
Name :
Number : 1
Worked for : 271 minutes.
Active : True
**********************************************
0 : = F. AT 28. ST 27. DF 27. PR 14. HP 29. MG 25. CO 1. FM 1. WC 9. W : 57 min. L: No GameTabR:
1 : = T. AT 32. ST 31. DF 31. PR 18. HP 33. MG 29. CO 1. FM 2. WC 17. W : 271 min. L: GameTabR:
2 : = F. AT 29. ST 29. DF 28. PR 14. HP 31. MG 33. CO 1. FM 13. WC 1. W : 23 min. L: No GameTabR: Mime
3 : = F. AT 28. ST 28. DF 28. PR 16. HP 31. MG 33. CO 1. FM 6. WC 6. W : 64 min. L: No GameTabR:
4 : = F. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
5 : = F. AT 24. ST 23. DF 23. PR 12. HP 26. MG 27. CO 1. FM 8. WC 6. W : 59 min. L: No GameTabR:
6 : = F. AT 25. ST 26. DF 24. PR 13. HP 27. MG 26. CO 1. FM 9. WC 7. W : 69 min. L: No GameTabR: Lamp
7 : = F. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
**********************************************

wattup
10-19-2007, 08:46 PM
<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 7 Hours, 10 Minutes and 52 Seconds
Killed 503 Rats and Goblins
One Hitters: 2
Good Clicks: 166
Chase Clicks: 84
Chopped 130 Trees
Lit 161 Logs
Ate 130 Meat
Cooked 54 Times
Cooked 242 Meat
Buried 25 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
Dropped 1 Necklaces
**********************************************
Name :
Number : 2
Worked for : 69 minutes.
Active : True
**********************************************
0 := T. AT 30. ST 30. DF 29. PR 7. HP 30. MG 1. CO 21. FM 23. WC 20. W : 69 min. L: GameTabR:
1 := T. AT 30. ST 30. DF 29. PR 7. HP 30. MG 1. CO 18. FM 25. WC 21. W : 134 min. L: GameTabR:
2 := T. AT 29. ST 29. DF 29. PR 6. HP 30. MG 1. CO 20. FM 22. WC 18. W : 69 min. L: GameTabR:
3 := T. AT 29. ST 28. DF 28. PR 3. HP 29. MG 1. CO 15. FM 21. WC 18. W : 63 min. L: GameTabR:
4 := F. AT 29. ST 29. DF 28. PR 5. HP 29. MG 1. CO 16. FM 22. WC 18. W : 39 min. L: No GameTabR: Sandwich Lady
**********************************************

great script works perfect :)

Nikize
10-19-2007, 09:45 PM
Hmm thats strange, it kills things and collects bones and even chopped some wood, but when comes the part when the script must cook some meat it just freezes ( i mean the guy just stands still, untill he loggs out ).

Report is also strange, it said ( i used it 4 minutes ) that i had been using the script for 23 seconds, also that i killed 0 rats/goblins, ( even though about 20 of both ),
collected/ buried bones is also 0,
so basically everything is 0, even though its not true.

Thats weird.
-Nikize

Farts
10-19-2007, 10:48 PM
<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 8 Hours, 55 Minutes and 7 Seconds
Killed 692 Rats and Goblins
One Hitters: 5
Good Clicks: 313
Chase Clicks: 159
Chopped 176 Trees
Lit 211 Logs
Ate 167 Meat
Cooked 71 Times
Cooked 323 Meat
Buried 37 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
Dropped 1 Kebabs
Dropped 1 Beers
Dropped 1 Necklaces
**********************************************
Name : ********
Number : 0
Worked for : 69 minutes.
Active : True
**********************************************
0 :***= T. AT 28. ST 28. DF 28. PR 6. HP 28. MG 1. CO 20. FM 22. WC 18. W : 69 min. L: GameTabR:
1 :*****= T. AT 29. ST 28. DF 28. PR 6. HP 28. MG 1. CO 15. FM 20. WC 20. W : 134 min. L: GameTabR:
2 :*****= T. AT 28. ST 28. DF 28. PR 6. HP 28. MG 1. CO 16. FM 22. WC 18. W : 160 min. L: GameTabR:
3 :**** = T. AT 29. ST 28. DF 28. PR 5. HP 28. MG 1. CO 17. FM 20. WC 19. W : 131 min. L: GameTabR:
4 :******= T. AT 28. ST 28. DF 28. PR 5. HP 28. MG 1. CO 16. FM 20. WC 18. W : 39 min. L: No GameTabR:
**********************************************

I had no problems with it :D

Ritacame
10-19-2007, 11:11 PM
This script got me from 39 CB to 47 CB in 4 days!

RudeBoiAlex
10-19-2007, 11:37 PM
HMm im having gametab problem with it but theres nothing wrong with my players, they get put to false even tho there at the ratz spot.

WT-Fakawi
10-20-2007, 05:47 PM
HMm im having gametab problem with it but theres nothing wrong with my players, they get put to false even tho there at the ratz spot.

Sometimes, you need even to reboot your machine to get SCAR to operate correct. Whenever weird SCAR problems occur on my machine, like gametab going crazy, or scripts not finding colors, I do a reboot. Or, other games might have changed your screenmode, thats happens too.

RudeBoiAlex
10-20-2007, 08:30 PM
Sometimes, you need even to reboot your machine to get SCAR to operate correct. Whenever weird SCAR problems occur on my machine, like gametab going crazy, or scripts not finding colors, I do a reboot. Or, other games might have changed your screenmode, thats happens too.

Ok thanks :rolleyes:

Lee Cullen
10-21-2007, 02:20 AM
Im going to try this out now

Hmm im gna try this out it looks gd

Hmm gna download this aswell and try it

This looks good

Nice tut

Doesn't work for me

Omg nice

Nice tut

Lol nice

nice

I got 400k from a flax picker but werent on for too long lol

Hey nice man

gratz on 3k posts

I think there's nothing wrong with it.

Uh link don't work for me:eek:

Most i got was a whip at a drop party lol

Nice

I got a few 100k autoing flax

I've only got from lvl 3 to 50 so far

I don't auto with my main incase it gets banned and its on a last chance anyway so i aint even gonna try rofl

Ermm.. i'll give it a try..

Nice first script

What does it chop?

You should get auto-colour :D

Hey thanks i needed this i have low range and need to get it up :D http://www.srl-forums.com/forum/images/satellite/buttons/expand.gif http://www.srl-forums.com/forum/images/satellite/misc/sticky.gif http://www.srl-forums.com/forum/images/satellite/statusicon/lastupost.gif (http://www.srl-forums.com/forum/showthread.php?goto=lastupost&t=20056) Sticky: Attention Spammers and Leechers... (http://www.villavu.com/forum/showthread.php?t=18341)
http://www.srl-forums.com/forum/images/satellite/rating/rating_5.gif RAM

t77651
10-22-2007, 09:43 PM
perfect i love it :D

Del Piero1994
10-22-2007, 11:46 PM
tytytyty

turtle_dude5
10-22-2007, 11:56 PM
awsome script worked perfect!!

amrak
10-23-2007, 05:49 AM
hehe i love this script, thanks for sharing it.

"Main Loop number 105 took 6 min 3 secs

<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 11 Hours, 15 Minutes and 30 Seconds
Killed 1500 Rats and Goblins
One Hitters: 262
Good Clicks: 1492
Chase Clicks: 248
Chopped 0 Trees
Lit 4 Logs
Ate 22 Meat
Cooked 5 Times
Cooked 44 Meat
Buried 406 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
Dropped 1 SqShields
**********************************************
Name : ********
Number : 0
Worked for : 507 minutes.
Active : True
**********************************************
0 : ***********T. AT 30. ST 40. DF 1. PR 14. HP 32. MG 1. CO 10. FM 9. WC 7. W : 507 min. L: GameTabR:
1 :**********1 = F. AT 25. ST 14. DF 1. PR 2. HP 20. MG 1. CO 7. FM 5. WC 4. W : 7 min. L: No GameTabR:
2 : ****** = F. AT 15. ST 33. DF 1. PR 3. HP 25. MG 1. CO 5. FM 2. WC 1. W : 130 min. L: GameTabR:
3 : ********* = F. AT 28. ST 8. DF 1. PR 1. HP 21. MG 1. CO 2. FM 1. WC 1. W : 6 min. L: R:
**********************************************"

you rock! :D!

mstandlee
10-25-2007, 06:22 PM
Will be testing as soon as my character is high enough.

WT-Fakawi
10-25-2007, 09:04 PM
Thanks for all your reports guys. Really appreciated :)

vasu
10-26-2007, 05:06 PM
im going to try this. ty!

wattup
10-27-2007, 03:47 PM
<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 29 Hours, 24 Minutes and 9 Seconds
Killed 2904 Rats and Goblins
One Hitters: 178
Good Clicks: 1912
Chase Clicks: 885
Chopped 352 Trees
Lit 481 Logs
Ate 414 Meat
Cooked 125 Times
Cooked 687 Meat
Buried 143 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
Dropped 0 Broken Axes
Dropped 1 SqShields
**********************************************
Name :
Number : 0
Worked for : 462 minutes.
Active : True
**********************************************
0 := T. AT 36. ST 35. DF 35. PR 10. HP 35. MG 1. CO 30. FM 32. WC 27. W : 462 min. L: GameTabR:
1 := F. AT 34. ST 33. DF 33. PR 9. HP 33. MG 1. CO 24. FM 29. WC 25. W : 298 min. L: No GameTabR: Maze
2 := F. AT 34. ST 33. DF 33. PR 8. HP 34. MG 1. CO 27. FM 28. WC 24. W : 196 min. L: No GameTabR: Certer
3 := F. AT 33. ST 32. DF 32. PR 5. HP 33. MG 1. CO 23. FM 27. WC 23. W : 284 min. L: No GameTabR:
4 := F. AT 34. ST 33. DF 33. PR 7. HP 33. MG 1. CO 27. FM 29. WC 25. W : 487 min. L: No GameTabR:
**********************************************
wow never thought a script would work that long. this script is amazing:spot:

azn-sam
10-27-2007, 06:13 PM
Works great, thanks

fert
10-27-2007, 06:21 PM
great script

ryan100
10-27-2007, 09:35 PM
i will run this soon it look like a good scritp :)

RudeBoiAlex
10-27-2007, 09:37 PM
dammit i keep getting no gametab errors when im at the ratz spot i restarted my whole computer aswell

dlgtrumpet
10-28-2007, 08:29 AM
gj

maigel
10-29-2007, 09:46 AM
lawl

supersaiyan
10-29-2007, 02:10 PM
nice script but for me sometime stops working like after 10-15 mins

xx sleepy
10-30-2007, 02:12 AM
very nice

Eziekieal
10-30-2007, 04:39 AM
works good for me except every hour or so my char's start 2 go twords the docks...otherwise its workin fine

supadude
10-30-2007, 05:29 AM
very nice script im guna test as soon as i lvl my army up a bit more just started on them

supersain
10-30-2007, 10:47 AM
Nice script
<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 1 Hours, 8 Minutes and 48 Seconds
Killed 56 Rats and Goblins
One Hitters: 0
Good Clicks: 56
Chase Clicks: 8
Chopped 15 Trees
Lit 12 Logs
Ate 30 Meat
Cooked 3 Times
Cooked 26 Meat
Buried 3 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
**********************************************
Name : >>>>>
Number : 5
Worked for : 0 minutes.
Active : True
**********************************************
0 : >>>>> = F. AT 22. ST 21. DF 23. PR 3. HP 23. MG 1. CO 8. FM 9. WC 59. W : 24 min. L: No GameTabR:
1 : >>>>> = F. AT 23. ST 21. DF 23. PR 3. HP 24. MG 1. CO 8. FM 9. WC 59. W : 3 min. L: No GameTabR:
2 : >>>>> = F. AT 23. ST 21. DF 23. PR 3. HP 24. MG 1. CO 8. FM 9. WC 59. W : 12 min. L: No GameTabR:
3 : >>>>> = F. AT 23. ST 21. DF 23. PR 3. HP 24. MG 1. CO 8. FM 9. WC 59. W : 10 min. L: No GameTabR:
4 : >>>>> = F. AT 23. ST 21. DF 23. PR 3. HP 24. MG 1. CO 8. FM 9. WC 59. W : 3 min. L: No GameTabR:
5 : >>>>> = T. AT 23. ST 21. DF 23. PR 3. HP 24. MG 1. CO 8. FM 9. WC 59. W : 0 min. L: No GameTabR:
**********************************************

qwix
10-30-2007, 12:57 PM
nice im using it right now

x king0
10-30-2007, 03:09 PM
dam!!!!! this Script is hot too bad it don't cook faster

i luv snip i
10-30-2007, 06:20 PM
Amazing

Peppyto
10-30-2007, 07:24 PM
very nice work, for once a ORIGINAl script :P

jacoby6000
11-01-2007, 02:19 AM
thanks man been lookin for a script like this hope it works :)

Darevaine
11-01-2007, 04:42 AM
<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 1 Hours, 15 Minutes and 24 Seconds
Killed 166 Rats and Goblins
One Hitters: 10
Good Clicks: 166
Chase Clicks: 37
Chopped 0 Trees
Lit 5 Logs
Ate 26 Meat
Cooked 4 Times
Cooked 26 Meat
Buried 6 Bones

<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 3 Hours, 32 Minutes and 11 Seconds
Killed 536 Rats and Goblins
One Hitters: 53
Good Clicks: 525
Chase Clicks: 147
Chopped 0 Trees
Lit 1 Logs
Ate 1 Meat
Cooked 2 Times
Cooked 4 Meat
Buried 21 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
Dropped 1 SqShields
**********************************************


A couple progress reports. I'm going to leave it running overnight now, hopefully I'll have a nice long one for you tomorrow. ;)

One thing I noticed was the tendency to walk south until it reached the sea, then stay there. I have a hunch this was because the rock and/or water colors weren't set correctly, but I'm not sure. I'll spend some time looking through the rest of this post looking for anyone with a similar problem.
Oh, I also got the 'No GameTab' error, but I rebooted my comp, and set the script back up, and it worked fine after that. *shrug*

Zezi
11-01-2007, 10:43 AM
Main Loop number 31 took 5 min 17 secs

<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 2 Hours, 59 Minutes and 32 Seconds
Killed 194 Rats and Goblins
One Hitters: 0
Good Clicks: 192
Chase Clicks: 17
Chopped 2 Trees
Lit 1 Logs
Ate 0 Meat
Cooked 0 Times
Cooked 0 Meat
Buried 14 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
**********************************************
Name : ********
Number : 0
Worked for : 127 minutes.
Active : True
**********************************************
0 : *****= T. AT 13. ST 13. DF 13. PR 15. HP 25. MG 3. CO 42. FM 14. WC 19. W : 127 min. L: GameTabR:
1 : o***** = F. AT 1. ST 1. DF 1. PR 1. HP 10. MG 1. CO 1. FM 3. WC 60. W : 6 min. L: No GameTabR:
**********************************************
Unfortunatly

my lvl 3 died almost instantly, as you can see.

However, my level 25did somewhat okay, but picking up items was a complete fail apart from some bones and some meat

Darevaine
11-01-2007, 03:04 PM
<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 8 Hours, 42 Minutes and 55 Seconds
Killed 1404 Rats and Goblins
One Hitters: 182
Good Clicks: 1374
Chase Clicks: 475
Chopped 0 Trees
Lit 9 Logs
Ate 9 Meat
Cooked 7 Times
Cooked 91 Meat
Buried 69 Bones
**********************************************
0 : ***** = F. AT 21. ST 29. DF 20. PR 2. HP 25. MG 1. CO 8. FM 17. WC 16. W : 76 min. L: No GameTabR:
1 : ***** = F. AT 28. ST 27. DF 27. PR 4. HP 28. MG 1. CO 6. FM 15. WC 12. W : 59 min. L: No GameTabR:
2 : ***** = F. AT 21. ST 29. DF 20. PR 2. HP 25. MG 1. CO 8. FM 17. WC 16. W : 102 min. L: No GameTabR:
3 : ***** = T. AT 29. ST 28. DF 28. PR 5. HP 29. MG 1. CO 3. FM 14. WC 11. W : 243 min. L: GameTabR:
**********************************************

Almost all of my chars ended up with the 'nogametab' error again. :/ They're all just standing in the spot where it says to start the players, where the script resets them to after every combat loop. *shrug* If anyone knows what I can do to attempt to fix this, I'd appreciate some advice.

dude232
11-01-2007, 05:54 PM
awesome script helps alot

Nessahs
11-01-2007, 07:19 PM
Thanks ! to bad my characters are so low level

Khazar
11-01-2007, 07:27 PM
very very nice script! thank you!

<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 5 Hours, 0 Minutes and 14 Seconds
Killed 800 Rats and Goblins
One Hitters: 178
Good Clicks: 798
Chase Clicks: 82
Chopped 0 Trees
Lit 0 Logs
Ate 19 Meat
Cooked 1 Times
Cooked 1 Meat
Buried 32 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
**********************************************
Name : -------
Number : 0
Worked for : 254 minutes.
Active : True
**********************************************
0 : ------- = T. AT 20. ST 51. DF 1. PR 1. HP 40. MG 1. CO 30. FM 7. WC 9. W : 254 min. L: GameTabR:
**********************************************

archerpro
11-01-2007, 11:52 PM
Helped me raise my pkers!!!!

julian0
11-02-2007, 01:37 AM
Wow dude this scripts ownz.Thx for it progies soon

Ornec
11-02-2007, 03:21 AM
Works very well thanks!

rs cheata
11-02-2007, 01:54 PM
I love this script!!

tofuli
11-02-2007, 02:31 PM
How to get it to work?

I did everything as instructed. (tried several times)

But all it does is keep running south through the minimap!

Then it is as south as it can go and then it just keeps clicking the water, trying to get more south..

red eyes 20
11-02-2007, 04:41 PM
well hers my progg


<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 1 Hours, 18 Minutes and 55 Seconds
Killed 225 Rats and Goblins
One Hitters: 43
Good Clicks: 218
Chase Clicks: 37
Chopped 0 Trees
Lit 0 Logs
Ate 0 Meat
Cooked 0 Times
Cooked 0 Meat
Buried 68 Bones


***************


and scss won't work for me =(

red eyes 20
11-02-2007, 04:47 PM
How to get it to work?

I did everything as instructed. (tried several times)

But all it does is keep running south through the minimap!

Then it is as south as it can go and then it just keeps clicking the water, trying to get more south..

re fill in all the set up stuff i tryed making it go false on all the char but char 0 and it ran south but i made em true and it worked =)
so just don't edit the set up too much

supersain
11-03-2007, 02:34 AM
I used Scss and it worked great

<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 3 Hours, 16 Minutes and 6 Seconds
Killed 630 Rats and Goblins
One Hitters: 9
Good Clicks: 628
Chase Clicks: 72
Chopped 93 Trees
Lit 91 Logs
Ate 22 Meat
Cooked 15 Times
Cooked 71 Meat
Buried 34 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
**********************************************
Name : *****
Number : 0
Worked for : 63 minutes.
Active : True
**********************************************
0 : ***** = T. AT 27. ST 27. DF 26. PR 4. HP 27. MG 1. CO 13. FM 24. WC 60. W : 63 min. L: No GameTabR:
1 : ***** = T. AT 30. ST 28. DF 30. PR 9. HP 30. MG 1. CO 10. FM 7. WC 6. W : 63 min. L: GameTabR:
2 : ***** = F. AT 18. ST 17. DF 17. PR 2. HP 20. MG 1. CO 2. FM 5. WC 6. W : 65 min. L: No GameTabR:
**********************************************

Desolater
11-03-2007, 08:14 PM
very cool

SPARTAN
11-04-2007, 01:40 AM
Awesome concept, Ill try it out later tonight and post how it went =)

Mr_Bum
11-04-2007, 07:17 AM
can i set it so it doesnt have to chop tree cook meat and all that so it just fights and burys

supersain
11-04-2007, 02:04 PM
My another report

<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 8 Hours, 18 Minutes and 2 Seconds
Killed 1097 Rats and Goblins
One Hitters: 80
Good Clicks: 1045
Chase Clicks: 306
Chopped 212 Trees
Lit 243 Logs
Ate 93 Meat
Cooked 53 Times
Cooked 265 Meat
Buried 91 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
Dropped 1 Ashes
Dropped 1 Kebabs
Dropped 1 Beers
Dropped 1 SqShields
**********************************************
Name : *****
Number : 0
Worked for : 132 minutes.
Active : True
**********************************************
0 = T. AT 17. ST 17. DF 16. PR 3. HP 19. MG 1. CO 4. FM 10. WC 8. W : 132 min. L: GameTabR:
1 = T. AT 21. ST 21. DF 20. PR 3. HP 22. MG 1. CO 5. FM 12. WC 12. W : 110 min. L: GameTabR:
2 = T. AT 30. ST 33. DF 30. PR 10. HP 31. MG 1. CO 16. FM 14. WC 12. W : 114 min. L: GameTabR:
3 = T. AT 27. ST 34. DF 26. PR 6. HP 30. MG 1. CO 17. FM 28. WC 60. W : 113 min. L: GameTabR:
**********************************************

Heavenzeyez1
11-04-2007, 02:16 PM
WT-Fakawi!
This guy is a Scripting-Genius!
I'll try it out in some days, and post proggies;)
Thanks.

archerpro
11-04-2007, 08:26 PM
DUDE THIS IS A PERFECT SCRIPT!!!!!!!!!!!!!!!!!!!!!!!

Here is my progress report ::
<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 1 Hours, 33 Minutes and 18 Seconds
Killed 161 Rats and Goblins
One Hitters: 0
Good Clicks: 141
Chase Clicks: 51
Chopped 26 Trees
Lit 49 Logs
Ate 10 Meat
Cooked 5 Times
Cooked 6 Meat
Buried 2 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
**********************************************
Name : ********
Number : 0
Worked for : 68 minutes.
Active : True
**********************************************
0 : *********** = T. AT 14. ST 15. DF 14. PR 10. HP 21. MG 2. CO 9. FM 24. WC 41. W : 68 min. L: GameTabR:
**********************************************

jacoby6000
11-08-2007, 04:52 AM
u should add a intregrated auto talker it may help reduce suspicions even if it is practically undetectable i am a newb so what im sayin might not be possible just a suggestion

meus_vita
11-08-2007, 07:56 AM
looks great..i ma gunna try this rite now

RedDemon815
11-08-2007, 08:02 AM
good for training low lvls

pingli
11-08-2007, 03:34 PM
sorry that in asking this but how do i pick colors?

WT-Fakawi
11-08-2007, 07:54 PM
sorry that in asking this but how do i pick colors?

by using the Color Picker from SCAR. It is in the Tool Bar.

jomp92
11-08-2007, 11:29 PM
Works great I am missing the progress report ill add one later for you but it went great for about an hour I had a lvl 30 die though so I think it may have wandered a little bit I am going to watch it to find out a little more next time thanks though besides that works amazing

mnagi85
11-09-2007, 07:29 PM
lol very cool

i've never used a rat killer b4- nice work

x_feared_spec_x
11-09-2007, 10:45 PM
is there any way u could tell a nooby scar scripter how to change it so the attack style is for strength

enig.ma
11-11-2007, 09:20 AM
Thanks for this lovely script fawki, works like a charm!!!!

pur3skillz3
11-11-2007, 02:31 PM
Wow this is a great script, Ive been using it to lvl up my pure.GJ
Oh btw sometimes when i run the script, it keeps on making me go south.

Harry
11-11-2007, 02:47 PM
:confused: Post one says SCSS Optional. Script says *** SCSS ONLY *** :confused:
What one can I run? Will Normal SS work fine?

WT-Fakawi
11-11-2007, 06:31 PM
:confused: Post one says SCSS Optional. Script says *** SCSS ONLY *** :confused:
What one can I run? Will Normal SS work fine?

Just replace the Up and Down function with this and it will work on the normal client too...

Procedure Down;

Begin
KeyDown(VK_DOWN);
Wait(2500 + Random(1000));
KeyUp(VK_DOWN);
End;

Procedure Up;

Begin
KeyDown(VK_UP);
Wait(2500 + Random(1000));
KeyUp(VK_UP);
End;


SCSS is optional as a Global Constant UseSCSS. Set to true.

Harry
11-11-2007, 06:34 PM
mmm. Thanks Master :)

enig.ma
11-12-2007, 07:53 AM
I have had two characters die, I don't think its due to being hit by the goblins/rats.

Maybe due to the swarms? I have noticed that the character doesn't run away when swarms attack.
:)

soccnut
11-12-2007, 09:53 AM
I have had two characters die, I don't think its due to being hit by the goblins/rats.

Maybe due to the swarms? I have noticed that the character doesn't run away when swarms attack.
:)


i think that is because the swarm doesnt call your name,so the nickname that is input does not work and the random is not detected

WT-Fakawi
11-12-2007, 10:49 AM
i think that is because the swarm doesnt call your name,so the nickname that is input does not work and the random is not detected

True, but the script makes the Player move away enough to get rid of the swarm usually. (Besides, It has food to eat, so it can take a while before it gets killed....usually by that time the Player is far away from the swarm.)

Zage
11-12-2007, 04:11 PM
Nice script works good ;)

dogsuli
11-12-2007, 04:18 PM
Thanks man gonna test this out on my pure:D

enig.ma
11-14-2007, 03:56 AM
Hi, after running this overnight I got this msg when I woke up




Found a box, solving...
Question is:
Which shape has number 0
[Runtime Error] : Exception: Access violation at address 02163B0C in module 'BoxPlugin.dll'. Write of address 7907A16A in line 215 in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/AntiRandoms/Box.scar

:)

Zage
11-14-2007, 02:09 PM
It somehow froses just cheking stats and bag?

Lankyisleet
11-14-2007, 05:09 PM
Looks nice, ill give it a try

Submersal
11-15-2007, 09:05 PM
<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 8 Hours, 18 Minutes and 2 Seconds
Killed 216 Rats and Goblins
One Hitters: 1
Good Clicks: 216
Chase Clicks: 33
Chopped 47 Trees
Lit 52 Logs
Ate 20 Meat
Cooked 12 Times
Cooked 29 Meat
Buried 10 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
**********************************************
Name : ******
Number : 2
Worked for : 0 minutes.
Active : True
**********************************************
0 : **** = F. AT 10. ST 10. DF 25. PR 1. HP 20. MG 1. CO 5. FM 6. WC 6. W : 17 min. L: No GameTabR:
1 : **** = F. AT 13. ST 18. DF 13. PR 1. HP 18. MG 1. CO 3. FM 8. WC 7. W : 78 min. L: No GameTabR:
2 : **** = T. AT 12. ST 10. DF 13. PR 1. HP 16. MG 2. CO 2. FM 5. WC 5. W : 0 min. L: R:
3 : **** = T. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
4 : **** = F. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
5 : = F. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
**********************************************


For some reason, it still buried a couple of bones when I had

const BuryBonesToo = False;


Script owns though. =]

EvilChicken!
11-15-2007, 10:15 PM
Oh. My. Fucking. God.

What. A. Sick. Script.

Damn! Now I know why you were proud of it, you are talented like.. Damn! Wow. I will definetly post tons of proggies for this.

danyk03du
11-16-2007, 05:20 AM
wow....looks like you put a lot of work into it...thx!

ive pooned u
11-17-2007, 06:14 PM
ty i will try soon

I Nissan I
11-17-2007, 10:45 PM
looks nice , i gotta test it
:D http://www.fenjer.com/adnan/SRL/21/99/In%20real%20life%20pking.png (http://www.fenjer.com/adnan/SRL/)

penguins
11-18-2007, 12:59 AM
<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 45 Minutes and 33 Seconds
Killed 85 Rats and Goblins
One Hitters: 0
Good Clicks: 81
Chase Clicks: 34
Chopped 33 Trees
Lit 49 Logs
Ate 9 Meat
Cooked 7 Times
Cooked 28 Meat
Buried 3 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
**********************************************
Name : *****
Number : 0
Worked for : 0 minutes.
Active : True
**********************************************
0 : ***** = T. AT 13. ST 17. DF 13. PR 3. HP 17. MG 1. CO 10. FM 24. WC 22. W : 0 min. L: No GameTabR:
**********************************************

There was one thing where that random statue got in the way of the fire, so instead of using the meat with the fire, it used it with the statue.

I Nissan I
11-18-2007, 11:02 AM
when i tested this is started to run directly to falador

kekkinen
11-20-2007, 08:24 PM
Just running on my virtual machine and it looks like its going well, but as always, I have a problem ;). This time its because the bot isnt really picking things up. It looks like it picks things up randomly, like after 10 goblins it might pick up some bones (or not) and it doesnt pick the meat from the rats. Otherwise its working great for me, Will post progress tomorrow :)

edit: I just found out that its running too far south to do the woodcutting / cooking routine. Any ideas? :(

edit2: Now it ran to the prison twice in a row...any advice?

WT-Fakawi
11-20-2007, 09:09 PM
Just running on my virtual machine and it looks like its going well, but as always, I have a problem ;). This time its because the bot isnt really picking things up. It looks like it picks things up randomly, like after 10 goblins it might pick up some bones (or not) and it doesnt pick the meat from the rats. Otherwise its working great for me, Will post progress tomorrow :)

edit: I just found out that its running too far south to do the woodcutting / cooking routine. Any ideas? :(

edit2: Now it ran to the prison twice in a row...any advice?

Set brightness to highest. Pick the proper colors.

notorius
11-20-2007, 09:09 PM
gr8 scrip ty

kekkinen
11-20-2007, 09:21 PM
Set brightness to highest. Pick the proper colors.

I don't know what you mean by proper colors, but I've picked them multiple times. Better try again then, thanks for the quick answer...

first run


<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 1 Hours, 4 Minutes and 18 Seconds
Killed 117 Rats and Goblins
One Hitters: 0
Good Clicks: 81
Chase Clicks: 43
Chopped 10 Trees
Lit 13 Logs
Ate 3 Meat
Cooked 3 Times
Cooked 11 Meat
Buried 6 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
**********************************************
Name : xxxxxxx
Number : 0
Worked for : 63 minutes.
Active : True
**********************************************
0 : xxxxx = T. AT 35. ST 20. DF 1. PR 1. HP 28. MG 1. CO 16. FM 14. WC 10. W : 63 min. L: GameTabR:

WT-Fakawi
11-20-2007, 09:38 PM
I don't know what you mean by proper colors, but I've picked them multiple times. Better try again then, thanks for the quick answer...

first run

geniune stats. Seems to run properly judged by the looks.

kekkinen
11-20-2007, 10:03 PM
geniune stats. Seems to run properly judged by the looks.

Yeah, now its working just fine. Odd thing really, I picked the color from the same place each and every time, but now that I repicked it it was different :O . Now that it works, its awesome! Great script, will be using this a lot for sure. Thanks for this script, it's exactly what I've been looking for!

I'll leave it running for this night, I'll post progress in the morning :)

edit: Left it running, now it ended up at magetower :D Any help with picking the color anyone?

WT-Fakawi
11-20-2007, 10:27 PM
Yeah, now its working just fine. Odd thing really, I picked the color from the same place each and every time, but now that I repicked it it was different :O . Now that it works, its awesome! Great script, will be using this a lot for sure. Thanks for this script, it's exactly what I've been looking for!

I'll leave it running for this night, I'll post progress in the morning :)

edit: Left it running, now it ended up at magetower :D Any help with picking the color anyone?

It couldnt find your NickName, so you got tellied by a Random. BTW it takes one Loading Please Wait Screen to stableize the Color. Thus the first time you run it, you end up with the wrong colors after one LPW-Screen. Be sure to read some tuts on the differnet subjects. It takes some time I know, but the reward is beautiful.

stnrscott2
11-21-2007, 01:10 AM
Rats are so fun to kill.
Thank you

kekkinen
11-21-2007, 09:31 AM
It couldnt find your NickName, so you got tellied by a Random. BTW it takes one Loading Please Wait Screen to stableize the Color. Thus the first time you run it, you end up with the wrong colors after one LPW-Screen. Be sure to read some tuts on the differnet subjects. It takes some time I know, but the reward is beautiful.

Thanks for all the assistance and you putting up with my noobness :) I'll be sure to read some tuts.

About the LPW thingy: I'll just pick colors normally after I get the first LPW screen?

olivebj
11-21-2007, 10:19 AM
nice this has got my mining army up but they died a few times lol

Tazmania
11-21-2007, 11:48 AM
THis is kool. and it woks.

WT-Fakawi
11-21-2007, 01:09 PM
About the LPW thingy: I'll just pick colors normally after I get the first LPW screen? Correct. After one LPW screen some color stay stable, like minimap water and rockcolor

aeonity
11-21-2007, 07:11 PM
Wow, this looks good. I will try it after my homework. Looks promising!!!

eevus
11-22-2007, 06:40 AM
jeez,this script is phenominal,ill d/l it when i get home.

kekkinen
11-22-2007, 02:06 PM
Well, it has been working really well lately except for detecting randoms. It works like 50 or 40% of the time, and it ALWAYS fails on frogs and the dragon teacher random. Heres my prog from today:



<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 3 Hours, 45 Minutes and 46 Seconds
Killed 379 Rats and Goblins
One Hitters: 33
Good Clicks: 291
Chase Clicks: 128
Chopped 92 Trees
Lit 105 Logs
Ate 92 Meat
Cooked 21 Times
Cooked 108 Meat
Buried 19 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
Dropped 0 Broken Axes
Dropped 1 SqShields

after that it gave this at the dragons house:

0
Error detecting Compass Angle.
NextPlayer

edit: just found out that it doesnt run from ents either

Sailordark
11-22-2007, 04:39 PM
I just downloaded this if i can get it to run fro an hour i'll post a progress report

Sailordark
11-22-2007, 05:28 PM
Figured it wouldnt work for me, I got a runtime error do you know how I can fix it? It complies just fine
[Runtime Error] : Out Of Range in line 182 in script

king sibux
11-23-2007, 08:44 PM
thank for this man!

roganlors
11-24-2007, 02:36 AM
great script performs alot of actions had no prob running

rshacker101
11-24-2007, 08:22 AM
I am downloading it now. Hope it works :D:sasmokin:

eevus
11-24-2007, 08:01 PM
Include file C:\Program Files\SCAR 3.12\includes\SRL\SRL.scar does not exist.
Include file C:\Program Files\SCAR 3.12\includes\SRL\SRL\Skill\Magic.scar does not exist.
Include file C:\Program Files\SCAR 3.12\includes\SRL\SRL\Skill\Runecrafting.scar does not exist.
Include file C:\Program Files\SCAR 3.12\includes\SRL\SRL\misc\Bitmaps\Crafting.scar does not exist.
Include file C:\Program Files\SCAR 3.12\includes\SRL\SRL\misc\Bitmaps\Prayer.scar does not exist.
Include file C:\Program Files\SCAR 3.12\includes\SRL\SRL\Skill\Fighting.scar does not exist.
Failed when compiling

i got that when i tried to run it

Sailordark
11-25-2007, 06:26 AM
<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 40 Seconds
Killed 0 Rats and Goblins
One Hitters: 0
Good Clicks: 0
Chase Clicks: 0
Chopped 0 Trees
Lit 0 Logs
Ate 0 Meat
Cooked 0 Times
Cooked 0 Meat
Buried 0 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
**********************************************
Name : ******
Number : 0
Worked for : 0 minutes.
Active : True
**********************************************
0 : ****** = T. AT 35. ST 25. DF 36. PR 21. HP 35. MG 35. CO 31. FM 31. WC 35. W : 0 min. L: R:
1 : = T. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
2 : = T. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
3 : = T. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
4 : = T. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
5 : = T. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
**********************************************

Do you have any idea whats goin on? I ran it for about 5 mins it killed 12 goblins and the progress report doesnt say any of it. It also didnt pick anything up

WT-Fakawi
11-25-2007, 09:11 AM
<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 40 Seconds
Killed 0 Rats and Goblins
One Hitters: 0
Good Clicks: 0
Chase Clicks: 0
Chopped 0 Trees
Lit 0 Logs
Ate 0 Meat
Cooked 0 Times
Cooked 0 Meat
Buried 0 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
**********************************************
Name : sailordark
Number : 0
Worked for : 0 minutes.
Active : True
**********************************************
0 : sailordark = T. AT 35. ST 25. DF 36. PR 21. HP 35. MG 35. CO 31. FM 31. WC 35. W : 0 min. L: R:
1 : = T. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
2 : = T. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
3 : = T. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
4 : = T. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
5 : = T. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
**********************************************

Do you have any idea whats goin on? I ran it for about 5 mins it killed 12 goblins and the progress report doesnt say any of it. It also didnt pick anything up
At least have the patience to let it run for one main loop ffs!

Sailordark
11-25-2007, 02:34 PM
heh i guess you mean let it run longer. I'll let it run for 30 mins and see what happens

Sailordark
11-25-2007, 03:48 PM
**********************************************

Main Loop number 10 took 5 min 7 secs

<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 57 Minutes and 44 Seconds
Killed 124 Rats and Goblins
One Hitters: 0
Good Clicks: 99
Chase Clicks: 55
Chopped 0 Trees
Lit 0 Logs
Ate 0 Meat
Cooked 0 Times
Cooked 0 Meat
Buried 3 Bones
<============== -RatZ C.O. 0.70- Dropping Stats ===============>
**********************************************
Name : ******
Number : 0
Worked for : 0 minutes.
Active : True
**********************************************
0 : ****** = T. AT 35. ST 25. DF 37. PR 22. HP 35. MG 35. CO 31. FM 31. WC 35. W : 0 min. L: R:
1 : = T. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
2 : = T. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
3 : = T. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
4 : = T. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
5 : = T. AT 0. ST 0. DF 0. PR 0. HP 0. MG 0. CO 0. FM 0. WC 0. W : 0 min. L: R:
**********************************************

Is that better?

Studioworks
11-25-2007, 05:06 PM
Great script

Kyle
11-25-2007, 05:25 PM
it just instantly logs me out after i play it. whats the problem?

lasse
11-25-2007, 08:51 PM
thanks

pro2oman
11-26-2007, 11:25 PM
wooow some much in just one script what place do you recommend to set this up in?

Aragon
11-27-2007, 05:56 PM
Nice, I am trying it out now :):sasmokin:

Aragon
11-27-2007, 05:58 PM
wooow some much in just one script what place do you recommend to set this up in?

Its written in the scirpt that you have to run it in port sarim near the graveyard where the Ratz are.

Hope I helped :)

benismyhorse
11-27-2007, 06:47 PM
this works good as

GhostNote
11-27-2007, 10:56 PM
works like a charm

choochooa
11-28-2007, 02:15 AM
nice. lvled my noob up about 9 combat levels.

StrikerX
11-28-2007, 06:31 AM
very nice script surprised to see this in free scripts

xiitteri
11-28-2007, 09:04 PM
nice! :)

rune_h4ck3r
11-30-2007, 07:22 AM
Wow great work !!!:stirthepot: I hope it works for me with no errors:fiery:

Keep it up ;)

Dextima
11-30-2007, 09:52 PM
Great script, really useful thanks!

Stone Cold Killer
12-01-2007, 12:19 AM
works great, probably the best script i've ever used

GhostNote
12-01-2007, 09:51 AM
very nice levels more skills than just fighting

chalkie
12-01-2007, 01:09 PM
wow nice looking script will test soon and post proggy!

flipsk8r1106
12-01-2007, 06:26 PM
nice.
not much use for me personally, but still it pretty nice.

scott19911
12-01-2007, 07:30 PM
works great thanks for making!!!!

scott1991
12-01-2007, 07:49 PM
looks good but cant get it to work

Kirbix
12-01-2007, 08:14 PM
excelent script works well at fally

anderson192
12-01-2007, 10:08 PM
Great script. Works well!

Luski14
12-03-2007, 11:28 PM
Pretty!

mellowman
12-04-2007, 02:45 AM
YAY! very,very nice script. got my test noob to lvl 30.

Clark09
12-04-2007, 09:20 PM
uhhh....'water color and rock color' i see the pic u have up at top but my comp shows a white box with a X in middle.....so wth where do i stand ^^

Clark09
12-04-2007, 09:26 PM
i think i figured it out ..sec

Rct33
12-04-2007, 10:03 PM
Wow, all the features worked! I'm impressed, ill see if I can get a report for tommorow, too late for me now.

sh00tinhoopz
12-05-2007, 02:25 AM
ty soooooooooooo much man, you just made my day!

paranoid
12-05-2007, 02:45 AM
Awesome combination :o!

Darklord12345
12-08-2007, 03:35 AM
Aweomse!

Darklord12345
12-08-2007, 03:36 AM
:( :spot: :stirthepot: :fiery: :fiery: :duh: :duh: :garfield: :sasmokin: :sasmokin: :sasmokin: :( :sasmokin: :confused: Aweomse!111111111111111!!!!!!!!!!!!!!!!!!!!!!:spot : :spot: :spot: :spot: :spot: :spot: :spot: :spot: :spongebob: :sasmokin:

RobinHood
12-08-2007, 05:12 AM
Wow this is amazing. Great work!

If I wasn't running the script I would not be able to tell if my character was a real person or a bot.

Testerz11
12-09-2007, 02:37 AM
This script is really nice, thanks.

joshuaman76
12-11-2007, 01:31 AM
looks cool gunna use it very soon

ancheryay
12-11-2007, 05:46 PM
Love it

Bailycaius
12-13-2007, 01:17 AM
Erm, I'm new to scar and scripts and all this but does anyone know whats going on here. I enter my char info where it says but i keep getting this error message. " [Runtime Error] : Out Of Range in line 176 in script C:\Documents and Settings\Owner\Desktop\Mark's Stuff\[SRL 4] Ratz 0.70 Combat Overdrive PUB.scar "
Any help pls?

This is what i have :
Players[1].Name :='Bailycaius';
Players[1].Pass :='mypass';
Players[1].Nick :='Bailycaius';
Players[1].Active :=True;
Players[1].Skill := 'auto';

I hope someone knows. I think its probably something very simple but thats the only problem i had so far..

WT-Fakawi
12-19-2007, 08:56 AM
Erm, I'm new to scar and scripts and all this but does anyone know whats going on here. I enter my char info where it says but i keep getting this error message. " [Runtime Error] : Out Of Range in line 176 in script C:\Documents and Settings\Owner\Desktop\Mark's Stuff\[SRL 4] Ratz 0.70 Combat Overdrive PUB.scar "
Any help pls?

This is what i have :
Players[1].Name :='Bailycaius';
Players[1].Pass :='mypass';
Players[1].Nick :='Bailycaius';
Players[1].Active :=True;
Players[1].Skill := 'auto';

I hope someone knows. I think its probably something very simple but thats the only problem i had so far..


Your first Player should be labelled [0], not [1]. It is the way arrays work. The first element of an array is element 0, not element 1.

i c y k 1 d
12-19-2007, 11:04 AM
Works like a beauty :D thanks mate.

tyler1993
12-20-2007, 12:25 AM
cool ive never used an autofighter... but hopfully this will be a good one for me.

need pure221
12-22-2007, 04:29 AM
i got a problem it says error line 164 idendifer expect failed when compiling wht do u do?

therion1
12-22-2007, 11:32 AM
good looking script, i will use it

ElvenMarth
12-25-2007, 04:34 AM
Amazing script, ran it for 12+ hours and got from combat 12-36. Forgot to save the progress report though, sorry.

WT-Fakawi
12-25-2007, 02:35 PM
Amazing script, ran it for 12+ hours and got from combat 12-36. Forgot to save the progress report though, sorry.
what about cooking and woodcutting?

ruler911
12-25-2007, 05:51 PM
First ever script i runed, it worked great, but i still need to make some adjustments in my chars to make it go smoother

ElvenMarth
12-25-2007, 06:48 PM
what about cooking and woodcutting?

Ah, well, it didn't really train those skills. It probably cut down 2 trees for the whole 12 hours it ran, and cooked like 10 meats. I don't know if it's just my characters or the script.

Dervish
12-29-2007, 11:00 AM
Eh it won't even open for me :X

ElvenMarth
12-29-2007, 03:47 PM
Up to what combat level is this script recommended?

gold wizzard
01-06-2008, 11:17 AM
Wow this is actually very nice, will use it on my other account

XxXx Toxin XxXx
01-11-2008, 02:18 AM
Okay I used it, and the character sometimes seems to get confused...
So I really don't know what to do to make him continue doing what I wanted him to do...

But maybe you should be able to divide everything up into sections, like say if you just wanted to gather raw meat and cook it, you should be able to do that, not just everything at once...

Thats my own oppinion I guess, but everything else - compiles and everything, looks great :)

Kakumei
01-13-2008, 11:03 PM
This is an AMAZING script! It works flawlessly! Great job!


<============== -RatZ C.O. 0.70- Progress Report ===============>
Worked for 3 Hours, 46 Minutes and 27 Seconds
Killed 435 Rats and Goblins
One Hitters: 0
Good Clicks: 430
Chase Clicks: 82
Chopped 107 Trees
Lit 168 Logs
Ate 46 Meat
Cooked 30 Times
Cooked 167 Meat
Buried 15 Bones

Voodoojohn
01-17-2008, 04:18 AM
WOW great script, testing it out now :)

lionorio
01-17-2008, 02:31 PM
Thanks! I will try this later.

lilpiggy
01-20-2008, 01:07 AM
It only logs in, can anyone identify the problem

lilpiggy
01-20-2008, 02:08 AM
actually it does do something but like Toxin says, it just stands there confused. Also I would like to know, will the script do the same if the character does no have a high hp lvl, because that may be why one of my guys doesn't do anything

Trifonius
01-20-2008, 11:14 AM
This script doesn't work because it hasn't been updated to rev 10 yet....
Wait until Fakawi updates it.
I'm gonna do it myself.

WT-Fakawi
01-20-2008, 11:29 AM
This script greatly relies on the old ClickAllItems series. I advice you to copy them from rev #9 and paste them in Ratz. There are too many clickalletc functions in Ratz :)

Dodongo
01-25-2008, 09:37 PM
Hello, thank you for taking your time to write such a fanastic script. I have tried testing it but alas, it does not work. I have looked through the 23 pages for some help, so I thought that since there was none, I could justify posting this.

When I tried to run it, this happened.

Failed when compiling
Line 1045: [Error] (15328:4): Unknown identifier 'InChatMulti' in script C:\DOCUME~1\Ed\LOCALS~1\Temp\[SRL 4] Ratz 0.70 Combat Overdrive PUB.scar

Any ideas?

Thank you again for the script, and thanks in advance for any answers.

FreakyMonkey
02-07-2008, 03:36 AM
haha very well done. strange script, but very useful. used it for roughly an hour not too bad progress. im kinda new to this and cant get the scripts to work at times but this one really worked well for me =) A+ job

~PURESKILLA~
02-10-2008, 05:03 PM
lol nice script never saw a scricpt tht did so much..

MylesMadness
02-10-2008, 05:07 PM
This script greatly relies on the old ClickAllItems series. I advice you to copy them from rev #9 and paste them in Ratz. There are too many clickalletc functions in Ratz :)thats what ctrl+r is for :p

bandwevil
02-10-2008, 09:25 PM
This is pretty nice script, it runs fairly well, and it does a lot of things.

jacksteel
02-23-2008, 11:11 AM
Include file C:\Program Files\SCAR 3.14\includes\SRL\SRL\misc\Bitmaps\Prayer.scar does not exist.

I'm using scar divi 3.14 with latest SRL and it's at revision 14, it is all installed correctly, because this is the only script i have problems with, but it looks sooo good! Any help please? Could anyone, y'ano... post the prayer.scar script, i could then put it in the bitmaps folder.. thanks in advance.

Matt6233
02-24-2008, 05:34 PM
Great script. Works great, I've been using it on my soon to be pure.

Zounass
02-28-2008, 06:32 PM
well i get this kind of problems.. :
Include file C:\Program Files\SCAR 3.14\includes\SRL\SRL\misc\Bitmaps\Crafting.scar does not exist.
Include file C:\Program Files\SCAR 3.14\includes\SRL\SRL\misc\Bitmaps\Prayer.scar does not exist.
Failed when compiling

jacksteel
02-28-2008, 08:35 PM
Script is out of date, hence all the problems.

Zounass
02-29-2008, 06:06 AM
um.. i'm a noob so whats "hense"?? ^^

shrubie1
03-01-2008, 10:23 PM
sounds good ill test it out

Marrazk
03-30-2008, 03:23 PM
im getting this error:

Include file C:\Program Files\SCAR 3.15\includes\SRL\SRL\misc\Bitmaps\Crafting.scar does not exist.
Include file C:\Program Files\SCAR 3.15\includes\SRL\SRL\misc\Bitmaps\Prayer.scar does not exist.

doucette
03-30-2008, 04:07 PM
Good work

ShowerThoughts
03-30-2008, 05:10 PM
Good work

SPAM!!! this script does NOT work how can you SAY Good JOB!!!

[S]paz
04-03-2008, 05:31 PM
SPAM!!! this script does NOT work how can you SAY Good JOB!!!


kool script

err look one post above urs.... u get a fail cert...

~Spaz

aragorn0021
04-22-2008, 10:51 PM
this just isnt working for me, it gets overloaded with randoms untill it cant do one, any ideas?

Haxor
04-22-2008, 11:15 PM
Maybe because its outdated and doesnt work??????

~haxor

fujimoto
04-26-2008, 01:04 PM
thanks for the script, even tho it didn't work for me

hamish909
04-26-2008, 01:17 PM
STOP posting in this thread it is massively outdated!!!

Naum
04-26-2008, 04:14 PM
Not now it isn't :)

I took 2 hours to update this script to full working order :)

Here have it!

//----------------------------------------------------------------------------//
// -- Ratz!
// -- Combat Overdrive
// -- by WT-Fakawi with a helping hand from NaumanAkhlaQ
// -- 0.70
// -- ATTENTION: *** SCSS ONLY *** :ATTENTION
// --
// -- - Combat - Magic - Prayer - Woodcutting - Firemaking - Cooking - Collecting
//----------------------------------------------------------------------------//
// --
// -- !!!! FOR THE SRL COMMUNITY ONLY !!!!!
// -- !!!! DO NOT DISTRIBUTE THIS SCRIPT !!!!!
// -- !!!! USE FOR YOUR OWN PRIVATE PURPOSES !!!!
// --
// -- You are free to copy/paste/modify this script or parts
// -- of this script as long as you credit me and the SRL-community.
//----------------------------------------------------------------------------//
// --
// -- This Script trains Combat, Magic, Woodcutting, Firemaking and Cooking.

// -- INSTRUCTIONS

// -- 1. Place you Combat 20+ Players West of Port Sarim at the Altar
// -- next to the Rats just above the Graveyard.
// -- 2. Equip your Players with 3 pieces of armour, 1-3 axes and a tinderbox.
// -- 3. Sample the Minimap RockColor and the WaterColor in Line 161.
// --
//----------------------------------------------------------------------------//
// --
// -- This script Attacks Goblins and Rats, Picks up Coins, Bones, Junk and Meat.
// -- It will cut Trees, Light Logs and Cook the Meat.
// -- Use SCSS client (comes with SRL)
// --
//----------------------------------------------------------------------------//
// --
// -- Script entirely based on timed loops.
// -- Kills Goblins.
// -- Kills Rats.
// -- Collects stackable items: coins and runes.
// -- Collects Bones and Meat (and some junk)
// -- Cuts Trees.
// -- Lights Logs.
// -- Cooks Meat.
// -- Eats Meat.
// -- Buries Bones.
// -- Drops Ashes, Talismans, Kebabs, Beers, Necklaces, Broken Axes,
// -- Axe Sticks, Bolts and Arrows, Chiefs Hat and Goblin Mails.
// --
// --
// -- Enjoy!
//----------------------------------------------------------------------------//
// -- Version History.
// -- 0.69 compatibelized for SRL 4
// -- 0.67 First attempt in logics. Script reverts to bonefinding when
// -- there are no NPC in mainscreen.
// -- Enhanced coin finding. Searches for coins during combat.
// -- Added chasemouse. Hunts down a Goblin.
// -- 0.62 Added FullHit Check and FullHitBar Check. Faster then ever!
// -- 0.60. Total revamp. Redid a lot of the code.
// -- Added DDTM for better callibration, woodcutting/firemaking cycle,
// -- Combat Frenzy, TurboFight.
// --
// -- 0.44 Chopped it into tiny fragments for DIVI.
// --
// -- 0.39
// -- Added better callibration, better statistics. Its generally more stable now
// --
// -- 0.37
// -- First Release
//----------------------------------------------------------------------------//

program RatZ;

{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Magic.scar}
{.include SRL\SRL\Skill\Runecrafting.scar}
{.include SRL\SRL\Skill\Fighting.scar}

// _____ _
// | __ \ | |
// | | | | ___ ___| | __ _ _ __ ___
// | | | |/ _ \/ __| |/ _` | '__/ _ \
// | |__| | __/ (__| | (_| | | | __/
// |_____/ \___|\___|_|\__,_|_| \___|


var
Dumx,Dumy:integer;
var
CallibrateTime, WoodCutTime, CookTime,
CleanUpMiscTime, StartLoopTime, EndLoopTime, ML, PlayTime: integer; // Timers

var
NPCColors: array[1..16] of integer;
TreeColors : Array [1..3] of Integer;

var
Mark, TheBone, Rat,Bone, Bone1, Bone2, Bone3, Bone4, RawBeef: integer;


var
Tree, TinderBox, Fire: integer;

var
LogMask, AxeMask, BrokenAxeMask, AshMask, TalismanMask, KebabMask,
BeerMask, NecklaceMask, AxeStickMask,BoltsMask, ArrowsMask,
GoblinMailMask, ChefsHatMask, SqShieldMask, SymbolMask,
BonesText, RawRatMeatText, CoinsText, RuneText, x ,y: integer; // Masks

var
NPCCount, CastCount, TreeCount, LogCount, CookedMeatCount, EatMeatCount: Integer; // counters

var // more counters
AshCount, TalismanCount, KebabCount, BeerCount, NecklaceCount, StickCount, BraxeCount,
BoltsCount, ArrowCount, GoblinMailCount, ChefHatCount, SqShieldCount, BoneCount,
FullHitCount, RawMeatCount: integer;

var
CastEnabled, StickyCast, FullHitFlag: Boolean;

var
SST1, SST2, FindNorMalRandomsTime, FindFastRandomsTime: LongInt;

var
NPCDot, DropDot, PlayerDot, FiveDamage, FullHitBar, RockDTM,
RockColor, RatzWaterColor, GoodClick, BadClick: Integer;

//----------------- USER ADJUSTABLE PARAMS --------------------------------//
const UseSCSS = True;
const FawkiDebug = False; // Set to true for extensive Debugs
const GoblinTimeOut = 6000; // milliseconds before clicking next goblin.
const PickupAny = True; // If you want the Script to Pick up Anything
const PlayerTime = 60; // PlayerTime in minutes
const BuryBonesToo = True; // True for Bury, false for Drop
const RemoteMaster = ''; // fill in the Nickname of the RC master
const MySRLID = ''; // Your SRLID here
const MySRLPassword = ''; // Your SRL Password here
const RatzMouseSpeed = 20; // Set preferred speed. Set as HIGH as possible. Goblins are quick.
const LengthOfFrenzyLoop = 4; // Length of CombatFrenzy in MINUTES before starting WC/FM/Cook loop. recommended 1 - 6
const HowMuchMeatInInVent = 6; // How many pieces of cooked meat to keep in invent
//----------------------------------------------------------------------------//
const MouseHit = 255;
const MouseMis = 65535;
const PickUpColor = 3553023;
const VersionNumber = 'RatZ C.O. 0.70'; // Compliant with SRL 4
//----------------------------------------------------------------------------//

Function Callibrate:Boolean; Forward;
Function QuickCal:Boolean; Forward;
Function NoAxes: Boolean; Forward;
Procedure CleanUpInventory; Forward;
Procedure Down; Forward;
Procedure Up; Forward;
Procedure BuryBones; Forward;

//----------------------------------------------------------------------------//
//----------------------------------------------------------------------------//
//----------------------------------------------------------------------------//

procedure SetupMiniMapColors;
begin
RatzWaterColor := 56 ;
RockColor := 55 ;
end;



Procedure DeclarePlayers;
begin

NumberOfPlayers(6); // set arraylength
CurrentPlayer := 0;

Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active :=True;
Players[0].Skill := 'auto';

Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Active :=True;
Players[1].Skill := 'auto';

Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Active :=True;
Players[2].Skill := 'auto';

Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Active :=True;
Players[3].Skill := 'auto';

Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Active :=True;
Players[4].Skill := 'auto';

Players[5].Name :=' ';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Active :=True;
Players[5].Skill := 'auto';
end;

Procedure FillMem;
begin

Bone1 := BitmapFromString(4, 3, 'B6ABABB6ABAB3D3115' +
'3D3115C9C1C1C9C1C13D31153D31153D3115DBD6D6A49897A 4989' +
'7');
Bone2 := BitmapFromString(4, 2, 'D7D2D1C9C1C1A79B9B' +
'A79B9BF0EEEEB3A8A83D31153D3115');
Bone3 := BitmapFromString(3, 2, '433418BEB5B53D3115' +
'D3CDCDD3CDCDD3CDCD');
Bone4 := BitmapFromString(2, 2, '958B8A8E8484E8E5E5' +
'382B12');
Tree:= BitmapFromString(8, 1, '68783458583D383824' +
'707834485022687834384822586036');
Fire := BitmapFromString(1, 11, '3B3000F4C63FF8C83FF4C73EE6' +
'BC39E6BC39BC922CE6BE45BC9E38BC9E3B352A00');
Rat := BitmapFromString(16, 1, 'A19696AFA2A2B0A4A4B6ABAAB7A' +
'DACB7ADACB4A9A9B4A9A9B0A4A4AB9F9FAB9F9FAB9F9FAB9F 9F9C' +
'91919C91919C9191');
TinderBox := BitmapFromString(13, 1, '604109604109604109604' +
'109604109604109938989988E8D91878789807F7B7272635C 5B45' +
'4141');
LogMask := BitmapFromString(31, 25, 'z78DAED97810D002008C35' +
'EE20AFF3FC90F0806852EB207A88EC030EBD1726530C5D938 FCA7' +
'24B7C8575AAF5FCA712D5397D0695D7EFD49AEDB2DEAE4710 6E62' +
'EF349983BD77781CF9CEFA5211FF221AF9F90BAE4CC1BE434 E757' +
'DE869555EE7232F39B56FE519954845FDD2F1893E2');
AxeMask := BitmapFromString(10, 10, 'z78DA7373230D185000283' +
'16130E825353470A921DE3DE499409EDB480D25FCE10000B7 2C7C' +
'E1');
BrokenAxeMask := BitmapFromString(9, 10, 'z78DA7373230D1890' +
'05C8D34BAA2EE2D5E3F21131FEC56FCBE091A53C34007F307 225');

AshMask := BitmapFromString(13, 11, 'z78DA3330C007DC8806C4A' +
'84756634081BD982A89318D7859E26D27C6FD065405949B49 2DB7' +
'51CB7783C71CEAC61A000029B371');

TalismanMask := BitmapFromString(13, 19, 'z78DA3330201FB881' +
'810195C0E0348D16AE420606540583CDD7F4895337B2C0D04 ACFA' +
'32E1C3C66522BFF52D7770054742568');

KebabMask := BitmapFromString(10, 14, 'z78DA73734300030A00B' +
'54C186C2E1928F70C7E5DE4E9252F54E9E32F4A621C007B84 A7D1' +
'');
BeerMask := BitmapFromString2(False, 'a6AFEC78DAB55049128' +
'03008FB1208857AACDBFF9F64C3C1F1A04EDD72483B218550 2262' +
'19A862992A493F564ED9363681A2128ACE50B4E03E05A7F02 FE1E' +
'CD0A6CB7AA86B1C36A48DBD87921873CD194A1130238F6554 5D50' +
'7547072E19090DFD913740CD78E6DF836EE2FDDB37FEEBE9D 7FEB' +
'36A7BC2FFB66EF9D5AF3CCF765901E53');

NecklaceMask := BitmapFromString(11, 8, 'z78DA73730301030A80DB1' +
'037C10D0950AECB8D6860405540790840D8003F406BC5');
AxeStickMask := BitmapFromString(16, 28, 'z78DA3330A0267043' +
'0206343019BFC850319FD6E133545C3E74C37CD4E5C3C9E5B 8CCA' +
'19DF9A32E1F7539A926D0CEFC51970F4597D3C77CCC761D75 4D06' +
'004C8F1583');
BoltsMask := BitmapFromString(8, 11, 'z78DA33302016B86100FC6A30' +
'C5F18BD0473DE5E203E572E24DA0443D00EAB46DD5');

ArrowsMask := BitmapFromString(9, 3, 'z78DA73730301033070430206' +
'480097382E5952D5E3370700F92B2599');
GoblinMailMask := BitmapFromString(16, 16, 'z78DA33300001370C60' +
'4031A09639F4379F7293F18727B5CCC765E3F00EDB51F3476 376E' +
'4848F1BD1803C570100D1DE2F88');
ChefsHatMask := BitmapFromString(14, 21, 'z78DA3330A0267003038' +
'31160A61B06A0DC9CC1165623273647CD1C3573D4CCC15086 B811' +
'0148750300DCD059C4');
SqShieldMask := BitmapFromString(15, 10, 'z78DA3330180520E00606' +
'43C5646433DD7000DAB996545BC8730FF12EA1C4A79826503 7BE8' +
'8092B0043FCB209');
SymbolMask := BitmapFromString(15, 15, 'z78DA3330C007DCF002' +
'031201F17A4955694016C0A5971233F19B430B93A9652679E 13F6' +
'AF2608B47FAA43A5AE7415A971BD42DEB0085B411D0');
NPCDot := BitmapFromString(4, 3, 'FEFE13FCFC02F5F500DDDD00F' +
'CFC02FCFC02EDED00CCCC00000001DDDD00CCCC00000001') ;
PlayerDot := BitmapFromString(4, 5, 'z78DA3330000137570434C010' +
'8140576710C41471310241B02643572310743605418888010 2182' +
'28B0000E71C1BCB');
DropDot := BitmapFromString(4, 2, 'FF3636FE2020FC0606E90000FE0' +
'C0CFC0606F10000CE0000');
FiveDamage := BitmapFromString(4, 4, 'z78DA7373C3070C30007E714CBD006' +
'B2A16A5');
FullHitBar := BitmapFromString(30, 1, 'z78DA7373330002B7214' +
'50200CCCB26E9');
BonesText := BitmapFromString(24, 1, 'z78DA7373B33430317003' +
'931060EA626A6262EE4603714C121940D40300C5511EC7');
RawRatMeatText := BitmapFromString(25, 1, 'z78DA7373B334303170C' +
'3209181A98BA989893984C4A506591CBF7A6264017C562008 ');
CoinsText := BitmapFromString(35, 1, 'z78DA7373B33430317003' +
'931060EA626A62628E8B74C3A19ED6E2C8A4011240560F910 5008' +
'F812CC8');
RuneText := BitmapFromString(29, 1, 'z78DA7373B3343031700393C8C' +
'0D4C5D4C4C41C42BA61A821551C02283707009DAC24CD');
RawBeef := BitmapFromString(31, 29, 'beNqtlj1Lw1AUhs3sH3D0J' +
'4iDm6PUxUkX0U0dFAVRFCkoonTooFAKgg5FEDoUv8XityiFoi Lo0E' +
'FBQUEFEQdx6+JTzjVektwktg1nKCV9zpv3nvekNTXVuCxXVeu yttP' +
'pTCq1nEwmYrH41OTk6EiV+NZuJiOVrKul+DA9Psb3DfX1FZL3 1tel' +
'hCzw+dmZqsAPt7comyzwVCIRi0Yrc8Y6zWYpnSxw/Mf5CsRbZ/v7l' +
'IOsixfny4Pnjg4pExlb+rq7yoJb+dMTyiR7IR4fGejv6mj/J1xl5C' +
'qXM5GZdqYFcktzc2i4YiLY0w0bvjQ/R4iANzU2hoCXsNf5PExm43h' +
'nR59qT7cHe3s6WyNB06Kw/kyHJwxhWyQisg1whQ3D1OHsFo4SuJBd' +
'cIUNz9SHBE90uIN8e3VpikYgnKOcGB6SIfGUDdyxK+zf6mWaQ B3ut' +
'rpwc+Op3B+eXlzEbV/ZCu4ZPR+4bCoMZ7z9h+S+UOA0A+E6f2NlBb' +
'dZU5J3g2wFR/x/j1J2oK/sEvzx7o6Mkxq3sZ5YDIGM4fJ2MMsuwYv' +
'F4tPDA+Jpwclm11ZNXfiec8RqIRP5wLwDf397hc8j0AL/aUGg6OIm' +
'M37IJu8EJ0i2gn9/fcF/eX6mhRyBbK2DzQ3pAln+S8Bntu3VHeKlp' +
'vifHx/2I9CCcMm+JWK0EL4EB0MMefd7I+jigaP/4vwcPkax0CQ4Yn' +
'UIT/6u3zste4+BlX2OOSIbsvyzkpvLeNE7uoAlMpLHUIJ/AEvmd5w' +
'=');
Bone := BitmapFromString(38, 27, 'beNrtlLFKw1AUhvso+gi+hlu7' +
'2U06SXCQ4hRcpDhIcJDgIMGhGAchHYRbQbhdhDgU4iCkW5cOf QCHD' +
'g71u73lEkKskqShYH8uITm53P+c//z31GpbbBTi98i/catkHI9i8e' +
'DzsrezyzN6DdfNOJ1MZS9Y1juMxGOwPjEpRz4JCkRV+7Stg+G LDLq' +
'+d+V0FpFSEA4kRQVdzzpsJeNa1fFH7JzZ7SOrWW+YYA7dVPID iWLu' +
'pdM6aLIMi1m6RjJJ5pCPEcw+Z9FbSNqN+r4xjG7f/fOEpTwzXNKl0' +
'sgNupNUb/41R0DZF2YDKZVrFW17k7m2DWm4Fx2k5pMX/9Yjgvj8wk' +
'IESQOp+ZVq+h+RFApJOZ+jcCkK02XnXFHjUqy7oPawseip1ud u60/' +
'7Kce/zh471MvCvbl9m3EdRjEVpQyTdA61F7kpmY7S13/1gcWty0BT' +
'o6Av9FhbfWBxOn0X1EC78+xjq0TFfgXOZKBVyahm+Em7SsYS2 7Sxd' +
'Fv8d3wDlWrpUQ==');
end;

//----------------------------------------------------------------------------//

procedure SetupColors;
begin

NPCColors[1] := 8229020; // grey suit
NPCColors[2] := 7642334; // orange shoes
NPCColors[3] := 12832983; // white shoes
NPCColors[4] := 10526869;
NPCColors[5] := 8700589; // light green
NPCColors[6] := 6978694; // grey suit
NPCColors[7] := 3844000; // gobbie green
NPCColors[8] := 7118991; // gobbie green
NPCColors[9] := 12763576; // new rat colors
NPCColors[10] := 8624549;
NPCColors[11] := 10526869;
NPCColors[12] := 11118749;
NPCColors[13] := 4145502;
NPCColors[14] := 12895419;
NPCColors[15] := 10000268;
NPCColors[16] := 9944242; // green head

TreeColors[1] := 876624; // Tree Colors are used with tolerances Don't Change
TreeColors[2] := 3442808;
TreeColors[3] := 4161648;
end;

//----------------------------------------------------------------------------//

Procedure AssembleRockDTM;

var
DTMSubPoints: array[0..2] of TDTMPointDef;
DTMMainPoint: TDTMPointDef;
TempTDTM: TDTM;

begin


DTMMainPoint.x:=638;
DTMMainPoint.y:=76;
DTMMainPoint.areasize:=1;
DTMMainPoint.areashape:=0;
DTMMainPoint.color:=0;
DTMMainPoint.tolerance:=255;

DTMSubPoints[0].x:=664;
DTMSubPoints[0].y:=65;
DTMSubPoints[0].areasize:=1;
DTMSubPoints[0].areashape:=0;
DTMSubPoints[0].color:=RockColor;
DTMSubPoints[0].tolerance:=0;

DTMSubPoints[1].x:=672;
DTMSubPoints[1].y:=72;
DTMSubPoints[1].areasize:=1;
DTMSubPoints[1].areashape:=0;
DTMSubPoints[1].color:=RockColor;
DTMSubPoints[1].tolerance:=0;

DTMSubPoints[2].x:=664;
DTMSubPoints[2].y:=85;
DTMSubPoints[2].areasize:=1;
DTMSubPoints[2].areashape:=0;
DTMSubPoints[2].color:=RockColor;
DTMSubPoints[2].tolerance:=0;

TempTDTM.MainPoint := DTMMainPoint;
TempTDTM.SubPoints := DTMSubPoints;
RockDTM := AddDTM(TempTDTM);
end;



// _____
// | __ \
// | |__) | __ ___ __ _ _ __ ___ ___ ___
// | ___/ '__/ _ \ / _` | '__/ _ \/ __/ __|
// | | | | | (_) | (_| | | | __/\__ \__ \
// |_| |_| \___/ \__, |_| \___||___/___/
// __/ |
// |___/



procedure PlayerStats;

var Active: string;
var i: Integer;
begin
writeln('***************************************** *****');
writeln('Name : '+ Players[CurrentPlayer].Name);
writeln('Number : '+ inttostr(CurrentPlayer));
writeln('Worked for : '+ inttostr(Players[CurrentPlayer].Worked)+' minutes.');
if Players[CurrentPlayer].Active=True then Active:='True' else Active:='False';
writeln('Active : '+ Active);
writeln('***************************************** *****');

for i := 0 to HowManyPlayers-1 do
begin
if Players[i].Active=True then Active:='T' else Active:='F';
writeln( (inttostr(i))+' : '+Players[i].name + ' = '+Active
+'. '
+'AT '+inttostr(Players[i].level[1])+'. '
+'ST '+inttostr(Players[i].level[2])+'. '
+'DF '+inttostr(Players[i].level[3])+'. '
+'PR '+inttostr(Players[i].level[5])+'. '
+'HP '+inttostr(Players[i].level[8])+'. '
+'MG '+inttostr(Players[i].level[6])+'. '
+'CO '+inttostr(Players[i].level[18])+'. '
+'FM '+inttostr(Players[i].level[19])+'. '
+'WC '+inttostr(Players[i].level[20])+'. '
+'W : '+IntToStr(Players[i].Worked)+' min. '
+'L: '+Players[i].loc
+'R: '+Players[i].Rand);
end;
writeln('***************************************** *****');
end;

//----------------------------------------------------------------------------//
procedure ProgressReport;
begin
begin
WriteLn(' ');
WriteLn('<============== -'+VersionNumber+'- Progress Report ===============>');
writeln('Worked for '+ TimeRunning);
writeln('Killed '+ IntToStr(NPCCount)+ ' Rats and Goblins');
writeln('One Hitters: '+ IntToStr(FullHitCount));
writeln('Good Clicks: '+ IntToStr(GoodClick));
writeln('Chase Clicks: '+ IntToStr(BadClick));
writeln('Chopped '+ IntToStr(TreeCount)+ ' Trees');
writeln('Lit '+ IntToStr(LogCount)+ ' Logs');
if CastCount > 0 then writeln('Casted '+ IntToStr(CastCount)+ ' Spells');
writeln('Ate '+ IntToStr(EatMeatCount)+ ' Meat');
writeln('Cooked '+ IntToStr(CookedMeatCount)+ ' Times');
writeln('Cooked '+ IntToStr(RawMeatCount)+ ' Meat');

writeln('Buried '+ IntToStr(BoneCount)+ ' Bones');
WriteLn('<============== -'+VersionNumber+'- Dropping Stats ===============>');
if AshCount > 0 then writeln('Dropped '+ IntToStr(AshCount)+ ' Ashes');
if TalismanCount > 0 then writeln('Dropped '+ IntToStr(TalismanCount)+ ' Talismans');
if KebabCount > 0 then writeln('Dropped '+ IntToStr(KebabCount)+ ' Kebabs');
if BeerCount > 0 then writeln('Dropped '+ IntToStr(BeerCount)+ ' Beers');
if NecklaceCount > 0 then writeln('Dropped '+ IntToStr(NecklaceCount)+ ' Necklaces');
if StickCount > 0 then writeln('Dropped '+ IntToStr(StickCount)+ ' Sticks');
if BraxeCount > 0 then writeln('Dropped '+ IntToStr(StickCount)+ ' Broken Axes');
if BoltsCount > 0 then writeln('Dropped '+ IntToStr(BoltsCount)+ ' Bolts');
if ArrowCount > 0 then writeln('Dropped '+ IntToStr(ArrowCount)+ ' Arrows');
if GoblinMailCount > 0 then writeln('Dropped '+ IntToStr(GoblinMailCount)+ ' GoblinMails');
if ChefHatCount > 0 then writeln('Dropped '+ IntToStr(ChefHatCount)+ ' ChefHats');
if SqShieldCount > 0 then writeln('Dropped '+ IntToStr(SqShieldCount)+ ' SqShields');

PlayerStats;
SRLRandomsReport;
SendSRLReport;
Writeln(' ');
end;
end;



// _____ _
// | __ \ | |
// | |__) |__ _ _ __ __| | ___ _ __ ___ ___
// | _ // _` | '_ \ / _` |/ _ \| '_ ` _ \/ __|
// | | \ \ (_| | | | | (_| | (_) | | | | | \__ \
// |_| \_\__,_|_| |_|\__,_|\___/|_| |_| |_|___/



function RTreeColor : Integer;
var I : Integer;
begin
repeat
I := Random ( 4 + 1 );
until (I = 1) or (I = 2) or (I = 3);
Result := TreeColors [I];
end;

//----------------------------------------------------------------------------//

Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=1 to 2 do
begin
case I of
1: FindNormalRandoms;
2: FindNoNInventoryRandoms;
end;
end;
end;

//----------------------------------------------------------------------------//
// -- Performs Wait and FindTalk. + calls FindNormalRandoms every 10 secs and
// -- FindFastRandoms every 3 secs.
//----------------------------------------------------------------------------//

Procedure FTWaitAll(Time:Integer);
var t: integer;
begin
For T:=1 to Time do
begin
Wait(200+Random(50));
if FawkiDebug then writeln('FindTalk...' + IntToStr(T) + '...');
FindTalk;
RC;
end;
Respond;

FindFastRandoms;
MarkTime(FindNorMalRandomsTime);
if FindNorMalRandomsTime-SST1 >(10000+Random(5000)) then
begin
if FawkiDebug then begin ClearDebug; writeln('Finding SlowRandoms.'); end;
FindNorMalRandoms;
FindTalk;
RC;
Respond;
MarkTime(SST1);
end;

MarkTime(FindFastRandomsTime);
if FindFastRandomsTime-SST2 >(1500+Random(1500)) then
begin
if FawkiDebug then writeln('Finding FastRandoms.');
FindFastRandoms;
FindTalk;
RC;
Respond;
MarkTime(SST2);
if FawkiDebug then writeln('FindFastRandoms took:'+IntToStr(SST2-FindFastRandomsTime)+' msec');
end;
Wait(250);
end;

//----------------------------------------------------------------------------//
// -- Performs FlagWait and FindTalk....
//----------------------------------------------------------------------------//

function FlagFTWait:Boolean;
var FlagMark: Integer;
begin
MarkTime(FlagMark);
if not FlagPresent then
begin
Result:=False;
Exit;
end
else
begin
repeat
FTWaitAll(1);
if not(Loggedin) then break;
until ( (not FlagPresent) or (TimeFromMark(FlagMark) > 6000) ); // waits until flag is gone or 6 seconds.
Result:=True;
Wait(250);
end;
end;

//----------------------------------------------------------------------------//

procedure FindRandoms;
begin

FindNormalRandoms;

if InBlack then
begin
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
Wait(1);
if NoGameTab then
begin
Players[CurrentPlayer].loc := 'GameTab';
Logout;
Exit;
end;
Wait(1);
end;

//----------------------------------------------------------------------------//
// Finds Normal Randoms and Woodcutting Randoms
//----------------------------------------------------------------------------//

procedure FindWCRandoms;
begin
FindRandoms;
if NoAxes then begin Logout; exit; end;
if ( FindFight ) then
begin
MFF ( MMCX, MMY1 + 10, 1, 5 );
Flag;
FTWaitAll(30);
MFF ( MMCX, MMY2-10, 5, 5 );
Flag;
end;
end;

//----------------------------------------------------------------------------//

Procedure MyAntiBan;
var
DBanMe : Integer;
begin
DBanMe:= Random(4);
case DBanMe of
0: PickUpMouse;
1: DragItem(1, 1 + Random(18));
2: GameTab(1 + Random(12));
3: DoEmote(1 + Random(20));
end;
end;


// _____
// / ____|
// | | ___ _ __ ___
// | | / _ \| '__/ _ \
// | |___| (_) | | | __/
// \_____\___/|_| \___|



//----------------------------------------------------------------------------//
// -- Handles ClickToContinue but without NPCChars, so little bandwidth
//----------------------------------------------------------------------------//

Function ClickToContinueFast: Boolean;
var CTCTime,x,y:integer;
Begin
MarkTime(CTCTime);
if FindColor(x,y,16711680,219,436,258,451) then
begin
Mouse (250,440,100,10,True);
Result:=True;
FTWaitAll(2);
IdleTime(500,1,0.5);
if (TimeFromMark(CTCTime) >3000) then Exit;
ClickToContinueFast;
end;
end;

//----------------------------------------------------------------------------//
//--- Like ClickNpcChatText, only this one Right-Clicks. ---//
//----------------------------------------------------------------------------//

function ClickNpcChatTextRight(txt : String) : Boolean;
var
tx,ty,s:integer;
begin
s := CreateBitmapMaskFromText(txt, npcchars);
if FindBitmapMaskTolerance(s, tx, ty, 9, 348, 523, 471, 50, 10) then
begin
Mouse(tx, ty, 0, 0, False);
Result:=True;
end;
FreeBitmap(s);
end;

// __ __ _ _ __ __
// | \/ (_) (_) \/ |
// | \ / |_ _ __ _| \ / | __ _ _ __
// | |\/| | | '_ \| | |\/| |/ _` | '_ \
// | | | | | | | | | | | | (_| | |_) |
// |_| |_|_|_| |_|_|_| |_|\__,_| .__/
// | |
// |_|



// All credits to Boreas!
function FindAllBitmapsIn(TheBmp,startx,starty,endx,endy:in teger):array of tpoint;
var tmpbool:boolean;
AL:integer;
curx,cury,tmpx,tmpy,height:integer;
begin
tmpbool:=FindBitmapIn(TheBmp,tmpx,tmpy,startx,star ty,endx,endy);
if tmpbool then
begin
curx:=startx;
cury:=starty;
tmpbool:=FindBitmapIn(TheBmp,tmpx,tmpy,startx,star ty,endx,endy);
height:=0;
repeat
height:=height+1;
tmpbool:=FindBitmapIn(TheBmp,tmpx,tmpy,startx,tmpy ,endx,tmpy+height);
until tmpbool;
repeat
tmpbool:=FindBitmapIn(TheBmp,tmpx,tmpy,curx,cury,e ndx,cury+height);
if tmpbool then
begin
curx:=tmpx+1;
AL:=getarraylength(result);
setarraylength(result,AL+1);
result[AL].x:=tmpx;
result[AL].y:=tmpy;
end;
if not tmpbool then
begin
curx:=startx;
cury:=cury+1;
end;
until cury=endy+1;
end;
end;

//----------------------------------------------------------------------------//

function FindClosestNPC: TPoint;
var
i, Cx, Cy, Dist, Fx, Fy: Integer;
begin
for Dist := 5 to 62 do
begin
for i := 160 to 520 do
begin
Cx := Round( Dist * Sin(i * Pi / 180)) + MMCx;
Cy := Round(- Dist * Cos(i * Pi / 180)) + MMCy;
if FindColor(Fx, Fy, 195836, Cx, Cy, Cx + 1, Cy + 1) then
begin
Result.x := Fx;
Result.y := Fy;
Exit;
end;
end;
end
end;

//----------------------------------------------------------------------------//

Function CountNPCS:Integer;
var NPCS:array of Tpoint;
var Count:integer;
begin
NPCS := (FindAllBitmapsIn(NPCDot, MMx1,MMy1,MMx2,MMy2));
Count := getarraylength(NPCS);
Result := Count;
setarraylength(NPCS,0);
end;

//----------------------------------------------------------------------------//

Function CountDrops:Integer;
var Drops:array of Tpoint;
var Count:integer;
begin
Drops := (FindAllBitmapsIn(DropDot, MMx1 + 20,MMy1 + 20,MMx2 - 20,MMy2 - 20));
Count := getarraylength(Drops);
if Count > 15 then Count := 15;
Result := Count;
setarraylength(Drops,0);
end;

//----------------------------------------------------------------------------//

Function CountLegits:Integer;
var Legits:array of Tpoint;
var Count:integer;
begin
Legits := (FindAllBitmapsIn(PlayerDot, MMx1, MMy1, MMx2, MMy2));
Count := getarraylength(Legits);
if Count > 15 then Count := 15;
Result := Count;
setarraylength(Legits,0);
end;

//----------------------------------------------------------------------------//

Function NPCInMain:Boolean;
var
Dx, Dy: Integer;
begin
result := FindColor(Dx, Dy, 195836, MMCx - 28 , MMCy - 20, MMCx + 28, MMCy + 20)
end;

// __ __ _ _
// \ \ / / | | | |
// \ \ /\ / /__| |__| | __ ___ _____
// \ \/ \/ / _ \ __ |/ _` \ \ / / _ \
// \ /\ / __/ | | | (_| |\ V / __/
// \/ \/ \___|_| |_|\__,_| \_/ \___|




function WeAreInLumbridgeCastle: Boolean;
var
x,y:integer;
begin
if FindSymbol(x, y, 'water') then
begin
Players[CurrentPlayer].Loc := 'Lumbridge';
Result := True;
end;
end;

//----------------------------------------------------------------------------//

Function WeHave(What, tol:integer; var WhereX,WhereX:integer):boolean;
begin
GameTab(4);
Result:=FindBitmapToleranceIn(What, WhereX, WhereX, MIX1, MIY1, MIX2, MIY2, tol)
end;

//----------------------------------------------------------------------------//

Function WeHaveMask(What, tol:integer; var WhereX,WhereY:integer):boolean;
begin
GameTab(4);
Result:=FindBitmapMaskTolerance(What, WhereX, WhereY, MIX1, MIY1, MIX2, MIY2, tol, 2)
end;

//----------------------------------------------------------------------------//

Function WeHaveRawMeat(var WhereX, WhereY:integer):boolean;
Var RawBeef:Integer;
begin
RawBeef := BitmapFromString(31, 29, 'beNqtlj1Lw1AUhs3sH3D0J' +
'4iDm6PUxUkX0U0dFAVRFCkoonTooFAKgg5FEDoUv8XityiFoi Lo0E' +
'FBQUEFEQdx6+JTzjVektwktg1nKCV9zpv3nvekNTXVuCxXVeu yttP' +
'pTCq1nEwmYrH41OTk6EiV+NZuJiOVrKul+DA9Psb3DfX1FZL3 1tel' +
'hCzw+dmZqsAPt7comyzwVCIRi0Yrc8Y6zWYpnSxw/Mf5CsRbZ/v7l' +
'IOsixfny4Pnjg4pExlb+rq7yoJb+dMTyiR7IR4fGejv6mj/J1xl5C' +
'qXM5GZdqYFcktzc2i4YiLY0w0bvjQ/R4iANzU2hoCXsNf5PExm43h' +
'nR59qT7cHe3s6WyNB06Kw/kyHJwxhWyQisg1whQ3D1OHsFo4SuJBd' +
'cIUNz9SHBE90uIN8e3VpikYgnKOcGB6SIfGUDdyxK+zf6mWaQ B3ut' +
'rpwc+Op3B+eXlzEbV/ZCu4ZPR+4bCoMZ7z9h+S+UOA0A+E6f2NlBb' +
'dZU5J3g2wFR/x/j1J2oK/sEvzx7o6Mkxq3sZ5YDIGM4fJ2MMsuwYv' +
'F4tPDA+Jpwclm11ZNXfiec8RqIRP5wLwDf397hc8j0AL/aUGg6OIm' +
'M37IJu8EJ0i2gn9/fcF/eX6mhRyBbK2DzQ3pAln+S8Bntu3VHeKlp' +
'vifHx/2I9CCcMm+JWK0EL4EB0MMefd7I+jigaP/4vwcPkax0CQ4Yn' +
'UIT/6u3zste4+BlX2OOSIbsvyzkpvLeNE7uoAlMpLHUIJ/AEvmd5w' +
'=');
begin
GameTab(4);
Result:=FindBitmapToleranceIn(RawBeef, WhereX, WhereY, MIX1, MIY1, MIX2, MIY2, 50)
end;
end;

//----------------------------------------------------------------------------//

Function WeHaveCookedMeat(var WhereX,WhereY:integer):boolean;
var CookedMeat:Integer;
begin
Cookedmeat := BitmapFromString(26, 25, 'beNqt1DEKwlAMBuCObq4ugl27' +
'1UUEXdzawcHJwQMIegxHV2/gKTydgR9CSF5ifPrIIEU+kpCkaereb' +
'egRl82Egn4cl+1fKGjXbfeLxhRrFend9ysKSUGrKLZIVRfraR WVPg' +
'5riiCxoZt/pQUURb9okyl57ZJlxhoQhBoJS1GZnsaOh1itm00pis5' +
'HxPZfUeTkEVsma3GT84mhb15WvN12MeVgWM2b8EADhf6DgvY8 7YqT' +
'GWj4ojT0LanZg8YTy4kFWnLMZGKsJceMa+SjIROj9zqPBEoz3 iOmc' +
'DTUQrEWmx5lNQtKU4ba8eKmA8yYxYn1ntXkXWIKf9ZlvgGRxF 0B');


begin
GameTab(4);
Result:=FindBitmapToleranceIn(CookedMeat,WhereX,Wh ereY,MIX1,MIY1,MIX2,MIY2,50)
end;
end;

//----------------------------------------------------------------------------//

Function WeHaveLogs(var WhereX,WhereY:integer):boolean;
begin
GameTab(4);
Result:=FindBitmapMaskTolerance(LogMask,WhereX,Whe reY,MIX1,MIY1,MIX2,MIY2,10,2)
end;

//----------------------------------------------------------------------------//

Function WeHaveBrokenAxe(var WhereX,WhereY:integer):boolean;
begin
GameTab(4);
Result:=FindBitmapMaskTolerance(BrokenAxeMask, WhereX, WhereY, MIX1, MIY1, MIX2, MIY2, 10, 2)
end;

//----------------------------------------------------------------------------//

Function WeHaveBones:boolean;
var
Tx, Ty:Integer;
Begin

begin
GameTab(4);
Result := FindBitmapToleranceIn(Bone,Tx,Ty,MIX1,MIY1,MIX2,MI Y2,10);
end;
end;

//----------------------------------------------------------------------------//

Function ThereIsFire(var WhereX,WhereY:integer):boolean;
var
acc,ref : Extended;
var
XT, YT,times,tol : Integer;
begin
ref:=0.8; tol:=1;
for times:=1 to 4 do
begin
FindDeformedBitmapToleranceIn(Fire, XT, YT, MSCX-(25*times),MSCY-(25*times),MSCX+(25*times),MSCY+(25*times), tol, 2, True, acc);
if (acc >= ref) then
begin
WhereX:=XT;
WhereY:=YT;
Result := True;
if FawkiDebug then writeln('Found Fire');
Exit;
end;
ref := ref - 0.1;
tol:=tol+10;
wait(1);
end;
Result:=False;
if FawkiDebug then writeln('Couldnt Find Fire');
end;

//----------------------------------------------------------------------------//

function NoAxes: Boolean;
var CFAx, CFAy: integer;
begin
if FawkiDebug then writeln('CheckForAxes');
GameTab(4);
FTWaitAll(2);
if (not FindBitmapMaskTolerance(AxeMask,CFAx,CFAy,MIX1,MIY 1,MIX2,MIY2,20,2)) then
begin
GameTab(5);
FTWaitAll(2);
if (not FindBitmapMaskTolerance(AxeMask,CFAx,CFAy,MIX1,MIY 1,MIX2,MIY2,20,2)) then
begin
Result:=True;
end;
end;
end;

//----------------------------------------------------------------------------//

Function HaveRune(WhichRune:Integer): Boolean;
begin
Result:= FindBitmapToleranceIn(WhichRune,Dumx, Dumy,MIX1,MIY1,MIX2,MIY2,10);
end;

//----------------------------------------------------------------------------//

Function CanCast(Cast:String):Boolean;
Var WaterRune,EarthRune,BodyRune,AirRune,MindRune : Integer;
bEGIN
BodyRune := DTMFromString('78DA63BCCFC8C0C0CBC4800CA20283C0342 39' +
'4CF7813C8624455030370352F812C365435121212A86A1E00 5952' +
'A86A5A2AAB51D55CC2740F869A174096107E37030077440AD 9');

WaterRune := DTMFromString('78DA63BCC7C8C0D00AC4488083A71A4CC34 41' +
'9AF0159D5A86AB2139351D53C05B22A50D5282A2862AAE940 5593' +
'1C1985AAE62E90D58BAAA6A7A90555CD454C37C3004C14000 ABE0' +
'D1F');
EarthRune := DTMFromString('78DA637CC0C8C0701A889180970E8486893 2D' +
'E04B2F6A3AA09F2F54255F304538D9EA626AA9A1740D64934 BB5C' +
'9D50D5DC01B2AEA0AA99DAD989AAE611907509554D756131A A9AE' +
'B987665272663AA3984AA26392A0A450D000C841551');

AirRune := DTMFromString('78DA631461626068616440060FEFDE05D33 05' +
'1460EA09A1A543505E9E9A86AE431D5ECDAB001558D1C504D 37AA' +
'9AB69A1A54357C40353DA86AE2C2C351D58863AAC1708F0C5 04D1' +
'3AA9AFEE62654353C986AD0FD0E00C92D12DC');

MindRune := DTMFromString('78DA639CC6C8C0B01C8891407D592998868 93' +
'2F602590B51D5345554A0AA9983A966DEC409986AD6A2AAB9 5327' +
'82AA6612116AA60359EB50D5146566A2AA990F642D23604E0 FA61' +
'A0C73A60259F3F19B0300F9021820');
begin
GameTab(4);
if Cast=('confuse') then
begin
if Players[CurrentPlayer].level[6] >=3 then
begin
If FindDTM(WaterRune,x,y,MIX1,MIY1,MIX2,MIY2) and
FindDTM(EarthRune,x,y,MIX1,MIY1,MIX2,MIY2) and
FindDTM(BodyRune,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
Result:=True;
if FawkiDebug then Writeln('CanCast');
end;
end;
end;
if Cast=('wind') then
begin
If FindDTM(MindRune,x,y,MIX1,MIY1,MIX2,MIY2) and
FindDTM(AirRune,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
Result:=True;
if FawkiDebug then Writeln('CanCast');
end;
end;
End;
end;



// _____ _ _ _ _
// | __ (_) | | | | | |
// | |__) | ___| | _| | | |_ __
// | ___/ |/ __| |/ / | | | '_ \
// | | | | (__| <| |__| | |_) |
// |_| |_|\___|_|\_\\____/| .__/
// | |
// |_|


{************************************************* ******************************
function ChooseOption3: Boolean;
By: Stupid3ooo modded by WT-Fakawi
Description: Finds Popup menu, then clicks on Meat, Coins, Runes and Bones in that order!!!
************************************************** *****************************}

Function ChooseOptionMeat:Boolean;
var
x1, y1, x2, y2, LeftCorner, RightCorner, Fx, Fy, BitMap, I: Integer;
begin
LeftCorner := BitmapFromString(4, 4, 'z78DA33753135313137C5' +
'411A600064715CEA914500CACE13F0');
RightCorner := BitmapFromString(4, 4, 'z78DA33753135313137' +
'C5200D30002E35F8C501C9C013F0');
if (FindBitmap(LeftCorner, x1, y1)) and (FindBitmap(RightCorner, x2, y2)) then
begin
for I := 1 to 4 do
begin
case I of
1: BitMap := RawRatMeatText; // Sliced Bitmaps of MenuItemText
2: BitMap := CoinsText; // Works like a charm
3: BitMap := RuneText;
4: BitMap := BonesText;
end;

If FindBitMap(BitMap, Fx, Fy) then
begin
Mouse(Fx, Fy, 20, 4, True);
Result := True;
FlagFTWait;
Exit;
end;
end;
if (FindText(Fx, Fy, 'Cancel', upchars, x1, y1, x2, 502)) then
Mouse(Fx + 9, Fy + 3, 2, 2, True);
end;
FreeBitmap(LeftCorner);
FreeBitmap(RightCorner);
end;

//----------------------------------------------------------------------------//

Function PickupGold: Boolean;
var Gx, Gy:Integer;
begin
if FindColorSpiralTolerance(Gx, Gy,1413553,MSX1,MSY1,MSX2,MSY2,4) then
begin
MMouse(Gx, Gy, 0, 0);
FTWaitAll(1);
if IsUpText('oi') then
begin
Mouse(Gx, Gy, 0, 0, False);
RunControl(True);
ChooseOptionMeat;
RunControl(False);
if InChat('spac') then CleanupInventory;
if FawkiDebug then writeln('Pick up Meat');
Result:=True;
end;
end;
end;

//----------------------------------------------------------------------------//

Function PickUpMeat: Boolean;
var RX,RY:integer;
begin
if (not Loggedin) then Exit;
if FindColorSpiralTolerance(RX,RY,1122975,MSX1+40,MSY 1+40,MSX2-40,MSY2-40,10) then
begin
MMouse(Rx,Ry,0,0);
FTWaitAll(1);
if IsUpText('ake') then
begin
Mouse(Rx,Ry,0,0,False);
ChooseOptionMeat;
if InChat('spac') then CleanupInventory;
if FawkiDebug then writeln('Pick up Meat');
FTWaitAll(1);
Result:=True;
end;
end;
FTWaitAll(1);
FlagFTWait;
end;

//----------------------------------------------------------------------------//

Function PickUpBones:Boolean;
var Dx, Dy, i:integer;
var acc:Extended;
begin
for I := 1 to 4 do
begin
case I of
1: TheBone := Bone1;
2: TheBone := Bone2;
3: TheBone := Bone3;
4: TheBone := Bone4;
end;
if (not Loggedin) then Exit;

FindDeformedBitmapToleranceIn(TheBone, Dx, Dy, MSX1 + 50, MSY1 + 50, MSX2 - 50, MSY2 - 50, 5, 1, True, acc);
if FawkiDebug then writeln('No Bones ' + FloatToStr(acc));
begin
if WeAreInLumbridgeCastle or FindDead or (not Loggedin) then Exit;
if (acc >= 0.3) then
begin
if FawkiDebug then writeln('Bones Found');
MMouse(Dx, Dy, 0, 0);
if IsUpText('tt') then Mouse(Dx, Dy, 0, 0,True); // bash a rat
FindTalk;
if PickupAny then
begin
if IsUpText('apron') then
begin
Mouse(616,103,10,10,True);
FFlag(0);
Exit;
end;
if IsUpText('ake') then
begin
Mouse(Dx, Dy, 0, 0, False);
ChooseOptionMeat;
if InChat('spac') then BuryBones;
Exit;
end;
end
else
begin
if IsUpText('ak') then
begin
Mouse(Dx, Dy, 0, 0, False);
ChooseOptionMeat;
if InChat('spac') then BuryBones;
FindTalk;
if FawkiDebug then writeln('Pick up Deformed');
Result := True;
FlagFTWait;
Exit;
end;
end;
end;
end;
FTWaitAll(1);
end;
end;

//----------------------------------------------------------------------------//

Function PickUpNear: Boolean;
var
Px, Py, Size, PuMark: Integer;
begin
Px := MMCx;
Py := MMCy;
Size := 20;
if FindColorSpiral(Px, Py, 2105598, MMCx - Size, MMCy - Size, MMCx + Size, MMCy + Size) then
begin
Result := True;
MarkTime(PuMark);
Mouse(Px, Py, 2, 2, True);
FFlag(0);
repeat
if QuickCal then Exit;
if TimeFromMark(PuMark) > 20000 then Exit;
if NPCInMain then Exit;
Wait(100);
PickUpBones;
Wait(100);
PickupMeat;
Px := MMCx;
Py := MMCy;
until not FindColorSpiral(Px, Py, 2105598, MMCx - Size, MMCy - Size, MMCx + Size, MMCy + Size);
end
else
Result := False;
end;

//----------------------------------------------------------------------------//

Procedure PickUpCycle;
var
i:Integer;
begin
for i:= 0 to 3 do
begin
PickUpMeat;
Wait(100);
PickUpBones;
Wait(100);
end;
end;

// _ _ _ _ _
// | | | | | | | | |
// | |__| | ___ __ _| | |_| |__
// | __ |/ _ \/ _` | | __| '_ \
// | | | | __/ (_| | | |_| | | |
// |_| |_|\___|\__,_|_|\__|_| |_|



Function EatMeat: Boolean;
var CMx,CMy:integer;
begin
if WeHaveCookedMeat(CMx,CMy) then
begin
EatMeatCount := EatMeatCount + 1;
Mouse(CMx + 2, CMy + 2, 4, 4, True);
FTWaitAll(1);
Result:=True;
end;
end;

//----------------------------------------------------------------------------//

Procedure EatTilEight;
Var Cooked: Integer;
begin
Cooked := BitmapFromString(26, 25, 'beNqt1DEKwlAMBuCObq4ugl' +
'271UUEXdzawcHJwQMIegxHV2/gKTydgR9CSF5ifPrIIEU+kpCkaer' +
'ebegRl82Egn4cl+1fKGjXbfeLxhRrFend9ysKSUGrKLZIVRfr aRWV' +
'Pg5riiCxoZt/pQUURb9okyl57ZJlxhoQhBoJS1GZnsaOh1itm00pi' +
's5HxPZfUeTkEVsma3GT84mhb15WvN12MeVgWM2b8EADhf6Dgv Y87Y' +
'qTGWj4ojT0LanZg8YTy4kFWnLMZGKsJceMa+SjIROj9zqPBEo z3iO' +
'mcDTUQrEWmx5lNQtKU4ba8eKmA8yYxYn1ntXkXWIKf9ZlvgGR xF0B' +
'');

while CountItemsBmp('inv',Cooked,50) > HowMuchMeatInInVent do
begin
if not LoggedIn then Exit;
EatMeat;
FTWaitAll(3);
end;
end;

//----------------------------------------------------------------------------//

Function RestoreHealth:Boolean;
var
x,y:integer;
begin
if WeHaveCookedMeat(x,y) then
begin
while HPPercent < 90 do
begin
if WeHaveCookedMeat(x,y) then
begin
EatMeat;
FTWaitAll(2);
end
else
begin
Result:=False;
Exit;
end;
end;
Result:=True;
end;
end;



// ______ _ _ _ _
// | ____(_) | | | | (_)
// | |__ _ __ _| |__ | |_ _ _ __ __ _
// | __| | |/ _` | '_ \| __| | '_ \ / _` |
// | | | | (_| | | | | |_| | | | | (_| |
// |_| |_|\__, |_| |_|\__|_|_| |_|\__, |
// __/ | __/ |
// |___/ |___/



Procedure SetLowest;
var Ci, HL1, HL2, HL:Integer;
Begin
GetAllLevels;

if Players[CurrentPlayer].Skill = 'auto' then
begin
HL := 100;
for Ci := 1 to 2 do
begin
HL1 := Players[CurrentPlayer].level[Ci];
HL2 := Players[CurrentPlayer].level[Ci+1];
if HL2 > HL1 then
begin
if HL > HL1 then HL := HL1;
end
else
begin
if HL > HL2 then HL := HL2;
end;
end;
for CI := 1 to 3 do
begin
if Players[CurrentPlayer].level[Ci] = HL then
begin
if CI = 3 then CI := CI + 1;
SetFightMode(CI);
Exit;
end;
End;
end
else
begin
if Players[CurrentPlayer].Skill = 'attack' then SetFightMode(1);
if Players[CurrentPlayer].Skill = 'strength' then SetFightMode(2);
if Players[CurrentPlayer].Skill = 'defence' then SetFightMode(4);
end;
End;

//----------------------------------------------------------------------------//

Function InFightAt(x, y: Integer):Boolean;
var
dx, dy: Integer;
begin
GetMousePos(Dx, Dy);
if x - 50 < 1 then x := 1;
if y - 60 < 1 then Y := 1;
Result := FindColor(dx, dy, 255, x - 50, y - 60, x + 50, y + 50)
end;

//----------------------------------------------------------------------------//

Function FindG:Boolean;
var
tempx, tempy: Integer;
begin
Result := IsTextInAreaEx(7, 7, 71, 20, tempx, tempy, 'G', 100, upchars, True,
True, 0, 2, -1);
end;

//----------------------------------------------------------------------------//

Function ClickNPC: Boolean;
var CBx, CBy, Dx, Dy, GCIndex, UpThrust: Integer;
SB:TBox;
begin
SB.x1 := 150;
SB.y1 := 125;
SB.x2 := 300;
SB.y2 := 200;

if CastEnabled then
begin
Cast('wind strike');
StickyCast:=True;
CastCount:=CastCount+1;
end;

for GCIndex := 1 to 16 do
begin
CBx := Random(MMx2);
CBy := Random(MMy2);
if CBx > MSCx - 100 then CBx := MSCx + 100 + (Random(MMx2) - (MSCx + 100));
if CBy > MSCy - 100 then CBy := MSCy + 100 + (Random(MMx2) - (MSCy + 100));
if FindColorSkipBox(CBx, CBy, NPCColors[GCIndex], MSx1, MSy1, MSx2, MSy2, SB) then
begin
MMouse(CBx, CBy, 0, 0);
if FindColorTolerance(Dx, Dy, 318168, 42, 8, 120, 21, 50) then // Yellow
begin
if IsUpText('G') then
begin
if not InFightAt(CBx, CBy) then
begin
RunControl(True);
Mouse(CBx, CBy, 0, 0, False);
if ChooseOption('tt') then
begin
if FindBlackChatMessage('eone') then
begin
Result := False;
RunControl(False);
Exit;
end
else
begin
Result := True;
NPCCount:= NPCCount + 1;
ReportVars[1] := ReportVars[1] + 1;
RunControl(False);
Exit;
end
end
else
begin
Result := False;
RunControl(False);
Exit;
end;
end;
end;
end;
end else
begin
UpThrust := UpThrust + 10;
end;
end;
RunControl(False);
end;

//----------------------------------------------------------------------------//

Function ClickRat: Boolean;
var CBx,CBy: Integer;
begin
if CastEnabled then
begin
Cast('wind strike');
StickyCast:=True;
CastCount:=CastCount+1;
end;
if FindColoredAreaTolerance(CBx, CBy, 9934476, MSX1, MSY1 + 20, MSX2, MSY2, 9, 5) then //3*3 white color
begin
MMouse(CBx, CBy, 0, 0);
if IsUpText('G') then
begin
GetMousePos(CBx,CBy);
if not InFightAt(CBx, CBy) then
begin
RunControl(True);
Mouse(CBx, CBy, 0, 0, False);
if ChooseOption('tt') then
begin
if FindBlackChatMessage('eone') then
begin
Result := False;
RunControl(False);
Exit;
end
else
begin
Result := True;
NPCCount:= NPCCount + 1;
ReportVars[1] := ReportVars[1] + 1;
RunControl(False);
Exit;
end
end
else
begin
Result := False;
RunControl(False);
Exit;
end;
RunControl(False);
Exit;
end;
end;
end;
RunControl(False);
end;

//----------------------------------------------------------------------------//

Function FastFight: Boolean;
var CBx,CBy,GCIndex, SquareX, SquareY, Dumx, Dumy, i: Integer;
begin
if CastEnabled then
begin
Cast('confuse');
StickyCast:=True;
CastCount:=CastCount+1;
end;
for GCIndex := 1 to 16 do
begin
CBx := Random(MMx2);
CBy := Random(MMy2);
if CBx > MSCx - SquareX then CBx := MSCx + SquareX + (Random(MMx2) - (MSCx + SquareX));
if CBy > MSCy - SquareY then CBy := MSCy + SquareY + (Random(MMx2) - (MSCy + SquareY));
if FindColorSpiralTolerance(CBx, CBy, NPCColors[GCIndex], MSX1, MSy1 + 20, MSX2, MSY2, 3) then
begin
MMouse(CBx, CBy, 0, 0);
Wait(10);
if FindColorTolerance(Dumx, Dumy, 318168, 42, 8, 120, 21, 50) then // Yellow
begin
if IsTextInAreaEx(7, 7, 71, 20, Dumx, Dumy, 'G', 100, upchars, True,
True, 0, 2, -1) then
begin
if not InFightAt(CBx, CBy) then
begin
RunControl(True);
Mouse(CBx, CBy, 0, 0, True);
FullHitFlag := False;
for i := 0 to 10 do
begin
if FindColor(Dumx, Dumy, MouseHit, CBx - 8, CBy - 8, CBx + 8, CBy + 8) then
begin
GoodClick:=GoodClick + 1;
Break;
end;
if FindColor(Dumx, Dumy, MouseMis, CBx - 8, CBy - 8, CBx + 8, CBy + 8) then
begin
BadClick := BadClick + 1;
FullHitFlag := False;
RunControl(False);
Exit;
end;
Wait(10);
end;
FlagFTWait;
Result := True;
NPCCount:= NPCCount + 1;
ReportVars[1] := ReportVars[1] + 1;
FullHitFlag := False;
RunControl(False);
Exit;
end
else
begin
Result := False;
FullHitFlag := False;
RunControl(False);
Exit;
end;
end;
end;
end;
end;
RunControl(False);
QuickCal;
FullHitFlag := False;
end;

//----------------------------------------------------------------------------//

function InFight2: Boolean;
var
x,y:integer;
begin
if ( FindColor(x, y, 65280, 230, 130, 280, 180) or FindColor(x, y, 255, 230, 130, 280, 180) )
then
begin
result:= true;
if FawkiDebug then writeln('infight Returns True');
end
else
begin
result:=false;
if FawkiDebug then writeln('Not Infight');
end;
end;

//----------------------------------------------------------------------------//

function FindFiveDamage:Boolean;
var
Dx, Dy, FDx, FDy:integer;
begin
if FindColor(Dx, Dy, 192, MSCx-50, MSCy-50, MSCx + 50, MSCy + 50) then
Result := FindBitmapMaskTolerance(FiveDamage, FDx, FDy, Dx, Dy, Dx + 10, Dy + 10, 0, 0);
if Result then
begin
FullHitCount := FullHitCount + 1;
FullHitFlag := True;
end;
end;

//----------------------------------------------------------------------------//

function IsFullHitBar:Boolean;
var
Dx, Dy:integer;
begin
Dx := MMCx;
Dy := MMCy;
if FindColor(Dx, Dy, 192, MSCx-50, MSCy-50, MSCx + 50, MSCy + 50) then
Result := FindBitmapIn(FullHitBar, Dx, Dy, MSCx - 100, MSCy - 60, MSCx + 100, MSCy + 60);
if Result then
begin
FullHitFlag := True;
end;
end;

//----------------------------------------------------------------------------//

Function Moving:Boolean;
var
c: array[0..7] of Integer;
i: Integer;
begin
if Not LoggedIn then
begin
Result := False;
Exit;
end;
for i := 0 to 1 do
begin
c[((i * 4) + 0)] := GetColor(MSCx - 40, MSCy - 40);
c[((i * 4) + 1)] := GetColor(MSCx + 40, MSCy + 40);
c[((i * 4) + 0)] := GetColor(MSCx - 40, MSCy - 40);
c[((i * 4) + 1)] := GetColor(MSCx + 40, MSCy + 40);
Wait(100);
end;
if ( c[0] = c[4] ) and ( c[1] = c[5] ) and ( c[2] = c[6] ) and ( c[3] = c[7] )
then
Result := False
else
Result:= True;
end;

//----------------------------------------------------------------------------//

Procedure WaitFight;
var Mark5, FlagMark, WGC, i:Integer;
begin

FlagFTWait;

While Moving do FindTalk;

MarkTime(FlagMark);
repeat
if not(Loggedin) then break;
for i := 1 to 5 do
begin
if FindFiveDamage then
begin
if FawkiDebug then Writeln('Full Damage Detected...Exit Fighting Loop');
Exit;
end;
Wait(50);
end;
if IsFullHitBar then Exit;
until ( (not FlagPresent) or (TimeFromMark(FlagMark) > 3000) );

MarkTime(Mark5);
repeat
for i := 1 to 5 do
begin
if FindFiveDamage then
begin
if FawkiDebug then Writeln('Full Damage Detected...Exit Fighting Loop');
Exit;
end;
Wait(50);
end;
if not(Loggedin) then Exit;
if IsFullHitBar then Exit;
until ( (InFight2) or (TimeFromMark(Mark5) > 10000) );

MarkTime(Mark5);
repeat
if ( not (Loggedin)) or (FindDead) then Exit;
for WGC := 1 to 3 do
begin
FTWaitAll(1);
FindTalk;
if (TimeFromMark(Mark5) > GoblinTimeOut) then Exit;
PickUpBones;
if (TimeFromMark(Mark5) > GoblinTimeOut) then Exit;
PickupMeat;
if (TimeFromMark(Mark5) > GoblinTimeOut) then Exit;
end;
until not InFight2;
FlagFTWait;
Players[CurrentPlayer].Integers[0] := Players[CurrentPlayer].Integers[0] + 1;
FTWait(4);
end;

//----------------------------------------------------------------------------//

Procedure WaitFastFight;
var Mark5, FlagMark,i:Integer;
begin

FlagFTWait;
While Moving do FindTalk;

MarkTime(FlagMark);
repeat
for i := 1 to 5 do
begin
if FindFiveDamage then
begin
if FawkiDebug then Writeln('Full Damage Detected...Exit Fighting Loop');
Exit;
end;
Wait(50);
end;
if IsFullHitBar then Exit;
until ( (not FlagPresent) or (TimeFromMark(FlagMark) > 3000) ); // waits until flag is gone or six seconds.


MarkTime(Mark5);
repeat
for i := 1 to 5 do
begin
if FindFiveDamage then
begin
if FawkiDebug then Writeln('Full Damage Detected...Exit Fighting Loop');
Exit;
end;
Wait(50);
end;
if IsFullHitBar then Exit;
until ( (InFight2) or (TimeFromMark(Mark5) > 1500) );

PickupGold;
PickUpMeat;

MarkTime(Mark5);
repeat
for i := 1 to 5 do
begin
if FindFiveDamage then
begin
if FawkiDebug then Writeln('Full Damage Detected...Exit Fighting Loop');
Exit;
end;
Wait(50);
end;
if IsFullHitBar then Exit;
until not InFight2;


FindFastRandoms;
FlagFTWait;
Players[CurrentPlayer].Integers[0] := Players[CurrentPlayer].Integers[0]+1;
FTWait(4);
end;

//----------------------------------------------------------------------------//

procedure ClickClosest;
var
TheNPC: TPoint;
begin
TheNPC := FindClosestNPC;
Mouse(TheNPC.x, TheNPC.y, 0, 0, True);
FFlag(0);
FindTalk;
Wait(1000);
FullHitFlag := False;
end;

//----------------------------------------------------------------------------//

procedure CombatFrenzy;
var
CFMark:Integer;
begin
MarkTime(CFMark);
Repeat
if NPCInMain then
begin
if FastFight then
WaitFastFight
end
else
begin
QuickCal;
// if CountDrops > 5 then PickupGold;
FullHitFlag := False;
if not PickUpNear then ClickClosest;
if StickyCast then
begin
Mouse(MMCX-3,MMCY-3,6,6,True);
StickyCast:=False;
end;
end;
if Not LoggedIn Then Exit;
until (TimeFromMark(CFMark) > LengthOfFrenzyLoop * 60000); // Combatfrenzy lasts 4 minutes
end;

//----------------------------------------------------------------------------//

Function NPCCycle:Boolean;
Begin
if Not LoggedIn Then Exit;
if CountLegits = 0 then
begin
if FastFight then
begin
WaitFight;
Result:=True;
end
end
else
if ClickNPC then
begin
WaitFight;
Result:=True;
end
else
begin
ClickClosest;
if FawkiDebug then writeln('not clicked NPC');
if StickyCast then
begin
Mouse(MMCX-3,MMCY-3,6,6,True);
StickyCast:=False;
end;
end;

if CountLegits = 0 then
begin
if FastFight then
begin
WaitFight;
Result:=True;
end
end
else
if ClickRat then
begin
WaitFight;
Result:=True;
end
else
ClickClosest;
PickUpMeat;
FlagFTWait;
PickUpMeat;
FindRandoms;
end;



// _____ _
// / ____| | |
// | (___ ___| |_ _ _ _ __
// \___ \ / _ \ __| | | | '_ \
// ____) | __/ |_| |_| | |_) |
// |_____/ \___|\__|\__,_| .__/
// | |
// |_|



Procedure Down;
begin
ActivateClient;
SendArrowSilentWait(2, 1000 + Random(500));
end;

//----------------------------------------------------------------------------//

Procedure Up;
begin
ActivateClient;
SendArrowSilentWait(0, 1000 + Random(500));
end;

//----------------------------------------------------------------------------//

Procedure UpTime(Time:Integer);
begin
ActivateClient;
SendArrowSilentWait(0, Time + Random(Time/10));
end;


//----------------------------------------------------------------------------//

procedure SetPlayerParams;
begin

setlowest;
FTWaitAll(3);
SetChat('on', 1);
SetChat('friends', 2);
SetChat('on', 3);
SetChat('on', 1);
FindTalk;
end;

//----------------------------------------------------------------------------//

Procedure SetUp;
var i:integer;
begin
SetupSRL;
SetupMiniMapColors;
SRLID := MySRLID;
SRLPassword := MySRLPassword;
RCMaster :=RemoteMaster;
for I := 0 to 19 do
ReportVars[I] := 0;

ReportVars[12] := 1; // Sets Total times Run One Time each setup
ScriptID := '41';
Fillmem;
DeclarePlayers;
MouseSpeed:=RatzMouseSpeed;
LoginPlayer;
SetupColors;
AssembleRockDTM;
MarkTime(SST1);
MarkTime(SST2);
ClearDebug;
ClearReport;
end;

//----------------------------------------------------------------------------//

procedure InitPlayer;
begin
SetChat('on', 1);
SetChat('friends', 2);
SetChat('off', 3);
SetChat('on', 1);
setlowest;
MakeCompass('N');
Up;
if Players[CurrentPlayer].Booleans[0] = False then
begin
Retaliate(True); // Set Retaliate nn only the first time. :)
Players[CurrentPlayer].Booleans[0]:=True;
end;
MarkTime(CallibrateTime);
MarkTime(PlayTime);
MarkTime(WoodCutTime);
MarkTime(CookTime);
MarkTime(CleanUpMiscTime);
FindWindowBySize(766, 504);
ActivateClient;
FixChat;
end;



// _____ _ _ _ _ _
// / ____| | | (_) | | |
// | | __ _| | |_| |__ _ __ __ _| |_ ___
// | | / _` | | | | '_ \| '__/ _` | __/ _ \
// | |___| (_| | | | | |_) | | | (_| | || __/
// \_____\__,_|_|_|_|_.__/|_| \__,_|\__\___|




Function Callibrate:Boolean;
var CALx,CALy,cx,i: integer;
var WhichAngle: Extended;
begin
RestoreHealth;
if HPPercent < 50 then
begin
// in case of weird error...
Wait(500);
GameTab(2);
if not LoggedIn then Exit;
if HPPercent < 30 then ; else exit;
if HPPercent = 0 then
for i := 0 to 10 do writeln('HP = 0 ERROR. CALLIBRATE. HP = 0 ERROR. CALLIBRATE');
// end weird error
MFF(MMCX,MMCY-40,3,-3);
FlagFTWait;
MFF(MMCX,MMCY-40,3,-3);
FlagFTWait;
RestoreHealth;
for cx:=0 to 10 do
begin
FindNormalRandoms;
FTWait(2);
end;
if HPPercent < 50 then
begin
Players[CurrentPlayer].loc :=' HP Drop';
Logout;
end
else
begin
MFF(MMCX,MMCY+40,3,3);
FlagFTWait;
MFF(MMCX,MMCY+40,3,3);
FlagFTWait;
end;

end;

If not FindColor(CALx,CALy,RatzWaterColor,MMX1,MMY1,MMX2, MMY2) then
begin
if FawkiDebug then Status('No Water Found');
MFF(MMCX - Random(4), MMCY+40+Random(20), 1, 1);
FlagFTWait;
FindTalk;
Result:=True;
Callibrate;
Exit;
end;

if FindDtmRotated(RockDTM, CALx, CALy, MMX1, MMY1, MMX2, MMY2, rs_GetCompassAngleRadians-pi/4, rs_GetCompassAngleRadians+pi/4, 0.05,
WhichAngle) then
begin
if rs_OnMiniMap(CALx, CALy) then
begin
MFF(CALx, CALy, 1, 1);
FlagFTWait;
Exit;
end;
end;



If FindSymbol(CALx,CALy,'altar') then
begin
if FawkiDebug then writeln('Found Altar at '+inttostr(CALx)+' '+inttostr(CALy));
if rs_OnMiniMap(CALx, CALy) then
begin
MFF(CALx,CALy-30,1,0);
FFlag(5);
FindTalk;
Result:=True;
Exit;
end;
end;

If FindSymbol(CALx,CALy,'fish') then
begin
if FawkiDebug then writeln('Found Fish at '+inttostr(CALx)+' '+inttostr(CALy));
if rs_OnMiniMap(CALx, CALy) then
begin
MFF(CALx+20,CALy-60,1,0);
FFlag(5);
FindTalk;
Result:=True;
Exit;
end;
end;


If FindSymbol(CALx,CALy,'fish store') then
begin
if FawkiDebug then writeln('Found fishstore at '+inttostr(CALx)+' '+inttostr(CALy));
MFF(633,135,0,-1);
FFlag(5);
FindTalk;
Result:=True;
Exit;
end;

If FindSymbol(CALx,CALy,'food store') then
begin
if FawkiDebug then writeln('Found foodstore at '+inttostr(CALx)+' '+inttostr(CALy));
MFF(644,118,0,-1);
FFlag(5);
FindTalk;
Result:=True;
Exit;
end;

If FindSymbol(CALx,CALy,'mining site') then
begin
if FawkiDebug then writeln('Found Mining site at '+inttostr(CALx)+' '+inttostr(CALy));
MFF(697,116,-1,-1);
FlagFTWait;
FindTalk;
MFF(647,150,-1,-1);
FlagFTWait;
Result:=True;
Exit;
end;

If FindSymbol(CALx,CALy,'quest') then
begin
if FawkiDebug then writeln('Found quest at '+inttostr(CALx)+' '+inttostr(CALy));
MFF(700,110,-1,-1);
FlagFTWait;
FindTalk;
MFF(670,117,-1,-1);
FlagFTWait;
Result:=True;
Exit;
end;

If FindColor(CALx,CALy,RatzWaterColor,624,108,634,118 ) then
begin
if FawkiDebug then writeln('Found Water LEFT');
MFF(688,94,-1,-1);
FlagFTWait;
FindTalk;
Result:=True;
Exit;
end;

If FindColor(CALx,CALy,RatzWaterColor,MMCX+40,MMY1,MM X2,MMY2) then
begin
if FawkiDebug then writeln('Found Water RIGHT');
MFF(MMX1+20+Random(20), MMCY-20+Random(20), 1, 1);
FlagFTWait;
FindTalk;
Result:=True;
Exit;
end;
end;

//----------------------------------------------------------------------------//

Function CallibrateToRats:Boolean;
var CALx,CALy,cx,i: integer;
var WhichAngle: Extended;
begin
RestoreHealth;
if HPPercent < 50 then
begin
// in case of weird error...
Wait(500);
GameTab(2);
if HPPercent < 30 then ; else exit;
if HPPercent = 0 then
for i := 0 to 10 do writeln('HP = 0 ERROR. CALLIBRATE. HP = 0 ERROR. CALLIBRATE');
// end weird error
if not LoggedIn then Exit;
MFF(MMCX,MMCY-40,3,-3);
FlagFTWait;
MFF(MMCX,MMCY-40,3,-3);
FlagFTWait;
RestoreHealth;
for cx:=0 to 10 do
begin
FindNormalRandoms;
FTWait(2);
end;
if HPPercent < 50 then
begin
Players[CurrentPlayer].loc :=' HP Drop';
Logout;
end
else
begin
MFF(MMCX,MMCY+40,3,3);
FlagFTWait;
MFF(MMCX,MMCY+40,3,3);
FlagFTWait;
end;
end;

If not FindColor(CALx,CALy,RatzWaterColor,MMX1,MMY1,MMX2, MMY2) then
begin
if FawkiDebug then Status('No Water Found');
MFF(MMCX+Random(4), MMCY+40+Random(20), 1, 1);
FlagFTWait;
FindTalk;
Result:=True;
CallibrateToRats;
Exit;
end;

if FindDtmRotated(RockDTM, CALx, CALy, MMX1, MMY1, MMX2, MMY2, rs_GetCompassAngleRadians-pi/4, rs_GetCompassAngleRadians+pi/4, 0.05,
WhichAngle) then
begin
MFF(CALx, CALy, 1, 1);
FlagFTWait;
Exit;
end;


If FindSymbol(CALx,CALy,'altar') then
begin
if FawkiDebug then writeln('Found Altar at '+inttostr(CALx)+' '+inttostr(CALy));
if rs_OnMiniMap(CALx, CALy) then
begin
MFF(CALx,CALy-20,1,0);
FlagFTWait;
FindTalk;
Result:=True;
Exit;
end;
end;

If FindSymbol(CALx,CALy,'fish store') then
begin
if FawkiDebug then writeln('Found fishstore at '+inttostr(CALx)+' '+inttostr(CALy));
MFF(647,150,-1,-1);
FlagFTWait;
FindTalk;
Result:=True;
Exit;
end;

If FindSymbol(CALx,CALy,'food store') then
begin
if FawkiDebug then writeln('Found foodstore at '+inttostr(CALx)+' '+inttostr(CALy));
MFF(647,150,-1,-1);
FlagFTWait;
FindTalk;
Result:=True;
Exit;
end;

If FindSymbol(CALx,CALy,'mining site') then
begin
if FawkiDebug then writeln('Found Mining site at '+inttostr(CALx)+' '+inttostr(CALy));
MFF(697,116,-1,-1);
FlagFTWait;
FindTalk;
MFF(647,150,-1,-1);
FlagFTWait;
FindTalk;
Result:=True;
Exit;
end;
If FindSymbol(CALx,CALy,'quest') then
begin
if FawkiDebug then writeln('Found quest at '+inttostr(CALx)+' '+inttostr(CALy));
MFF(700,110,-1,-1);
FlagFTWait;
FindTalk;
MFF(670,117,-1,-1);
FlagFTWait;
FindTalk;
Result:=True;
Exit;
end;

If FindColor(CALx,CALy,RatzWaterColor,624,108,634,118 ) then
begin
if FawkiDebug then writeln('Found Water LEFT');
MFF(688,94,-1,-1);
FlagFTWait;
FindTalk;
Result:=True;
Exit;
end;

If FindColor(CALx,CALy,RatzWaterColor,MMCX,MMY1,MMX2, MMY2) then
begin
if FawkiDebug then writeln('Found Water RIGHT');
MFF(MMX1+30+Random(20), MMCY+Random(20), 1, 1);
FlagFTWait;
FindTalk;
Result:=True;
Exit;
end;

end;

Function QuickCal:Boolean;
var CALx,CALy: integer;
begin
If FindColor(CALx,CALy,RatzWaterColor,MMX2-20,MMY1,MMX2,MMY2) then
begin
if FawkiDebug then writeln('Found Water RIGHT');
MFF(MMX1+40+Random(20), MMCY+Random(20), 1, 1);
FlagFTWait;
Result := True;
end
else
Result := False;
end;

// ______ _ __ __ _ _
// | ____(_) | \/ | | | (_)
// | |__ _ _ __ ___| \ / | __ _| | ___ _ __ __ _
// | __| | | '__/ _ \ |\/| |/ _` | |/ / | '_ \ / _` |
// | | | | | | __/ | | | (_| | <| | | | | (_| |
// |_| |_|_| \___|_| |_|\__,_|_|\_\_|_| |_|\__, |
// __/ |
// |___/



Function FireMakingCycle:Boolean; // Checks Invent, burns logs
var x, y, TBx,TBy,LMx,LMy, LogMark:Integer;
Begin
if WeHaveLogs(LMx,LMy) then
begin
if findBitMapToleranceIn(TinderBox,TBx,TBy,MIX1,MIY1, MIX2,MIY2,50) then
begin
Mouse(TBx,TBy,6,6,True);
Mouse(LMx+10,LMy+10,10,10,True);
FTWaitAll(4);
if InChat('can') then
begin
if FawkiDebug then writeln('Cant light fire here. Callibrating');
MarkTime(LogMark);
repeat
if TimeFromMark(LogMark)>10000 then Exit;
MMouse(MSCx,MSCy,200,200);
GetMousePos(x,y);
if not loggedin then break;
until IsUpText('alk')
Mouse(x,y,0,0,True);
FlagFTWait;
end;
// You need a fire making level of 30 to burn Willow or Yew logs
if InChat('Yew') then
begin
Mouse(LMx,LMy,8,0,False);
FTWaitAll(1);
ChooseOption('rop');
end;
if FindBlackChatMessage('att') then
begin
MarkTime(LogMark);
repeat
SolveChatRandom;
FTWaitAll(1);
if TimeFromMark(LogMark)>15000 then
begin
if FawkiDebug then Writeln('Breaking out of firemaking loop');
Result:=False;
Exit;
end;
until FindBlackChatMessage('cat');
if FindBlackChatMessage('cat') then
begin
Result:=True;
LogCount:=LogCount+1;
ReportVars[4] := ReportVars[4] + 1;
if FawkiDebug then writeln('lighted a log');
end;
end;
end;
end;
end;



// __ __ _ _____ _ _ _
// \ \ / / | |/ ____| | | | | (_)
// \ \ /\ / /__ ___ __| | | _ _| |_| |_ _ _ __ __ _
// \ \/ \/ / _ \ / _ \ / _` | | | | | | __| __| | '_ \ / _` |
// \ /\ / (_) | (_) | (_| | |___| |_| | |_| |_| | | | | (_| |
// \/ \/ \___/ \___/ \__,_|\_____\__,_|\__|\__|_|_| |_|\__, |
// __/ |
// |___/



function FindTree: Boolean;
var
x, y, Tree: Integer;
var ChopTime, StopTime, ChP : Integer;
begin
Tree := BitmapFromString(1, 29, 'z78DAB33436373231B51C22240' +
'052AE2407');
x := Random(MSx2) + 1 ;
y := Random(MSy2) + 1;
if FindBitmapSpiralTolerance(Tree, x, y, MSx1, MSy1 + 20, MSx2, MSy2, 20) then
begin
MMouse(x, y, 0, 10);
GetMousePos(x,y);
if IsUpText('ree') or ( IsUpText('Oak') and (Players[CurrentPlayer].level[20] > 15 ) ) then
begin
Mouse (x, y, 0, 0, True );
TreeCount:=TreeCount+1;
ReportVars[2] := ReportVars[2] + 1;
FlagFTWait;
FTWaitAll(16);
if FindBlackChatMessage('ful') then
begin
CleanupInventory;
Result := False;
Exit;
end;
if not InChat('wing') then
begin
Result:=False;
Exit;
end;
MarkTime ( ChopTime );
repeat
MarkTime ( StopTime );
FTWaitAll(5);
FindWCRandoms;
if ( ChopTime + 12000 < StopTime ) then Break;
ChP:=ChP+1;
SolveChatRandom;
writeln('Chop pass:'+IntToStr(ChP));
if InChat('ance') then Exit;
until ( InChat('ogs') );
if InChat('get') then
begin
Result := True;
TreeCount:=TreeCount+1;
ReportVars[2] := ReportVars[2] + 1;
end;
end;
end;
FreeBitmap(Tree);
end;

//----------------------------------------------------------------------------//

function FindTreeDeformed(var ObjX, ObjY :integer; UpText1, UpText2: String; BMP, a, b, c, d: integer): Boolean;
var
acc, ref : Extended;
var
XT, YT,times,tol : Integer;
begin
ref:=0.9; tol:=0;
for times:=1 to 4 do
begin
FindDeformedBitmapToleranceIn(BMP, XT, YT, a, b, c, d, tol, 0, True, acc);
if (acc >= ref) then
begin
MMouse(XT + 8, YT, 0, 0);
if (IsUpText(UpText1) or IsUpText(UpText2)) then
begin
ObjX:=XT;
ObjY:=YT;
Result := True;
Exit;
end;
end;
ref := ref - 0.1;
tol:=tol+10;
if FawkiDebug then Writeln('A '+FLoatToStr(acc)+'. R '+ FLoatToStr(ref)+ '. T '+IntToStr(tol));
FTWaitAll(1);
end;
end;

//----------------------------------------------------------------------------//

function ChopTree : Boolean;
var CX, CY, RT, ChopTime, StopTime, ChP : Integer;
begin
RT := RTreeColor;
if ( FindTreeDeformed(CX, CY, 'Tre' , 'ree', Tree, MSX1,MSY1,MSX2,MSY2 )) then
begin
Mouse ( CX+20, CY, 10, 0, True );
TreeCount:=TreeCount+1;
FlagFTWait;
FTWaitAll(16);
if FindBlackChatMessage('ful') then
begin
CleanupInventory;
Result := False;
Exit;
end;
if not InChat('axe') then
begin
Result:=False;
Exit;
end;

MarkTime ( ChopTime );
repeat
MarkTime ( StopTime );
FTWaitAll(5);
FindWCRandoms;
if ( ChopTime + 12000 < StopTime ) then Break;
ChP:=ChP+1;
SolveChatRandom;
if FawkiDebug then writeln('Chop pass:'+IntToStr(ChP));
if InChat('ance') then Exit;
until ( InChat('get') );
if InChat('ogs') then
begin
Result := True;
ReportVars[2] := ReportVars[2] + 1;
end;
end;
end;

//----------------------------------------------------------------------------//

Function WoodCuttingCycle:Boolean; // Checks Invent, Chops Tree
Begin
if ChopTree then Result:=True;
PickUpMeat;
FlagFTWait;
PickUpMeat;
end;

//---------------------1 1/2 min WCFM-frenzy----------------------------------//

procedure WCFMFrenzy;
begin
Callibrate;
// SetRun(False);
FTWait(1);
Down;
MarkTime(Mark);
repeat
FindTree;
FTWait(1);
until ( TimeFromMark(Mark) > 40000 ) or InvFull;
Up;
MarkTime(Mark);
LogCount := LogCount + CountItemsBmp('inv',LogMask, 10);
repeat
FireMakingCycle;
until not WeHaveLogs(Dumx,Dumy) or ( TimeFromMark(Mark) > 50000 );
end;



// _____ _ _
// / ____| | | (_)
// | | ___ ___ | | ___ _ __ __ _
// | | / _ \ / _ \| |/ / | '_ \ / _` |
// | |___| (_) | (_) | <| | | | | (_| |
// \_____\___/ \___/|_|\_\_|_| |_|\__, |
// __/ |
// |___/



Function CookingCycle:Boolean; // Checks Invent, Cooks meat.
var RMx, RMy, FIx, FIy, MeatMark, ChP:Integer;
Begin
if ( WeHaveRawMeat(RMx,RMy) and ThereIsFire(FIx,FIy) )then
begin
RawMeatCount := RawMeatCount + CountItemsBmp('inv',RawBeef, 50);
Mouse(RMx,RMy,2,2,True);
FTWaitAll(1);
Mouse(FIx-4,FIy+4,4,4,True);
FlagFTWait;
FTWaitAll(6);
ClickNPCChatTextRight('eat');
FTWaitAll(1);
ChooseOption('ll');
MarkTime(MeatMark);
CookedMeatCount:=CookedMeatCount + 1;
repeat
FTWaitAll(8);
if TimeFromMark(MeatMark) > 25000 then Exit;
ChP:=ChP+1;
If FawkiDebug then Writeln('Cooking Pass:'+IntToStr(ChP));
SolveChatRandom;
until not WeHaveRawMeat(RMx,RMy);
ReportVars[3] := ReportVars[3] + 1;
Result:=True;
end;
EatTilEight;
end;



// _____ _
// |_ _| | |
// | | _ ____ _____ _ __ | |_ ___ _ __ _ _
// | | | '_ \ \ / / _ \ '_ \| __/ _ \| '__| | | |
// _| |_| | | \ V / __/ | | | || (_) | | | |_| |
// |_____|_| |_|\_/ \___|_| |_|\__\___/|_| \__, |
// __/ |
// |___/



Procedure DropBrokenAxes;
var Bx, By:integer;
begin
GameTab(2);
if ( FindBitmapMaskTolerance(BrokenAxeMask,Bx,By,MIX1,M IY1,MIX2,MIY2,10,2)
or FindBitmapMaskTolerance(AxeStickMask,Bx,By,MIX1,MI Y1,MIX2,MIY2,10,2) ) then
begin
Mouse(Bx,By,2,2,True);
FTWaitAll(4);
end;
end;


//----------------------------------------------------------------------------//

procedure BuryBones;
var
Bx, By: Integer;
begin
if BuryBonesToo then
begin
while FindBitmapToleranceIn(Bone, Bx, By, MIx1, MIy1, MIx2, MIy2, 50) do
begin
Mouse(Bx, By, 8, 8, True);
FTWait(6);
end;
if InFight Then
begin
MFF(MMCX,MMCY-60,3,-3);
FlagFTWait;
FTWaitAll(24);
MFF(MMCX,MMCY+60,3,-3);
FlagFTWait;
RestoreHealth;
end;
end
else
wait(1);
end;

//----------------------------------------------------------------------------//

procedure DropMisc;
var
BurntMeat, x,y:Integer;
begin
GameTab(4);
If FawkiDebug then Writeln('Dropping Broken Pickaxes');
FTWaitAll(2);
DropBrokenAxes;
BuryBones;

if FindBitmapMaskTolerance(AshMask, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10) then
begin
Mouse(x,y,1,1,false);
ChooseOption('rop'); // Drops Ashes
FTWaitAll(2);
If FawkiDebug then Writeln('Dropping Ashes');
end;

if FindBitmapMaskTolerance(TalismanMask, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10) then
begin
Mouse(x,y,1,1,false);
ChooseOption('rop'); // Drops Talismans
FTWaitAll(2);
If FawkiDebug then Writeln('Dropping Talismans');
end;

if FindBitmapMaskTolerance(KebabMask, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10) then
begin
Mouse(x,y,1,1,false);
ChooseOption('rop'); // Drops Kebabs
FTWaitAll(2);
If FawkiDebug then Writeln('Dropping Kebabs');
end;


if FindBitmapMaskTolerance(BeerMask, x, y, MIX1, MIY1, MIX2, MIY2, 50, 50) then
begin
Mouse(x,y,1,1,false);
ChooseOption('rop'); // Drops Beers
FTWaitAll(2);
If FawkiDebug then Writeln('Dropping Beers');
end;

if FindBitmapMaskTolerance(NecklaceMask, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10) then
begin
Mouse(x,y,1,1,false);
ChooseOption('rop');
FTWaitAll(2);
If FawkiDebug then Writeln('Dropping Necklaces');
end;

if FindBitmapMaskTolerance(BoltsMask, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10) then
begin
Mouse(x,y,1,1,false);
ChooseOption('rop'); // Drops Bolts
FTWaitAll(2);
If FawkiDebug then Writeln('Dropping Bolts');
end;

if FindBitmapMaskTolerance(ArrowsMask, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10) then
begin
Mouse(x,y,1,1,false);
ChooseOption('rop'); // Drops Arrows
FTWaitAll(2);
If FawkiDebug then Writeln('Dropping Arrows');
end;

if FindBitmapMaskTolerance(GoblinMailMask, x, y, MIX1, MIY1, MIX2, MIY2, 50, 10) then
begin
Mouse(x,y,1,1,false);
ChooseOption('rop'); // Drops GoblinMails
FTWaitAll(2);
If FawkiDebug then Writeln('Dropping GoblinMails');
end;

if FindBitmapMaskTolerance(ChefsHatMask, x, y, MIX1, MIY1, MIX2, MIY2, 20, 10) then
begin
Mouse(x,y,1,1,false);
ChooseOption('rop'); // Drops ChefsHat
FTWaitAll(2);
If FawkiDebug then Writeln('Dropping ChefsHat');
end;

if FindBitmapMaskTolerance(SqShieldMask, x, y, MIX1, MIY1, MIX2, MIY2, 20, 10) then
begin
Mouse(x,y,1,1,false);
ChooseOption('rop'); // Drops SqShield
FTWaitAll(2);
If FawkiDebug then Writeln('Dropping ChefsHat');
end;



end;

//----------------------------------------------------------------------------//

Procedure CleanUpInventory;
var LogsMark:Integer;
begin
If FawkiDebug then Writeln('Dropping Burned Meat');

FTWaitAll(2);
If FawkiDebug then Writeln('Burying Bones');
BuryBones; // bury bones
DropMisc;

MarkTime(LogsMark);;
repeat
FireMakingCycle;
until not WeHaveLogs(Dumx,Dumy) or ( TimeFromMark(LogsMark) > 50000 );

if CookingCycle then EatMeat;
EatTilEight;
FTWaitAll(1);



end;

//----------------------------------------------------------------------------//

procedure SOSDrop;
begin
MFF(MMCX,MMCY-60,3,-3);
FlagFTWait;
CleanupInventory;
DropMisc;
RestoreHealth;
MFF(MMCX,MMCY+60,3,-3);
FlagFTWait;

end;


// ---------------------- __ __ _ ------------------------- //
// ---------------------- | \/ | (_) ------------------------- //
// ---------------------- | \ / | __ _ _ _ __ ------------------------- //
// ---------------------- | |\/| |/ _` | | '_ \ ------------------------- //
// ---------------------- | | | | (_| | | | | | ------------------------- //
// ---------------------- |_| |_|\__,_|_|_| |_| ------------------------- //



begin

Setup;

repeat
InitPlayer;
Up;
repeat
MarkTime(StartLoopTime);
Callibrate;
ProgressReport;

If CanCast('wind') then CastEnabled:=True else CastEnabled:=False;

CombatFrenzy;

Callibrate;
BuryBones;
WCFMFrenzy;
CookingCycle;

CleanUpInventory;
MyAntiBan;

MakeCompass('N');
If not Loggedin then break;

if NoAxes then
begin
Logout; // logout and set to 'false'. No more axes...
Break;
end;

SetLowest;
ML:=ML+1;
MarkTime(EndLoopTime);
Writeln('Main Loop number '+IntToStr(ML)+' took '+ IntToStr(( (EndLoopTime-StartLoopTime)/60000) )+ ' min ' + IntToStr( ((EndLoopTime-StartLoopTime) mod 60) )+ ' secs' );

until (TimeFromMark(PlayTime))> (PlayerTime * 60000);

if (LoggedIn) then
begin
SetChat('off', 1);
repeat
Wait(1000);
FindRandoms;
until(not(LoggedIn));
NextPlayer(True);
end;

if (not(Loggedin)) then NextPlayer(False);

until(False);
end.

Have Fun :)

What I changed:

Added Bitmaps
Changed Procedures
Tested it for a bit.

GL!!!

hamish909
04-26-2008, 04:34 PM
You never cease to amaze me nauman.

Naum
04-26-2008, 08:07 PM
Woo Thanks man, I've updated 3 scripts so far. I'ma bookmark this and add it to my sig ;).

Thanks and please use, and tell me whats wrong.

dallas574
04-29-2008, 10:25 PM
Works great thanks so much

Naum
04-30-2008, 08:23 PM
No Problem, I Hope Fakawi doesn't mind ^_^

munk_bl4de
04-30-2008, 10:12 PM
yea lol, cos with a good account, u wouldnt need the meat or like 2gp that the goblins drop, but i agree good script

Harry
05-02-2008, 09:57 PM
yourock12345 - Please stop spamming.

I am not an admin, but I wish for you to stop your spamming 'yourock12345'. It will just get you a ban from this wonderful community, and will just zero your post count.

batnas
05-03-2008, 12:25 PM
nice script

\\Batnas

Naum
05-03-2008, 12:32 PM
it worked for 1 hour 30 minutes!!!!!!!!:)


YouRock- Please Don't Spam!

Fr0zenFire
05-05-2008, 02:58 PM
Include file C:\Program Files\SCAR 3.15\includes\SRL\SRL\misc\Bitmaps\Crafting.scar does not exist.
Include file C:\Program Files\SCAR 3.15\includes\SRL\SRL\misc\Bitmaps\Prayer.scar does not exist.
Failed when compiling

Ive downloaded includes and srl so many times but nothing

n3ss3s
05-05-2008, 07:00 PM
This script is outdated, go find another one.

Nauman and Harry, I fail to see the spam part in telling that it worked for 1.5 hours, even though he could've used less !'s.

Edit - Now I see, he has posted a bit more than once about his level-ups and runtimes...

Naum
05-05-2008, 08:43 PM
This script is outdated, go find another one.

Nauman and Harry, I fail to see the spam part in telling that it worked for 1.5 hours, even though he could've used less !'s.

Edit - Now I see, he has posted a bit more than once about his level-ups and runtimes...

Pardon?:cartman:

deathcrow92
05-09-2008, 01:33 AM
i might try it out, gotta make a new account though for this script. Ill post proggie if i do =). Other than that the script looks good!

im assuming it doesnt work with scar divi 3.15? Cuz it sure didnt work for me :\

I made a new account and trained it to 30 str just for this script too lol.

P1nky
05-09-2008, 01:41 AM
deathcrow

heres a tut to use the edit button:
http://www.villavu.com/forum/showthread.php?t=27882

you can get in trouble :P welcome to srl forums i guess

jacka scar MASTER
05-09-2008, 09:38 AM
good script workes for me

evert230
05-18-2008, 09:04 AM
who your script does alot

versaapex
05-18-2008, 05:24 PM
interesting script

I.F.reaper
05-18-2008, 05:29 PM
Nice. But when was this updated?

Hugolord
05-18-2008, 05:31 PM
Nice. But when was this updated?

Unfortunately I don't think it has been updated recently guys so probably won't work.

It was probably the greatest script at SRL back in the day tho...

haavy
05-18-2008, 07:09 PM
Works PERFECTLY! No problems at all :D Good job, man!

Hugolord
05-19-2008, 02:36 PM
Works PERFECTLY! No problems at all :D Good job, man!

er.. somehow I doubt it would work if you didn't tweak it yourself...

WT-Fakawi
05-19-2008, 09:03 PM
Ratz! is completely outdated. It wont work anymore. It does however contain useful procedures and functions. You may download it for evaluation purposes. If anyone is brave enough to adapt it to modern times, feel free to do so by all means.

deadrise
05-20-2008, 03:04 PM
Unfortunatley did not work for me, Although i doubt it would do me much good due to my levels now, But maybe if i can get it working ill train a pures str off it =] Ill keep trying

skateman
05-21-2008, 11:35 AM
thanx i try that.

Hugolord
05-22-2008, 08:46 PM
Ratz! is completely outdated. It wont work anymore. It does however contain useful procedures and functions. You may download it for evaluation purposes. If anyone is brave enough to adapt it to modern times, feel free to do so by all means.

erm.. It's a big script Fawk what do you think is outdated?

Ashur2Good
05-23-2008, 11:21 AM
I'm trying to update it atm :o


-Ashur

ShowerThoughts
05-23-2008, 11:53 AM
I'm trying to update it atm :o


-Ashur

That's okay don't ask that p2p for it or your selling fawki's script modified by you.

Ashur2Good
05-23-2008, 11:58 AM
That's okay don't ask that p2p for it or your selling fawki's script modified by you.


You mean the P2P that the other guy was offering? Lol that was funny cause...

http://www.villavu.com/forum/showthread.php?t=30803

:eek: ?

Relax, i don't want or need the P2p ...

But if you wanna act like that, fine. I won't give in my patch for this script. Just finished it too.

-Ashur

Ashur2Good
05-23-2008, 12:03 PM
Nah stuff it.

Teh Taco Mastah
05-27-2008, 11:06 PM
Ratz seems to work for me, i have to tweak it a bit to get what i want from it though.