PDA

View Full Version : Adding Randoms And Antiban



RudeBoiAlex
05-02-2007, 08:23 PM
How to add randoms and antiban to you're script

---------- My First Tut ---------


Ok im considering you know some scar knowledge just the basics of the basics.


--------------------------Randoms---------------------------

Ok somewere were you want to declare randoms put Procedure Randoms; It does not have to be Randoms; itcan be anything but make sure you put ; on the end of it.After that put Begin. so you have this


Procedure Randoms;
Begin


Now Under Begin put Findnormalrandoms;
Then under thaat put End; so that ends the procedure

final outcome should be

Procedure Randoms;
Begin
Findnormalrandoms;
End;
Very SIMPLEEE


<<<<<<------------Anitban----------->>>>>>

Ok put Procedure Antibanactions; or what ever name you want it to be.There are alot of ways of antiban here i will show you some of them.


Procedure AntiBanActions;
var
DBanMe: Integer;
begin
DBanMe:= Random(10);
case DBanMe of

0: RandomRClickEvery(2 + Random(13));
1: HoverSkill('Mining', False);
2: RandomChatEvery(10 + Random(5));
3: RotateEvery(20 + Random(10));
4: LeaveScreenEvery(5 + Random(5));
5: HoverEvery(15 + Random(5), 'Attack');
6: PickUpMouse;
7: BoredEvery(9 + Random(24));
8: DragItem(1, 1 + Random(18));
9: GameTab(1 + Random(12));
10: RotateEvery(7 + random(4));
end;
end; now i added in a
Var
DBanMe: integer; that just means when i say DBanMe scar will know that means a number/numbers.In Begin I Put DBanMe:= Random(10) then Case DBanMe of 1. then 2. ect..... that means it will pick a randon number up to 10 and perform that antiban action.

Here are just some antiban moves...

HoverSkill('Mining', False); this will how the mining skill.
GameTab(1 + Random(12)); that will click any gametab (a gametab it like the inventory tab the fighting tab ect...).

RotateEvery(7 + random(4)); That will rotate the screen every 7 + a random 1 - 4 secs.

THANKS FOR LOOKING AT MY TUT its my first ;) :spot: :D :sasmokin: :) :p :f:

steth1010
05-02-2007, 10:11 PM
It doesn't really teach you more just like giving us it. Start from scratch and say what is all about and what is does and used for. It's pretty good for first TUT but its more like giving you my antirandoms and ban then a tut. Try doing this


Procedure Randoms;
Begin
Findnormalrandoms;
End;

Say something like, what this will do and used for blah blah and go into details and start from scratch like



Program New;//Make name
Procedure Anyname;//I added procedure i'll explain later. Change name.
begin
Write what ever you want//then tell them why etc and teach them it not just give them it

begin// tell them why you are repeating this and how to make it repeat so
repeat// there randoms actualy work
Anyname
until(false)// until(whenever);
end.

Good tut i guess for your first one. Keep trying!

My basic tut for intermedites/Advanced coming soon!

RudeBoiAlex
05-03-2007, 04:02 PM
thanks i look nfoward for ur tut to

takemu
06-06-2007, 11:13 PM
Failed when compiling
Line 11: [Error] (14761:4): Unknown identifier 'RandomRClickEvery' in script

is that because i didn't use includes?

if it is, which should i use?

stupedspam
06-07-2007, 12:16 AM
Yes you need includes... Just add this under Program...

Program New;
{.Include SRL/SRL.scar}
Procedure{name of procedure};
begin
//then your script

Hope this helps :D
~Stupedspam

takemu
06-07-2007, 01:19 AM
Program New;
{.Include SRL/SRL.scar}
Procedure AntiBanActions;
var
DBanMe: Integer;
begin
DBanMe:= Random(10);
case DBanMe of

0: RandomRClickEvery(2 + Random(13));
1: HoverSkill('Mining', False);
2: RandomChatEvery(10 + Random(5));
3: RotateEvery(20 + Random(10));
4: LeaveScreenEvery(5 + Random(5));
5: HoverEvery(15 + Random(5), 'Attack');
6: PickUpMouse;
7: BoredEvery(9 + Random(24));
8: DragItem(1, 1 + Random(18));
9: GameTab(1 + Random(12));
10: RotateEvery(7 + random(4));
end;
end;


still get this:
Line 10: [Error] (14760:4): Unknown identifier 'RandomRClickEvery' in script

dialeyj2
06-09-2007, 02:22 AM
Ya i got the same thing as takemu:(

joshie
06-13-2007, 03:29 PM
Ya i got the same thing as takemu:(

use 2,6(srl)

if not use scar 2,03.

x13om13e12x
06-18-2007, 05:02 PM
there is 2 things wrong with yoru anti ban, the hover skill doesnt change back to the right game tag, so you should put that in. and you have the variable equal to random(10) when it shoudl be random (11) because you actually have 11 including 0.

Stevee
06-23-2007, 07:56 AM
lil short lol.

CodyTheBaddie
09-27-2007, 03:17 AM
Every good script should have anti ban + randoms. So thanks for this tut. Just another thing I will add onto mine once I get time to learn. Thanks!

kev in hil1
11-18-2007, 03:34 PM
ty helped me alot

randy marsh
08-29-2008, 08:26 PM
where would u put these in script?

Torrent of Flame
08-30-2008, 09:53 AM
Why gravedig an extremely OLD thread.

Surely you should know these are outdated, you were an SRL Member, no?

randy marsh
08-30-2008, 12:17 PM
Coz i was tired and i later knew theses where outdated!

Rich
08-30-2008, 01:00 PM
You can't gravedig threads in the Tutorial Island anymore, due to the new layout.

Anyway to answer your question, all you really have to do is have a procedure like this:

procedure AntiRandoms;
begin
FindNormalRandoms;
end;

And you can call upon that procedure anywhere in your main loop.

Example:

begin
procedure1;
procedure2;
AntiRandoms;
procedure3;
end.

Or you could do this:

begin
AntiRandoms;
procedure1;
AntiRandoms;
procedure2;
end.

You can have it anywhere, any amount of times in your main loop, as long as it's after SetupSRL;

Hope I helped,
Richard

randy marsh
08-30-2008, 01:07 PM
Ok thanks dude

in2it
10-10-2008, 11:03 PM
Nice tut but ur sorta telling us how to do it not teaching us but very good for your first :P