SRL Archive - RS3 Outdated / Broken Scripts

OUTDATED!! WILL NOT WORK UNLESS U KNOW HOW TO EDIT THE SCRIPT! STOP ASKING HOW TO MAKE IT WORK. I AM NOT UPDATING IT. THAT IS ALL.

Im not responsible for any banned accounts! Use at your own risk!

Once you add anti randoms i'll plan on useing this script =P

Lol i wouldn't put a character stat sig on an Autoing forum.
Not very smart =)

And syb, i looked though script, and you do have FindFastRandoms in there. So why did you say you didnt have antiranoms?
Just add
Player[0].Nick:=adsf'
(learn player array =) )

For the multiplayer issue:

If(*random variable you count in the curse loop*=*the name of the curse thing here*) Then
NextPlayer(False);

ya i put those findfastrandom but it has no player nick to work with so thats why its alpha- im working on making it stop and set player to false once its done its amount to cast.. hey321 could u explain it more i dont quite understand.. =/ do u have msn? if so add me at [email]ftball098@hotmail.com[/email]

hey i want to make a function or is there already one that will work where for the antiban if it gets picked in the random array it will say i have to do this (how ever many casts are left) times!

how would i get it to do that? could i do like howmanyto - howmany or sometin im not sure how to code that! if ne1 knows hows plz help =]

IF THE ANTIBAN IS MESSING YOU UP DO THIS:

procedure antiban1;
var DBANME : integer;
begin
if (not(loggedIn)) then Exit;
DBANME := Random(60);
case DBANME of
1:Hoverskill('magic',False) ;
2:pickupmouse;
3:DoEmote(1 + random(7));
end;
end;

Change it 2 that! the bored human messes with compass and messed up script!


DOWNLOAD THE LATEST VERSION. I MADE MANY LAST MINUTE CHANGES!

No one is using the script =[ hmm i thought many ppl would use for pure mages etc.. =[

Ill try, lemme see if i can get a autoer to get a shit load of runes.

Tested, ran for 100 perfectly. If you wanna give me the runes for the first curse, i'll test it for 1k curses :O. Also heres proggy:

[===============================================]
[ Syberiums Zammy Mager
[ Completed 100 Zammy Mage Casts!
[ Worked For 9 Minutes and 18 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]
Completed 100 Zammy mage casts.

I think you could add a few more waits to it, but other then that good job. No lag, only glitch was the stupid thing gave me the "your opponent it alrdy weakened" thing a few times.

It does what it is supposed to do… now take it a step further.

[===============================================]
[ Syberiums Zammy Mager
[ Completed 100 Zammy Mage Casts!
[ Worked For 9 Minutes and 14 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]


Theres mine. I will get more runes!

Ok. Heres my HUGE proggies.

                 [===============================================]
[        Syberiums Zammy Mager
[ Completed 145 Zammy Mage Casts!
[ Worked For 9 Minutes and 12 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]



                [===============================================]
[        Syberiums Zammy Mager
[ Completed 134 Zammy Mage Casts!
[ Worked For 10 Minutes and 2 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]
Completed 134 Zammy mage casts.



                    [===============================================]
[        Syberiums Zammy Mager
[ Completed 530 Zammy Mage Casts!
[ Worked For 31 Minutes and 23 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]




    /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|     SRL Randoms Report       |
|    www.villu-reborn.com      |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talking Random[s]      :  1  |
| OldMen Solved          :  1  |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

Very nice.

[===============================================]
[ Syberiums Zammy Mager
[ Completed 156 Zammy Mage Casts!
[ Worked For 13 Minutes and 0 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]
Completed 156 Zammy mage casts.

Yet again, it gives me that weird thing. Other then that perfect yet again :O.

yo thanks alot dude this could be very usefull!:(h):

Hey thanks for replys guys :)
@hey321: its supposed to do that, it helps if u wear full iron and get as much -mage bonus as u can. i might make it click weaken if it gets the txt ur "oppenet is already.." then it should have the capabalities to run on anyting not just the zammy mage =] @fourscape: what do u mean by a "step further"? i need ideas on how to improve. Also i thought the wait time was perfect but i guess ill add more so it seems smoother =]

[===============================================]
[ Syberiums Zammy Mager
[ Completed 283 Zammy Mage Casts!
[ Worked For 17 Minutes and 29 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]

Nice script. My only qualm was I didn't realize it didn't handle randoms and I nearly died :duh:. It did the trick for me anyways though. Thanks.

ya the version i have up there is fairly outdated -.- im working on a new revamp and much better working version of it.. still need to fix some kinks

If you need any help then pm me. I will answer any questions you need

hey man im not a noob to scripting so dont call me a noob…just comeing back and trying to get back together with this stuff….

ok dont know how long this has change but wats up with this….

[Runtime Error] : Out Of Range in line 42 in script C:\Program Files\SCAR 2.03\Scripts\SyberiumsZammyMager1.2.scar

This is the line where u put your name…heres the script top part…

program SyberiumsZammyMager;
 {.include SRL\SRL.scar}
 {.include SRL\SRL\skill\magic.scar}



 { # ScriptName: Auto Monk of zamorak confuser/weakener/curser!          }
 { # ScriptDefinition: Uses confuse/curse/weaken on monk of zammy.       }
 { # Instructions: Start in varrock castle on the west side of mage cage!}
 { # Instructions Cont: Pick Color of zammy mage! IMPORTANT!             }
 { # Credits: Me for making this! and Fakawi for his antirandom function!}
 { # Lastly have fun and auto safe and correctly!

 { IF the weaken isent working for you do the below instructions.
 go to SRL\SRL\skill\magic.scar and replace there BMP with mine.
  MAKE SURE U REMOVE THE {} {AROUND THE BMP!}
{  weaken := BitmapFromString(5, 6, 'z78DA33353171347632000143' +
       '474B03335717080911C12F8E298BA912975E5333131713235C6A2' +
       '0B2986A206C008F6C2631');  }

const
WichSpell=0; // 0 for confuse, 1 for weaken, 2 for curse!
Howmanyto=800;// how many times to cast the above spells.
magecolor=4081067;// color of zammy mage!
MSpeed = 15;
StartPlayer = 0; // What player you start with.
NumberOfUsers = 0; // The Number of users you use.
Version = ('1.2') ;


var
Howmany : integer;

procedure DeclarePlayers;

begin
     HowManyPlayers := NumberOfUsers;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer := StartPlayer;
     
     
     Players[0].Name :='MyName';
     Players[0].Pass :='MyPassword';
     Players[0].Nick :='ass';
     Players[0].Active:=True;

*Thats not my name 'MyName'..just hideing my identity.

u have the const number of users set to "0" it needs to be 1

From: syberium
u have the const number of users set to "0" it needs to be 1

ok i did that…*got all pumped and everything* then…..

[Runtime Error] : Out Of Range in line 47 in script C:\Program Files\SCAR 2.03\Scripts\SyberiumsZammyMager1.2.scar

omg…lol ok now wat…heres how the script look on top…..

program SyberiumsZammyMager;
 {.include SRL\SRL.scar}
 {.include SRL\SRL\skill\magic.scar}



 { # ScriptName: Auto Monk of zamorak confuser/weakener/curser!          }
 { # ScriptDefinition: Uses confuse/curse/weaken on monk of zammy.       }
 { # Instructions: Start in varrock castle on the west side of mage cage!}
 { # Instructions Cont: Pick Color of zammy mage! IMPORTANT!             }
 { # Credits: Me for making this! and Fakawi for his antirandom function!}
 { # Lastly have fun and auto safe and correctly!

 { IF the weaken isent working for you do the below instructions.
 go to SRL\SRL\skill\magic.scar and replace there BMP with mine.
  MAKE SURE U REMOVE THE {} {AROUND THE BMP!}
{  weaken := BitmapFromString(5, 6, 'z78DA33353171347632000143' +
       '474B03335717080911C12F8E298BA912975E5333131713235C6A2' +
       '0B2986A206C008F6C2631');  }

const
WichSpell=0; // 0 for confuse, 1 for weaken, 2 for curse!
Howmanyto=800;// how many times to cast the above spells.
magecolor=4081067;// color of zammy mage!
MSpeed = 15;
StartPlayer = 0; // What player you start with.
NumberOfUsers = 1; // The Number of users you use.
Version = ('1.2') ;


var
Howmany : integer;

procedure DeclarePlayers;

begin
     HowManyPlayers := NumberOfUsers;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer := StartPlayer;
     
     
     Players[0].Name :='MyName';
     Players[0].Pass :='MyPassword';
     Players[0].Nick :='ass';
     Players[0].Active:=True;

     Players[1].Name :='';
     Players[1].Pass :='';
     Players[1].Nick :='';
     Players[1].Active:=False;

     Players[2].Name :='';
     Players[2].Pass :='';
     Players[2].Nick :='';
     Players[2].Active:=False;
     
     Players[3].Name :='';
     Players[3].Pass :='';
     Players[3].Nick :='';
     Players[3].Active:=False;
     
     Players[4].Name :='';
     Players[4].Pass :='';
     Players[4].Nick :='';
     Players[4].Active:=False;
end;

if u only plan on using one player then comment the other ones out or delete them. like this

 Players[0].Name :='MyName';
     Players[0].Pass :='MyPassword';
     Players[0].Nick :='ass';
     Players[0].Active:=True;
 {
     Players[1].Name :='';
     Players[1].Pass :='';
     Players[1].Nick :='';
     Players[1].Active:=False;
 
     Players[2].Name :='';
     Players[2].Pass :='';
     Players[2].Nick :='';
     Players[2].Active:=False;
     
     Players[3].Name :='';
     Players[3].Pass :='';
     Players[3].Nick :='';
     Players[3].Active:=False; } 

alright thanx nvr knew about that…..well ill soon to post a prodgy soooon! ty

thanks. also check this post frequently as im on the verge of relasing a new RE-VAMP of this script. much better working more antiban etc. =]

line 71:

If(not(loggedIn)) then exit;

maybe you can make it

If(not(loggedIn)) then LoginPlayer;

idem line 166

im testing it now!!

wow thnx a lot for this!

happy valentines day =D

specifically speaking… where do i use this????
i know its in varrok but where??
and is it f2p or p2p?

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

No Credits to Me??(Pwnaz0r vows never to help again until creds are given ) :)

what did i get fromm u lol? i havent updated the script in a while -.- although my new version has creds to u for the array =]

:p i helped you with arrays and FindObj :p and yay!

u use in varrock catsle. under the stairs, just north of varrock square. its f2p

From: syberium
u use in varrock catsle. under the stairs, just north of varrock square. its f2p

ok thanks

np but check this thread im releasing much better version soon just one really annoying problem.. i cant fix

alright cool…your scipt works good hope it comes out better

NEW VERSION! DL the newest version! much better things! read the new release =]]

Heres The link: http://www.villavu.com/forum/showthread.php?t=5495?t=6356

Updated again. DL the current version =] fixed a small bug.

ALRIGHT YES!!!!!! I closed SwiftSwitch and scar…..but im gonna test it out just for you…..ill have a prodgy in a couple of minutes =) Looks alot better

i got 3.1k bodys and 5.6k earth's lets see how long i can leave this script on…

alright thanks man! but remember u should watch it.. cuz it wont solve boxes i think.. im not sure. =/ i know i wrote so if it finds talk then it does findnormal randoms. like if(FindTalk) then Findnormalrandoms; i might do sometin like that im not sure though..

I updated it again.. -.- small update added If(FindTalk) then
begin
findnormalrandoms;
end;
kinna thing.. if u see this b4 u test ur 5k bodies may wanna add that to urs

ah ok….well heres a short prodgy…no randoms =/ but thier was this one random where a lvl 85 with 70 range comes and kills it in 2 hits….got any random function to stop that…no but when that happened it said ran out of runs but i still have alot more to goo…maybe you should add a function…like (wait+500sec. or w/e….how ever long till the zammy mage responds…cuz it just logs out and goes to next player…but im only using 1 player…=/ make it wait and try again to attack zammy and if it cant get it on 3rd or 4th try…then make it log out…you hear wat im saying??

wats your msn…if u have one….

[===============================================]
[ Syberiums Zammy Mager
[ Completed 42 Zammy Mage Casts!
[ Worked For 15 Minutes and 6 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]
Antiban1
AntiBan2
Not enough runes left to cast!
NextPlayer

ya i have sometin like that.. the not enough runes isent entirely accurate. im not sure why… basiclly if it cant cast the spell then it logs out.. thats why i say watch it and thats also the reason why i have it cast fast so once u get the mage no1 can steal it..

From: syberium
what did i get fromm u lol? i havent updated the script in a while -.- although my new version has creds to u for the array =]

Only credits i see r they ones to Junior

lol pwn scroll to the right on the script.. ull see ur creds along with fakawis.. =]

:p

UPDATED AGAIN! Download version 2.1! Added another procedure to run upstairs if it finds a fight! ;)

hey u said u would give me cred for the idea….i gave u the idea to running up the stairs then running back down…=/

ok i wrote u in the credits not in the scrit cuz im not releasing a new version just for creds.. sorry i forgot to add u in when i released last night -.-.. but u just gave an idea u dident script anything so yea..

UPDATED ONCE AGAIN! added auto responder! (credits go to charmz) also added a safety incase some1 is fighting the mage already..

hello everyone, i am still having troubles downloading srl, i can't even find where to dowload it someone please help me.

[===============================================]
[ Syberiums Zammy Mager
[ Completed 184 Zammy Mage Casts!
[ Worked For 37 Minutes and 41 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]
Successfully executed

nice script needs help with the auto-responder that Charmz made…=/

update again.. fixed some some standards and the autotalker

Here you go…everyone this is a 1337 script here's my prodgy to prove it!

[        Syberiums Zammy Mager                   
[ Completed 1235 Zammy Mage Casts!
[ Worked For 1 Hours, 26 Minutes and 22 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]
Antiban1
AntiBan2
Not enough runes left to cast!
NextPlayer
Successfully executed

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|     SRL Randoms Report       |
|    [url]www.villu-reborn.com[/url]      |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talking Random[s]      :  2  |
| Lamp[s] Solved         :  2  |
| Frog[s] Solved         :  1  |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

this was with version 3.0. Version 3.1 is even better!!

[ Syberiums Zammy Mager
[ Completed 58 Zammy Mage Casts!
[ Worked For 5 Minutes and 52 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]
Antiban1
AntiBan2
Successfully executed


thanks man much respect

it seems a lot of better!!!
Keep it up!
btw i wanted to make a crumble undead caster, should i still do that or not?
(made already a little part of it)

@scarnoob: ermm idk haha its up 2 u. want are u gunna cast crumble undead on? if u make one

Perfect0! Dude Greeeeeeeeeat Idea Lol I Think 1st And The Best

thanks.. now post a proggy =]

SYBERIA can u add a auto alcher ??? that will be greeeeaaaaat=D

-i need one badly btw and anti ban must lol ty =D keep up the greeeeeeeaaaaaaat w0rk lol

p1nky, that's hijacking i believe. You posted in requests. Now look around the forums.

I updated script again.. wow i updated this like 10 times rofl.. well newer version wont randomly log out..

[===============================================]
[ Syberiums Zammy Mager
[ Completed 144 Zammy Mage Casts!
[ Worked For 6 Minutes and 26 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]

You use pretty intermediate techniques.

I think you have forgotten to credit a few things. :p

Good job.

ya i have gotten so much help on it through the month.. from differnt ppl i forgot who helped.. well if u helped and u want creds just pm me or post here :)

WHOOOOOOOOOOOO! YEA! THIS IS THE BEST SCRIPT TO DATE. FOR AUTOING MAGE. I set it for 2250 and it did it ALLLL! Without logging out. Good job dude. Here's progy.

[        Syberiums Zammy Mager                   
[ Completed 2250 Zammy Mage Casts!
[ Worked For 1 Hours, 20 Minutes and 23 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]
Antiban1
AntiBan2
NextPlayer

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|     SRL Randoms Report       |
|    [url]www.villu-reborn.com[/url]      |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talking Random[s]      :  2  |
| Rick[s] Solved         :  1  |
| OldMen Solved          :  1  |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

misclicks for me sometimes. Trys to cast the spell BESIDE curse and it also sometimes dosent cast curse on the zammy mage, just kinda hovers over him…

also world swiching when someone else is maging would be cool.

miss clicking is on purpose.. i never casted curse legitly and never missed.. so its more human like.. hovering over may be the antiban im not quite sure.

yea i saw the miss-clicking but i thought that was part of the script so its more human like…so i ignored that…"gotta think like a human not a autoer"

Heres a proggy with my new version.. this version solves box random. =]

 
[===============================================]
[        Syberiums Zammy Mager                   
[ Completed 1926 Zammy Mage Casts!
[ Worked For 54 Minutes and 44 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]
Antiban1
AntiBan2
Successfully executed

 
/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|     SRL Randoms Report       |
|    [url]www.villu-reborn.com[/url]      |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Fight Random[s]        :  2  |
| Talking Random[s]      :  1  |
| OldMen Solved          :  1  |
| New Box[es] Solved     :  2  |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

Why is there progress report "howmany + 3;" its just using 1 spell but in prog report it adds 3. Ill try right now :D

cuz when i do howmany+1 its not accurate at all.. im not quite sure why but when i do +3 its much more accuarte i think its exact. u can test for ur self

alright cool ill be sure to test this out..ill pm you on msn if thiers any problems..good job :D

im making a Zammy Mager too now :p but i borrow some from this one, i'll just call it a mod on this script :)

ok go right on ahead =] if u want we can share and combine into 1 ulti script =]

Released a NEW version!! Check it out!

you MIGHT want to fix up the world swiching….it dosent log in for me

FIXED WORLD SWITCHING. NOW LOGS IN. START WITH SCSS LOADED!

hey u spelled my name wrong

Credits: scuancy for running up stairs idea

its squeancy

Nice :D verry nice. brought me to 67 mage to 70 in a copuplke pf days. (autoed for 2 hours every day or something like taht .. ) thx alot syberium. is it supposed to support anti random for rick turpentine and have brox breaker? cause it didt do anything when i got those randoms. other than that great job, and i have an idéa to make it more humanlike; when it is on its way to select the spell it should slow down just before it selects it, and wait for a half second.. maybe to hard to make but i think taht would be good if u could make it like that. Thx alot :D

lind- did u use latest version? newest one solves boxes. as long as u set ur nick correctly

Yea I've looked over the code and possibly given Syberium some ideas on random fighting.. to me it looks good.. The common mistake for scripts that do not solve talking randoms is setting the nick name BMP so that may be the problem (that you didnt set it right) because I know syberium included it :)

Good effort. Nice SCSS world switcher and nice responder :) You asked me to look at possible banflaws. I can see only two.

• click1, 2 and 3 click on a distinct pixel (0,0 randomisation)
• As far as I can judge your Player doesnt move a lot.

Dont stay too long at the same place, doing the same thing over and over, especially if the script mainloop is short. Scripts with a lot of walking never encounter any randoms. Players that stand put are suspicious to jagex. (from a historical point of view…)


Idea maybe:
Add amount.scar. It has a wonderful function RuneAmount; that returns the number of specific runes in your inventory.

ya i never did stay at the same place to long, ive been playing legit for a while training range legit, and doing mage arena. only a 7 day ban though.. could have been for using like a autotalker or sometin.. who knows. what do u mean by click 1,2,3? i have the script click on 3 differnt colors for mage not the same one? and ill defiently add the amount of runes function i dident know where to add it until u told me just now =] thanks. like the ZCastOn change the mouse from 0,0 to 9,9? or sometin?

[===============================================]
[ Syberiums Zammy Mager
[ Completed 500 Zammy Mage Casts!
[ Worked For 50 Minutes and 41 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]

3-44 mage thanks man got ruens for 60

Looks awesome, will try tonight

k thanks brizzy- post the proggy ! :)

Great im going to test this one out and post you the proggy :)

Nice script

[===============================================]
[ Syberiums Zammy Mager
[ Completed 124 Zammy Mage Casts!
[ Worked For 8 Minutes and 58 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]

Update

[===============================================]
[ Syberiums Zammy Mager
[ Completed 355 Zammy Mage Casts!
[ Worked For 19 Minutes and 10 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]

[===============================================]
[ Syberiums Zammy Mager
[ Completed 1092 Zammy Mage Casts!
[ Worked For 40 Minutes and 44 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]
Antiban1
AntiBan2
Successfully executed

Dunno what I am doing wrong. I try and use the script, but when I activate it, it just keeps on saying Finding mage. PLease help.

From: sharrath
Dunno what I am doing wrong. I try and use the script, but when I activate it, it just keeps on saying Finding mage. PLease help.

need to set the zammy mage color right….
or change the point of view so that the zammy mage red color is viewable…:bart:

Syberiums Zammy Mager
[ Completed 924 Zammy Mage Casts!
[ Worked For 53 Minutes and 58 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]
Antiban1
AntiBan2
Successfully executed

===

Wow i love this script

i always use only one account and do roughly 1k curses a day for a week

no ban yet….

Amazing

i will definitely try this on my pure mage once i get enough runes
great idea for a script :)

My proggy:

[===============================================]
[ Syberiums Zammy Mager
[ Completed 210 Zammy Mage Casts!
[ Worked For 14 Minutes and 3 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]


I had some probbs though. It frooze after about 170 casts and i had to help it. Besides that i think the reporting needs some adjustment. Mabey every 3:rd cast instead.

Another thing:

Sometimes it tried to use the spell to the left instead. But that didn't make the script screw up. Mabey that was planned as some antiban?
Thanks for a good script

w00t first post?

//Reews

this looks pretty good, i look forward to testing it later when i get some runes

hey guys this version is pretty old.. so if it isent working its cuz i havent used in 2-3 months.. due to my pure nearly being banned so i play legit mostly now.. but when i get the chance ill test this more and continue to develop it for u guys.. and yess clicking spell on the left is antiban.. although it only looks "right" if ur casting curse. i will fix that in next update

How do i make it curse really fast? :D

what do u mean curse really fast? if u want to cast faster then just change the wait times..

[Runtime Error] : Out Of Range in line 63 in script C:\Program Files\SCAR 2.03\Scripts\SyberiumsZammyMager4.0PUB.scar


i keep on getting that?

thats the script.

Program SyberiumsZammyMager;
 {.include SRL\SRL.scar}
 {.include SRL\SRL\skill\magic.scar}
 {.include SRL\SRL\extended\xMapWalk.scar}



 { # ScriptName: Auto Monk of zamorak confuser/weakener/curser!          }
 { # ScriptDefinition: Uses confuse/curse/weaken on monk of zammy.       }
 { # Instructions: Start in varrock castle on the west side of mage cage!}
 { # Instructions Cont: Pick Color of zammy mage! IMPORTANT!             }
 { # Credits: Me for making this! Junior-Helped with my stupid mistake =/, }
 { # Credits Cont: pwnaz0r-THANKS MAN!, Scuancy-MAN thanks for being a great}
 {   tester! Ruroken for world switch idea,}
 { # Lastly have fun and auto safe and correctly!

 { IF the weaken isent working for you do the below instructions.
 go to SRL\SRL\skill\magic.scar and replace there BMP with mine.
  MAKE SURE U REMOVE THE {} {AROUND THE BMP!}
{  weaken := BitmapFromString(5, 6, 'z78DA33353171347632000143' +
       '474B03335717080911C12F8E298BA912975E5333131713235C6A2' +
       '0B2986A206C008F6C2631');  }

const
  WichSpell = 0; // 0 for confuse, 1 for weaken, 2 for curse!
  Howmanyto = 4326;// how many times to cast the above spells.
  MSpeed = 20;
  Mage1 = 3949221; //mage color(s) shoudent have to change these
  Mage2 = 4015531;
  Mage3 = 8168659;
  StartPlayer = 1; // What player you start with.
  NumberOfUsers = 1; // The Number of users you use.
  Version = ('4.0') ;
  Mem = ('no'); // yes to load member worlds, no for free worlds.




var
 Howmany,cursegone,weakengone,confusegone,xcv,loads : integer;
 attemptss : integer;
 ZMage : array[0..2] of integer;
 ZMageI : integer;
 Chat, Name, ChatName: String;
 PreferredWorlds: array[0..13] of integer;
 PreferredWorldCounter :integer;
 Handle, World:integer;


procedure DeclarePlayers;

begin
     HowManyPlayers := NumberOfUsers;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer := StartPlayer;


     Players[0].Name :='Name';
     Players[0].Pass :='*****';
     Players[0].Nick :='am';
     Players[0].Active:=True;

     Players[1].Name :='';
     Players[1].Pass :='';
     Players[1].Nick :='';
     Players[1].Active:=False;

     Players[2].Name :='';
     Players[2].Pass :='';
     Players[2].Nick :='';
     Players[2].Active:=False;

     Players[3].Name :='';
     Players[3].Pass :='';
     Players[3].Nick :='';
     Players[3].Active:=False;

     Players[4].Name :='';
     Players[4].Pass :='';
     Players[4].Nick :='';
     Players[4].Active:=False;
end;


procedure InitWorlds;
begin
if (Mem = 'no') or (mem = 'No') then
begin
PreferredWorlds[0]:=107;
PreferredWorlds[1]:=108;
PreferredWorlds[2]:=109;
PreferredWorlds[3]:=125;
PreferredWorlds[4]:=126;
PreferredWorlds[5]:=127;
PreferredWorlds[6]:=128;
PreferredWorlds[7]:=17;
PreferredWorlds[8]:=37;
PreferredWorlds[9]:=113;
PreferredWorlds[10]:=93;
PreferredWorlds[11]:=95;
PreferredWorlds[12]:=96;
PreferredWorlds[13]:=85;
end else
begin
if(Mem = 'Yes') or (Mem = 'yes') then
begin
PreferredWorlds[0]:=138;
PreferredWorlds[1]:=137;
PreferredWorlds[2]:=132;
PreferredWorlds[3]:=131;
PreferredWorlds[4]:=130;
PreferredWorlds[5]:=124;
PreferredWorlds[6]:=123;
PreferredWorlds[7]:=121;
PreferredWorlds[8]:=120;
PreferredWorlds[9]:=104;
PreferredWorlds[10]:=89;
PreferredWorlds[11]:=88;
PreferredWorlds[12]:=78;
PreferredWorlds[13]:=77;
end;
end;
end;

 function WelcomeToRuneScape:Boolean;   // By WT-Fakawi
var Welcome,tx,ty:integer;
begin
  Welcome := CreateBitmapMaskFromText('Welcome', UpChars);
  Result:= FindBitmapMaskTolerance(Welcome, tx, ty, 250, 200, 530, 260, 10,10)
  FreeBitmap(Welcome);
end;

Procedure SwitchWorlds; // By WT-Fakawi
begin

  SCSSLoadWorld(PreferredWorlds[PreferredWorldCounter], True);
  PreferredWorldCounter:=PreferredWorldCounter+1;
  if PreferredWorldCounter > 13 then PreferredWorldCounter:=0;
  Wait(20000);
  Handle:=SCSSGetHandle;
  World:=SCSSGetCurWorld;
  SCSSSetHandle;
  ActivateClient;
  repeat
    Wait(1000);
  until WelcomeToRuneScape;
  end;

procedure talkrnd;
begin
 if (FindTalk) then
 begin
   FindTalk;
   Findnormalrandoms;
 end;
 end;




Function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=0 to 10 do
  begin
    case I of
     0:  If FindTalk then
     begin
       FindNormalRandoms;
     end;
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: begin
        if NoGameTab then
        begin
          Result := True;
          Players[CurrentPlayer].loc := 'No GameTab';
          Logout;
          Exit;
        end;
        end;
     8: begin
    talkrnd;
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
       9: RC;
       10: talkrnd;
    end;
    talkrnd;
  end;
end;






procedure DeclareBMPS;
begin
  cursegone := BitmapFromString(5, 5, 'z78DA33303230303032809' +
  '016061686861036903630B44011C794C510C7228B218E62328638' +
  '840400938E1D11');
  weakengone := BitmapFromString(5, 6, 'z78DA3335317134763230' +
       '323030303234343030B480901011FCE298B2982A71E9353533713' +
       '1C1693E4416530D840D006BA02332');
  confusegone := BitmapFromString(12, 7, 'z78DA33743430307434' +
       '3032303030323404B22D2024448472714C596435B8CCC13401BF5' +
       'DC4984C8939E4F90B97087E927817926A02B22C00E1A860F4');
end;

procedure randoms;
begin
 if (FindFight) then
  begin
    Status('Climbing up stairs...')
  if(FindObj3(x,y,'tair',610411,7)) then
  begin
    Mouse(x,y,3,3,true);
  end;
  begin
  Sleep(15000+random(5000));
    if(InChatMulti('evil','bored','vanish')) then
    begin
    wait(1000+random(500))
    MakeCompass('E');
  if(FindObj3(x,y,'tair',5395032,8)) then
  begin
     wait(1000+random(300));
     Mouse(x,y,3,3,true);
     wait(3000+random(400));
     Mouse(126,182,3,3,true);
  end;
      Wait(10);
      talkrnd;
  end;
  end;
  end;
  end;





Function ZCastOn(Spell, Monster: string; MonsterColor : Integer; Tolerance:
 Integer): Boolean;
 var
   tx,ty : integer;

begin
  tx := tx + random ( 40 );
  ty := ty + random ( 40 );
 if (not Cast(Spell)) then Exit;
  ZMageI := random(3)
 if (FindObj3(tx, ty, Monster, ZMage[ZMageI], Tolerance)) then
 begin
     Mouse(tx,ty, 0, 0, True);
     Result := True;
 end;
 end;


Procedure ZammyMageColors;
begin
  ZMage[0] := (Mage1);
  ZMage[1] := (Mage2);
  ZMage[2] := (Mage3);
end;



Function FindMage : Boolean;
 begin
  talkrnd;
   ZMageI:=Random(3);
 if(FindObj3(x, y, 'amora', ZMage[ZMageI], 7)) then
 begin
    MakeCompass('E');
    writeln('Found Mage!');
    Result := True;
    Exit;
 end
 else
 begin
    Writeln('Finding Mage..');
    MakeCompass('E');
    Wait(300+random(300));
    HighestAngle;
 end;
    result := False;
end;


Procedure LocateMage;
 begin
 if(FindMage) then
 begin
     MakeCompass('E');
     Writeln('Found Mage1!')
     Exit;
 end
 else
 begin
 repeat
     Writeln('Trying to Find mage..')
     FindMage;
     Attemptss:=Attemptss + 1;
 Until(FindMage) or (Attemptss>3);
 if (Attemptss > 3) then
 begin
     Writeln('Dident find mage!')
     Switchworlds;
     LoginPlayer;
     Loads := Loads + 1;
     if (Loads > 5) then
     NextPlayer(False);
 end;
 end;
end;


Procedure zammymage;
 var
   Spell : String;
 begin

 case wichspell of
  0: Spell:='Confuse';
  1: Spell:='Weaken';
  2: Spell:='Curse';
 end;
   FindFastRandoms;
  talkrnd;
   Wait(300+random(200));
   ZMageI := random(3)
   ZCastOn(Spell,'amora',ZMage[ZMageI],8);
   talkrnd;
 if(howmany>=howmanyto) then
   NextPlayer(False);
 end;



function StolenMage : Boolean;
 begin
  GameTab(7);
  if(wichspell=0) and FindBitmap(confusegone,x,y) or (wichspell=1) and FindBitMap(weakengone,x,y) or (wichspell=2) and FindBitmap(cursegone,x,y) then
 begin
  xcv := xcv + 1;
  Mouse(x,y,3,3,true);
  Wait(100+random(100));
 if(FindColorTolerance(x,y,Zmage[ZMageI],2,3,760,495,6)) then
 begin
  xcv := xcv + 1;
  Mouse(x,y,3,3,True);
 if (InChatMulti('enough','unes','cast') or InChatMulti('not','ody','spell')) then
 begin
  xcv := xcv + 1;
 if(xcv = 3) then
 begin
  Result := true;
 end else
  Result := False;
 end;
 FreeBitmap(cursegone);
 FreeBitmap(weakengone);
 FreeBitmap(confusegone);
 end;
 end;
end;



Procedure DoChats;

Begin
  SetChat('On', 1);
  SetChat('Off', 2)
  SetChat('On', 3);
End;

Procedure progress;
begin
// thanks hey321
  writeln('[===============================================]')
  writeln('[        Syberiums Zammy Mager                   ')
  writeln('[ Completed ' +IntToStr(howmany)+ ' Zammy Mage Casts!')
  writeln('[ Worked For ' +TimeRunning)
  writeln('[Thank You for using my script! Post Proggies =]')
  writeln('[==============================================]')
  SRLrandomsreport;
end;

Procedure antiban1;
 var DBANME : integer;
 begin
   writeln('Antiban1')
 if (not(loggedIn)) then Exit;
   DBANME := Random(100);
 case DBANME of
    1:Hoverskill('magic',False) ;
    2:pickupmouse;
 end;
 end;

Procedure antiban2;
 var DBANME1 : integer;
 begin
   writeln('AntiBan2')
 if(not(LoggedIn)) then Exit;
   DBANME1 := Random(100);
 case DBANME1 of
    1:ZCastOn('Weaken','amora',ZMage[ZMageI],5);
    2:ZCastOn('Confuse','amora',ZMage[ZMageI],5);
 end;
end;


Procedure click1;
begin
  Mouse(698,297,5,5,true);
  wait(300-random(80))
  Mouse(698,297,0,0,true);
end;

Procedure click2;
begin
  Mouse(685,267,5,5,true);
  wait(300-random(80))
  Mouse(685,267,0,0,true);
end;

Procedure click3;
begin
  Mouse(652,254,5,5,true);
  wait(300-random(80))
  Mouse(652,254,0,0,true);
end;


Procedure missclick;
 var
   click : integer;
 begin
   click := random(60)
 case click of
   1:click1;
   2:click2;
   3:click3;
 end;
end;

Function stolen : Boolean;
 begin
 if(InChatMulti('omeone', 'else' , 'ghting')) then
 begin
   Result := true;
   TypeSend('Leave please.. i need exp') ;
 end;
 begin
 if(InChatMulti('omeone', 'else' , 'ghting')) then
 begin
   TypeSend('Zomg u still here noob..');
   Result := true;
 end else
 begin
   Result := false;
 end;
 end;
end;

procedure jacked;
 begin
 if (stolen) then
 begin
   Writeln('Some one is fighting mage already!')
   SwitchWorlds;
   LoginPlayer;
   MakeCompass('E');
   MakeCompass('E');
   MakeCompass('E');
   highestangle;
 end;
end;


procedure norunes;
 begin
 if (StolenMage) then
 begin
   writeln('Ran out of runes, Logging out.');
   Players[Currentplayer].active := False;
   NextPlayer(False);
 end;
end;

function GetChatMessage(Text: String): Boolean;
 var
    TX, TY: Integer;
    Chat: String;
 begin
 if(IsTextInAreaEx(40, 415, 130, 415, TX, TY, ':', 0, SmallChars, False, True, 0, 0, 0))then
 begin
    Chat:= Lowercase(Trim(GetTextAtEx(TX + 8, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
 if(Pos(Text, Chat) <> 0)then
 begin
    Result:= True;
 end
 end;
 end;



function GetChatName(Name: String): Boolean;
 var
   I: Integer;
 begin

   ChatName:= Lowercase(Trim(GetTextAtEx(21, 415, 0, SmallChars, False, False, 0, 0, 0, 50, False, TR_AllChars)));
   I:= Pos(':', ChatName);
 if(I <> 0)then
 begin
   Delete(ChatName, I, I);
 end

 if(Pos(Name, ChatName) <> 0)then
 begin
   Result:= True;
 end
end;



Function AutoRespond: Boolean;
 var
  Responce, Lvl: String;
  RandomReply: Integer;
 begin
  OldLine:= TheLine;
  TheLine:= Lowercase(Trim(GetTextAtEx(20, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
  NewLine:= TheLine;

 If(GetChatName(Players[CurrentPlayer].Name))then
 Begin
   Exit;
 End

 If(OldLine=NewLine)then
 Begin
   Exit;
 end

  if(GetChatMessage(Players[CurrentPlayer].Name)) or (GetChatMessage(Players[CurrentPlayer].Nick))then
   begin
     WriteLn(''+ChatName+': '+Chat);
     RandomReply:= Random(10)+1;
    Case (RandomReply) of
      0 : Responce:= ('?');
      1 : Responce:= ('what');
      2 : Responce:= ('yes');
      3 : Responce:= ('no');
      4 : Responce:= ('what do you want');
      5 : Responce:= ('me?');
      6 : Responce:= ('Yah?');
      7 : Responce:= ('who?');
      8 : Responce:= ('wha?');
      9 : Responce:= ('?');
      10 : Responce:= ('???');
  end
      TypeSend(Responce+' '+Name);
      Result:= True;
  end

  If(GetChatMessage('lol'))or (GetChatMessage('lolz')) or (GetChatMessage('lmao')) or (GetChatMessage('rofl')) or (GetChatMessage('haha'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    RandomReply:= Random(25)+1;
    Case (RandomReply) of
     0 : Responce:= ('hehe');
     1 : Responce:= ('lolol');
     2 : Responce:= ('lol');
     3 : Responce:= ('haha');
     4 : Responce:= ('hihi');
     5 : Responce:= ('ghehe');
     6 : Responce:= ('lmao');
     7 : Responce:= ('lmfao');
     8 : Responce:= ('rofls');
     9 : Responce:= ('fun');
     10 : Responce:= ('nice');
     11 : Responce:= ('lolz');
     12 : Responce:= ('yep');
     13 : Responce:= ('hola');
     14 : Responce:= ('wow');
     15 : Responce:= ('hehe...');
     16 : Responce:= ('rofl');
     17 : Responce:= ('ghehehghehighhe');
     18 : Responce:= ('cool');
     19 : Responce:= ('...');
     20 : Responce:= ('???');
     21 : Responce:= ('wowzers');
     22 : Responce:= ('grrr...');
     23 : Responce:= ('rowr');
     24 : Responce:= ('lolololololol');
     25 : Responce:= ('ha ha ha!!!');
    end
     TypeSend(Responce);
     Result:= True;
  end


  If(GetChatMessage('mage')) or (GetChatMessage('magic')) or (GetChatMessage('mag'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('lvls')) or (GetChatMessage('levels'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Lvl:= IntToStr(GetSkillLevel('magic'));
    RandomReply:= Random(5)+1;
     Case (RandomReply) of
      0 : Responce:= ('i''m lvl '+Lvl+' mage');
      1 : Responce:= ('level '+Lvl+' magic');
      2 : Responce:= ('lvl '+Lvl+' magein!');
      3 : Responce:= (+Lvl);
      4 : Responce:= ('i''m level '+lvl);
      5 : Responce:= (+Lvl+' here :P');
     End
    TypeSend(Responce);
    Result:= True;
   End

  If(GetChatMessage('wat')) or (GetChatMessage('what')) and (GetChatMessage('doin')) or (GetChatMessage('doing'))then
   Begin
   WriteLn(''+ChatName+': '+Chat);
   RandomReply:= Random(12);
    Case RandomReply of
     0 : Responce:= ('not much');
     1 : Responce:= ('nothing');
     2 : Responce:= ('bored');
     3 : Responce:= ('aye?');
     4 : Responce:= ('emmm..nothin');
     5 : Responce:= ('nope');
     6 : Responce:= ('huh');
     7 : Responce:= ('playin rs.. der da der');
     8 : Responce:= ('what');
     9 : Responce:= ('....');
     10 : Responce:= ('nothin');
     11 : Responce:= ('dun worry about it');
    End;
   TypeSend(Responce);
   Result:= True;
  End;

  If(GetChatMessage('hey')) or (GetChatMessage('hi')) or (GetChatMessage('hello')) or (GetChatMessage('wats up')) or (GetChatMessage('whats up')) or (GetChatMessage('yo'))then
   Begin
   WriteLn(''+ChatName+': '+Chat);
   RandomReply:= random(9)+1;
    Case RandomReply of
      0 : Responce:= ('ello');
      1 : Responce:= ('sup');
      2 : Responce:= ('yo');
      3 : Responce:= ('whats up everyone');
      4 : Responce:= ('whats up');
      5 : Responce:= ('welcome');
      6 : Responce:= ('allo allo');
      7 : Responce:= ('wat up');
      8 : Responce:= ('y0o');
      9 : Responce:= ('=P');
      10 : Responce:= ('what is up');
    End
   TypeSend(Responce);
   Result:= True;
  End
End;



begin

   SetupSRL;
   ScriptID := '71';
   ClearDebug;
   DeclarePlayers;
   DeclareBMPS;
   CurrentPlayer := StartPlayer;
   InitWorlds;
   OpenSCSS;
   SCSSSetHandle;
   if(not(LoggedIn)) then LoginPlayer;
   NickNameBMP:= CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
   DoChats;
   MouseSpeed := MSpeed + Random(3)
   BenMouse:=False;
   MakeCompass('E');
   Highestangle;
   ZammyMageColors;
   MakeCompass('E');
   MakeCompass('E');
   MakeCompass('E');
   FindMage;
   LocateMage;
 repeat
   AutoRespond;
   MouseSpeed := MSpeed + Random(3)
   missclick;
   randoms;
   talkrnd;
   AutoRespond;
   jacked;
   norunes;
   wait(600+random(200));
   zammymage;
   wait(200+random(100));
   howmany:=howmany + 1;
   progress;
   antiban1;
   antiban2;
   FindFastRandoms;
   AutoRespond;
 until(howmany>=howmanyto);
   NextPlayer(False);
   writeln('dbuf 1');
end.

read up on player array tuts. but since i feel like being nice heres a working version for u. dont mess with anything in it cept the user and pass and nick.

 { # ScriptName: Auto Monk of zamorak confuser/weakener/curser!          }
 { # ScriptDefinition: Uses confuse/curse/weaken on monk of zammy.       }
 { # Instructions: Start in varrock castle on the west side of mage cage!}
 { # Instructions Cont: Pick Color of zammy mage! IMPORTANT!             }
 { # Credits: Me for making this! Junior-Helped with my stupid mistake =/, }
 { # Credits Cont: pwnaz0r-THANKS MAN!, Scuancy-MAN thanks for being a great}
 {   tester! Ruroken for world switch idea,}
 { # Lastly have fun and auto safe and correctly!
 
 { IF the weaken isent working for you do the below instructions.
 go to SRL\SRL\skill\magic.scar and replace there BMP with mine.
  MAKE SURE U REMOVE THE {} {AROUND THE BMP!}
{  weaken := BitmapFromString(5, 6, 'z78DA33353171347632000143' +
       '474B03335717080911C12F8E298BA912975E5333131713235C6A2' +
       '0B2986A206C008F6C2631');  }
 
const
  WichSpell = 0; // 0 for confuse, 1 for weaken, 2 for curse!
  Howmanyto = 4326;// how many times to cast the above spells.
  MSpeed = 20;
  Mage1 = 3949221; //mage color(s) shoudent have to change these
  Mage2 = 4015531;
  Mage3 = 8168659;
  StartPlayer = 0; // What player you start with.
  NumberOfUsers = 1; // The Number of users you use.
  Version = ('4.0') ;
  Mem = ('no'); // yes to load member worlds, no for free worlds.
 
 
 
 
var
 Howmany,cursegone,weakengone,confusegone,xcv,loads : integer;
 attemptss : integer;
 ZMage : array[0..2] of integer;
 ZMageI : integer;
 Chat, Name, ChatName: String;
 PreferredWorlds: array[0..13] of integer;
 PreferredWorldCounter :integer;
 Handle, World:integer;
 
 
procedure DeclarePlayers;
 
begin
     HowManyPlayers := NumberOfUsers;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer := StartPlayer;
 
 
     Players[0].Name :='Name';
     Players[0].Pass :='*****';
     Players[0].Nick :='am';
     Players[0].Active:=True;
 
     
end;
 
 
procedure InitWorlds;
begin
if (Mem = 'no') or (mem = 'No') then
begin
PreferredWorlds[0]:=107;
PreferredWorlds[1]:=108;
PreferredWorlds[2]:=109;
PreferredWorlds[3]:=125;
PreferredWorlds[4]:=126;
PreferredWorlds[5]:=127;
PreferredWorlds[6]:=128;
PreferredWorlds[7]:=17;
PreferredWorlds[8]:=37;
PreferredWorlds[9]:=113;
PreferredWorlds[10]:=93;
PreferredWorlds[11]:=95;
PreferredWorlds[12]:=96;
PreferredWorlds[13]:=85;
end else
begin
if(Mem = 'Yes') or (Mem = 'yes') then
begin
PreferredWorlds[0]:=138;
PreferredWorlds[1]:=137;
PreferredWorlds[2]:=132;
PreferredWorlds[3]:=131;
PreferredWorlds[4]:=130;
PreferredWorlds[5]:=124;
PreferredWorlds[6]:=123;
PreferredWorlds[7]:=121;
PreferredWorlds[8]:=120;
PreferredWorlds[9]:=104;
PreferredWorlds[10]:=89;
PreferredWorlds[11]:=88;
PreferredWorlds[12]:=78;
PreferredWorlds[13]:=77;
end;
end;
end;
 
 function WelcomeToRuneScape:Boolean;   // By WT-Fakawi
var Welcome,tx,ty:integer;
begin
  Welcome := CreateBitmapMaskFromText('Welcome', UpChars);
  Result:= FindBitmapMaskTolerance(Welcome, tx, ty, 250, 200, 530, 260, 10,10)
  FreeBitmap(Welcome);
end;
 
Procedure SwitchWorlds; // By WT-Fakawi
begin
 
  SCSSLoadWorld(PreferredWorlds[PreferredWorldCounter], True);
  PreferredWorldCounter:=PreferredWorldCounter+1;
  if PreferredWorldCounter > 13 then PreferredWorldCounter:=0;
  Wait(20000);
  Handle:=SCSSGetHandle;
  World:=SCSSGetCurWorld;
  SCSSSetHandle;
  ActivateClient;
  repeat
    Wait(1000);
  until WelcomeToRuneScape;
  end;
 
procedure talkrnd;
begin
 if (FindTalk) then
 begin
   FindTalk;
   Findnormalrandoms;
 end;
 end;
 
 
 
 
Function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=0 to 10 do
  begin
    case I of
     0:  If FindTalk then
     begin
       FindNormalRandoms;
     end;
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: begin
        if NoGameTab then
        begin
          Result := True;
          Players[CurrentPlayer].loc := 'No GameTab';
          Logout;
          Exit;
        end;
        end;
     8: begin
    talkrnd;
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
       9: RC;
       10: talkrnd;
    end;
    talkrnd;
  end;
end;
 
 
 
 
 
 
procedure DeclareBMPS;
begin
  cursegone := BitmapFromString(5, 5, 'z78DA33303230303032809' +
  '016061686861036903630B44011C794C510C7228B218E62328638' +
  '840400938E1D11');
  weakengone := BitmapFromString(5, 6, 'z78DA3335317134763230' +
       '323030303234343030B480901011FCE298B2982A71E9353533713' +
       '1C1693E4416530D840D006BA02332');
  confusegone := BitmapFromString(12, 7, 'z78DA33743430307434' +
       '3032303030323404B22D2024448472714C596435B8CCC13401BF5' +
       'DC4984C8939E4F90B97087E927817926A02B22C00E1A860F4');
end;
 
procedure randoms;
begin
 if (FindFight) then
  begin
    Status('Climbing up stairs...')
  if(FindObj3(x,y,'tair',610411,7)) then
  begin
    Mouse(x,y,3,3,true);
  end;
  begin
  Sleep(15000+random(5000));
    if(InChatMulti('evil','bored','vanish')) then
    begin
    wait(1000+random(500))
    MakeCompass('E');
  if(FindObj3(x,y,'tair',5395032,8)) then
  begin
     wait(1000+random(300));
     Mouse(x,y,3,3,true);
     wait(3000+random(400));
     Mouse(126,182,3,3,true);
  end;
      Wait(10);
      talkrnd;
  end;
  end;
  end;
  end;
 
 
 
 
 
Function ZCastOn(Spell, Monster: string; MonsterColor : Integer; Tolerance:
 Integer): Boolean;
 var
   tx,ty : integer;
 
begin
  tx := tx + random ( 40 );
  ty := ty + random ( 40 );
 if (not Cast(Spell)) then Exit;
  ZMageI := random(3)
 if (FindObj3(tx, ty, Monster, ZMage[ZMageI], Tolerance)) then
 begin
     Mouse(tx,ty, 0, 0, True);
     Result := True;
 end;
 end;
 
 
Procedure ZammyMageColors;
begin
  ZMage[0] := (Mage1);
  ZMage[1] := (Mage2);
  ZMage[2] := (Mage3);
end;
 
 
 
Function FindMage : Boolean;
 begin
  talkrnd;
   ZMageI:=Random(3);
 if(FindObj3(x, y, 'amora', ZMage[ZMageI], 7)) then
 begin
    MakeCompass('E');
    writeln('Found Mage!');
    Result := True;
    Exit;
 end
 else
 begin
    Writeln('Finding Mage..');
    MakeCompass('E');
    Wait(300+random(300));
    HighestAngle;
 end;
    result := False;
end;
 
 
Procedure LocateMage;
 begin
 if(FindMage) then
 begin
     MakeCompass('E');
     Writeln('Found Mage1!')
     Exit;
 end
 else
 begin
 repeat
     Writeln('Trying to Find mage..')
     FindMage;
     Attemptss:=Attemptss + 1;
 Until(FindMage) or (Attemptss>3);
 if (Attemptss > 3) then
 begin
     Writeln('Dident find mage!')
     Switchworlds;
     LoginPlayer;
     Loads := Loads + 1;
     if (Loads > 5) then
     NextPlayer(False);
 end;
 end;
end;
 
 
Procedure zammymage;
 var
   Spell : String;
 begin
 
 case wichspell of
  0: Spell:='Confuse';
  1: Spell:='Weaken';
  2: Spell:='Curse';
 end;
   FindFastRandoms;
  talkrnd;
   Wait(300+random(200));
   ZMageI := random(3)
   ZCastOn(Spell,'amora',ZMage[ZMageI],8);
   talkrnd;
 if(howmany>=howmanyto) then
   NextPlayer(False);
 end;
 
 
 
function StolenMage : Boolean;
 begin
  GameTab(7);
  if(wichspell=0) and FindBitmap(confusegone,x,y) or (wichspell=1) and FindBitMap(weakengone,x,y) or (wichspell=2) and FindBitmap(cursegone,x,y) then
 begin
  xcv := xcv + 1;
  Mouse(x,y,3,3,true);
  Wait(100+random(100));
 if(FindColorTolerance(x,y,Zmage[ZMageI],2,3,760,495,6)) then
 begin
  xcv := xcv + 1;
  Mouse(x,y,3,3,True);
 if (InChatMulti('enough','unes','cast') or InChatMulti('not','ody','spell')) then
 begin
  xcv := xcv + 1;
 if(xcv = 3) then
 begin
  Result := true;
 end else
  Result := False;
 end;
 FreeBitmap(cursegone);
 FreeBitmap(weakengone);
 FreeBitmap(confusegone);
 end;
 end;
end;
 
 
 
Procedure DoChats;
 
Begin
  SetChat('On', 1);
  SetChat('Off', 2)
  SetChat('On', 3);
End;
 
Procedure progress;
begin
// thanks hey321
  writeln('[===============================================]')
  writeln('[        Syberiums Zammy Mager                   ')
  writeln('[ Completed ' +IntToStr(howmany)+ ' Zammy Mage Casts!')
  writeln('[ Worked For ' +TimeRunning)
  writeln('[Thank You for using my script! Post Proggies =]')
  writeln('[==============================================]')
  SRLrandomsreport;
end;
 
Procedure antiban1;
 var DBANME : integer;
 begin
   writeln('Antiban1')
 if (not(loggedIn)) then Exit;
   DBANME := Random(100);
 case DBANME of
    1:Hoverskill('magic',False) ;
    2:pickupmouse;
 end;
 end;
 
Procedure antiban2;
 var DBANME1 : integer;
 begin
   writeln('AntiBan2')
 if(not(LoggedIn)) then Exit;
   DBANME1 := Random(100);
 case DBANME1 of
    1:ZCastOn('Weaken','amora',ZMage[ZMageI],5);
    2:ZCastOn('Confuse','amora',ZMage[ZMageI],5);
 end;
end;
 
 
Procedure click1;
begin
  Mouse(698,297,5,5,true);
  wait(300-random(80))
  Mouse(698,297,0,0,true);
end;
 
Procedure click2;
begin
  Mouse(685,267,5,5,true);
  wait(300-random(80))
  Mouse(685,267,0,0,true);
end;
 
Procedure click3;
begin
  Mouse(652,254,5,5,true);
  wait(300-random(80))
  Mouse(652,254,0,0,true);
end;
 
 
Procedure missclick;
 var
   click : integer;
 begin
   click := random(60)
 case click of
   1:click1;
   2:click2;
   3:click3;
 end;
end;
 
Function stolen : Boolean;
 begin
 if(InChatMulti('omeone', 'else' , 'ghting')) then
 begin
   Result := true;
   TypeSend('Leave please.. i need exp') ;
 end;
 begin
 if(InChatMulti('omeone', 'else' , 'ghting')) then
 begin
   TypeSend('Zomg u still here noob..');
   Result := true;
 end else
 begin
   Result := false;
 end;
 end;
end;
 
procedure jacked;
 begin
 if (stolen) then
 begin
   Writeln('Some one is fighting mage already!')
   SwitchWorlds;
   LoginPlayer;
   MakeCompass('E');
   MakeCompass('E');
   MakeCompass('E');
   highestangle;
 end;
end;
 
 
procedure norunes;
 begin
 if (StolenMage) then
 begin
   writeln('Ran out of runes, Logging out.');
   Players[Currentplayer].active := False;
   NextPlayer(False);
 end;
end;
 
function GetChatMessage(Text: String): Boolean;
 var
    TX, TY: Integer;
    Chat: String;
 begin
 if(IsTextInAreaEx(40, 415, 130, 415, TX, TY, ':', 0, SmallChars, False, True, 0, 0, 0))then
 begin
    Chat:= Lowercase(Trim(GetTextAtEx(TX + 8, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
 if(Pos(Text, Chat) <> 0)then
 begin
    Result:= True;
 end
 end;
 end;
 
 
 
function GetChatName(Name: String): Boolean;
 var
   I: Integer;
 begin
 
   ChatName:= Lowercase(Trim(GetTextAtEx(21, 415, 0, SmallChars, False, False, 0, 0, 0, 50, False, TR_AllChars)));
   I:= Pos(':', ChatName);
 if(I <> 0)then
 begin
   Delete(ChatName, I, I);
 end
 
 if(Pos(Name, ChatName) <> 0)then
 begin
   Result:= True;
 end
end;
 
 
 
Function AutoRespond: Boolean;
 var
  Responce, Lvl: String;
  RandomReply: Integer;
 begin
  OldLine:= TheLine;
  TheLine:= Lowercase(Trim(GetTextAtEx(20, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
  NewLine:= TheLine;
 
 If(GetChatName(Players[CurrentPlayer].Name))then
 Begin
   Exit;
 End
 
 If(OldLine=NewLine)then
 Begin
   Exit;
 end
 
  if(GetChatMessage(Players[CurrentPlayer].Name)) or (GetChatMessage(Players[CurrentPlayer].Nick))then
   begin
     WriteLn(''+ChatName+': '+Chat);
     RandomReply:= Random(10)+1;
    Case (RandomReply) of
      0 : Responce:= ('?');
      1 : Responce:= ('what');
      2 : Responce:= ('yes');
      3 : Responce:= ('no');
      4 : Responce:= ('what do you want');
      5 : Responce:= ('me?');
      6 : Responce:= ('Yah?');
      7 : Responce:= ('who?');
      8 : Responce:= ('wha?');
      9 : Responce:= ('?');
      10 : Responce:= ('???');
  end
      TypeSend(Responce+' '+Name);
      Result:= True;
  end
 
  If(GetChatMessage('lol'))or (GetChatMessage('lolz')) or (GetChatMessage('lmao')) or (GetChatMessage('rofl')) or (GetChatMessage('haha'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    RandomReply:= Random(25)+1;
    Case (RandomReply) of
     0 : Responce:= ('hehe');
     1 : Responce:= ('lolol');
     2 : Responce:= ('lol');
     3 : Responce:= ('haha');
     4 : Responce:= ('hihi');
     5 : Responce:= ('ghehe');
     6 : Responce:= ('lmao');
     7 : Responce:= ('lmfao');
     8 : Responce:= ('rofls');
     9 : Responce:= ('fun');
     10 : Responce:= ('nice');
     11 : Responce:= ('lolz');
     12 : Responce:= ('yep');
     13 : Responce:= ('hola');
     14 : Responce:= ('wow');
     15 : Responce:= ('hehe...');
     16 : Responce:= ('rofl');
     17 : Responce:= ('ghehehghehighhe');
     18 : Responce:= ('cool');
     19 : Responce:= ('...');
     20 : Responce:= ('???');
     21 : Responce:= ('wowzers');
     22 : Responce:= ('grrr...');
     23 : Responce:= ('rowr');
     24 : Responce:= ('lolololololol');
     25 : Responce:= ('ha ha ha!!!');
    end
     TypeSend(Responce);
     Result:= True;
  end
 
 
  If(GetChatMessage('mage')) or (GetChatMessage('magic')) or (GetChatMessage('mag'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('lvls')) or (GetChatMessage('levels'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Lvl:= IntToStr(GetSkillLevel('magic'));
    RandomReply:= Random(5)+1;
     Case (RandomReply) of
      0 : Responce:= ('i''m lvl '+Lvl+' mage');
      1 : Responce:= ('level '+Lvl+' magic');
      2 : Responce:= ('lvl '+Lvl+' magein!');
      3 : Responce:= (+Lvl);
      4 : Responce:= ('i''m level '+lvl);
      5 : Responce:= (+Lvl+' here :P');
     End
    TypeSend(Responce);
    Result:= True;
   End
 
  If(GetChatMessage('wat')) or (GetChatMessage('what')) and (GetChatMessage('doin')) or (GetChatMessage('doing'))then
   Begin
   WriteLn(''+ChatName+': '+Chat);
   RandomReply:= Random(12);
    Case RandomReply of
     0 : Responce:= ('not much');
     1 : Responce:= ('nothing');
     2 : Responce:= ('bored');
     3 : Responce:= ('aye?');
     4 : Responce:= ('emmm..nothin');
     5 : Responce:= ('nope');
     6 : Responce:= ('huh');
     7 : Responce:= ('playin rs.. der da der');
     8 : Responce:= ('what');
     9 : Responce:= ('....');
     10 : Responce:= ('nothin');
     11 : Responce:= ('dun worry about it');
    End;
   TypeSend(Responce);
   Result:= True;
  End;
 
  If(GetChatMessage('hey')) or (GetChatMessage('hi')) or (GetChatMessage('hello')) or (GetChatMessage('wats up')) or (GetChatMessage('whats up')) or (GetChatMessage('yo'))then
   Begin
   WriteLn(''+ChatName+': '+Chat);
   RandomReply:= random(9)+1;
    Case RandomReply of
      0 : Responce:= ('ello');
      1 : Responce:= ('sup');
      2 : Responce:= ('yo');
      3 : Responce:= ('whats up everyone');
      4 : Responce:= ('whats up');
      5 : Responce:= ('welcome');
      6 : Responce:= ('allo allo');
      7 : Responce:= ('wat up');
      8 : Responce:= ('y0o');
      9 : Responce:= ('=P');
      10 : Responce:= ('what is up');
    End
   TypeSend(Responce);
   Result:= True;
  End
End;
 
 
 
begin
 
   SetupSRL;
   ScriptID := '71';
   ClearDebug;
   DeclarePlayers;
   DeclareBMPS;
   CurrentPlayer := StartPlayer;
   InitWorlds;
   OpenSCSS;
   SCSSSetHandle;
   if(not(LoggedIn)) then LoginPlayer;
   NickNameBMP:= CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
   DoChats;
   MouseSpeed := MSpeed + Random(3)
   BenMouse:=False;
   MakeCompass('E');
   Highestangle;
   ZammyMageColors;
   MakeCompass('E');
   MakeCompass('E');
   MakeCompass('E');
   FindMage;
   LocateMage;
 repeat
   AutoRespond;
   MouseSpeed := MSpeed + Random(3)
   missclick;
   randoms;
   talkrnd;
   AutoRespond;
   jacked;
   norunes;
   wait(600+random(200));
   zammymage;
   wait(200+random(100));
   howmany:=howmany + 1;
   progress;
   antiban1;
   antiban2;
   FindFastRandoms;
   AutoRespond;
 until(howmany>=howmanyto);
   NextPlayer(False);
   writeln('dbuf 1');
end.
 

-Syberium

drag the crosshair onto RS client, You won't get the error

thanks, it was not working after that beacuse u didnt put the includes at the top.

pretty amazing syberium

i like how it switches worlds :D

hey syberium!

the script doesnt click on the mage sometimes… but it counts as a cast in the report resulting in an inaccurate report

it doesnt click if a person is standing in the scame place as you lol

might want to fix those 2 problems

ah idc bout inacc reports… the clicking when some1 dots on u is a prob.. not currently workin on this script though so yea.. =/ sorry

this will be awsome for my pure thanks alot

it worked fine after i updated the mage colours

[===============================================]
[ Syberiums Zammy Mager
[ Completed 197 Zammy Mage Casts!
[ Worked For 16 Minutes and 33 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]

******** FOUND FIGHTING RANDOM ********
[===============================================]
[        Syberiums Zammy Mager                   
[ Completed 316 Zammy Mage Casts!
[ Worked For 21 Minutes and 11 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|     SRL Randoms Report       |
|    [url]www.villu-reborn.com[/url]      |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Fight Random[s]        :  1  |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

prog!

did it run from the fight random and run back?

no sadly

after running upstairs it didnt run down but thankfully i caught it

a evil chicken killed me so you might want to fix fighting randoms

Great Script ran aobut 2k casts yesterday

doing another 2k today and ill post proggies

scss doesnt work anymore…

ya i know, but im not gunna update it to take out scss… so just umm take the scss out urself. or wait till its fixed.

I dont know how to do it so ill wait :)

Thanks

I've used it…

but problem is…

in amount of time it will click on the bolt enchanting spell
and from there its stucked..
cant find zammy color..

it wont log out either coz its clicking the curse spell…

pls fix this…

or can it be fixed?

try putting new colors in for the mage

From: syberium
try putting new colors in for the mage

cant be…. even if I change the zammy color..

the screen is blocked with the Bolt Enchanting Table…

I must close the window…

or maybe add an anti random which closes this bolt ench. window….


ya know wat I mean :spongebob: :spongebob:


nice script =D

just figured out what the problem was…

the anti ban function that is clicking the wind bolt spell as anti random has to great tolerance… which makes it click the bolt ench. spell that makes the bolt ench. table appear….

please fix this:eek:

TYVM it worked great :D

[===============================================]
[        Syberiums Zammy Mager
[ Completed 1177 Zammy Mage Casts!
[ Worked For 2 Hours, 3 Minutes and 16 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]
Antiban1
AntiBan2

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|     SRL Randoms Report       |
|                              |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talking Random[s]      :  1  |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

And another :

[===============================================]
[        Syberiums Zammy Mager
[ Completed 1815 Zammy Mage Casts!
[ Worked For 2 Hours, 56 Minutes and 2 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]
Antiban1
AntiBan2

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
|     SRL Randoms Report       |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Fight Random[s]        :  2  |
| Talking Random[s]      :  3  |
| Dwarf[s] Solved        :  1  |
| Rick[s] Solved         :  1  |
| OldMen Solved          :  1  |
| New Box[es] Solved     :  2  |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

Looks good but seeing as how SCSS dosnt work im not going to rune for you untill you fix it :P after that i have around 6k casts for it to work with

Accident Double Post

Ok if you're too nooby or lazy then here is the script my edited version without world hopper…so all it does now is logout then back in hopefully even though that's pretty pointless if someone's there at least you can get it working for a while.
Hope this works I just kinda guessed but should do that trick:

Program SyberiumsZammyMager;
 {.include SRL\SRL.scar}
 {.include SRL\SRL\skill\magic.scar}
 {.include SRL\SRL\extended\xMapWalk.scar}



 { # ScriptName: Auto Monk of zamorak confuser/weakener/curser!          }
 { # ScriptDefinition: Uses confuse/curse/weaken on monk of zammy.       }
 { # Instructions: Start in varrock castle on the west side of mage cage!}
 { # Instructions Cont: Pick Color of zammy mage! IMPORTANT!             }
 { # Credits: Me for making this! Junior-Helped with my stupid mistake =/, }
 { # Credits Cont: pwnaz0r-THANKS MAN!, Scuancy-MAN thanks for being a great}
 {   tester! Ruroken for world switch idea,}
 { # Lastly have fun and auto safe and correctly!

 { IF the weaken isent working for you do the below instructions.
 go to SRL\SRL\skill\magic.scar and replace there BMP with mine.
  MAKE SURE U REMOVE THE {} {AROUND THE BMP!}
{  weaken := BitmapFromString(5, 6, 'z78DA33353171347632000143' +
       '474B03335717080911C12F8E298BA912975E5333131713235C6A2' +
       '0B2986A206C008F6C2631');  }

const
  WichSpell = 2; // 0 for confuse, 1 for weaken, 2 for curse!
  Howmanyto = 1000;// how many times to cast the above spells.
  MSpeed = 100;
  Mage1 = 4147116; //mage color(s) shoudent have to change these
  Mage2 = 3949732;
  Mage3 = 4278447;
  StartPlayer = 0; // What player you start with.
  NumberOfUsers = 1; // The Number of users you use.
  Version = ('4.0') ;
  Mem = ('no'); // yes to load member worlds, no for free worlds.




var
 Howmany,cursegone,weakengone,confusegone,xcv,loads : integer;
 attemptss : integer;
 ZMage : array[0..2] of integer;
 ZMageI : integer;
 Chat, Name, ChatName: String;
 PreferredWorlds: array[0..13] of integer;
 PreferredWorldCounter :integer;
 Handle, World:integer;


procedure DeclarePlayers;

begin
     HowManyPlayers := NumberOfUsers;
     NumberOfPlayers( HowManyPlayers );
     CurrentPlayer := StartPlayer;


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

end;



 function WelcomeToRuneScape:Boolean;   // By WT-Fakawi
var Welcome,tx,ty:integer;
begin
  Welcome := CreateBitmapMaskFromText('Welcome', UpChars);
  Result:= FindBitmapMaskTolerance(Welcome, tx, ty, 250, 200, 530, 260, 10,10)
  FreeBitmap(Welcome);
end;


procedure talkrnd;
begin
 if (FindTalk) then
 begin
   FindTalk;
   Findnormalrandoms;
 end;
 end;




Function FindFastRandoms: Boolean;
var
  i: Integer;
begin
  for i:=0 to 10 do
  begin
    case I of
     0:  If FindTalk then
     begin
       FindNormalRandoms;
     end;
     1:  If FindDead then
           Result := True;
     2:  If FindMod then
           Result := True;
     3:  If FindMime then
           Result := True;
     4:  If FindMaze then
           Result := True;
     5:  If FindQuiz then
           Result := True;
     6:  If FindDemon then
           Result := True;
     7: begin
        if NoGameTab then
        begin
          Result := True;
          Players[CurrentPlayer].loc := 'No GameTab';
          Logout;
          Exit;
        end;
        end;
     8: begin
    talkrnd;
           if InBlack then
           begin
             Result := True;
             Players[CurrentPlayer].loc := 'InBlack';
             Logout;
             Exit;
           end;
         end;
       9: RC;
       10: talkrnd;
    end;
    talkrnd;
  end;
end;






procedure DeclareBMPS;
begin
  cursegone := BitmapFromString(5, 5, 'z78DA33303230303032809' +
  '016061686861036903630B44011C794C510C7228B218E62328638' +
  '840400938E1D11');
  weakengone := BitmapFromString(5, 6, 'z78DA3335317134763230' +
       '323030303234343030B480901011FCE298B2982A71E9353533713' +
       '1C1693E4416530D840D006BA02332');
  confusegone := BitmapFromString(12, 7, 'z78DA33743430307434' +
       '3032303030323404B22D2024448472714C596435B8CCC13401BF5' +
       'DC4984C8939E4F90B97087E927817926A02B22C00E1A860F4');
end;

procedure randoms;
begin
 if (FindFight) then
  begin
    Status('Climbing up stairs...')
  if(FindObj3(x,y,'tair',610411,7)) then
  begin
    Mouse(x,y,3,3,true);
  end;
  begin
  Sleep(15000+random(5000));
    if(InChatMulti('evil','bored','vanish')) then
    begin
    wait(1000+random(500))
    MakeCompass('E');
  if(FindObj3(x,y,'tair',5395032,8)) then
  begin
     wait(1000+random(300));
     Mouse(x,y,3,3,true);
     wait(3000+random(400));
     Mouse(126,182,3,3,true);
  end;
      Wait(10);
      talkrnd;
  end;
  end;
  end;
  end;





Function ZCastOn(Spell, Monster: string; MonsterColor : Integer; Tolerance:
 Integer): Boolean;
 var
   tx,ty : integer;

begin
  tx := tx + random ( 40 );
  ty := ty + random ( 40 );
 if (not Cast(Spell)) then Exit;
  ZMageI := random(3)
 if (FindObj3(tx, ty, Monster, ZMage[ZMageI], Tolerance)) then
 begin
     Mouse(tx,ty, 0, 0, True);
     Result := True;
 end;
 end;


Procedure ZammyMageColors;
begin
  ZMage[0] := (Mage1);
  ZMage[1] := (Mage2);
  ZMage[2] := (Mage3);
end;



Function FindMage : Boolean;
 begin
  talkrnd;
   ZMageI:=Random(3);
 if(FindObj3(x, y, 'amora', ZMage[ZMageI], 7)) then
 begin
    MakeCompass('E');
    writeln('Found Mage!');
    Result := True;
    Exit;
 end
 else
 begin
    Writeln('Finding Mage..');
    MakeCompass('E');
    Wait(300+random(300));
    HighestAngle;
 end;
    result := False;
end;


Procedure LocateMage;
 begin
 if(FindMage) then
 begin
     MakeCompass('E');
     Writeln('Found Mage1!')
     Exit;
 end
 else
 begin
 repeat
     Writeln('Trying to Find mage..')
     FindMage;
     Attemptss:=Attemptss + 1;
 Until(FindMage) or (Attemptss>3);
 if (Attemptss > 3) then
 begin
     Writeln('Dident find mage!')
     Logout;
     LoginPlayer;
     Loads := Loads + 1;
     if (Loads > 5) then
     NextPlayer(False);
 end;
 end;
end;


Procedure zammymage;
 var
   Spell : String;
 begin

 case wichspell of
  0: Spell:='Confuse';
  1: Spell:='Weaken';
  2: Spell:='Curse';
 end;
   FindFastRandoms;
  talkrnd;
   Wait(300+random(200));
   ZMageI := random(3)
   ZCastOn(Spell,'amora',ZMage[ZMageI],8);
   talkrnd;
 if(howmany>=howmanyto) then
   NextPlayer(False);
 end;



function StolenMage : Boolean;
 begin
  GameTab(7);
  if(wichspell=0) and FindBitmap(confusegone,x,y) or (wichspell=1) and FindBitMap(weakengone,x,y) or (wichspell=2) and FindBitmap(cursegone,x,y) then
 begin
  xcv := xcv + 1;
  Mouse(x,y,3,3,true);
  Wait(100+random(100));
 if(FindColorTolerance(x,y,Zmage[ZMageI],2,3,760,495,6)) then
 begin
  xcv := xcv + 1;
  Mouse(x,y,3,3,True);
 if (InChatMulti('enough','unes','cast') or InChatMulti('not','ody','spell')) then
 begin
  xcv := xcv + 1;
 if(xcv = 3) then
 begin
  Result := true;
 end else
  Result := False;
 end;
 FreeBitmap(cursegone);
 FreeBitmap(weakengone);
 FreeBitmap(confusegone);
 end;
 end;
end;



Procedure DoChats;

Begin
  SetChat('On', 1);
  SetChat('Off', 2)
  SetChat('On', 3);
End;

Procedure progress;
begin
// thanks hey321
  writeln('[===============================================]')
  writeln('[        Syberiums Zammy Mager                   ')
  writeln('[ Completed ' +IntToStr(howmany)+ ' Zammy Mage Casts!')
  writeln('[ Worked For ' +TimeRunning)
  writeln('[Thank You for using my script! Post Proggies =]')
  writeln('[==============================================]')
  SRLrandomsreport;
end;

Procedure antiban1;
 var DBANME : integer;
 begin
   writeln('Antiban1')
 if (not(loggedIn)) then Exit;
   DBANME := Random(100);
 case DBANME of
    1:Hoverskill('magic',False) ;
    2:pickupmouse;
 end;
 end;

Procedure antiban2;
 var DBANME1 : integer;
 begin
   writeln('AntiBan2')
 if(not(LoggedIn)) then Exit;
   DBANME1 := Random(100);
 case DBANME1 of
    1:ZCastOn('Weaken','amora',ZMage[ZMageI],5);
    2:ZCastOn('Confuse','amora',ZMage[ZMageI],5);
 end;
end;


Procedure click1;
begin
  Mouse(698,297,5,5,true);
  wait(300-random(80))
  Mouse(698,297,0,0,true);
end;

Procedure click2;
begin
  Mouse(685,267,5,5,true);
  wait(300-random(80))
  Mouse(685,267,0,0,true);
end;

Procedure click3;
begin
  Mouse(652,254,5,5,true);
  wait(300-random(80))
  Mouse(652,254,0,0,true);
end;


Procedure missclick;
 var
   click : integer;
 begin
   click := random(60)
 case click of
   1:click1;
   2:click2;
   3:click3;
 end;
end;
     
Function stolen : Boolean;
 begin
 if(InChatMulti('omeone', 'else' , 'ghting')) then
 begin
   Result := true;
   TypeSend('Leave please.. i need exp') ;
 end;
 begin
 if(InChatMulti('omeone', 'else' , 'ghting')) then
 begin
   TypeSend('Zomg u still here noob..');
   Result := true;
 end else
 begin
   Result := false;
 end;
 end;
end;

procedure jacked;
 begin
 if (stolen) then
 begin
   Writeln('Some one is fighting mage already!')
   Logout;
   LoginPlayer;
   MakeCompass('E');
   MakeCompass('E');
   MakeCompass('E');
   highestangle;
 end;
end;


procedure norunes;
 begin
 if (StolenMage) then
 begin
   writeln('Ran out of runes, Logging out.');
   Players[Currentplayer].active := False;
   NextPlayer(False);
 end;
end;

function GetChatMessage(Text: String): Boolean;
 var
    TX, TY: Integer;
    Chat: String;
 begin
 if(IsTextInAreaEx(40, 415, 130, 415, TX, TY, ':', 0, SmallChars, False, True, 0, 0, 0))then
 begin
    Chat:= Lowercase(Trim(GetTextAtEx(TX + 8, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
 if(Pos(Text, Chat) <> 0)then
 begin
    Result:= True;
 end
 end;
 end;



function GetChatName(Name: String): Boolean;
 var
   I: Integer;
 begin

   ChatName:= Lowercase(Trim(GetTextAtEx(21, 415, 0, SmallChars, False, False, 0, 0, 0, 50, False, TR_AllChars)));
   I:= Pos(':', ChatName);
 if(I <> 0)then
 begin
   Delete(ChatName, I, I);
 end

 if(Pos(Name, ChatName) <> 0)then
 begin
   Result:= True;
 end
end;



Function AutoRespond: Boolean;
 var
  Responce, Lvl: String;
  RandomReply: Integer;
 begin
  OldLine:= TheLine;
  TheLine:= Lowercase(Trim(GetTextAtEx(20, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
  NewLine:= TheLine;

 If(GetChatName(Players[CurrentPlayer].Name))then
 Begin
   Exit;
 End

 If(OldLine=NewLine)then
 Begin
   Exit;
 end

  if(GetChatMessage(Players[CurrentPlayer].Name)) or (GetChatMessage(Players[CurrentPlayer].Nick))then
   begin
     WriteLn(''+ChatName+': '+Chat);
     RandomReply:= Random(10)+1;
    Case (RandomReply) of
      0 : Responce:= ('?');
      1 : Responce:= ('what');
      2 : Responce:= ('yes');
      3 : Responce:= ('no');
      4 : Responce:= ('what do you want');
      5 : Responce:= ('me?');
      6 : Responce:= ('Yah?');
      7 : Responce:= ('who?');
      8 : Responce:= ('wha?');
      9 : Responce:= ('?');
      10 : Responce:= ('???');
  end
      TypeSend(Responce+' '+Name);
      Result:= True;
  end

  If(GetChatMessage('lol'))or (GetChatMessage('lolz')) or (GetChatMessage('lmao')) or (GetChatMessage('rofl')) or (GetChatMessage('haha'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    RandomReply:= Random(25)+1;
    Case (RandomReply) of
     0 : Responce:= ('hehe');
     1 : Responce:= ('lolol');
     2 : Responce:= ('lol');
     3 : Responce:= ('haha');
     4 : Responce:= ('hihi');
     5 : Responce:= ('ghehe');
     6 : Responce:= ('lmao');
     7 : Responce:= ('lmfao');
     8 : Responce:= ('rofls');
     9 : Responce:= ('fun');
     10 : Responce:= ('nice');
     11 : Responce:= ('lolz');
     12 : Responce:= ('yep');
     13 : Responce:= ('hola');
     14 : Responce:= ('wow');
     15 : Responce:= ('hehe...');
     16 : Responce:= ('rofl');
     17 : Responce:= ('ghehehghehighhe');
     18 : Responce:= ('cool');
     19 : Responce:= ('...');
     20 : Responce:= ('???');
     21 : Responce:= ('wowzers');
     22 : Responce:= ('grrr...');
     23 : Responce:= ('rowr');
     24 : Responce:= ('lolololololol');
     25 : Responce:= ('ha ha ha!!!');
    end
     TypeSend(Responce);
     Result:= True;
  end


  If(GetChatMessage('mage')) or (GetChatMessage('magic')) or (GetChatMessage('mag'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('lvls')) or (GetChatMessage('levels'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Lvl:= IntToStr(GetSkillLevel('magic'));
    RandomReply:= Random(5)+1;
     Case (RandomReply) of
      0 : Responce:= ('i''m lvl '+Lvl+' mage');
      1 : Responce:= ('level '+Lvl+' magic');
      2 : Responce:= ('lvl '+Lvl+' magein!');
      3 : Responce:= (+Lvl);
      4 : Responce:= ('i''m level '+lvl);
      5 : Responce:= (+Lvl+' here :P');
     End
    TypeSend(Responce);
    Result:= True;
   End

  If(GetChatMessage('wat')) or (GetChatMessage('what')) and (GetChatMessage('doin')) or (GetChatMessage('doing'))then
   Begin
   WriteLn(''+ChatName+': '+Chat);
   RandomReply:= Random(12);
    Case RandomReply of
     0 : Responce:= ('not much');
     1 : Responce:= ('nothing');
     2 : Responce:= ('bored');
     3 : Responce:= ('aye?');
     4 : Responce:= ('emmm..nothin');
     5 : Responce:= ('nope');
     6 : Responce:= ('huh');
     7 : Responce:= ('playin rs.. der da der');
     8 : Responce:= ('what');
     9 : Responce:= ('....');
     10 : Responce:= ('nothin');
     11 : Responce:= ('dun worry about it');
    End;
   TypeSend(Responce);
   Result:= True;
  End;

  If(GetChatMessage('hey')) or (GetChatMessage('hi')) or (GetChatMessage('hello')) or (GetChatMessage('wats up')) or (GetChatMessage('whats up')) or (GetChatMessage('yo'))then
   Begin
   WriteLn(''+ChatName+': '+Chat);
   RandomReply:= random(9)+1;
    Case RandomReply of
      0 : Responce:= ('ello');
      1 : Responce:= ('sup');
      2 : Responce:= ('yo');
      3 : Responce:= ('whats up everyone');
      4 : Responce:= ('whats up');
      5 : Responce:= ('welcome');
      6 : Responce:= ('allo allo');
      7 : Responce:= ('wat up');
      8 : Responce:= ('y0o');
      9 : Responce:= ('=P');
      10 : Responce:= ('what is up');
    End
   TypeSend(Responce);
   Result:= True;
  End
End;



begin

   SetupSRL;
   ScriptID := '71';
   ClearDebug;
   DeclarePlayers;
   DeclareBMPS;
   CurrentPlayer := StartPlayer;
   if(not(LoggedIn)) then LoginPlayer;
   NickNameBMP:= CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
   DoChats;
   MouseSpeed := MSpeed + Random(3)
   BenMouse:=False;
   MakeCompass('E');
   Highestangle;
   ZammyMageColors;
   MakeCompass('E');
   MakeCompass('E');
   MakeCompass('E');
   FindMage;
   LocateMage;
 repeat
   AutoRespond;
   MouseSpeed := MSpeed + Random(3)
   missclick;
   randoms;
   talkrnd;
   AutoRespond;
   jacked;
   norunes;
   wait(600+random(200));
   zammymage;
   wait(200+random(100));
   howmany:=howmany + 1;
   progress;
   antiban1;
   antiban2;
   FindFastRandoms;
   AutoRespond;
 until(howmany>=howmanyto);
   NextPlayer(False);
   writeln('dbuf 1');
end.

P.S if you want to use more then 1 player ur gonna have to add that yourself…if you don't know how look at wizzup?'s TUT and if after that you still got no idea, go buy a brain then try again

thanks kroxpunk work well.

[===============================================]
[ Syberiums Zammy Mager
[ Completed 53 Zammy Mage Casts!
[ Worked For 5 Minutes and 41 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]

Np hehe I did a bit of editing to your proggy….make that quite a bit of editing so now it's a lot better but a lot of its is Wizzup?'s so if you want to use it you might wanna ask him. anyway i got it to work for about 1h 30mins and another time 55mins. unfortunately i started the script again before i copied the proggies lol but it works great good stuff

my proggy isent from wizzups.. where did i get from wizzup?? b4 u accuse me show what i did..

What??? What are you on about….I said I edited your proggy and if you wanted to use (dont bother now cos it sucks) you would have to ask Wizzup rofl

of its is Wizzup?'s so if you want to use it you might wanna ask him.

i thought that meant that the proggy I wrote was from wizzup and i should have asked him..

Ok have you got the anti randoms that looks in inventory cos if not give me the anti randoms you want in there and I'll make it chek inv every 10 casts or watever u want

this shit doesnt work…it just opens some shitty SCSS and doesnt do anything…
this sucks 0/10

[===============================================]
[ Syberiums Zammy Mager
[ Completed 3141 Zammy Mage Casts!
[ Worked For 7 Hours, 52 Minutes and 34 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]

Okay, I had 7.5k bodies, 15k waters, and an earth staff, and I watched it for the first hour, it opened up the enchant bolt window and got confused. When I checked my runes, that report was completely wrong, it only did like 200-300. I really like this script, handles nicely, it's just the enchant bolt window, I think thats what happened in the middle of the night, it opened it, got confused, and logged out. Just a heads up ^^

From: fabis94
this shit doesnt work…it just opens some shitty SCSS and doesnt do anything…
this sucks 0/10

no shit sherlock. SCSS is broken atm. how about u take ur retarted dumbass self and go learn scar and make ur own script? i doubt u could even make a autotalker u dumbfuck.

From: KaiYul
[===============================================]
[ Syberiums Zammy Mager
[ Completed 3141 Zammy Mage Casts!
[ Worked For 7 Hours, 52 Minutes and 34 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]

Okay, I had 7.5k bodies, 15k waters, and an earth staff, and I watched it for the first hour, it opened up the enchant bolt window and got confused. When I checked my runes, that report was completely wrong, it only did like 200-300. I really like this script, handles nicely, it's just the enchant bolt window, I think thats what happened in the middle of the night, it opened it, got confused, and logged out. Just a heads up ^^

ya one ? how did u get script working when scss isent working? also i know proggy is messed up… just 2 lazy to fix to atm. =/ sorry i made this script a while back when i was newer to scar. i dont really work on it anymore..

From: syberium

ya one ? how did u get script working when scss isent working? also i know proggy is messed up… just 2 lazy to fix to atm. =/ sorry i made this script a while back when i was newer to scar. i dont really work on it anymore..

please work on it plss!!


:bart: :bart:

From: syberium
no shit sherlock. SCSS is broken atm. how about u take ur retarted dumbass self and go learn scar and make ur own script? i doubt u could even make a autotalker u dumbfuck.



ya one ? how did u get script working when scss isent working? also i know proggy is messed up… just 2 lazy to fix to atm. =/ sorry i made this script a while back when i was newer to scar. i dont really work on it anymore..

I used the script that was edited to remove SCSS, that was provided by rkroxpunk.

Fixed and I removed Misclick….
Hope it isnt super detectable now../…../

I commented out the Player 1 2 3 and 4 and i left the player 0 alone, with my name and pass and everything.
Im on unsigned client, low detail, brightest screen setting, and i have specified the window..
when i press ctrl alt and R the script says running and there are no errors..
but the mouse doesnt move or anything… nothing happens…

do i start this script from the log-in screen or while in-game?
please help..

good script except make it wworld without sscs and the misclick on the botl enchant

Has nice feedback and looks nice, only thing is I don't need this ATM. But when I do I'll rem this ;)

ehh i downloaded scar 3.06 installed all includes and srl but when i try to even run this script i get

Line 558: [Error] (16453:8): Identifier expected in script C:\Documents and Settings\Drakonis\Pulpit\SyberiumsZammyMager4.0PUB.scar

i always get the same error at almost every script what should i do?
Line 558: [Error] (16453:8): Identifier expected in script

[===============================================]
[ Syberiums Zammy Mager
[ Completed 192 Zammy Mage Casts!
[ Worked For 16 Minutes and 14 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]
would have done more but i got board an went pking XD


ps put this between line 533 an 564

  If(GetChatMessage('lol'))or (GetChatMessage('lolz')) or (GetChatMessage('lmao')) or (GetChatMessage('rofl')) or (GetChatMessage('haha'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    RandomReply:= Random(25)+1;
    Case (RandomReply) of
     0 : Responce:= ('hehe');
     1 : Responce:= ('lolol');
     2 : Responce:= ('lol');
     3 : Responce:= ('haha');
     4 : Responce:= ('hihi');
     5 : Responce:= ('ghehe');
     6 : Responce:= ('lmao');
     7 : Responce:= ('lmfao');
     8 : Responce:= ('rofls');
     9 : Responce:= ('fun');
     10 : Responce:= ('nice');
     11 : Responce:= ('lolz');
     12 : Responce:= ('yep');
     13 : Responce:= ('hola');
     14 : Responce:= ('wow');
     15 : Responce:= ('hehe...');
     16 : Responce:= ('rofl');
     17 : Responce:= ('ghehehghehighhe');
     18 : Responce:= ('cool');
     19 : Responce:= ('...');
     20 : Responce:= ('???');
     21 : Responce:= ('wowzers');
     22 : Responce:= ('grrr...');
     23 : Responce:= ('rowr');
     24 : Responce:= ('lolololololol');
     25 : Responce:= ('ha ha ha!!!');
    end

Failed when compiling
Line 74: [Error] (15969:26): Syntax error in script C:\Documents and Settings\Drakonis\Pulpit\SyberiumsZammyMager3.5PUB.scar
Line 74: [Error] (15969:26): Unexpected end of file in script C:\Documents and Settings\Drakonis\Pulpit\SyberiumsZammyMager3.5PUB.scar

After i pasted between 533 and 564…

Ok i downloaded scar.203 with srl 3.6 and i dont get those errors no more

script works fine..

[===============================================]
[ Syberiums Zammy Mager
[ Completed 74 Zammy Mage Casts!
[ Worked For 5 Minutes and 1 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]

But for me always after like 2-5 minutes he click on bolt enchant spell and gets confused…

It has a great great potentiol but need few improvements :P



EDIT*********

Ok i checked it out with srl 3.7.. IT DOES NOT WORK WITH SRL 3.7… dunno why :/

another progress report
[===============================================]
[ Syberiums Zammy Mager
[ Completed 604 Zammy Mage Casts!
[ Worked For 29 Minutes and 17 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]

My ideas for improvement:
- add enchant bolt window closing option(maybe as antirandom feauture)
- Optional world changer
- SCCS should be repeaired(it does not allow to move your camera angle- so after world change your char cant find the mage and set camera to the optional angle)

[ Syberiums Zammy Mager
[ Completed 948 Zammy Mage Casts!
[ Worked For 1 Hours, 51 Minutes and 45 Seconds
[Thank You for using my script! Post Proggies =]

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL Randoms Report |
| www.villu-reborn.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Fight Random : 1 |
| Talking Random : 2 |
| Dwarf Solved : 2 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

it owns only thing the enchant window and when it got a fighting random it goes upstairs and not coming down

[===============================================]
[ Syberiums Zammy Mager
[ Completed 685 Zammy Mage Casts!
[ Worked For 1 Hours, 13 Minutes and 42 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL Randoms Report |
| www.villu-reborn.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talking Random : 2 |
| OldMen Solved : 1 |
| SandWich[es] Solved : 1 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~

good script, when I get more cash hopefully i'll remember to do a longer report

[===============================================]
[ Syberiums Zammy Mager
[ Completed 813 Zammy Mage Casts!
[ Worked For 1 Hours, 35 Minutes and 20 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]


ownage

any1 manage to run it with srl 3.7?

Nice script, cant wait to try it out!

Guys, this is very outdated and im pretty sure most of the functions dont even work anymore. as to how some of u guys are still posting proggys idk. but i prolly wont be doing any more work with because i dont really play runescape anymore sorry :(

noooooooooooooooooooooooooooooooooooooo

DO EET! UPDATE THE SCRIPT!!

From: Stricker666
noooooooooooooooooooooooooooooooooooooo

DO EET! UPDATE THE SCRIPT!!

he doesn't have to and don't order things pls ask…

[===============================================]
[ Syberiums Zammy Mager
[ Completed 707 Zammy Mage Casts!
[ Worked For 58 Minutes and 59 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]
[===============================================]
[ Syberiums Zammy Mager
[ Completed 1002 Zammy Mage Casts!
[ Worked For 1 Hours 9 Minutes and 31 Seconds
[Thank You for using my script! Post Proggies =]
[==============================================]


ps striker if u want it updated why dont you work on it i did ^.^ not posting it though for me only XD

ew u guys dont have a sence of humor -.-

i asked him in wery unrefuseable way..

ok.. Syberiums would u be so great and update the script for your fans? I will love you forever and have your babies!

i hope some1 else could update this script this was the best working script i used hopefully he does it or some1 else im not good enough at scripting to fix this :(

now it needs update like there no freakin tommorow hahaha.. varrock changed.. also castle..

do you think it will work with the new varrok update?

it works i just had to change some colors.. and it works from the north fence… anyway works like before so still gets stuck coz of missclicks

for me it says error line 558 identifier expected in script

My proggy:

[ Syberiums Zammy Mager
[ Completed 100 Zammy Mage Casts!
[ Worked For 7 Minutes and 15 Seconds

Quality :) Didn't get any randoms so I can't comment on those.

One interesting thing .. some kid showed up and opened the door behind me - then stood there forever (I assume waiting for me to get a random). Why would he do that?

EDIT: ahh one thing to note: I did NOT cast 100 Weakens .. I only casted 55. Thats odd.

** WENT from 10 to 47 Magic in approximately 5 hours **

This time I set it to cast more spells than I had runes for to avoid it stopping .. when it finished with my runes I got this:

[Runtime Error] : Exception: Access violation at address 006504C9 in module 'scar.exe'. Read of address 00000030 in line 363 in script C:\Program Files\SCAR 2.03\Scripts\SyberiumsZammyMager4[1].0PUB.scar

Okay .. loaded back up with runes and back at it:

- Doesn't do the Evil Bob ScapeRune random
- Doesn't do the Frog Prince random

+ auto responder is awesome, but logged me out twice when people talked to me and I got to the "zomg you're still here noob" response
+ some noob came and killed the mage .. script kept me logged in till mage respawned

This wasn't my total progress as I cast over 2379:

/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\
| SRL Randoms Report |
| www.villu-reborn.com |
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Talking Random : 2 |
\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~/

[ Syberiums Zammy Mager
[ Completed 1098 Zammy Mage Casts!
[ Worked For 1 Hours, 12 Minutes and 40 Seconds

LOVE IT .. thanks! :)

When was this thing last updated. I think it should be removed because it is useless.

based on the number of people using this script, i think you should upgrade it syberium

From: xanter
When was this thing last updated. I think it should be removed because it is useless.

I would say it is far from useless based on the proggy I just posted a few days ago .. many of us are still using SCAR 2.03 with SRL 3.6 because several scripts are still coded as such .. this script is a PHENOMENAL script when used with that version combination - not only is it far from useless, but I will be using it again in about a week to auto my magic another 13 levels.

An update would be nice tho :) I would cry if it was updated for DIVI and 3.8 tho :eek: :p

can this be ran with 3.8SRL and is it ok to be on west side..east side is bricks now :S:eek: :fiery:

why the heck does it oepn SCSS is that a keylogger? CONFUSED…why cant it use rs…hmmm?

SCSS is a Runescape Client. Its just like playing runescape in internet explorer, but more people use SCSS since it is easier to load, and because it is easier to switch worlds.

ok i why wont it work?!

u have srl divi becuz then it works ?

yes Scar Divi 3.06 and the newest or second form newest SRL like 2.8 or 3.8 and or 2.81 3.81

i keep getting this error

Failed when compiling
Line 125: [Error] (16185:10): Duplicate identifier 'WELCOMETORUNESCAPE' in script D:\SyberiumsZammyMager4.0PUB.scar

this is with version 4.0

i am using latest version of scar and latest version of SRL

its outdated dont use it if u dont now how to edit!!!!!!!!!!!!!!!!