Results 1 to 16 of 16

Thread: First script...autofisher!!! NEED HELP!

  1. #1
    Join Date
    Feb 2008
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default First script...autofisher!!! NEED HELP!

    //-----------------------------------------------------------------//
    //-- Scar Standard Resource Library --//
    //-- » Math Routines --//
    //-----------------------------------------------------------------//
    // * procedure rs_OnMinimap(x, y: Integer): Boolean; // * by Raymond
    // * 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 NormDist(MaxNum: Integer): Integer; // * by Flyboy / inspired by lardmaster

    Var
    SineArray, Cosearray: Array[0..360] Of Extended;

    {************************************************* ******************************
    procedure rs_OnMinimap(x, y: Integer): Boolean;
    By: Raymond
    Description: Checks wether the specified point is on the minimap.
    ************************************************** *****************************}

    Function rs_OnMinimap(x, y: Integer): Boolean;
    Begin
    Result := InCircle(x, y, MMCX, MMCY, 76);
    End;

    {************************************************* ******************************
    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,upchars);
    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 NormDist(MaxNum: Integer): Integer;
    By: Flyboy / inspired by lardmaster
    Description: This returns a number number +/- MaxNum. If graphed out, the
    results would form a graph formain a normal distribution curve. What this means
    is that it is most likly to return 0 (zero) with a lessonen chance of returning
    a number as it approaches the MaxNum.
    ************************************************** *****************************}

    function NormDist(MaxNum: Integer): Integer;
    var
    i, Temp, Offset: Integer;
    begin
    MaxNum := MaxNum + 1;
    Offset := MaxNum * MaxNum;
    for i := 0 to (MaxNum + 1) do
    begin
    Temp := Random(Offset);
    if Temp <= i then
    begin
    Result := Temp;
    if Temp = 0 then
    begin
    if Random(100) < 52 then //play with these numbers to adjust Zero (0)
    Break;
    end else
    begin
    if Random(2) = 0 then
    Result := Result * (-1);
    Break;
    end;
    end; //if Temp <= i
    if Offset > MaxNum then
    Offset := Offset - MaxNum
    else
    Offset := MaxNum; //FailSafe... can't be too careful
    end; //for i..
    //FailSafe
    if ((Result < (-MaxNum)) or (Result > MaxNum)) then
    Result := ((Random(MaxNum * 2 + 1)) - MaxNum);
    end;

  2. #2
    Join Date
    Feb 2008
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I reli need help is that correct? if not cud u tell me wot to correct it wid?? plz

  3. #3
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    I don't mean to sound bitchy but there are 3 things wrong with this thread:

    1.) Use [scar*] and [/scar*] minus the *s to make it in one little neat box
    2.) Post this in the help section if you need help with a script
    and...
    3.) Don't double post, you can use the edit button

    Anyone would think you read the "how to be a noob" tut and taken it seriously

  4. #4
    Join Date
    Feb 2008
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Wot do u mean by the [scar*] thing...and where do i put it??

  5. #5
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    put [SCAR] at the begging of your *script*. and at the end put [/ and SCAR]


  6. #6
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    When you are postijng just put those either side of the script area, and it will put in into a smaller box.

    Like this:

    SCAR Code:
    Program LikeThis;
    Begin
      This is an example;
    end.

  7. #7
    Join Date
    Feb 2008
    Location
    Under Jansen's bed
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This is just a section of the SRL library.

    If there is an error occurring in your script that told you to go here and find it, then post your script; it's the only way anyone can help.

  8. #8
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    Quote Originally Posted by Jewish Zombeh View Post
    This is just a section of the SRL library.

    If there is an error occurring in your script that told you to go here and find it, then post your script; it's the only way anyone can help.

    It's not the only place where you can get help, there is a forum labled "Scripting Help" maybe they should think of a better title as I don't think that explains what the area is for... I doubt its for scripting help though...

  9. #9
    Join Date
    Feb 2008
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    //-----------------------------------------------------------------//
    //-- Scar Standard Resource Library --//
    //-- » Math Routines --//
    //-----------------------------------------------------------------//
    // * procedure rs_OnMinimap(x, y: Integer): Boolean; // * by Raymond
    // * 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 NormDist(MaxNum: Integer): Integer; // * by Flyboy / inspired by lardmaster

    Var
    SineArray, Cosearray: Array[0..360] Of Extended;

    {************************************************* ******************************
    procedure rs_OnMinimap(x, y: Integer): Boolean;
    By: Raymond
    Description: Checks wether the specified point is on the minimap.
    ************************************************** *****************************}

    Function rs_OnMinimap(x, y: Integer): Boolean;
    SCAR Code:
    Begin
    Result := InCircle(x, y, MMCX, MMCY, 76);
    End;

    {************************************************* ******************************
    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,upchars);
    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 NormDist(MaxNum: Integer): Integer;
    By: Flyboy / inspired by lardmaster
    Description: This returns a number number +/- MaxNum. If graphed out, the
    results would form a graph formain a normal distribution curve. What this means
    is that it is most likly to return 0 (zero) with a lessonen chance of returning
    a number as it approaches the MaxNum.
    ************************************************** *****************************}


    function NormDist(MaxNum: Integer): Integer;
    var
    i, Temp, Offset: Integer;
    begin
    MaxNum := MaxNum + 1;
    Offset := MaxNum * MaxNum;
    for i := 0 to (MaxNum + 1) do
    begin
    Temp := Random(Offset);
    if Temp <= i then
    begin
    Result := Temp;
    if Temp = 0 then
    begin
    if Random(100) < 52 then //play with these numbers to adjust Zero (0)
    Break;
    end else
    begin
    if Random(2) = 0 then
    Result := Result * (-1);
    Break;
    end;
    end; //if Temp <= i
    if Offset > MaxNum then
    Offset := Offset - MaxNum
    else
    Offset := MaxNum; //FailSafe... can't be too careful
    end; //for i..
    //FailSafe
    if ((Result < (-MaxNum)) or (Result > MaxNum)) then
    Result := ((Random(MaxNum * 2 + 1)) - MaxNum);
    end;

  10. #10
    Join Date
    Feb 2008
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    is that rite?? do i need to delete the part wich aint in the box??

  11. #11
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    Yeah, thats the sorta thing, and you should just put that above the box inside the box. Now making a script is just about the same stuff, remember stuff (alot to remember) and if you ever get stuck on a script you are making then post in the "scripting Help" section, and you could make a script you want and have fun in the process!

  12. #12
    Join Date
    Feb 2008
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok then, one problem...where is the script help?

  13. #13
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    Ok, first of all just go to this webs homepage, scroll down to the Public Forum, look down and you will see it

  14. #14
    Join Date
    Feb 2007
    Location
    Access Violation at 0x00000000
    Posts
    2,865
    Mentioned
    3 Post(s)
    Quoted
    18 Post(s)

    Default

    Uhh, did u just copy that from some include, and thought it was an autofisher?..
    Ce ne sont que des gueux


  15. #15
    Join Date
    Dec 2007
    Location
    Michigan, USA
    Posts
    280
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah it is a include, its the
    SCAR Code:
    {.include srl/srl/core/math.scar}
    file
    idk what you were think.... but this really needs to be close/moved becuease this isnt even a script, its procedures you use in a script.... pm'n a mod
    Kindof Inactive...

  16. #16
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    13,692
    Mentioned
    146 Post(s)
    Quoted
    130 Post(s)

    Default

    Wow... Closed.



    The best way to contact me is by email, which you can find on my website: http://wizzup.org
    I also get email notifications of private messages, though.

    Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
    Documentation | Source | Simba Bug Tracker on Github and Villavu )


    My (Blog | Website)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Autofisher
    By tomwatson14 in forum First Scripts
    Replies: 4
    Last Post: 02-06-2008, 09:43 PM
  2. Need help with autofisher
    By newton1 in forum OSR Help
    Replies: 2
    Last Post: 10-29-2007, 11:11 PM
  3. AutoFisher help?
    By codx1 in forum OSR Help
    Replies: 7
    Last Post: 06-02-2007, 05:46 AM
  4. need help autofisher...Type mismatch in script
    By robeike in forum OSR Help
    Replies: 5
    Last Post: 02-22-2007, 12:17 PM
  5. need autofisher plz
    By peterbrooks in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 12-15-2006, 07:31 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
  •