SRL Archive - First Scripts

hey all i'm created my 1st script



skiller boy willow chopper


test it plz







thanks :)

Right this is all copied:

Procedure AntiBanMe;
Var
TalkBack, TalkBack1, TalkBack2, TalkBack3, TalkBack4 : Integer;
Begin
If (InChat('hello')) or (InChat('Hi')) or (InChat('hey')) then
TalkBack := Random(5);
case TalkBack of

1: TypeSend('hello');
2: TypeSend('hey');
3: TypeSend('Good Day');
4: TypeSend('Hello, how are you?');
5: TypeSend('ummm hi…');
end;
begin
if (InChat('noob')) then
begin
TalkBack1 := Random(5);
case TalkBack1 of
0: TypeSend('you the noob');
1: TypeSend('your face is a noob.');
2: TypeSend('look in the mirror noob.');
3: TypeSend('choob');
4: TypeSend('you fail.');
5: TypeSend('well, your garbage.');
end;
begin
if (InChat('auto')) or (InChat('autoer')) then
TalkBack2 := Random(5);
case TalkBack2 of
1: TypeSend('??? i don''t do that ???');
2: TypeSend('you wish :)');
3: TypeSend('i never cheated in my life');
4: TypeSend('go away noob.');
5: TypeSend('you auto');
end;
begin
if (InChat('coins')) or (InChat('cash')) or (InChat('gp')) then
TalkBack3 := Random(5)
case TalkBack3 of
1: TypeSend('Gimme money :)');
2: TypeSend('For me?');
3: TypeSend('I want money');
4: TypeSend('Can I get some money');
5: TypeSend('I''m poor and need money please');
end;
begin
if (InChat('lol')) or (InChat('rofl')) or (InChat('lmao')) then
TalkBack4 := Random(5)
case TalkBack4 of
1: TypeSend('-laughs-');
2: TypeSend('pretty funny');
3: TypeSend('ooo');
4: TypeSend('whats so funny?');
5: TypeSend('funny…');
end;
end;
end;
end;
end;
end;
end;

and,

function FindObjMultiText2(var cx, cy: Integer; Ut1, UT2, UT3: string; color,
tolerance: Integer): Boolean;
var
x, y, a, c, i, x1, y1, x2, y2: Integer;
begin
Color := Color;
if (FindColorTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance)) then
begin
x1 := 245;
y1 := 165;
x2 := 277;
y2 := 185;
repeat
if (not (Loggedin)) then
Break;
a := a + 1;
if (a = 1) or (a = 3) then
c := c + 1;
for i := 1 to c do
begin
if (a = 1) then
begin
x1 := x1 + 30;
x2 := x2 + 30;
end
else if (a = 2) then
begin
y1 := y1 - 20;
y2 := y2 - 20;
end
else if (a = 3) then
begin
x1 := x1 - 30;
x2 := x2 - 30;
end
else if (a = 4) then
begin
y1 := y1 + 20;
y2 := y2 + 20;
end;
if (x1 = 485) and (x2 = 517) then
x2 := x2 - 2;
if (y1 = 325) and (y2 = 345) then
y2 := y2 - 7;
if (x2 > 515) then
Break;
if (FindColorTolerance(x, y, Color, x1, y1, x2, y2, tolerance)) then
begin
MMouse(x, y, 0, 0)
Wait(10);
cx := x;
cy := y;
if (IsUpTextMulti(UT1, UT2, UT3)) then
begin
Result := True;
Break;
end;
end;
end;
if (a = 4) then
a := 0;
until (x2 > 515) or (Result = True);
end;
end;

and you havent given any credits apart from 1 thing…

no fail safes… no sig no proggy

you also need more than 1 willow tree color as if your at a certain angle it wont find it and the program shall just hang…

work on alot more m8 instead of copying peoples work and givying them no credit…:f: :fiery: :mad:

Well You Are Right Anti Ban Isin't Me An Fas Randoms Isin't Me

WELL YOU ARE RIGHT ANTIBAN ISIN't me and antirandoms isin't me but this is my first stupid scrit

WELL YOU ARE RIGHT ANTI BAN AND ANTIRANDOMS ISIN'T ME BUT THIS IS MY FIRST STUPID SCRIPT



skiller boy

dont triple post

Wow, you got 5 posts. 1 is the thread 3 are a triple post, one idk where that is but its probably just "hi". Anyways don't copy peoples things. Make your own script, read tutorials, stop being lazzy, look at examples. And lastly give credit where credit is due.

Good Luck. ;)