Results 1 to 3 of 3

Thread: More Access Violation

  1. #1
    Join Date
    Oct 2007
    Location
    Florida
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default More Access Violation

    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.

  2. #2
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    end else
      DropItems;
       end;

    Seems to be the problem. Why is that there?

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  3. #3
    Join Date
    Oct 2007
    Location
    Florida
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It repeats the procedure until InvFull = True

    According to the line that the error happens in, it has something to do with InvFull

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Access violation...
    By mikevskater in forum OSR Help
    Replies: 3
    Last Post: 02-06-2008, 07:28 AM
  2. Access Violation
    By Mute in forum OSR Help
    Replies: 5
    Last Post: 11-18-2007, 01:32 AM
  3. Access Violation?
    By ~alex~ in forum OSR Help
    Replies: 7
    Last Post: 03-31-2007, 05:47 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •