SRL Archive - First Scripts

My first script -- auto caster.


Zezi

2007-11-09 12:47:11

Boxcrop's first script

Zamorak monk auto curser!


Version 0.5
———————-

What does this script do?
  • Finds zamorak monk
  • Uses the defined magic skill on them
  • If the monk is not found after 5 times it will log out
  • Reports on casted so far, and total experiance


What does this script do?
  • Finds zamorak monk
  • Uses the defined magic skill on them
  • If the monk is not found after 5 times it will log out
  • Reports on casted so far, and total experiance

Set up
  • Leave account at Varrock castle logged out.
  • Put the required information into the script
  • Come back later with mage experiance.


Set up
  • Anti ban
  • Randsom event handler
  • Multible players
  • SRL stats
Updated the login problem, had both arrays as value = 0, so it was replacing it's original value, if that makes sense.

rogeruk

2007-11-09 15:20:18

procedure FindMonk;
// Find the damn monk

begin
if (FindObj(x,y,monstername,ZMonkColour1,10))
or (FindObj(x,y,monstername,ZMonkColour2,10))
or (FindObj(x,y,monstername,ZMonkColour3,10)) then
begin
Curse();
Writeln('Found monk');
MMouse( x,y,5,2);
Mouse(x,y,1,1,true);
Casted:= Casted +1;
end else
// If not found
if (Not(FindObj(x,y,monstername,ZMonkColour1,10)))
or (Not(FindObj(x,y,monstername,ZMonkColour2,10)))
or (Not(FindObj(x,y,monstername,ZMonkColour3,10))) then
begin
i:= 0;
repeat
i:= i +1;

Case random (3) Of
0: Makecompass ('s')
1: Makecompass ('n')
2: Makecompass ('w')
3: Makecompass ('e')
end;
// proud of this! :)
until(i = 15)
writeln('Monk was not found.');
Logout;
end;


end;

Whats with all the white space?. You could use a label instead of doing that loop.

procedure FindMonk;
// Find the damn monk
begin
if (FindObj(x,y,monstername,ZMonkColour1,10))
or (FindObj(x,y,monstername,ZMonkColour2,10))
or (FindObj(x,y,monstername,ZMonkColour3,10)) then
begin
Curse();
Writeln('Found monk');
MMouse( x,y,5,2);
Mouse(x,y,1,1,true);
Casted:= Casted +1;
end else
if (Not(FindObj(x,y,monstername,ZMonkColour1,10)))
or (Not(FindObj(x,y,monstername,ZMonkColour2,10)))
or (Not(FindObj(x,y,monstername,ZMonkColour3,10))) then
begin
i:= 0;
repeat
i:= i +1;
Case random (4) Of
0: Makecompass ('s')
1: Makecompass ('n')
2: Makecompass ('w')
3: Makecompass ('e')
end;
// proud of this! :)
until(i = 15)
writeln('Monk was not found.');
Logout;
end;
end;

Corrected, also i fixed your random for compass change. you had Case random (3) Of, which means it returns 0,1,2 but you have 3 in your case.. Use Case random (4) Of

lanky_dude1

2007-11-09 17:06:30

God Script, im a n00b to and this helps alot for lvling up pure mage pkers

Zezi

2007-11-09 20:35:24

Lanky smells like a leach, did you even TRY the script.

bhavikh77

2007-11-24 15:22:49

my one dont work mi one wont let me enter the username in plz help

ZaSz

2007-11-24 15:29:33

From: bhavikh77
my one dont work mi one wont let me enter the username in plz help


First off dont spam cause all you need to do is go to declare players and enter username and password. DON'T SPAM.

bhavikh77

2007-11-24 15:45:16

im no spamin mi one wont enter the bloody user name n pass n i have them entered in the scipt if u want i can take a video all im askin for is some help im running vista maybe this may be the problem

pk 4 life90

2007-11-24 15:57:40

could you help me out? i entered all the information than i ran the script, it logged me in and than did nothing? what am i doing wrong?

bhavikh77

2007-11-24 16:06:55

r u next to the monk in varrock castle

pk 4 life90

2007-11-24 16:15:50

yeah, of course

bhavikh77

2007-11-24 16:20:35

try it this way logg in first then run the script thats the only way i can seem to get it to work

pk 4 life90

2007-11-24 16:24:55

it still didn't work?

bhavikh77

2007-11-24 18:37:26

——————————————–
Auto curser – boxcrop version 0.5
——————————————–
Time ran for:20 Minutes and 8 Seconds
curses casted:366
Total experiane gained:10614
——————————————–
Successfully executed

had to stop beacuse the thief came and my username n password and nick name dont does any1 have a solution for this coz its not just for this script its for all the scripts i enter my user name in the scripts or the form n when i run it i click on login clicks on udername then password then username n trys to login with out anthing written
part from that this script is wicked!!!!1

sluder4

2007-11-24 21:36:39

nice script worked and successfully compiled ill save this for later use

scott19911

2007-11-25 01:38:36

worked 5 minuts 3 sec then quit

pshynosis

2007-11-25 08:44:39

Lookig nice for you first

bhavikh77

2007-11-25 17:22:20

——————————————–
Auto curser – boxcrop version 0.5
——————————————–
Time ran for:20 Minutes and 22 Seconds
curses casted:362
Total experiane gained:10498
——————————————–
hears another progy im in love with this script thank u boxcrop

petepmaxx

2007-11-26 04:46:10

sweet ima have 2 try this one out

Dextima

2007-12-03 20:10:23

I made one similar to this, looks good, thanks!

mellowman

2007-12-03 21:54:01

Great first script

souppy

2007-12-04 16:05:57

Nice first script.

souppy

2007-12-04 16:08:24

Nice first script.

souppy

2007-12-04 16:10:39

Nice first script. :f:

Aqua`

2007-12-04 17:48:26

Hey, my first post!

Well, nice script for a first, I'm new to SRL, I'm sure this will help lots. XD

ryuraito

2007-12-04 17:50:04

nice idea i think ill give it a try soon

Ollie A

2007-12-08 04:43:11

[BANANA]Cool first script[/BANANA]

adzi

2007-12-08 19:56:42

kinda nice for a first script

corre

2007-12-26 14:06:52

Very nice script im using it atm but havent got a random does it deal with them well?

corre

2007-12-26 14:29:21

man… i think antirandom didnt work i appeared in the middle of alkharid lol