Yet again, I have another problem with Runtime Errors and Access Violations..
Here's the error:
Code:
[Runtime Error] : Exception: Access violation at address 0071ED96 in module 'scar.exe'. Write of address 08EE6FA8 in line 201 in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/Inventory.scar
I get this error shortly after the script compiles and starts.
Here's the script:
SCAR Code:
program AutoDropper;
{.include SRL/SRL.scar}
var
Loads: Integer;
Dropped: Integer;
MAdd: Integer;
DropTimer: Integer;
const
DropFrom = 2; // Starts dropping from inventory slot.
DropLoads = 3; // Loads to drop until script terminates.
MSpeed = 20; // How fast loads are dropped; Choose a value between 1-20.
procedure StartSig;
begin
MAdd:=MSpeed+20;
Loads:=DropLoads;
Dropped:= 0;
Wait(3000);
Writeln('-------------------------------');
Writeln('');
Writeln(' Mute/s AutoDropper [v1.8] ');
Writeln('');
Writeln(' Dropping ' + IntToStr(Loads) + ' Loads');
Writeln('');
Writeln('-------------------------------');
end;
procedure DropItems;
begin
If (InvFull) then
begin
Wait(1000+random(50));
Writeln('');
Writeln('Inventory Full; Dropping Load..')
Writeln('');
MarkTime(DropTimer);
MouseSpeed:=MAdd+random(2);
DropToPosition(DropFrom, 28);
Loads:=Loads-1;
Dropped:=Dropped+1;
Writeln('');
Writeln('Load Dropped in ' +IntToStr(TimeFromMark(DropTimer))+ ' ms');
Writeln(+ IntToStr(Loads) + ' Loads left');
end else
DropItems;
end;
procedure CheckLoads;
begin
If (Loads) > 0 then
begin
DropItems;
end else
end;
procedure ProgressReport;
begin
Writeln('------------ Progress Report ----------------');
Writeln('---------------------------------------------');
Writeln('Average Load Time: ' + IntToStr(TimeFromMark(DropTimer))+ ' ms');
Writeln('Script has been running for '+ TimeRunning);
Writeln('Dropped ' + IntToStr(Dropped) + ' Loads.');
Writeln('');
Writeln('---------------------------------------------');
end;
begin
SetupSRL;
Disguise('iTunes')
StartSig;
DropItems;
CheckLoads;
ProgressReport;
end.