apx900
10-11-2006, 04:19 PM
hi i am working on an anti-logout script ath the moment using srl.
this is only my second script, so please be patient with me.
i need some help in adding anti-randoms.
i would be very greatfull if someone helped me with this script
the error i get is
Successfully compiled
[Runtime Error] : Exception: Access violation at address 0065154B in module 'scar.exe'. Read of address 00000000 in line 620 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Text.scar
and here is my scrip:
program New;
{.include srl/srl.scar}
{.include srl/srl/skill/WoodCutting.scar}
{.Include SRL\SRL\Misc\PlayerForm.scar}
{.Include SRL/SRL/Extended/xMapWalk.Scar}
var
ModulationY:integer;
trips: integer;
/// -_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_ ///
procedure Findrandoms;
begin
Findnormalrandoms;
LeaveScreenEvery(1);
if (FindFight) then
begin
Writeln('Shit were in a freaking fight');
RunAwayDirection('E');
wait(6000 + random(99));
RunBack;
Writeln('That was freaking close! Better be glad im watching you!');
end;
end;
Procedure SetModulationy;
begin
ModulationY:=0
ModulationY:=random(2)+1;
end;
procedure Report;
begin
Trips := Trips + 1
wait(500 + random(345))
end;
procedure ProgressReport;
begin
writeln(' ');
writeln('<=================Progress Report================ > ');
writeln('Modulated And Clicked ' + inttostr(Trips) + ' times.');
writeln(' ');
writeln('<=================Randoms Report================ > ');
writeln(' This Script Dosent Have AntiRandoms ');
writeln(' If You Would Like To Help Me Make AntiRandoms ');
writeln(' Please Contact Apx900 On Fagex.net ');
writeln(' ');
writeln('<================================================ > ');
end;
Procedure Clicking;
begin
SetModulationy;
Clickmouse(590,190 + Random(2),true)
Report;
ProgressReport;
Wait(30000 + Random(10000));
SetModulationy;
Clickmouse(652,183 + Random(1),true)
Report;
ProgressReport;
Wait(30000 + Random(10000));
SetModulationy;
Clickmouse(576,178 + Random(2),true)
Report;
ProgressReport;
Wait(30000 + Random(10000));
SetModulationy;
Clickmouse(715,182 + Random(3),true)
Report;
ProgressReport;
Wait(30000 + Random(20000));
SetModulationy;
Clickmouse(554,192 + Random(3),true)
Report;
ProgressReport;
Wait(30000 + Random(20000));
SetModulationy;
Clickmouse(715,182 + Random(3),true)
Report;
ProgressReport;
Wait(15000 + Random(10000));
end;
Procedure actualwork;
begin
SetModulationy;
Clicking;
SetModulationy;
Clicking;
repeat
until(false)
end;
Begin
Findrandoms;
actualwork;
end.
this is only my second script, so please be patient with me.
i need some help in adding anti-randoms.
i would be very greatfull if someone helped me with this script
the error i get is
Successfully compiled
[Runtime Error] : Exception: Access violation at address 0065154B in module 'scar.exe'. Read of address 00000000 in line 620 in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Text.scar
and here is my scrip:
program New;
{.include srl/srl.scar}
{.include srl/srl/skill/WoodCutting.scar}
{.Include SRL\SRL\Misc\PlayerForm.scar}
{.Include SRL/SRL/Extended/xMapWalk.Scar}
var
ModulationY:integer;
trips: integer;
/// -_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_ ///
procedure Findrandoms;
begin
Findnormalrandoms;
LeaveScreenEvery(1);
if (FindFight) then
begin
Writeln('Shit were in a freaking fight');
RunAwayDirection('E');
wait(6000 + random(99));
RunBack;
Writeln('That was freaking close! Better be glad im watching you!');
end;
end;
Procedure SetModulationy;
begin
ModulationY:=0
ModulationY:=random(2)+1;
end;
procedure Report;
begin
Trips := Trips + 1
wait(500 + random(345))
end;
procedure ProgressReport;
begin
writeln(' ');
writeln('<=================Progress Report================ > ');
writeln('Modulated And Clicked ' + inttostr(Trips) + ' times.');
writeln(' ');
writeln('<=================Randoms Report================ > ');
writeln(' This Script Dosent Have AntiRandoms ');
writeln(' If You Would Like To Help Me Make AntiRandoms ');
writeln(' Please Contact Apx900 On Fagex.net ');
writeln(' ');
writeln('<================================================ > ');
end;
Procedure Clicking;
begin
SetModulationy;
Clickmouse(590,190 + Random(2),true)
Report;
ProgressReport;
Wait(30000 + Random(10000));
SetModulationy;
Clickmouse(652,183 + Random(1),true)
Report;
ProgressReport;
Wait(30000 + Random(10000));
SetModulationy;
Clickmouse(576,178 + Random(2),true)
Report;
ProgressReport;
Wait(30000 + Random(10000));
SetModulationy;
Clickmouse(715,182 + Random(3),true)
Report;
ProgressReport;
Wait(30000 + Random(20000));
SetModulationy;
Clickmouse(554,192 + Random(3),true)
Report;
ProgressReport;
Wait(30000 + Random(20000));
SetModulationy;
Clickmouse(715,182 + Random(3),true)
Report;
ProgressReport;
Wait(15000 + Random(10000));
end;
Procedure actualwork;
begin
SetModulationy;
Clicking;
SetModulationy;
Clicking;
repeat
until(false)
end;
Begin
Findrandoms;
actualwork;
end.