Hello people
This is the beta release of my new Auto-Alcher! PLZ POST PROGRESS REPORTS!Features
- AntiBan
- AntiRandoms
- Multiple Player
Future Updates
- Smart
- More AntiRandoms
- 24/7 Alching
- Sleep
- Better Auto-Responder
- Banker
THIS SCRIPT HAS NOT YET BEEN TESTED BY ANYONE BUT ME!!! PLZ TEST AND POST UR PROGRESS REPORTS!
Code:
program Jethr0xAlcher;
{.include SRL\SRL.scar}
var
alchs, x, y : integer;
////////////////////////////////////////////////////////////////////////////////
// SETUP HERE!!! //
////////////////////////////////////////////////////////////////////////////////
const
NumOfPlayers = 1; //How Many Autoers?
StartPlayer = 0; //What Player to start with?
Alchstodo = 490; //How Many Alchs Before Logout.
iname = 'ew'; //Enter a few lower case letters of the item... 'ew' is from Yew.
procedure DeclarePlayers;
begin
HowManyPlayers := NumOfPlayers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :=''; //Username,
Players[0].Pass :=''; //Password,
Players[0].Nick :=''; //Nickname 3-4 letters or ur name (NO CAPS!)
Players[0].Active:=True; //Use this Character?
Players[0].Loc := ''; //DO NOT TOUCH!!!!!
Writeln( IntToStr ( HowManyPlayers ) + ' Player[s]' );
end;
procedure StartAlch;
begin
GameTab(7);
wait(1000+random(1000))
MouseBox(566, 362, 577, 365, 1);
wait(500+random(200))
GetMousePos(x, y)
Mouse(x, y, 0, 0, true);
end;
procedure AntiBan;
begin
Case Random(8) of
1: RandomMovement;
2: begin
Gametab(2);
Wait(1000 + random(500));
Gametab(7);
end;
3: begin
Case Random(5) of
0: begin
Gametab(5);
Wait(1000 + random(500));
Gametab(7);
end;
1: begin
Gametab(2);
Wait(1000 + random(500));
Gametab(7);
end;
2: begin
Gametab(9);
Wait(1000 + random(500));
Gametab(7);
end;
3: begin
Gametab(11);
Wait(1000 + random(500));
Gametab(7);
end;
4: begin
Gametab(13);
Wait(1000 + random(500));
Gametab(7);
end;
end;
end;
4: Wait(1000);
5: Wait(1000 + Random(500));
6: Wait(1000 + Random(500));
7: Wait(1000 + Random(500));
8: Wait(1000 + Random(500));
end;
StartAlch;
end;
procedure Report;
begin
Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
Writeln('| Jethr0x''s Alcher Progress Report. PLZ POST!');
Writeln('| Alched '+ IntToStr(Alchs) + ' ' + iname + 's.');
Writeln('| Worked for ' + TImeRunning);
Writeln('| Exp gained '+ IntToStr(alchs*65));
Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
Writeln('Made By Jethr0x!Dont leak or... I WILL RAPE YOU.');
end;
procedure Finished;
begin
if (alchs = alchstodo) then
begin
TypeSend('w000t! '+ IntToStr(AlchsToDO) + ' alchs done :D! bye');
Logout;
report;
end;
end;
{
Procedure AutoRespond;
var
MageLvl2 : integer;
begin
if InChatLine('Hi') or InChatLine('Hey') or InChatLine('sup') or InChatLine('yo') then
begin
wait(1000 + Random(500));
case Random(8) of
0: TypeSend('Hiya');
1: TypeSend('Hi');
2: TypeSend('Heyz');
3: TypeSend('wattup :p');
4: TypeSend('Hola');
5: TypeSend('hai');
6: TypeSend('ello chap :[)');
7: TypeSend('wattup :p');
end;
end else
if InChatLine('Mage') or InChatLine('mage') or InChatLine('magick l') or InChatLine('magik l') then
begin
MageLvl2 := GetSkillInfo('magic', true);
begin
case Random(4) of
0: TypeSend('mai mage is '+ IntToStr(magelvl2) + '.');
1: TypeSend(magelvl);
2: TypeSend('lvl ' + IntToStr(magelvl2) + ' mage.');
3: TypeSend('I''m ' + IntToStr(magelvl2) + '. You?');
end;
end;
end;
end;
}
procedure Alch;
begin
StartAlch;
repeat
if FindTalk then FindNormalRandoms;
wait(400+random(400))
Mouse(x, y, 0, 0, true);
Wait(1800+random(100));
if isUpTextMultiCustom(['Ca','st']) then
begin
Mouse(x, y, 0, 0, true);
Alchs:=Alchs + 1;
Case Random(7) of
0:Wait(100);
1:AntiBan;
2:Wait(100);
3:FindNormalRandoms;
4:Wait(100);
5:Wait(100);
6:Wait(100);
end;
end else
StartAlch;
until alchs=alchstodo;
Finished;
end;
Procedure Setup;
begin
SetupSRL;
wait(1000)
ActivateClient;
wait(1000)
declareplayers;
if(not LoggedIn) then
begin
wait(100);
loginplayer;
end;
end;
///////////////////////////
begin
Setup;
wait(3000)
wait(100)
// AutoRespond;
wait(10)
Alch;
end.i need members before i can update this much more... >.>
