sedakai
06-23-2007, 04:07 PM
from this part of the scrit, anyone see whats wrong ...sry no idea how to put a text box
//ANTIBAN//
procedure DontGetBanned;
begin
if(not(LoggedIn))then
Exit;
case Random(5) of
0: begin
GameTab(5);
Wait(2000 + random(1200));
GameTab(4);
end;
1: begin
HoverSkill('Random', False);
Wait(500+ random (250));
HoverSkill('Woodcutting', False);
end;
2: begin
GameTab(5);
MMouse(590,304,3,3);
Wait(500 + random(300));
Mouse(590,304,3,3,False);
ChooseOption(x,y,'xamine');
Wait(1500 + random(1300));
MMouse(610,261,3,3);
Mouse(610,261,3,3,False);
ChooseOption(x,y,'xamine');
Wait(700 + random(200));
GameTab(4);
end;
3: begin
GameTab(6);
Wait(400 + random(200));
MouseBox(566,209,734,455,3);
Sleep(2000 + random(500));
HoverSkill('random',False);
Wait(500 + random(150));
GameTab(4);
end;
4: begin
GameTab(7);
Wait(500 + random(100));
MouseBox(566,209,734,455,3);
Sleep(3000 + random(1000));
Wait(300 + random(125));
GameTab(4);
end;
5: begin
GameTab(8);
MouseBox(566,209,734,455,3);
Sleep(2000 + random(700));
Wait(500 + random(230));
GameTab(9);
Wait(1000 + random(800));
GameTab(1);
Wait(3000 + random(750));
GameTab(3);
Wait(2500 + random(1200));
GameTab(11);
Wait(1000 + random(250));
GameTab(4);
end;
//PROGRESS REPORT//
procedure Proggy;
begin
ClearDebug;
SRLRandomsReport;
Writeln('*************************************');
Writeln('=========== PROGRESS REPORT =========');
Writeln('Chopped: ' + IntToStr(LoadsA) + ' Loads');
Writeln('Ran For: ' + TimeRunning);
Writeln('Ents Avoided: ' + IntToStr(EntsAvoided) + ' Ents');
Writeln('REMEMBER TO POST PROGRESS REPORTS!!!');
Writeln('=========== HAPPY AUTOING!! =========');
Writeln('*************************************');
end;
//ANTIBAN//
procedure DontGetBanned;
begin
if(not(LoggedIn))then
Exit;
case Random(5) of
0: begin
GameTab(5);
Wait(2000 + random(1200));
GameTab(4);
end;
1: begin
HoverSkill('Random', False);
Wait(500+ random (250));
HoverSkill('Woodcutting', False);
end;
2: begin
GameTab(5);
MMouse(590,304,3,3);
Wait(500 + random(300));
Mouse(590,304,3,3,False);
ChooseOption(x,y,'xamine');
Wait(1500 + random(1300));
MMouse(610,261,3,3);
Mouse(610,261,3,3,False);
ChooseOption(x,y,'xamine');
Wait(700 + random(200));
GameTab(4);
end;
3: begin
GameTab(6);
Wait(400 + random(200));
MouseBox(566,209,734,455,3);
Sleep(2000 + random(500));
HoverSkill('random',False);
Wait(500 + random(150));
GameTab(4);
end;
4: begin
GameTab(7);
Wait(500 + random(100));
MouseBox(566,209,734,455,3);
Sleep(3000 + random(1000));
Wait(300 + random(125));
GameTab(4);
end;
5: begin
GameTab(8);
MouseBox(566,209,734,455,3);
Sleep(2000 + random(700));
Wait(500 + random(230));
GameTab(9);
Wait(1000 + random(800));
GameTab(1);
Wait(3000 + random(750));
GameTab(3);
Wait(2500 + random(1200));
GameTab(11);
Wait(1000 + random(250));
GameTab(4);
end;
//PROGRESS REPORT//
procedure Proggy;
begin
ClearDebug;
SRLRandomsReport;
Writeln('*************************************');
Writeln('=========== PROGRESS REPORT =========');
Writeln('Chopped: ' + IntToStr(LoadsA) + ' Loads');
Writeln('Ran For: ' + TimeRunning);
Writeln('Ents Avoided: ' + IntToStr(EntsAvoided) + ' Ents');
Writeln('REMEMBER TO POST PROGRESS REPORTS!!!');
Writeln('=========== HAPPY AUTOING!! =========');
Writeln('*************************************');
end;