fixed standards a little bit still working on my standards update yay!!! lol
i know no one really uses this so this is my last update unless i get some feedback
have the item you want to alc in your first inventory spot and have plenty of runes in your inventory or a staff of fire on and natures in inventory thanks suggestions are appreciated
SCAR Code:
program alcer;
{.include SRL/SRL.scar}
const
alcs = 23; // how many times you want to alc this item
var
f:integer;
procedure declareplayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'zezima';
Players[0].Pass := 'pwnage123';
Players[0].Nick := 'ezi';
Players[0].Active := True;
end;
procedure AntiRandoms;
begin
if not loggedin then Exit;
FindNormalRandoms;
if FindFight then
RunAway('N', True, 1, 5000);
end;
procedure AntiBan;
begin
if not LoggedIn then Exit;
case (Random(30)) of
1: RandomRClick;
5: HoverSkill('Magic', False);
11: RandomMovement;
15: BoredHuman;
21: DoEmote(400 +Random(90));
24: PickUpMouse;
27:RandomRclick;
30: SleepAndMoveMouse(3600);
end;
end;
procedure possiblerelog;
begin
if not LoggedIn then Exit;
case (Random(10)) of
0:if(f=200)then
begin
logout;
wait(12000+random(200));
loginplayer;
end;
1:if(f=500)then
begin
logout;
wait(60000+random(300));
loginplayer;
end;
2:if(f=1400)then
begin
logout;
wait(18000+random(400));
loginplayer;
end;
3:if(f=2000)then
begin
logout;
wait(20000+random(3000));
loginplayer;
end;
end;
end;
procedure Alc;
begin
if not loggedin then Exit;
Mouse(743,185,3,3,true);
wait(300+random(200));
Mouse(572,350,4,4, true);
wait(1000+random(300));
Mouse(579,227,4,4, true);
wait(1000+random(100));
end;
begin
setupSRL;
activateclient;
if (loggedin) then
logout;
f:=0
begin
loginplayer;
repeat
f:= f+1
AntiBan;
AntiRandoms;
alc;
possiblerelog;
until(f=alcs);
end;
end.