//THIS SCRIPT IS A NORMAL ALCHING SCRIPT SHOWING A COUPLE TUTS.
//To Who ever Gives This script a edit. Give me "Ryan" Credit!!
program clicker;
{$i srl/srl/misc/smart.simba}
{$i srl/srl.simba}
{$i SRL/SRL/misc/paintsmart.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers)
CurrentPlayer := 0;
//Editing Starts Here.
Players[0].Name := 'ryanyukon199'; // Runescape Username
Players[0].Pass := 'born2bme13'; // Runescape Password
Players[0].Nick := 'ryan'; // 3-4 lowercase letters from username; used for random event detection
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := '2783'; // Leave blank if the player doesn't have a bank pin
Players[ 0].Booleans[ 1] := True; //Would you like to have the XP Counter on?
//WAIT! DON't GO ANY FURTHER! - stop
end;
var
foodnumber,T,Exp,Charms,XPH,BMP,Kills,MSpeed,RandA mount:Integer;
OldXP, TimeSinceFight: Integer;
DCols: Array of Integer;
Drops: Array of String;
Procedure PrintOnSmart(TP: TStringArray; Placement: TPoint; Colour: integer);
var
mx, my, Pic, I, B, H, TPH, Numb: Integer;
TTP: TPointArray;
Canvas: TCanvas;
begin
SmartSetDebug(True);
GetClientDimensions(mx, my);
Pic := BitmapFromString(mx, my, '');
TPH := High(TP);
for I := 0 to TPH do
begin
TTP := LoadTextTPA(TP[i], SmallChars, H);
for B := 0 to High(TTP) do
begin
Numb := ((I + 1) * 13);
FastSetPixel(Pic, TTP[b].x + 1, TTP[b].y + Numb + 1,8388736);
FastSetPixel(Pic, TTP[b].x, TTP[b].y + Numb, Colour);
end;
end;
Canvas := TCANVAS.Create;
Canvas.Handle := SmartGetDebugDC;
DrawBitmap(Pic, Canvas, Placement.x, Placement.y);
FreeBitmap(Pic);
end;
Procedure Proggy;
begin
ClearDebug;
Writeln('***************************************** ***');
Writeln('* |*/\Ryans Alcher V1/\*| *');
Writeln('***************************************** ***');
Writeln('* Time Ran = ' + TimeRunning + '');
Writeln('* Exp Gained = ' + IntToStr(Exp) + 'EXP');
Writeln('***************************************** ***');
End;
procedure Repeatalch;
var
numberOfWaits,startagain: Integer;
begin
repeat
Mouse(574 + Random(8),(369 + random(5)),0,0,true); //Clicking Spell
Wait(101 + Random(50)); //Clicking Spell wait time
Mouse(574 + Random(8),(369 + random(5)),0,0,true); //Clicking Item To Alch
Wait(290 + Random(50)); //Clicking Item TO alch wait time
Proggy;
begin
Inc(Kills);
Exp :=(Kills*65);
end;
PrintOnSmart(['Time Ran: ' + TimeRunning + ''], Point(208, 312), 255);
Inc(numberOfWaits);
until(numberOfWaits = (99999)); //< Number of items to alch.
//It Loops From "repeat" To here.-------------- It will loop 10,000 Times as shown
//Once Looped 10,000 Times It will Do The following
Writeln('Ran Out Of Items To Alch');
Writeln('Logging Off...');
Logout;
Writeln('Logged Out, Have a nice day!');
end;
procedure AntiBan;
var
numberOfWaits: Integer;
begin
repeat
Mouse(544,20,0,0,true);//Clicking North
Wait(500 + Random(50));//Waiting Before Clicking Next Coord
Mouse(532,62,0,0,true);//Clicking Exp
Wait(700 + Random(50));//Waiting Before Clicking Next Coord
Mouse(535,99,0,0,true);//Clicking Money Pouch
Wait(1300 + Random(50));//Waiting Before Clicking Next Coord
Mouse(597,186,0,0,true);
Wait(400 + Random(50));
Mouse(577,360,0,0,true);
Wait(2000 + Random(50));
Mouse(740,20,0,0,true);//<< Exits Out Of Magic INterface.
Wait(2000 + Random(50));
Mouse(748,186,0,0,true);
Wait(1250 + Random(50));
Inc(numberOfWaits);
until(numberOfWaits = (1)); //< Times To Do AntiBan Repeated.
Writeln('AntiBan Working.');
end;
begin
// These 4 lines HAVE to be set BEFORE you call SetupSRL;
Smart_Server := 72; //What World you would like to be on.
Smart_Members := True; //If you're members or not
Smart_Signed := True;
Smart_SuperDetail := False; //Just Keep at false.
ClearDebug; //<< Clears White Box Under Script.
SetupSRL; //<< Setting Up SRL
DeclarePlayers; // Calls the procedure, you can't forget this!
LoginPlayer; // You want your player to login, right?
Wait(4901 + Random(99));
Mouse(748,186,5,6,true);
Writeln('AntiBan Testing...');
AntiBan; //<< AntiBan Section Announced In the Main Loop Line.
Proggy; //<< Proggy Announced In the Main Loop Line.
Writeln('Starting To Alch.'); //<< Saying something in the cmd
Writeln('Alching!');
Writeln('Created By Ryan');
Repeatalch;
Proggy;
end.
//end of looping