Results 1 to 8 of 8

Thread: Really friggin' annoying.

  1. #1
    Join Date
    May 2012
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Really friggin' annoying.

    Just installed all this stuff like 3 days ago, I know jack SHIT about scripting so I'm kinda stuck here.
    Everytime I try to run ANY script I get this friggin' error; Error: Exception: Access violation at line 105 and some shit under it saying the DT'S couldn't be openened.
    It has something to do with the smart script?
    Fuck I d'unno, I really have no idea what's wrong so help me, lol.

    THIS is the line in question result:= SmartGetColor(x, y);, it keeps giving me errors, how do I kill it?

    Simba Code:
    {$DEFINE SRL_SMART}
    {$DEFINE SMART}
    {.loadlib libsmart}

    function IsKeyDown(C:Byte): Boolean;
    begin
      Result := SmartIsKeyDown(C);
    end;

    procedure MoveMouse(x, y: Integer);
    begin
      SmartMoveMouse(x, y);
    end;

    procedure HoldMouse(x, y: Integer; button : integer);
    begin
      if button = mouse_left then
        SmartHoldMousePlus(x,y,1)
      else if button = mouse_middle then
        SmartHoldMousePlus(x,y,2)
      else if button = mouse_right then
        SmartHoldMousePlus(x,y,3)
      else
        raiseexception(ercustomerror,'Unknown mouse button in SmartHoldMousePlus');
    end;

    procedure ReleaseMouse(x, y: Integer; button : integer);
    begin
      if button = mouse_left then
        SmartReleaseMousePlus(x,y,1)
      else if button = mouse_middle then
        SmartReleaseMousePlus(x,y,2)
      else if button = mouse_right then
        SmartReleaseMousePlus(x,y,3)
      else
        raiseexception(ercustomerror,'Unknown mouse button in SmartReleaseMousePlus');
    end;

    procedure KeyUp(key: Byte);
    begin
      If Key = 13 Then
        Key := 10;
      SmartReleaseKey(key);
    end;

    procedure KeyDown(key: Byte);
    begin
      If Key = 13 Then
        Key := 10;
      SmartHoldKey(key);
    end;

    procedure SendKeys(S: String; keywait{$IFNDEF SIMBAMAJOR980}, keymodwait{$ENDIF}: integer);
    begin
      SmartSendKeys(S);
    end;

    function FindAndSetTarget(TitlePrefix: String; SetAsTarget: Boolean): Boolean;
    var
      T : TSysProcArr;
      I : Integer;
    begin
      T := GetProcesses;
      for I := High(T) downto 0 do
        if Pos(TitlePrefix, T[I].Title) <> 0 then
        begin
          Result := True;
          if SetAsTarget then SetTarget(T[I]);
          Exit;
        end;
    end;

    procedure GetRealMousePos(var X, Y : Integer);
    var
      KMTarget, ITarget : Integer;
    begin
      KMTarget := GetKeyMouseTarget;
      ITarget := GetImageTarget;
      FindAndSetTarget('Public SMART', True);
      GetTClient.IOManager.GetMousePos(X, Y);
      FreeTarget(GetImageTarget);
      SetKeyMouseTarget(KMTarget);
      SetImageTarget(ITarget);

      // These are not universial offsets, but works somewhat for some Windows themes.
      X := X - 8;
      Y := Y - 25;
    end;

    procedure GetMousePos(var x, y: Integer);
    begin
      SmartGetMousePos(x, y);
    end;

    function IsRealMouseInBox(B : TBox): Boolean;
    var
      P : TPoint;
    begin
      GetRealMousePos(P.X, P.Y);
      Result:= PointInBox(P, B);
    end;

    function GetColor(x, y: Integer): Integer;
    begin
      result:= SmartGetColor(x, y);                                                                            
    end;

    procedure SmartSetTarget;
    begin
      SetTargetArray(SmartImageArray, 765,503);
    end;

    function FindWindow(Title: String): Boolean;
    begin
      result:= true;
    end;

    procedure ActivateClient;
    begin
    end;

    function FindWindowBySize(Width, Height: Integer): Boolean;
    begin
      result:= true;
    end;

    {procedure SmartSaveSettings(v: TVariantArray);
    var
      i: Integer;
      ts: TStringArray;
    begin
      ts := ['server', 'members', 'signed', 'sd', 'DC', IncludePath + 'SRL/SRL/misc/smartINI.ini'];
      for i := 0 to 4 do
        WriteINI('SMART', ts[i], v[i], ts[5]);
    end;   }


    procedure SmartSetupEx(Server: integer; members, signed, superdetail: boolean);
    var
      prefix: string;
    begin
      prefix := ReadINI('World' + IntToStr(Server), 'Prefix', IncludePath + 'SRL/SRL/misc/worlds.ini');
      if(prefix = '')then
      begin
        writeln('Invalid world number or corrupted world list. Please review your settings');
        TerminateScript;
      end;
      SmartSetup('http://'+prefix+'.runescape.com/', 'plugin.js?param=o0,a' + IntToStr((Integer(not(Signed)) + 1) * Integer(not((SuperDetail and Signed)))) + ',m' + IntToStr(Integer(Members)), 765, 503, 's');
      //SmartSaveSettings([Server, Members, Signed, SuperDetail, SmartGetDC]);
    end;

    {function SmartLastSettings: TStringArray;
    var
      i: Integer;
      ts: TStringArray;
    begin
      ts := ['server', 'members', 'signed', 'sd', 'DC', IncludePath + 'SRL/SRL/Misc/smartINI.ini'];
      SetLength(Result, 5);
      for i := 0 to 4 do
        Result[i] := ReadINI('SMART', ts[i], ts[5]);
    end; }

  2. #2
    Join Date
    Feb 2012
    Location
    Somewhere, over the rainbow...
    Posts
    2,272
    Mentioned
    3 Post(s)
    Quoted
    45 Post(s)

    Default

    Never seen this one before.

    Reinstall Simba completely (Including folders) and then re-install it following one of tutorials on this website.

  3. #3
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Uninstall all Javas you have, reboot, install Java 6 version 31, reboot, then run your script again.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  4. #4
    Join Date
    May 2012
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm getting the exact same error only now it's on a different line, instead of being on line 105 it's now on line 101
    end;

    I used this tutorial http://www.youtube.com/watch?v=w8AOMJ7voPk

  5. #5
    Join Date
    Feb 2012
    Posts
    317
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ill fix

  6. #6
    Join Date
    Oct 2006
    Location
    Netherlands
    Posts
    3,285
    Mentioned
    105 Post(s)
    Quoted
    494 Post(s)

    Default

    We should create a fix for this. Of course it is java 7's mistake for not being fully backwards compatible, but simba should work around it.
    Working on: Tithe Farmer

  7. #7
    Join Date
    May 2012
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Harry View Post
    Uninstall all Javas you have, reboot, install Java 6 version 31, reboot, then run your script again.
    Gonna try this now, thanks for all the quick replies guys.

  8. #8
    Join Date
    May 2012
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Harry View Post
    Uninstall all Javas you have, reboot, install Java 6 version 31, reboot, then run your script again.
    This worked for me, the bot finally starts up now, thanks a lot.
    This can be lock and archived I guess, thanks again!!

Thread Information

Users Browsing this Thread

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

Posting Permissions

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