SRL Archive - Archive

quazzymodem - SRL Member Application

quazzymodem

2011-11-15 23:21:24

How Long have You Played Runescape?
10 Year(s)

Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
Kaitnieks

What is your general programming knowledge?
Somewhat limited, I'm a networking major though, and I have a brief understanding of webbased languages, as well as I used to write scripts for scar a loooong time ago.

Are you a member of any other communities?
Mopar's
Sythe
uLake
rs-hacking

Tell us about yourself…

From: quazzymodem
I am a Canadian student, currently studying Networking at a post secondary level. I have been in the runescape cheating community for several years, and was a very active scripter before my schedule started to get too busy between work and school.

Please show us one (or multiple) of your scripts.

This is a very old fletching script that I made, I'm almost 100% positive this wont compile with current srl/simba versions, but I havnt had enough time to write a full script due to other priorities. I have edited other working scripts with added functionality though. 

program Outdatedfletch;
{.include SRL/SRL.scar}
var
bowarea,bowtype,i: Integer;
Const StartPlayer = 0;
amounttrips=2;
AutoResp = false;
RGBoxes = False;
Procedure DeclarePlayers;
begin
bowtype:=2;
HowManyPlayers:=1;

NumberOfPlayers(HowManyPlayers);
CurrentPlayer := StartPlayer;

Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='';
Players[0].Active:=True;
end;
procedure clickwhere;
begin
if(bowtype=1)then
begin
bowarea:=105;
end;
if(bowtype=2)then
begin
bowarea:=240;
end;
end;
procedure setup;
begin
setupsrl;
end;

function FQRandoms :Boolean;
var
RL: Integer;
begin
for RL:=1 to 17 do
begin
case RL of
1: CloseWindow;
2: if FindTalk then
Result := True;
3: if FindDead then
Result := True;
4: if FindMod then
Result := True;
5: if FindMime then
Result := True;
6: if FindMaze then
Result := True;
7: if FindQuiz then
Result := True;
8: if FindDemon then
Result := True;
9: if FindScapeRune then
Result := True;
10: if FindTalk then
Result := True;
11: if FindLamp(LampSkill) then
Result := True;
12: if (FindNewBox) then
begin
Result := True;
if(RGBoxes = True)then
begin
if(not(GambleNewBox))then
LogOut;
end else
SolveBox;
end;
13: if FindTrade then
Result := True;
14: begin
if NoGameTab then
begin
if ( SolveFrog ) then Exit;
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
15: if SolvePinball then
Result := True;
16: AntiBan;
17: if(FindFight)then
begin
RunAwayDirection('S');
RunBack;
end;
end;
wait(15);
end;
end;

procedure antirandoms;
begin
Findnormalrandoms;
AntiBan;
FQrandoms;
end;
procedure banker;
begin
if(FindColor(x,y,2184286,701,439,724,448))then
begin
antirandoms;
Wait(1246+random(83));
FQrandoms;
Findnormalrandoms;
MoveMouseSmoothEx(580,225+random(2),20,40,45,25,20 );
Wait(750+random(73));
HoldMouse(580,255,true)
ReleaseMouse(580,255,true)
FQrandoms;
Findnormalrandoms;
Wait(246+random(83));
MoveMouseSmoothEx(709,447+random(2),20,40,45,25,20 );
Wait(750+random(73));
HoldMouse(709,447,true)
ReleaseMouse(709,447,true)
antirandoms;
Wait(4235+random(83));
MoveMouseSmoothEx(240,410+random(2),20,40,45,25,20 );
Wait(750+random(73));
HoldMouse(240,410,false)
ReleaseMouse(240,410,false)
FQrandoms;
Findnormalrandoms;
wait(2235+random(83));
MoveMouseSmoothEx(240,425+random(2),20,40,45,25,20 );
Wait(750+random(73));
HoldMouse(240,425,true)
ReleaseMouse(240,425,true)
FQrandoms;
Findnormalrandoms;
Wait(1250+random(83));
SendKeys('1');
wait(132+random(44));
SendKeys('2');
wait(142+random(44));
SendKeys('3');
wait(121+random(44));
SendKeys(chr(13))
wait(25000+random(566));
end;
antirandoms;
MoveMouseSmoothEx(260,130+random(2),20,40,45,25,20 );
Wait(250+random(75));
HoldMouse(260,130,false)
ReleaseMouse(260,130,false)
Wait(785+random(75));
MoveMouseSmoothEx(260+random(2),170+random(2),20,4 0,45,25,20);
Wait(1250+random(75));
ClickMouse(260+random(3),170+random(3),true);
Wait(1000+random(75));
if(FindColor(x,y,1777699,470,80,480,96))then
begin
MoveMouseSmoothEx(474,85+random(2),20,40,45,25,20) ;
Wait(500+random(75));
HoldMouse(474,85,true)
ReleaseMouse(474,85,true)
end;
Wait(150+random(75));
MoveMouseSmoothEx(630,225+random(2),20,40,45,25,20 );
Wait(250+random(75));
HoldMouse(630,225,false)
ReleaseMouse(630,225,false)
Wait(554+random(83));
MoveMouseSmoothEx(630,300+random(2),20,40,45,25,20 );
Wait(212+random(73));
HoldMouse(630,300,true)
ReleaseMouse(630,300,true)
end;
procedure takeit;
begin
Wait(1233+random(83));
MoveMouseSmoothEx(95,75+random(2),20,40,45,25,20);
Wait(212+random(73));
HoldMouse(95,75,false)
ReleaseMouse(95,75,false)
Wait(642+random(83));
MoveMouseSmoothEx(95,150+random(2),20,40,45,25,20) ;
Wait(750+random(73));
HoldMouse(95,150,true)
ReleaseMouse(95,150,true)
end;
procedure exitout;
begin
Wait(879+random(83));
MoveMouseSmoothEx(484,36+random(2),20,40,45,25,20) ;
Wait(750+random(73));
HoldMouse(484,36,true)
ReleaseMouse(484,36,true)
end;

procedure useknife;
begin
antirandoms;
Wait(1246+random(83));
FQrandoms;
Findnormalrandoms;
Wait(1246+random(83));
MoveMouseSmoothEx(580,225+random(2),20,40,45,25,20 );
Wait(750+random(73));
HoldMouse(580,255,true)
ReleaseMouse(580,255,true)
FQrandoms;
Findnormalrandoms;
Wait(246+random(83));
MoveMouseSmoothEx(625,225+random(2),20,40,45,25,20 );
Wait(750+random(73));
HoldMouse(625,225,true)
ReleaseMouse(625,225,true)
end;
procedure cutem;
begin
antirandoms;
Wait(4235+random(83));
MoveMouseSmoothEx(240,410+random(2),20,40,45,25,20 );
Wait(750+random(73));
HoldMouse(240,410,false)
ReleaseMouse(240,410,false)
FQrandoms;
Findnormalrandoms;
wait(2235+random(83));
MoveMouseSmoothEx(240,425+random(2),20,40,45,25,20 );
Wait(750+random(73));
HoldMouse(240,425,true)
ReleaseMouse(240,425,true)
FQrandoms;
Findnormalrandoms;
Wait(1250+random(83));
end;
procedure TypeSend1;

begin
SendKeys('1');
wait(132+random(44));
SendKeys('2');
wait(142+random(44));
SendKeys('3');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure TypeSend2;

begin

SendKeys('9');
wait(132+random(44));
SendKeys('8');
wait(142+random(44));
SendKeys('7');
wait(121+random(44));
SendKeys(chr(13))

end;


procedure TypeSend3;
begin

SendKeys('6');
wait(132+random(44));
SendKeys('7');
wait(142+random(44));
SendKeys('7');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure TypeSend4;

begin

SendKeys('1');
wait(132+random(44));
SendKeys('3');
wait(142+random(44));
SendKeys('3');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure TypeSend5;

begin

SendKeys('7');
wait(132+random(44));
SendKeys('7');
wait(142+random(44));
SendKeys('7');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure TypeSend6;

begin

SendKeys('1');
wait(132+random(44));
SendKeys('2');
wait(142+random(44));
SendKeys('2');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure TypeSend7;

begin
SendKeys('8');
wait(132+random(44));
SendKeys('2');
wait(142+random(44));
SendKeys('5');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure TypeSend8;

begin

SendKeys('1');
wait(132+random(44));
SendKeys('2');
wait(142+random(44));
SendKeys('3');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure TypeSend9;

begin
SendKeys('5');
wait(132+random(44));
SendKeys('2');
wait(142+random(44));
SendKeys('3');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure TypeSend10;

begin

SendKeys('6');
wait(132+random(44));
SendKeys('7');
wait(142+random(44));
SendKeys('9');
wait(121+random(44));
SendKeys(chr(13))

end;


procedure choosetypesend;
begin
wait(2000);
case random(10) of
0: TypeSend1;
1: TypeSend2;
2: TypeSend3;
3: TypeSend4;
4: TypeSend5;
5: TypeSend6;
6: TypeSend7;
7: TypeSend8;
8: TypeSend9;
9: TypeSend10;
end;
end;
procedure finisher;
begin
FQrandoms;
Findnormalrandoms
wait(50000+random(123));
wait(1000);
if(FindColor(x,y,2184286,701,439,724,448))then
begin
antirandoms;
Wait(1246+random(83));
FQrandoms;
Findnormalrandoms;
MoveMouseSmoothEx(580,225+random(2),20,40,45,25,20 );
Wait(750+random(73))
;
HoldMouse(580,255,true)
ReleaseMouse(580,255,true)
FQrandoms;
Findnormalrandoms;
Wait(246+random(83));
MoveMouseSmoothEx(709,447+random(2),20,40,45,25,20 );
Wait(750+random(73));
HoldMouse(709,447,true)
ReleaseMouse(709,447,true)
antirandoms;
Wait(4235+random(83));
MoveMouseSmoothEx(240,410+random(2),20,40,45,25,20 );
Wait(750+random(73));
HoldMouse(240,410,false)
ReleaseMouse(240,410,false)
FQrandoms;
Findnormalrandoms;
wait(2235+random(83));
MoveMouseSmoothEx(240,425+random(2),20,40,45,25,20 );
Wait(750+random(73));
HoldMouse(240,425,true)
ReleaseMouse(240,425,true)
FQrandoms;
Findnormalrandoms;
Wait(1250+random(83));
SendKeys('1');
wait(132+random(44));
SendKeys('2');
wait(142+random(44));
SendKeys('3');
wait(121+random(44));
SendKeys(chr(13))
wait(25000);
end;
end;




procedure progress;
begin
Writeln(' Got about '+inttostr(i*1120)+(' XP.'));

end;
procedure Typer1;

begin
SendKeys('w');
wait(132+random(44));
SendKeys('o');
wait(142+random(44));
SendKeys('w');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure Typer2;

begin

SendKeys('Y');
wait(132+random(44));
SendKeys('o');
wait(142+random(44));
SendKeys('.');
wait(121+random(44));
SendKeys(chr(13))

end;


procedure Typer3;
begin

end;

procedure Typer4;

begin


end;

procedure Typer5;

begin


end;

procedure Typer6;

begin

SendKeys('u');
wait(132+random(44));
SendKeys('g');
wait(142+random(44));
SendKeys('h');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure Typer7;

begin
SendKeys('b');
wait(132+random(44));
SendKeys('o');
wait(142+random(44));
SendKeys('r');
wait(132+random(44));
SendKeys('i');
wait(142+random(44));
SendKeys('n');
wait(142+random(44));
SendKeys('g');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure Typer8;

begin

SendKeys('c');
wait(132+random(44));
SendKeys('u');
wait(142+random(44));
SendKeys('t');
wait(121+random(44));
SendKeys(chr(13))

end;

procedure Typer9;

begin
end;

procedure Typer10;

begin


end;


procedure choosetype;
begin
wait(2000);
case random(10) of
0: Typer1;
1: Typer2;
2: Typer3;
3: Typer4;
4: Typer5;
5: Typer6;
6: Typer7;
7: Typer8;
8: Typer9;
9: Typer10;
end;

end;





begin
repeat
i:= i + 1;
setup;
DeclarePlayers;
antirandoms;
banker;
takeit;
exitout;
useknife;
cutem;
choosetypesend;
progress;
choosetype;
finisher;
until(i >= 33);
end.
Reply With Quote

Nava2

2011-11-15 23:35:18

I'm sorry, but you really need to write a script for the current RuneScape client. That means you need to use the latest SRL and have it working.

Check out the tutorial island, it seems like you have some of the basics already. Just make use of the resources you have available and apply again in a few weeks.

YoHoJo

2011-11-15 23:58:56

Also it's COPPIED SCRIPT!
http://www.sythe.org/showthread.php?t=177983
BUSTED!
Man it has been TOO LONG since I've busted someone!