Simple High alcher

This includes a basic anti ban but as of yet no anti randoms so its something you can leave for a little while but not for too long though without checking it this is still in testing so if something doesn't work please tell me =].

Code:

program alch;
var     a: Integer;
        b: Integer;
        x: Integer;
        y: Integer;
        s: Integer;
        user: String;
        pass: String;
        t: Boolean;
begin
//Please make sure the item you are high alching is in your FIRST! slot!)
user:= 'Username';
pass:= 'Password';
a:= 1000;  //Amount of time to do the script)
t:= false; //True is high alch and false is low alch incase you want it)
g:= 1000+random(1000);
MouseBox(400,280,520,300);
wait(random(1000)+200);
GetMousePos(x, y);
ClickMouse(x, y, true);
wait(random(1000)+200);
SendKeysWait(user, 100, 100);
wait(random(100)+100);
KeyDown(9);
wait(random(100)+100);
KeyUp(9);
wait(random(100)+100);
SendKeysWait(pass, 100, 100);
wait(random(1000)+200);
MouseBox(240,310,360,330);
GetMousePos(x, y);
ClickMouse(x, y, true);
wait(random(9000)+1000);
MouseBox(300,310,470,370);
GetMousePos(x, y);
ClickMouse(x, y, true);
wait(random(500)+1000);
MouseBox(730,174,752,194);
wait(random(1000)+200);
GetMousePos(x, y);
ClickMouse(x, y, true);
wait(random(1000)+200);
if (t = true) then begin
repeat
if (s = g) then begin
s:= 0;
MouseBox(747,7,759,20);
wait(random(1000)+200);
GetMousePos(x, y);
wait(random(100)+200);
ClickMouse(x, y, true);
wait(random(1000)+400);
MouseBox(747,7,759,20);
wait(random(1000)+200);
GetMousePos(x, y);
ClickMouse(x, y, true);
wait(1800000+random(1800000));
MouseBox(400,280,520,300);
wait(random(1000)+200);
GetMousePos(x, y);
ClickMouse(x, y, true);
wait(random(1000)+200);
SendKeysWait(user, 100, 100);
wait(random(100)+100);
KeyDown(9);
wait(random(100)+100);
KeyUp(9);
wait(random(100)+100);
SendKeysWait(pass, 100, 100);
wait(random(1000)+200);
MouseBox(240,310,360,330);
GetMousePos(x, y);
ClickMouse(x, y, true);
wait(random(9000)+1000);
MouseBox(300,310,470,370);
GetMousePos(x, y);
ClickMouse(x, y, true);
wait(random(500)+1000);
MouseBox(730,174,752,194);
wait(random(1000)+200);
GetMousePos(x, y);
ClickMouse(x, y, true);
wait(random(1000)+200);
g:= 1000+random(1000);
end;
MouseBox(709,255,719,269);
wait(random(1000)+200);
GetMousePos(x, y);
ClickMouse(x, y, true);
wait(random(1000)+200);
MouseBox(565, 217, 588, 236);
GetMousePos(x, y);
ClickMouse(x, y, true);
b:= b + 1
s:= s + 1
until (b = a)
end;
if (t = false) and (b = 0) then begin
repeat
if (s = g) then begin
s:= 0;
MouseBox(747,7,759,20);
wait(random(1000)+200);
GetMousePos(x, y);
wait(random(100)+200);
ClickMouse(x, y, true);
wait(random(1000)+400);
MouseBox(747,7,759,20);
wait(random(1000)+200);
GetMousePos(x, y);
ClickMouse(x, y, true);
wait(1800000+random(1800000));
MouseBox(400,280,520,300);
wait(random(1000)+200);
GetMousePos(x, y);
ClickMouse(x, y, true);
wait(random(1000)+200);
SendKeysWait(user, 100, 100);
wait(random(100)+100);
KeyDown(9);
wait(random(100)+100);
KeyUp(9);
wait(random(100)+100);
SendKeysWait(pass, 100, 100);
wait(random(1000)+200);
MouseBox(240,310,360,330);
GetMousePos(x, y);
ClickMouse(x, y, true);
wait(random(9000)+1000);
MouseBox(300,310,470,370);
GetMousePos(x, y);
ClickMouse(x, y, true);
wait(random(500)+1000);
MouseBox(730,174,752,194);
wait(random(1000)+200);
GetMousePos(x, y);
ClickMouse(x, y, true);
wait(random(1000)+200);
g:= 1000+random(1000);
end;
MouseBox(709,255,719,269);
wait(random(1000)+200);
GetMousePos(x, y);
ClickMouse(x, y, true);
wait(random(1000)+200);
MouseBox(565, 217, 588, 236);
GetMousePos(x, y);
ClickMouse(x, y, true);
b:= b + 1
s:= s + 1
until (b = a)
end;
end.

PS this is still in testing so i am not liable for anything that happens to your account

 

i dont think you declared 'g' as an integer in the beginning so i did it my self (might wanna check that out)

im a complete noob to scar and am to lazy to check the rest out/ test

 

or get an auto clicker, put hte item in the spot where high alch is, and then turn on the clicker..... and stand next to duel place or in mage arena in the high alch or something place for no randoms.... crude but it works lol and all you need is an autoclicker

 

yea you need to make G in the first spot