OK, here we go.
First of all, my eyes!! Please learn proper standards :)
var
x1,y1,x2,y2: Integer;
AlchTimes: Integer;
HighAlch: Integer;
Report: integer;
Log: Integer;
equals
var
x1,y1,x2,y2,AlchTimes,HighAlch,Report,Log: Integer;
just a 4 line code shortener.
Put your then's on the same line as your if's. Makes it less confusing to read through.
I don't completely get your navigation procedure?
if(AntiBan=true)then equals if(AntiBan)then
Your antibanz procedure will never do #5. It random(5) picks random number between 0 and 4. Just subtract 1 from each of the numbers in your case.
same thing with the case within your 5th thing. Fix the numbers.
In your alching procedure, if(not(LoggedIn))then Exit; would be appropriate.
Maybe some more if's in there in case something goes wrong too? The more Fail safes the better.
For your alching procedure I think you should call for a game tab each time too, shouldn't you?
Writeln('Taking a break for '+IntToStr(WaitTime*1000)+'MInutes'); You don't need to *1000 there :p it would say waiting for 5000 minutes when actually it's only going to wait for 5.
If(AntiBan=true)then
begin
case random(15) of
1: AntiBanz;
end;
end;
could be
if(AntiBan)then
if(random(15) = 1)then
AntiBanz
I didn't see you use multi player either?
You could probably use anti randoms too because I'm pretty sure you get randoms when alching.
Mouse(x2, y2, 0, 0, true);
wait(1400+random(70));
That will ban you… 70 milliseconds isn't enough randomness, and 0,0 for the random parameters means it will click in the EXACT same spot EVERY time! 5 minutes of this script will get you banned.
Good job though! Just keep reading and learning, try to fix the things I pointed out and this script is on it's way to perfection! :)
Good luck!