Results 1 to 3 of 3

Thread: [Runtime Error] : Exception: Access violation at address 6D89545D in module 'jvm.dll'

  1. #1
    Join Date
    May 2008
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default [Runtime Error] : Exception: Access violation at address 6D89545D in module 'jvm.dll'

    SCAR Code:
    [Runtime Error] : Exception: Access violation at address 6D89545D in module 'jvm.dll'. Read of address 8BC78B76 in line 85 in script C:\SCAR 3.15\includes\srl\srl\misc\smart.scar
    is the error I get when I try and run this
    SCAR Code:
    program New;
    {.include srl\srl\misc\smart.scar}
    {.include srl\srl.scar}
    {.include srl\srl\skill\woodcutting.scar}
    {.include SRL\SRL\Reflection\Reflection.scar}
    var
       x,y,I,LoadsDone,button:integer;

       

    const
    WillowColor = 2965816;  //Fill this in if it can't find the trees.
    WillowColor1 = 9745827;// Another Willow Color.
    Loads2do = 1337;      //  How many loads to do.
    World = 161;         //   World To Auto On.

    Procedure PlayerSetup;
    Begin

      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active:= true;

    end;

    Procedure WillowChoppa;
     begin
       If IsUpText('chop down') then Exit;
          if not FindEnt(x,y,true) then FindObjCustom(x, y, ['hop down','hop','down','Chop Down'], [WillowColor,WillowColor1], 3) else wait(1500+random(200));
           mouse(x,y,2,2,true)
           GetMousePos(x,y)
           MMouse(x,y,1,1)
          While IsUpText('Chop down') do wait(500);
          ClickToContinue;
    End;

    Procedure LoadDTMs;
    begin
      Button := DTMFromString('78DA637CCAC4C0C00DC448A0AFA38E4119483' +
             '302F17F20607C09946745550391859140FA15509E9F809AFB44AA' +
             '216017005B180A7F');
    end;

    Procedure NoAxe;
    begin
      If Not FindAxe then
       begin
         OpenBankReflection('db')
         If FindDTM(Button,x,y,MSX1,MSY1,MSX2,MSY2) then
         begin
          Mouse(x,y,1,1,true)
          Typesend('axe')
         end;
       end;
    end;

    Procedure SetupSmart;
    Begin
      SmartSetupEx(161, True, True, False);
      SetTargetDC(SmartGetDC);
      ReplaceDebugLine(8, 'Loading RuneScape ...');
      Wait(2000);
    end;


    Function PathWalk(Path : array of TPoint; Tol, FlagD : integer): Boolean;
    var
      Count : integer;
    begin
      Count := 0;
      repeat
          Result := WalkToTile(Path[Count], Tol, FlagD);
        if not(Result) then
        begin
          WriteLn('Path walk failed');
          Exit;
        end;
        Count := Count + 1;
      until (not(Result)) or (Count = GetArrayLength(Path))
    end;

    function LoadPath: TPointArray;
    begin
      SetLength(Result, 4);
      Result[0] := Point(3093, 3245);
      Result[1] := Point(3086, 3244);
      Result[2] := Point(3087, 3236);
      Result[3] := Point(3087, 3231);
    end;

    function LoadPath2: TPointArray;
    begin
      SetLength(Result, 4);
      Result[0] := Point(3087, 3231);
      Result[1] := Point(3086, 3244);
      Result[2] := Point(3093, 3246);
      Result[3] := Point(3094, 3242);
    end;

    Procedure WalkToBank;
    Var
      I: Integer;
      Path: TPointArray;

    Begin
      Path := LoadPath2;
      for i := 0 to High(Path) do
        Begin
           WalkToTile(path[i], 3, 0);
        end;
          Wait(500+Random(300));
          //FindSymbol('bank',x,y)
          //mouse(x,y,2,2,true)
    end;

    Procedure WalkToWillows;
    Var
      I: Integer;
      Path: TPointArray;

    Begin
      Path := LoadPath;
      for i := 0 to High(Path) do
        Begin
           WalkToTile(path[i], 3, 0);
        end;
          Wait(500+Random(300));
    end;


    Procedure Banking;
    var
    I : Integer;
    begin
     WalkToBank;
     repeat
     OpenBankReflection('db')
     until(bankscreen)
     FixBank;
     For I := 2 to 28 do
      deposit(I,28,28);
      WalkToWillows;
      LoadsDone := LoadsDone+1;
      Writeln(IntToStr(LoadsDone))
    end;


    Begin;
     repeat
       SetupSRL;
       SetupSmart;
       PlayerSetup;
       LoadPath;
       LoadPath2;
       WalkToWillows;
        Repeat
         WillowChoppa
         FindNormalRandoms;
        until(InvFull)
        WalkToBank;
        Banking
     until(inttostr(Loads2do) = inttostr(LoadsDone))
    end.
    Why do I get this error with my script? it doesn't happen with any others!

  2. #2
    Join Date
    Mar 2007
    Location
    <3
    Posts
    2,683
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Reload Scar?
    Worked for me when i got that error..

  3. #3
    Join Date
    May 2008
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 3
    Last Post: 09-19-2008, 04:20 PM
  2. Replies: 4
    Last Post: 02-25-2008, 05:18 PM
  3. Replies: 2
    Last Post: 12-31-2007, 09:41 AM
  4. Replies: 8
    Last Post: 12-23-2007, 11:11 AM

Posting Permissions

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