SRL Archive - RS3 Outdated / Broken Scripts

Good's Good CURSE!!


Goodpeople

2009-01-05 00:13:31

Well, here it is!! finished!! i hope it works it did my 500 casts flawlessly

position dude infront of zamorak cage in varrok castle thingy, log out and hit play

ENJOI

Goodpeople:duh: :duh:


HUGE THANKS TO BENJAA

Aser

2009-01-05 00:30:26

You might want to add some AntiBan…

Also like I said before the MakeCompass('w'); doesn't need its own procedure, that is a waste of space. It is only one line of code. You added an extra 4, but that's just me wanting to do things the easy way. Same with CastOn().

Goodpeople

2009-01-05 00:39:41

i like it and it works

Aser

2009-01-05 00:53:07

I'm just saying…'Have fun when your account gets banned because you have absolutely no antiban in there.'

Try adding…
procedure AntiBan;
begin
if not LoggedIn then Exit;
case(Random(75)) of
1:HoverSkill('Attack',False);
7:GameTab(1);
16:RandomMovement;
20:HoverSkill('Strength',False);
24:HoverSkill('Hitpoints', False);
37:BoredHuman;
50:Wait(2000 + random(1000));
end;
end;

Call for it right after FindNormalRandoms; You can always get rid of a few of them and I would change one of the HoverSkills to 'Magic'.

You don't have to change it, I'm just trying to be helpful.

benjaa

2009-01-05 01:27:37

procedure Report;//call this after Clikin
begin
ClearDebug;
Writeln('Good`s Good Curse-Crusher');
Writeln('by Goodpeople, with help from benjaa');
Writeln('Worked for '+TimeRunning);
Writeln('Cursed approx. '+IntToStr(i)+' times');
Writeln('Thanks for testing');
end;

And failsafes
procedure Clikin;
begin
if(not LoggedIn)then exit;
CastOn('curse', 'amorak', 3949474, 10);
Wait(RandomRange(2000, 3500));
end;

Blumblebee

2009-01-05 10:26:12

From: benjaa

And failsafes
procedure Clikin;
begin
if(not LoggedIn)then exit;
CastOn('curse', 'amorak', 3949474, 10);
Wait(RandomRange(2000, 3500));
end;


why not something more like

procedure Clikin;
var
I: Integer;
begin
if ( I = 10 ) then Nextplayer(False); //you can change 10 to any number you deem proper.
//So If "I" ends up reaching/equalling (if thats a word) then it goes to the next player.
if(not LoggedIn)then exit;
if not CastOn('curse', 'amorak', 3949474, 10) then
begin
WriteLn('Can'#39't Find Whatever it is this scripts supposed to be finding'); // #39 = ' (incase you were wondering)
Inc(I); // "I" is increased everytime the script does not find the npc
end else
I := 0; //"I" is reset if the CastOn() is sucessful.
Wait(RandomRange(2000, 3500));
end;

This only works if CastOn() is a boolean, which I'm pretty sure it is. if there's anything you dont understand, I'll try to go through it a bit more carefully. Hope it helps

Edit: You left your username and pass in your script! I'll pm you the new one.

Phran6

2009-01-13 19:13:54

where we can get the script ?

Goodpeople

2009-01-14 16:40:27

its gon and its in the first script under goodpeoples curse crusher