Results 1 to 2 of 2

Thread: Error In Smart.scar Plz Help!

  1. #1
    Join Date
    Oct 2007
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Error In Smart.scar Plz Help!

    Hello, you see whenever i try to run a script that uses smart i always get this error:
    SCAR Code:
    Line 4: [Error] (18:11): Unknown identifier 'SmartIsKeyDown' in script H:\Program Files\SCAR 3.15\includes\SRL/SRL/Misc/Smart.scar

    SCAR Code:
    function IsKeyDown(C:Char): Boolean;

    begin
      Result := SmartIsKeyDown(ord(c));
    end;

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

    procedure HoldMouse(x, y: Integer; left: Boolean);
    begin
      SmartHoldMouse(x, y, left);
    end;

    procedure ReleaseMouse(x, y: Integer; left: Boolean);
    begin
      SmartReleaseMouse(x, y, left);
    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);
    begin
      SmartSendKeys(S);
    end;

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

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

    procedure SmartSetTarget;
    var
      Smart_Bitmap: Integer;
    begin
      Smart_Bitmap:= BitmapFromString(765,503,'');
      GetBitmapCanvas(Smart_Bitmap).Handle:= SmartGetDC;
      SetTargetBitmap(Smart_Bitmap);
      FreeBitmap(Smart_Bitmap);
    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 SmartSetupEx(worldnumber: integer; safe, signed, superdetail: boolean);
    var
      prefix: string;
    begin
      prefix := ReadINI('World' + IntToStr(worldnumber), 'Prefix', AppPath + 'includes\SRL\SCSS\worlds.ini');
      if(prefix = '')then
      begin
        writeln('Invalid world number or corrupted world list. Please review your settings');
        TerminateScript;
      end;
      SmartSetup(prefix, safe, signed, superDetail);
    end;

    Procedure SaveScreenshot(s : string);
    var
      TempBMP : integer;
      TempS : String;
    begin;
      Temps := s;
      While FileExists(Temps) do
      begin;
        Temps := ExtractFilePath(s) + Copy(ExtractFileName(Temps),1,LastPos('.',ExtractFileName(Temps))-1) + '2' + ExtractFileExt(s);
        Writeln(Temps);
      end;
      TempBMP := BitmapFromString(765,503,'');
      Try
        CopyClientToBitmap(TempBMP,0,0,765,503);
        SaveBitmap(TempBMP, Temps);
      Except
      end;
      FreeBitmap(TempBMP);
    end;
    Thats my Smart.scar.

    Plz help meh!
    Woot woot.

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

    Default

    Clean out your plugins folder and SRL and checkout from the SVN


    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!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Smart error and Some kind of Math.scar error
    By FagetHax0r in forum OSR Help
    Replies: 6
    Last Post: 02-24-2008, 10:43 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
  •