r4z0rlike
2008-01-14 12:08:20
No anti randoms yet :(.
{==============================================================|
|==============================================================|
* *
* *SCRIPT INFO* *
* *
* # MADE BY : Razorlike *
* # NAME OF SCRIPT : Razors Alcher *
* # DATE STARTED : 12 Jan 2008 *
* # VERSION : 1.3 *
* *
|==============================================================|
* *
* *SCRIPT USAGE* *
* # USAGE : Auto alchs whatever you want *
* # SETUP : The item that you want to alch *
in the 14th spot. *
Enough runes to cast High Alchemy*
* # OTHER : Setup on line 32. *
* # INSTRUCTIONS : *
* 1. Set brightness to VB [Very Bright] *
* 2. Leave your chats how you want. *
*
*==============================================================}
program AutoAlcher;
{.include SRL\SRL.scar}
var
x1,y1: Integer;
AlchTimes: Integer;
HighAlch: Integer;
const
RunDirection = 'N';//What direction do you want to run incase of a fight.
AlchsToDo = 200;//How many items you want to alch
AntiBan = true;//Anti Ban? (true = reccomended)
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Number of PLAYERS. active or not.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Player to start on.
Players[0].Name := 'Username';
Players[0].Pass := 'Password';
Players[0].Nick := 'user';
Players[0].Active := True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
Procedure ProgressReport;
begin
cleardebug;
Writeln('++++++++++++++++++++++');
Writeln('Worked for '+ TimeRunning );
Writeln('You have alched '+ IntToStr(AlchTimes) +' items.');
Writeln('You gained '+ IntToStr(AlchTimes*65) +' magic experience.');
Writeln('++++++++++++++++++++++');
end;
Procedure Navigation;
begin
Gametab(7);
HighAlch := DTMFromString('78DA63CC65626058C0C8800C7E7DE3614801D' +
'220D1FF40C05808543309550D44164602E922A09A9904D49401D5' +
'CC27A00664D762026A5288543397809A1CA09A3904D4E403D54CC' +
'3AF0600F3F80FEB');
if FindDTM(HighAlch, x1, y1, 705, 319, 729, 347)
then Writeln('HighAlch Found') else
begin
writeln('HighAlch not found')
TerminateScript;
end;
end;
procedure AntiBan1;
begin
if(AntiBan=true)then
begin
if(not(LoggedIn))then
Exit;
case Random(5) of
1: begin
HoverSkill('Magic', false);
wait(500+random(500));
Navigation;
end;
2: begin
PickUpMouse;
Navigation;
end;
3: begin
case random(5) of
0: TypeSend('Mage lvls?');
1: Begin
TypeSend('Im bored -.-');
Wait(500+random(100))
TypeSend('Ive been alching for '+ TimeRunning +'Minutes');
end;
2: TypeSend('Only '+ IntToStr(AlchsToDo-Alchtimes) +' alchs left');
3: TypeSend('Hai');
4: TypeSend('Im lagging really bad here');
5: TypeSend('Ooh! its shiny')
6: begin
TypeSend('Dumdiedumdiedum. lalalala');
wait(300+random(200))
TypeSend('Yes, alching is driving me crazy :P');
end;
end;
end;
4: begin;
SleepAndMoveMouse(1000+random(1000));
Navigation;
end;
5: case Random(5) of
1: begin
TypeSend('Logging off for a min. Cya');
LogOut;
wait(50000+random(10000));
Loginplayer;
Navigation;
end;
end;
end;
end;
end;
Procedure Alching;
begin
Mouse(x1, y1, 0, 0, true);
wait(3000+random(200));
Mouse(x1, y1, 0, 0,true);
wait(1000+random(100));
AlchTimes:=AlchTimes + 1
end;
begin
SetupSrl;
DeclarePlayers;
if FindRs then
begin
ActivateClient;
end else
begin
Writeln('No Runescape!!');
TerminateScript;
end;
if(not(loggedin))then loginplayer;
Navigation;
repeat
Alching;
If(AntiBan=true)then
begin
case random(5) of
1: AntiBan1;
end;
end;
until AlchTimes=AlchsToDo;
ProgressReport;
end.