- Joined
- Mar 9, 2008
- Sythe Gold
- 0
- Messages
- 720
ok this is my alcer i redid it to make it more human like and it also has anti ban in it this is my first script fixed up bye me so if you think about it its pretty much my second script post what you think about it
also thank you jethr0x for helping me with my errors
also thank you jethr0x for helping me with my errors
Code:
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
program MyFirstAlcer;
{.include SRL/SRL.scar}
{ setup down there lol made bye radiclerobby }
{VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV}
const
alcs = 2; // how many times you want to alc this item
antiban = true; // if you want to use the anti ban where it talks
{^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
{/\/\/\/\/\/\/\/\/\/\/\/\/\/\ setup right up there/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}
var
i:Integer;
procedure nonbanage;
begin
if (i = 20) THEN
begin
typesend('wooo almost done!')
end else
if(i = 45) then
begin
typesend('not much longer now')
end else
if(i =70) then
begin
typesend('omg this is taking forever')
end else
if(i=200) then
begin
typesend('so many alcs to do =(')
end else
if(i=325) then
begin
typesend('my magic level is profiting off this at least')
end else
if(i=450) then
begin
typesend('my mage lvl is none of you bussiness lol')
end;
end;
procedure Alc;
begin
Mouse(571,360,4,4, true);
wait(1000+random(300));
Mouse(579,227,4,4, true);
wait(1000+random(100));
end;
begin
ClearDebug;
i:= 0;
ActivateClient;
RandomMovement;
begin;
mousespeed:=25+random(5)
repeat;
if(antiban = true) then
begin
nonbanage;
end;
i:= i + 1;
gametab(7);
Alc;
until(i = alcs);
end;
begin
pickupmouse;
end;
begin;
Logout;
end;
end.
