Results 1 to 13 of 13

Thread: I feel stupid...

  1. #1
    Join Date
    Mar 2009
    Location
    Illinois
    Posts
    292
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default I feel stupid...

    Ok so i've started my script and heres what I have so far. I just got SCAR 3.21 and I did the SNV checkout thing, but heres what I got:
    SCAR Code:
    program New;
    {.include srl/srl.scar}
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

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

    function Bank: boolean;
    begin
      OpenBankFast('feb');
      repeat
        wait(10);
      until((BankScreen)or(PinScreen))
      if BankScreen then result := true;
      CloseBank;
    end;

    begin
    SetupSRL;
    DeclarePlayers;
    Bank;
    end.
    Now you might think its stupid so far but i know where i'm going with it and I took some stuff out. But when I click run heres what happens:

    This pops up in a new tab:
    Something called Globals.scar:
    SCAR Code:
    //-----------------------------------------------------------------//
    //--               Scar Standard Resource Library                --//
    //--               ยป Global Variables                            --//
    //-----------------------------------------------------------------//
    // * procedure LoadSRLBitMaps;                   // * by SRL Dev Team
    // * procedure FreeSRLBitMaps;                   // * by Ron
    // * procedure LoadSRLFonts;                     // * by Markus
    // * procedure FreeSRLFonts;                     // * by Markus
    // * procedure srl_Warn(ProcName, ErrorMessage: String; wVersion: Integer); // * by SRL Dev Team

    { const SRLVersionNumber;
      Description: Repository Version Number. }

    Const
      SRLVersionNumber = 36;

    { var TalkAfterRandoms: Boolean;
      Description: Talk random phrases after randoms are detected/solved. }

    var
      TalkAfterRandoms: Boolean;

    { var FriendChars, LoginChars: integer;
      Description: Fonts used internally and for use in scripts. }

    var
      FriendChars, LoginChars: integer;
     
    { var bmpAdmin, bmpMod, Lamp, BoxMask: Integer;
      Description: Global Bitmaps. Need to be Global because of SCAR Memory leaks. }

    var
      bmpAdmin, bmpMod, Lamp: Integer;

    { var RoadColor, WaterColor, BankColor: Integer;
      Description: Three variables you will almost always use. :) }

    var
      RoadColor, WaterColor, BankColor: Integer;

    { var LampSkill: String;
      Description: Set Lamp skill. }

    var
      LampSkill: string;
     
    { const MMX1, MMY1, MMX2, MMY2;
      Description: MiniMap Edge Points. }

    const
      MMX1 = 550;
      MMY1 = 8;
      MMX2 = 703;
      MMY2 = 161;

    { const MMCX, MMCY;
      Description: MiniMap Centre Point. }

    const
      MMCX = 627;
      MMCY = 85;

    { const MSX1, MSY1, MSX2, MSY2;
      Description: Main Screen EdgePoints. }

    const
      MSX1 = 4;
      MSY1 = 4;
      MSX2 = 516;
      MSY2 = 338;

    { const MSCX, MSCY;
      Description: Main Screen Centre Points. }

    const
      MSCX = 259;
      MSCY = 170;

    { const MIX1, MIY1, MIX2, MIY2;
      Description: Inventory EdgePoints. }

    const
      MIX1 = 547;
      MIY1 = 202;
      MIX2 = 737;
      MIY2 = 466;

    { const MICX, MICY;
      Description: Inventory Centre Points. }

    const
      MICX = 642;
      MICY = 334;

    { const MCX1, MCY1, MCX2, MCY2;
      Description: Chat Screen EdgePoints. }

    const
      MCX1 = 4;
      MCY1 = 342;
      MCX2 = 496;
      MCY2 = 460;

    { const MCCX, MCCY;
      Description: Chat Screen Centre Points. }

    const
      MCCX = 250;
      MCCY = 401;
     
    { const MBX1, MBY1, MBX2, MBY2;
      Description: BankScreen EdgePoints (where you click the items, does not include tabs). }

    const
      MBX1 = 26;
      MBY1 = 84;
      MBX2 = 480;
      MBY2 = 292;

    { const SRL_Procs Constants;
      Description: Constants for SRL_Procs. }

    const
      srl_AntiBan = 0;            //Your AntiBan procedure to be called during various SRL functions and procedures. (Flag, FFlag)
      srl_OnFindMod = 1;          //After a player or Jagex mod is detected talking in the chat box.
      srl_OnFindDead = 2;         //After the text 'Oh dear you are dead' is detected.
      srl_OnFindFight = 3;        //After detecting a fighting random.
      srl_OnFindTrade = 4;        //After the trade has been attempted (either success or failure).
      srl_OnNextPlayer = 5;       //While the players are logged out and before CurrentPlayer changes.
      srl_OnSendStats = 6;        //After SRL Script Stats are sent to the server.
      srl_OnRandomCall = 7;       //Called in FindNormalRandoms, FindInventoryRandoms, FindNonInventoryRandoms. (NOT ONLY WHEN RANDOMS ARE DETECTED).
      srl_OnFindRandom = 8;       //After a random event is detected. (FNR, FIR, FNIR, FT)
      srl_OnLogOut = 9;           //Just before the player is logged out.
      srl_InNextPlayerLoop = 10;  //During the infinite loop in NextPlayer when all players are inactive.
      srl_OnCustomRC = 11;        //When custom RC trigger has been given.

    { var SRL_Procs: array [0..11] of procedure();
      Description: Varibles to store user-defined procs to be called in SRL. }

    var
      SRL_Procs: array [0..11] of procedure();
     
    { type TAutoColorInfo;
      Description: Set of information that can be used in some functions. }

    type
      TAutoColorInfo = record
        Name: string;
        Color: Integer;
        ColorArray: TIntegerArray;
        MinCount: Integer;
        MaxCount: Integer;
        MaxDist: Integer;
        MaxDistCenter: Integer;
        UpText: string;
        UpTextMulti: TStringArray;
        HueMod, SatMod: Extended;
        LumTol: Integer;
        MinR, MaxR, MinG, MaxG, MinB, MaxB: Integer;
        MinX, MaxX, MinY, MaxY, MinZ, MaxZ: Extended;
    end;

    { type fnct_ActionOptions;
      Description: Action options. }

    type
      fnct_ActionOptions = (ClickLeft,ClickRight,Move,Nothing);

    { var Smart_Server: Integer;
      Description: Smart Server to Load. }

    var
      Smart_Server: Integer;

    { var Smart_Members, Smart_Signed, Smart_SuperDetail: Boolean
      Description: Smart Options to Load. }

    var
      Smart_Members, Smart_Signed, Smart_SuperDetail: Boolean;

    //****************************************************************************//
    // * I tried to make these Bitmaps Local, but I got after a couple of hours
    // *  running scripts, CTB and DB handle errors. So sorry, declared them global
    //****************************************************************************//

    {*******************************************************************************
    procedure LoadSRLBitMaps;
    By: SRL Dev Team
    Description: Loads SRL Bitmaps into memory.
    *******************************************************************************}


    procedure LoadSRLBitMaps;
    begin
      bmpMod := BitmapFromString(9, 6, 'beNqbPn0RWeDBgwdAkgEMkBnT' +
           'p0+HS6GR+KVwAgAGXFQr');
      bmpAdmin := BitmapFromString(9, 6, 'beNqbp/j9PwcZ6P//FiDJAA' +
           'bIjGvzFOFSaCR+KZwIALniVEk=');
      Lamp := BitmapFromString(6, 6, 'beNrzdWpr4a2qBCEZGQYGBkYgAr' +
           'KLCnmtLKHczRtF8nJ5/f05dHVBIgYKCkAyPY3DzZUDogUoEubrBFE' +
           'M4UJEIAwICvGyDgMAG0ERxQ==');
    end;

    {*******************************************************************************
    procedure FreeSRLBitMaps;
    By: Ron
    Description: Frees SRL Bitmaps from memory.
    *******************************************************************************}


    procedure FreeSRLBitmaps;
    begin
      FreeBitmap(bmpMod);
      FreeBitmap(bmpAdmin);
      FreeBitmap(Lamp);
    end;

    {*******************************************************************************
    procedure LoadSRLFonts;
    By: Markus
    Description: Loads SRL Fonts into memory.
    *******************************************************************************}

    procedure LoadSRLFonts;
    begin
      {$IfNdef SCAR321_UP}
      FriendChars := LoadChars2(AppPath+'Fonts\FriendChars\');
      LoginChars := LoadChars2(AppPath+'Fonts\LoginChars\');
      {$EndIf}
    end;

    {*******************************************************************************
    procedure FreeSRLFonts;
    By: Markus
    Description: Frees SRL Fonts from memory.
    *******************************************************************************}

    procedure FreeSRLFonts;
    begin
      {$IfNdef SCAR321_UP}
      FreeChars2(FriendChars);
      FreeChars2(LoginChars);
      {$EndIf}
    end;

    {*******************************************************************************
    procedure srl_Warn(ProcName, ErrorMessage: String; wVersion: Integer);
    by: SRL Dev Team
    Description: WriteLn's a warning message.
    *******************************************************************************}

    var
      WarnSensitivity: Integer; //-2 will show Warnings and above, -3 notices too.

    Const
        warn_AllVersions = 0;
        warn_Terminate = -1;
        warn_Warning = -2;
        warn_Notice = -3;
        warn_Debug = -4;

    procedure srl_Warn(ProcName, ErrorMessage: String; wVersion: Integer);
    begin
      case wVersion Of
        warn_Terminate: begin end;
        warn_AllVersions: begin end;
        warn_Warning: begin end;
        warn_Notice: begin end;
        warn_Debug: begin end;
        else if wVersion <> SRLVersionNumber then
          exit;
      end;
      if (wVersion > WarnSensitivity) then
        WriteLn('** Warning in ' + ProcName + ': ' + ErrorMessage + '**');
      if wVersion = -1 then
        TerminateScript;
    end;

    And i get this error:
    SCAR Code:
    Failed when compiling
    Line 24: [Error] (50:1): Duplicate identifier 'FriendChars' in script
    Are my includes screwed up or is it something that I did? All help appreiciated. Thanks.

  2. #2
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    i think it has to do with a patch in srl. theres a thread on this somewhere, i forget what though. i'll get the link real fast
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  3. #3
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    It's a recent update in SRL, I think, and it's not your fault.
    Don't feel stupid.

  4. #4
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    i THINK this is what you need, not for sure

    Quote Originally Posted by freddy1990
    You can fix it by applying this aptch:
    http://freddy1990.com/files/Globals.patch

    Just rightclick he core folder, go to to the tortoise menu and press Apply patch, the select that file (download it first of course)
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  5. #5
    Join Date
    Mar 2009
    Location
    Illinois
    Posts
    292
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Awkwardsaw View Post
    i THINK this is what you need, not for sure
    You can fix it by applying this aptch:
    http://freddy1990.com/files/Globals.patch

    Just rightclick he core folder, go to to the tortoise menu and press Apply patch, the select that file (download it first of course)
    Wait that was confusing to me, lol sorry i clicked on the core file then tortise thingy the apply patch and I get confused there but thanks.
    Last edited by All that is man; 07-21-2009 at 11:08 AM.

  6. #6
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    did you download the file?
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  7. #7
    Join Date
    Mar 2009
    Location
    Illinois
    Posts
    292
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Awkwardsaw View Post
    did you download the file?
    What file?

  8. #8
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    All the patch does is change
    SCAR Code:
    var
      FriendChars, LoginChars: integer;
    to
    SCAR Code:
    {$IFNDEF SCAR321_UP}
    var
      FriendChars, LoginChars: integer;
    {$ENDIF}
    (in the globals file)
    I guess that's a little unfair to say though - it also capitalises IFDNDEF and ENDIF for the other two.
    By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.

  9. #9
    Join Date
    Mar 2009
    Location
    Illinois
    Posts
    292
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by mixster View Post
    All the patch does is change
    SCAR Code:
    var
      FriendChars, LoginChars: integer;
    to
    SCAR Code:
    {$IFNDEF SCAR321_UP}
    var
      FriendChars, LoginChars: integer;
    {$ENDIF}
    (in the globals file)
    I guess that's a little unfair to say though - it also capitalises IFDNDEF and ENDIF for the other two.
    Ok thanks got that working rep+
    and now a new error has arrived >.<

    SCAR Code:
    program New;
    {.include srl/srl.scar}
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '' ;
      Players[0].Pass := '' ;
      Players[0].Nick := '' ;
      Players[0].Pin  := '' ;
    end;

    procedure w(time, randomtime: integer);
    begin
      wait(time+random(randomtime));
    end;

    procedure debug(text: string);
    begin
      Writeln('.................................................');
      Writeln('Time: ' + TimeRunning + '.');
      Writeln('Debug: ' + text + '.');
    end;

    procedure CustomGameTab(WhichTab: String);
    begin
      case LowerCase(WhichTab) of
        'inv'   : MouseBox(646, 172, 669, 200, 1);
        'gear'  : MouseBox(675, 172, 697, 200, 1);
        'stats' : MouseBox(555, 172, 578, 200, 1);
      end;
    end;

    function AntiBan_RandomGameTab: string;
    begin
      case random(3) of
        0: result := 'inv';
        1: result := 'gear';
        2: result := 'stats';
      end;
    end;

    function Bank: boolean;
    var
     failsafe, i: integer;
    begin
      for i := 0 to 2 do
      begin
        OpenBankFast('feb');
        failsafe := 0;
        MarkTime(FailSafe);
        repeat
          wait(10);
        until((BankScreen)or(PinScreen)or(TimeFromMark(FailSafe)>= 30000))
        if((BankScreen)or(PinScreen))then
        begin
          break;
          w(1000, 1000);
          DepositAirs;
          WithDrawEss;
        end;
      end;
    end;


    begin
    SetUpSrl;
    DeclarePlayers;
    LoginPlayer;
    Bank;
    CustomGameTab(AntiBan_RandomGameTab);
    end.

    And then Math.scar Pops up:
    SCAR Code:
    //-----------------------------------------------------------------//
    //--               Scar Standard Resource Library                --//
    //--               ยป Math Routines                               --//
    //-----------------------------------------------------------------//
    // * procedure LoadCoSineArrays;                                                                           // * by Mutant Squirrle
    // * function CreateTPAFromText(Txt : String; Chars : Integer) : TPointArray;                              // * by Raymond
    // * function GetSplinePt(Points: TPointArray; Theta: Extended): TPoint;                                   // * by BenLand100
    // * function MakeSplinePath(Points: TPointArray; ThetaInc: Extended): TPointArray;                        // * by BenLand100
    // * function MidPoints(Path: TPointArray; MaxDist: Integer): TPointArray;                                 // * by BenLand100
    // * function InAbstractBox(x1, y1, x2, y2, x3, y3, x4, y4: Integer; x, y: Integer): Boolean;              // * by BenLand100
    // * function inAngle(Origin: TPoint; Angle1, Angle2, Radius1, Radius2: Extended; X, Y: Integer): Boolean; // * by BenLand100
    // * function Sine(degrees: Integer): Extended;                                                            // * by ?
    // * function Cose(degrees: Integer): Extended;                                                            // * by ?
    // * Function MMToMS(MM: TPoint): TPoint;                                                                  // * by N1ke!

    Var
       SineArray, Cosearray: Array[0..360] Of Extended;
       
    {*******************************************************************************
    procedure LoadCoSineArrays;
    By: Mutant Squirrle
    Description: Loads arrays for use with Radial- and LinearWalk.
    *******************************************************************************}


    procedure LoadCoSineArrays;
    var
      i: Integer;
    begin
      for i := 0 to 360 do
      begin
        Sinearray[i] := Sin(i * Pi / 180);
        Cosearray[i] := Cos(i * Pi / 180);
      end;
    end;

    {*******************************************************************************
    Function CreateTPAFromText(Txt : String; Chars : Integer) : TPointArray;
    By: MastaRaymond
    Description: Returns the TPointArray of the inputted Text. Needs Wizzyplugin
    *******************************************************************************}


    Function CreateTPAFromText(Txt : String; Chars : Integer) : TPointArray;
    var
      TempBMP : integer;
    begin;
      TempBMP := CreateBitmapMaskFromText(Txt,Chars);
      Result := CreateTPAFromBMP( GetBitmapDC(TempBMP));
      FreeBitmap(TempBMP);
    end;


    {*******************************************************************************
    function GetSplinePt(Points: TPointArray; Theta: Extended): TPoint;
    By: BenLand100
    Description: Returns the point on a spline, defined by control points Points, at Theta
    *******************************************************************************}


    function GetSplinePt(Points: TPointArray; Theta: Extended): TPoint;
    var
      i, n: Integer;
      XTemp, YTemp: Extended;
    begin
      n := GetArrayLength(Points) - 1;
      for i := 0 to n do
      begin
        XTemp := XTemp + (BinCoe(n, i) * Points[i].x * Pow((1 - Theta), n - i) *
          Pow(Theta, i));
        YTemp := YTemp + (BinCoe(n, i) * Points[i].y * Pow((1 - Theta), n - i) *
          Pow(Theta, i));
      end;
      Result.x := Round(XTemp);
      Result.y := Round(YTemp);
    end;

    {*******************************************************************************
    function MakeSplinePath(Points: TPointArray; ThetaInc: Extended): TPointArray;
    By: BenLand100
    Description: Returns a spline, defined by control points Points, incrementing theta by ThetaInc
    *******************************************************************************}


    function MakeSplinePath(Points: TPointArray; ThetaInc: Extended): TPointArray;
    var
      i: Integer;
      t: Extended;
      temp, last: TPoint;
      done: Boolean;
    begin
      repeat
        if t >= 1 then
        begin
          t := 1;
          done := True;
        end;
        temp := GetSplinePt(Points, t);
        if ((temp.x <> last.x) and (temp.y <> last.y)) then
        begin
          i := i + 1;
          SetArrayLength(Result, i);
          Result[i - 1] := temp;
          last := temp;
        end;
        t := t + ThetaInc;
      until (done)
    end;

    {*******************************************************************************
    function MidPoints(Path: TPointArray; MaxDist: Integer): TPointArray;
    By: BenLand100
    Description: Adds midpoints to Path so no distance on it is greater than MaxDist
    *******************************************************************************}


    function MidPoints(Path: TPointArray; MaxDist: Integer): TPointArray;
    var
      i, c: Integer;
      last: TPoint;
      done: Boolean;
    begin
      if (getarraylength(path) > 0) then
      begin
        repeat
          last := Path[0];
          done := True;
          for i := 1 to GetArrayLength(Path) - 1 do
          begin
            if Sqrt(Pow((Path[i].x - last.x), 2) + Pow((Path[i].y - last.y), 2)) >
              MaxDist then
            begin
              done := False;
              SetArrayLength(Path, GetArrayLength(Path) + 1);
              for c := GetArrayLength(Path) - 1 downto i + 1 do
              begin
                Path[c] := Path[c - 1];
              end;
              Path[i].x := Round((last.x + Path[i + 1].x) / 2);
              Path[i].y := Round((last.y + Path[i + 1].y) / 2);
            end;
            last := Path[i];
          end;
        until (done);
      end;
      Result := Path;
    end;

    {*******************************************************************************
    function InAbstractBox(x1, y1, x2, y2, x3, y3, x4, y4: Integer; x, y: Integer): Boolean;
    By: BenLand100
    Description: Returns true if point x, y is in an abstract box defined by x1, y1, x2, y2, x3, y3, x4, y4
    An abstract box example:

    x1, y1     x2, y2
       +--------+
        \         /
         \       /
          +--+
    x4, y4    x3, y3
    *******************************************************************************}


    function InAbstractBox(x1, y1, x2, y2, x3, y3, x4, y4: Integer; x, y: Integer):
      Boolean;
    var
      U, D, R, L: Boolean;
      UB, DB, LB, RB, UM, DM, LM, RM: Extended;
    begin
      UM := (-y1 - -y2) div (x1 - x2);
      DM := (-y4 - -y3) div (x4 - x3);
      if x1 - x4 <> 0 then
      begin
        LM := (-y1 - -y4) div (x1 - x4);
      end else
      begin
        LM := Pi;
      end;
      if x2 - x3 <> 0 then
      begin
        RM := (-y2 - -y3) div (x2 - x3);
      end else
      begin
        RM := Pi;
      end;
      UB := -(UM * x1) + -y1
        RB := -(RM * x2) + -y2;
      DB := -(DM * x3) + -y3;
      LB := -(LM * x4) + -y4;
      if (UM * x + UB >= -y) then U := True;
      if (DM * x + DB <= -y) then D := True;
      if (RM <> Pi) and (RM >= 0) and (RM * x + RB <= -y) then R := True;
      if (RM <> Pi) and (RM < 0) and (RM * x + RB >= -y) then R := True;
      if (RM = Pi) and (x < x2) then R := True;
      if (LM <> Pi) and (LM >= 0) and (LM * x + LB >= -y) then L := True;
      if (LM <> Pi) and (LM < 0) and (LM * x + LB <= -y) then L := True;
      if (LM = Pi) and (x > x1) then L := True;
      if U and D and L and R then Result := True;
    end;

    {*******************************************************************************
    function inAngle(Origin: TPoint; Angle1, Angle2, Radius1, Radius2: Extended; X, Y: Integer): Boolean;
    By: BenLand100
    Description: Returns True if X and Y fall within Radius1 to Radius2 and Angle1 to Angle2
    Note1: EVERYTHING IS RELATIVE TO ORIGIN!!!
    Note2: This checks in the smallest segment of the circle formed by Angle1 and Angle 2
    Example: (Assume the origin is 0,0)
     inAngle(0, 90, 5, 10, origin, 5, 5) = true;
     inAngle(0, 90, 0, 5, origin, 5, 5) = false;
     inAngle(90, 0, 5, 10, origin, 5, 5) = false;
    *******************************************************************************}


    function inAngle(Origin: TPoint; Angle1, Angle2, Radius1, Radius2: Extended; x,
      y: Integer): Boolean;
    var
      PTemp: PPoint;
      OTemp: TPoint;
      MinAngle, MaxAngle, MinRadius, MaxRadius: Extended;
    begin
      Angle1 := FixD(Angle1);
      Angle2 := FixD(Angle2);
      MinAngle := Angle1;
      if Angle1 > Angle2 then MinAngle := Angle2;
      MaxAngle := Angle1;
      if Angle1 < Angle2 then MaxAngle := Angle2;
      MinRadius := Radius1;
      if Radius1 > Radius2 then MinRadius := Radius2;
      MaxRadius := Radius1;
      if Radius1 < Radius2 then MaxRadius := Radius2;
      OTemp.x := x;
      OTemp.y := y;
      PTemp := ToPolarOffset(OTemp, Origin);
      if (PTemp.R >= MinRadius) and (PTemp.R <= MaxRadius) then
        if (PTemp.T >= MinAngle) and (PTemp.T <= MaxAngle) then
          Result := True;
    end;

    {*******************************************************************************
    function Sine(degrees: Integer): Extended;
    By:
    Description:
    *******************************************************************************}


    function Sine(Degrees: Integer): Extended;
    begin
      Result := sinearray[Trunc(FixD(Degrees))];
    end;

    {*******************************************************************************
    function Cose(degrees: Integer): Extended;
    By:
    Description:
    *******************************************************************************}


    function Cose(Degrees: Integer): Extended;
    begin
      Result := cosearray[Trunc(FixD(Degrees))];
    end;

    {*******************************************************************************
    Function MMToMS(MM: TPoint): TPoint;
    By: N1ke!
    Description: Turns a Minimap point into a close MS point.
    *******************************************************************************}

    Function MMToMS(MM: TPoint): TPoint;
    var
      X, Y: Integer;
      Dis: TPoint;
    begin
      X := ((MM.X - 647));
      Y := ((MM.Y - 84));

      Dis := Point( (MMCX - MM.X)*-1, (MMCY - MM.Y)*-1);
      Result := Point(Round((259.5 + X)+ Dis.X*10), Round((170.0 + Y)+ Dis.Y*6.5));

      If Not IntInBox(Result.X, Result.Y, IntToBox(MSX1, MSY1, MSX2, MSY2))then
        Result := Point(-1, -1);
    end;
    And i get
    SCAR Code:
    Failed when compiling
    Line 47: [Error] (327:11): Unknown identifier 'CreateTPAFromBMP' in script


    Anyone know?

  10. #10
    Join Date
    Jun 2007
    Location
    Wednesday
    Posts
    2,446
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Have you moved your plugins? If not, try doing so else move them by hand - there's a plugins ('move to plugin folder' or something similar) folder in the SRL includes bit and so copy/cut and paste them into the Scar plugin's folder at Scar's root folder
    By reading this signature you agree that mixster is superior to you in each and every way except the bad ways but including the really bad ways.

  11. #11
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Scar --> Tools --> Options --> Srl Download --> Button: Move plugins.
    ~Hermen

  12. #12
    Join Date
    Aug 2008
    Location
    !!LOL!!
    Posts
    247
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    err how do i download file?

  13. #13
    Join Date
    Mar 2009
    Location
    Illinois
    Posts
    292
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by mixster View Post
    Have you moved your plugins? If not, try doing so else move them by hand - there's a plugins ('move to plugin folder' or something similar) folder in the SRL includes bit and so copy/cut and paste them into the Scar plugin's folder at Scar's root folder
    Thanks, all resolved!

    Quote Originally Posted by Hermen View Post
    Scar --> Tools --> Options --> Srl Download --> Button: Move plugins.
    Thanks for explaining haha, rep+.

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
  •