Page 1 of 2 12 LastLast
Results 1 to 25 of 38

Thread: i need help with my script

  1. #1
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default i need help with my script

    In my main loop i wanted to know how to do something... Its a Hybird so i wanted to know how to make it repeat : Fishing UNTIL (level 25 fishing...) and same with other ones ...
    Basically.. I want to know how to stop fishing when it gets to a certain level and then start woodcutting...
    well here it is


    SCAR Code:
    program DraynorSkills;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\skill\Woodcutting.scar}



    Var  BankDTM,RotateNum,Ix, Iy:Integer ;
    WhirlPoolAcc: Extended;

    const
    TreeColor1 = 793624;   //RegularTree
    TreeColor2 = 4624512;  //Oaks

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 5;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; //USername
      Players[0].Pass := ''; //password
      Players[0].Nick := 'ad9'; //3-4 letters of username
      Players[0].Integer1 := 20;//Max fishing lvl to get to until fisher stops.
      Players[0].Integer2 := 15;//Max Woodcutting lvl off regular trees .//i sugust leave it
      Players[0].Integer3 := 30;//Max Woodcutting lvl off Oak trees .//i sugust leave it
      Players[0].Active := True;

      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := 'new';
      Players[1].Integer1 := 20;//Max fishing lvl to get to until fisher stops.
      Players[1].Integer2 := 15;//Max Woodcutting lvl off regular trees .//i sugust leave it
      Players[1].Integer3 := 30;//Max Woodcutting lvl off oak trees .//i sugust leave it
      Players[1].Active := True;

      Players[2].Name := '';
      Players[2].Pass := '';
      Players[2].Nick := '';
      Players[2].Integer1 := 20;//Max fishing lvl to get to until fisher stops.
      Players[2].Integer2 := 15;//Max Woodcutting lvl off regular trees .//i sugust leave it
      Players[2].Integer3 := 30;//Max Woodcutting lvl off oak trees .//i sugust leave it
      Players[2].Active := True;

      Players[3].Name := '';
      Players[3].Pass := '';
      Players[3].Nick := '';
      Players[3].Integer1 := 20;//Max fishing lvl to get to until fisher stops.
      Players[3].Integer2 := 15;//Max Woodcutting lvl off regular trees .//i sugust leave it
      Players[3].Integer3 := 30;//Max Woodcutting lvl off oak trees .//i sugust leave it
      Players[3].Active := True;

      Players[4].Name := '';
      Players[4].Pass := '';
      Players[4].Nick := '';
      Players[4].Integer1 := 25;//Max fishing lvl to get to until fisher stops.
      Players[4].Integer2 := 15;//Max Woodcutting lvl off regular trees .//i sugust leave it
      Players[4].Integer3 := 30;//Max Woodcutting lvl off oak trees .//i sugust leave it
      Players[4].Active := True;

    end;

    Procedure AntiBan;
    var ban: integer;
    begin
      Ban := Random(20);
      case Ban of
        0: Wait(550);
        1: PickupMouse;
        2: HoverSkill('Fishing', False);
        3: HoverSkill('Defense', False);
        4: HoverSkill('Defense', False);
        5: HoverSkill('Woodcutting', False);
        6: HoverSkill('Firemaking', False);
        7: HoverSkill('Fishing', False);
        8: SayCurrentLevels('Fishing');
        9: Wait(550);
        10: RandomRClick;
        11: TypeSend('Type 1 if your bored!');
        12: AlmostLogout;
        13: SleepAndMoveMouse(5000 + random(2000));
        14: GameTab(1 + random(12));
      end;
    end;


    Procedure Randoms;
    begin
    if FindFight then
    begin
    Status('Running from Fight');
    RunTo('n',true);
    wait(8000 + random(1000));
    RunTo('s',true);
    end;
    end;

    Procedure LoadDtms;

    begin
      BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF676060042' +
           '310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1269C' +
           '809A0AC26A00E665129F');
    end;

    Function FindDraynorBank(Var x, y: Integer): Boolean;

    Var
       BankA: Extended;
       I: Integer;
    Begin
      Repeat
        I := I + 1;
        Wait(1);
        Result:= FindDTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.05, BankA);
    //    Result:= FindDTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.1, BankA);
      Until Result Or (I > 10);
    End;

    Procedure WalkToFish;
    begin
    If FindSymbol(x, y, 'fishing spot') Then
    Mouse(x, y, 1, 1, True);
    FindNormalRandoms;
    randoms;
    end;

    procedure tobank;
    begin
    randoms;
    FindNormalRandoms
    If FindDraynorBank(x, y) Then
    Begin
    Mouse(x, y, 3, 3, True);
    Randoms;
    Wait(1500);
    FFlag(0);
    Wait(500);
    end;
    end;

    Function FindFishingSpot(Var x, y: Integer): Boolean;

    Var
       I, ArrC, MinX, MinY, MaxX, MaxY, FishColor: Integer;
       FPt: TPointArray;

    Begin
      If Not LoggedIn Then Exit;
      If x = $0 Then x := $106;
      If y = $0 Then y := $AA;
      ColorToleranceSpeed(2);
      If FindColorSpiralTolerance(x, y, 15181944, 5, 5, 515, 336, 20) Then
      Begin
        FishColor := GetColor(x, y);
        FindColorsSpiralTolerance(x, y, FPt, FishColor, x - 20, y - 20, x + 20, y + 20, 40)
        ArrC := GetArrayLength(FPt);
        MinX := 1 Shl 10;
        MinY := 1 Shl 10;
        For I := 0 To ArrC - 1 Do
        Begin
          MaxX := Max(MaxX, FPt[I].X);
          MinX := Min(MinX, FPt[I].X);
          MaxY := Max(MaxY, FPt[I].Y);
          MinY := Min(MinY, FPt[I].Y);
        End;
        x := (MaxX + MinX) Shr 1;
        y := (MaxY + MinY) Shr 1;
        Result := True;
        ColorToleranceSpeed(1);
        Exit;
      End Else WriteLn('Color Not Found.');
      ColorToleranceSpeed(1);
    End;

    Function FindWhirlPool(x, y: integer): Boolean;

    Var
       FishPoints: TPointArray;

    Begin
      If Not LoggedIn Then Exit;
      ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(x, y, FishPoints, 13947343, x - 20, y - 20, x + 20, y + 20, 40)
      If GetArrayLength(FishPoints) > Round(230 * WhirlPoolAcc) Then
      Begin
        WhirlPools := Whirlpools + 1;
        WriteLn(IntToStr(Round(GetArrayLength(FishPoints) /  1600))+ '% Change');
        Result := True;
      End;
      ColorToleranceSpeed(1);
    End;



    Function Fish: Boolean;
    begin
    repeat
    If FindFishingSpot (x, y) Then
    Begin
    RotateNum := 15000 + Random(20000);
    If Not FindWhirlPool(x, y) Then
    Begin
    Mouse(x, y, 1, 1, True);
    findnormalrandoms;
    randoms;
    end;
    end;
    until(IsUpText('You cant carry any more fish.'))
    end;

    Procedure WalkToTree1;
    begin
    RunTo('E', true);
    end;

    function FindObjMultiText2(var cx, cy: Integer; Ut1, UT2, UT3: string; color,
      tolerance: Integer): Boolean;
    var
      x, y, a, c, i, x1, y1, x2, y2: Integer;
    begin
      Color := Color;
      if (FindColorTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance)) then
      begin
        x1 := 245;
        y1 := 165;
        x2 := 277;
        y2 := 185;
        repeat
          if (not (Loggedin)) then
            Break;
          a := a + 1;
          if (a = 1) or (a = 3) then
            c := c + 1;
          for i := 1 to c do
          begin
            if (a = 1) then
            begin
              x1 := x1 + 30;
              x2 := x2 + 30;
            end
            else if (a = 2) then
            begin
              y1 := y1 - 20;
              y2 := y2 - 20;
            end
            else if (a = 3) then
            begin
              x1 := x1 - 30;
              x2 := x2 - 30;
            end
            else if (a = 4) then
            begin
              y1 := y1 + 20;
              y2 := y2 + 20;
            end;
            if (x1 = 485) and (x2 = 517) then
              x2 := x2 - 2;
            if (y1 = 325) and (y2 = 345) then
              y2 := y2 - 7;
            if (x2 > 515) then
              Break;
            if (FindColorTolerance(x, y, Color, x1, y1, x2, y2, tolerance)) then
            begin
              MMouse(x, y, 0, 0)
                Wait(10);
              cx := x;
              cy := y;
              if (IsUpTextMulti(UT1, UT2, UT3)) then
              begin
                Result := True;
                Break;
              end;
            end;
          end;
          if (a = 4) then
            a := 0;
        until (x2 > 515) or (Result = True);
      end;
    end;
    /////////////////Chopping/////////////////////////////////
    procedure FindingEnts;
    var
      Ents: Integer;
    begin
      if (FindEnt(TreeColor1)) or
        (FindEnt(TreeColor2)) then
      begin
        WriteLn('Ent! Eek!');
        RunAwayDirection('N');
        wait(7000 + random(3000));
        RunBack;
        Ents := Ents + 1;
      end;
    end;
    //////////////////////////////////////////////////////////

    //////////////////////////////////////////////////////////

    procedure ChopRegTree;
    begin
      GameTab(4);
      repeat
        if FindObjMultiText2(Ix, Iy, 'Tre', 'ree', 'Tree', TreeColor1, 5) then
        Mouse(Ix, Iy, 1, 1, True);
        wait(6000 + random(1000));
        FindingEnts;
        randoms;
        FindNormalRandoms;
      until (InvFull);
    end;

    Procedure WalkToTree2;
    begin
    RunTo('E', true);
    end;

    Procedure ChopOakTree;
    begin
      GameTab(4);
      repeat
        if FindObjMultiText2(Ix, Iy, 'Oa', 'ak', 'Oak', TreeColor2, 5) then
        Mouse(Ix, Iy, 1, 1, True);
        wait(6000 + random(1000));
        FindingEnts;
        randoms;
        FindNormalRandoms;
      until (InvFull);
    end;





    begin
    SetUpSRL;
    LoadDTMS;
    Repeat
    Antiban;
    WalkTofish;
    Fish;
    tobank;
    Walktofish;
    until// I want it to make it so it Fishes until level 25 fishing or something...
    Repeat
    AntiBan;
    WalkToTree1;
    ChopRegTree;
    ToBank;
    WalkToTree1;
    until//Same here... i want it to stop at lvl 15 woodcutting so it can cut oaks next
    repeat
    AntiBan;
    WalkToTree2;
    ChopOakTree;
    Tobank;
    WalktoTree2;
    until// while its cutting oaks try to get it to lvl 30 woodcutting and stop...
    end.

  2. #2
    Join Date
    Jul 2007
    Location
    UK
    Posts
    307
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    The Main SRL file dose not include Skills so u have to include them your self so thats why Your getting unknowen Identifier error

    SCAR Code:
    program DraynorSkills;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Fishing.scar}

    Var  BankDTM:Integer ;
    WhirlPoolAcc: Extended;

    const
    TreeColor1 = 793624;   //RegularTree
    TreeColor2 = 4624512;  //Oaks

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 5;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; //USername
      Players[0].Pass := ''; //password
      Players[0].Nick := 'ad9'; //3-4 letters of username
      Players[0].Integer1 := 20;//Max fishing lvl to get to until fisher stops.
      Players[0].Integer2 := 15;//Max Woodcutting lvl off regular trees .//i sugust leave it
      Players[0].Integer3 := 30;//Max Woodcutting lvl off Oak trees .//i sugust leave it
      Players[0].Active := True;

      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := 'new';
      Players[1].Integer1 := 20;//Max fishing lvl to get to until fisher stops.
      Players[1].Integer2 := 15;//Max Woodcutting lvl off regular trees .//i sugust leave it
      Players[1].Integer3 := 30;//Max Woodcutting lvl off oak trees .//i sugust leave it
      Players[1].Active := True;

      Players[2].Name := '';
      Players[2].Pass := '';
      Players[2].Nick := '';
      Players[2].Integer1 := 20;//Max fishing lvl to get to until fisher stops.
      Players[2].Integer2 := 15;//Max Woodcutting lvl off regular trees .//i sugust leave it
      Players[2].Integer3 := 30;//Max Woodcutting lvl off oak trees .//i sugust leave it
      Players[2].Active := True;

      Players[3].Name := '';
      Players[3].Pass := '';
      Players[3].Nick := '';
      Players[3].Integer1 := 20;//Max fishing lvl to get to until fisher stops.
      Players[3].Integer2 := 15;//Max Woodcutting lvl off regular trees .//i sugust leave it
      Players[3].Integer3 := 30;//Max Woodcutting lvl off oak trees .//i sugust leave it
      Players[3].Active := True;

      Players[4].Name := '';
      Players[4].Pass := '';
      Players[4].Nick := '';
      Players[4].Integer1 := 25;//Max fishing lvl to get to until fisher stops.
      Players[4].Integer2 := 15;//Max Woodcutting lvl off regular trees .//i sugust leave it
      Players[4].Integer3 := 30;//Max Woodcutting lvl off oak trees .//i sugust leave it
      Players[4].Active := True;

    end;

    Procedure AntiBan;
    var ban: integer;
    begin
      Ban := Random(20);
      case Ban of
        0: Wait(550);
        1: PickupMouse;
        2: HoverSkill('Fishing', False);
        3: HoverSkill('Defense', False);
        4: HoverSkill('Defense', False);
        5: HoverSkill('Woodcutting', False);
        6: HoverSkill('Firemaking', False);
        7: HoverSkill('Fishing', False);
        8: SayCurrentLevels('Fishing');
        9: Wait(550);
        10: RandomRClick;
        11: TypeSend('Type 1 if your bored!');
        12: AlmostLogout;
        13: SleepAndMoveMouse(5000 + random(2000));
        14: GameTab(1 + random(12));
      end;
    end;


    Procedure Randoms;
    begin
    if FindFight then
    begin
    Status('Running from Fight');
    RunTo('n',true);
    wait(8000 + random(1000));
    RunTo('s',true);
    end;
    end;

    Procedure LoadDtms;

    begin
      BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF676060042' +
           '310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1269C' +
           '809A0AC26A00E665129F');
    end;

    Function FindDraynorBank(Var x, y: Integer): Boolean;

    Var
       BankA: Extended;
       I: Integer;
    Begin
      Repeat
        I := I + 1;
        Wait(1);
        Result:= FindDTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.05, BankA);
    //    Result:= FindDTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.1, BankA);
      Until Result Or (I > 10);
    End;

    Procedure WalkToFish;
    begin
    If FindSymbol(x, y, 'fishing spot') Then
    Mouse(x, y, 1, 1, True);
    FindNormalRandoms;
    randoms;
    end;

    procedure tobank;
    begin
    randoms;
    FindNormalRandoms
    If FindDraynorBank(x, y) Then
    Begin
    Mouse(x, y, 3, 3, True);
    Randoms;
    Wait(1500);
    FFlag(0);
    Wait(500);
    end;
    end;

    Function FindWhirlPool(x, y: integer): Boolean;

    Var
       FishPoints: TPointArray;

    Begin
      If Not LoggedIn Then Exit;
      ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(x, y, FishPoints, 13947343, x - 20, y - 20, x + 20, y + 20, 40)
      If GetArrayLength(FishPoints) > Round(230 * WhirlPoolAcc) Then
      Begin
        WhirlPools := Whirlpools + 1;
        WriteLn(IntToStr(Round(GetArrayLength(FishPoints) /  1600))+ '% Change');
        Result := True;
      End;
      ColorToleranceSpeed(1);
    End;

    Function Fish: Boolean;
    begin
    repeat
    If FindFishingSpot (x, y) Then
    Begin
    RotateNum := 15000 + Random(20000);
    If Not FindWhirlPool(x, y) Then
    Begin
    Mouse(x, y, 1, 1, True);
    findnormalrandoms;
    randoms;
    end;
    until(IsUpText('You cant carry any more fish.'))
    end;

    Procedure WalkToTree1;
    begin
    RunTo('E', true);
    end;

    function FindObjMultiText2(var cx, cy: Integer; Ut1, UT2, UT3: string; color,
      tolerance: Integer): Boolean;
    var
      x, y, a, c, i, x1, y1, x2, y2: Integer;
    begin
      Color := Color;
      if (FindColorTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance)) then
      begin
        x1 := 245;
        y1 := 165;
        x2 := 277;
        y2 := 185;
        repeat
          if (not (Loggedin)) then
            Break;
          a := a + 1;
          if (a = 1) or (a = 3) then
            c := c + 1;
          for i := 1 to c do
          begin
            if (a = 1) then
            begin
              x1 := x1 + 30;
              x2 := x2 + 30;
            end
            else if (a = 2) then
            begin
              y1 := y1 - 20;
              y2 := y2 - 20;
            end
            else if (a = 3) then
            begin
              x1 := x1 - 30;
              x2 := x2 - 30;
            end
            else if (a = 4) then
            begin
              y1 := y1 + 20;
              y2 := y2 + 20;
            end;
            if (x1 = 485) and (x2 = 517) then
              x2 := x2 - 2;
            if (y1 = 325) and (y2 = 345) then
              y2 := y2 - 7;
            if (x2 > 515) then
              Break;
            if (FindColorTolerance(x, y, Color, x1, y1, x2, y2, tolerance)) then
            begin
              MMouse(x, y, 0, 0)
                Wait(10);
              cx := x;
              cy := y;
              if (IsUpTextMulti(UT1, UT2, UT3)) then
              begin
                Result := True;
                Break;
              end;
            end;
          end;
          if (a = 4) then
            a := 0;
        until (x2 > 515) or (Result = True);
      end;
    end;
    /////////////////Chopping/////////////////////////////////
    procedure FindingEnts;
    var
      Ents: Integer;
    begin
      if (FindEnt(TreeColor1)) or
        (FindEnt(TreeColor2)) or
        (FindEnt(TreeColor3)) then
      begin
        WriteLn('Ent! Eek!');
        RunAwayDirection('N');
        wait(7000 + random(3000));
        RunBack;
        Ents := Ents + 1;
      end;
    end;
    //////////////////////////////////////////////////////////
    procedure Randoms;
    begin
      if FindFight then
      begin
        Status('Running from Fight');
        RunTo('n', true);
        wait(8000 + random(1000));
        RunTo('s', true);
      end;
    end;
    //////////////////////////////////////////////////////////

    procedure ChopRegTree;
    begin
      GameTab(4);
      repeat
        if FindObjMultiText2(Ix, Iy, 'Tre', 'ree', 'Tree', TreeColor1, 5) then
        Mouse(Ix, Iy, 1, 1, True);
        wait(6000 + random(1000));
        FindingEnts;
        randoms;
        FindNormalRandoms;
      until (InvFull);
    end;

    Procedure WalkToTree2;
    begin
    RunTo('E', true);
    end;

    Procedure ChopOakTree;
    begin
      GameTab(4);
      repeat
        if FindObjMultiText2(Ix, Iy, 'Oa', 'ak', 'Oak', TreeColor2, 5) then
        Mouse(Ix, Iy, 1, 1, True);
        wait(6000 + random(1000));
        FindingEnts;
        randoms;
        FindNormalRandoms;
      until (InvFull);
    end;





    begin
    SetUpSRL;
    LoadDTMS;
    Repeat
    Antiban;
    WalkTofish;
    Fishy;
    tobank;
    Walktofish;
    until// I want it to make it so it Fishes until level 25 fishing or something...
    Repeat
    AntiBan;
    WalkToTree1;
    ChopRegTree;
    ToBank;
    WalkToTree1;
    until//Same here... i want it to stop at lvl 15 woodcutting
    repeat
    AntiBan;
    WalkToTree2;
    ChopOakTree;
    Tobank;
    WalktoTree2;
    until// Same here but until level 30...
    end.

  3. #3
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by cathering_ View Post
    The Main scar file dose not include Skills so u have to include them your self so thats why Your getting unknowen Identifier error

    SCAR Code:
    program DraynorSkills;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Fishing.scar}

    Var  BankDTM:Integer ;
    WhirlPoolAcc: Extended;

    const
    TreeColor1 = 793624;   //RegularTree
    TreeColor2 = 4624512;  //Oaks

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 5;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; //USername
      Players[0].Pass := ''; //password
      Players[0].Nick := 'ad9'; //3-4 letters of username
      Players[0].Integer1 := 20;//Max fishing lvl to get to until fisher stops.
      Players[0].Integer2 := 15;//Max Woodcutting lvl off regular trees .//i sugust leave it
      Players[0].Integer3 := 30;//Max Woodcutting lvl off Oak trees .//i sugust leave it
      Players[0].Active := True;

      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := 'new';
      Players[1].Integer1 := 20;//Max fishing lvl to get to until fisher stops.
      Players[1].Integer2 := 15;//Max Woodcutting lvl off regular trees .//i sugust leave it
      Players[1].Integer3 := 30;//Max Woodcutting lvl off oak trees .//i sugust leave it
      Players[1].Active := True;

      Players[2].Name := '';
      Players[2].Pass := '';
      Players[2].Nick := '';
      Players[2].Integer1 := 20;//Max fishing lvl to get to until fisher stops.
      Players[2].Integer2 := 15;//Max Woodcutting lvl off regular trees .//i sugust leave it
      Players[2].Integer3 := 30;//Max Woodcutting lvl off oak trees .//i sugust leave it
      Players[2].Active := True;

      Players[3].Name := '';
      Players[3].Pass := '';
      Players[3].Nick := '';
      Players[3].Integer1 := 20;//Max fishing lvl to get to until fisher stops.
      Players[3].Integer2 := 15;//Max Woodcutting lvl off regular trees .//i sugust leave it
      Players[3].Integer3 := 30;//Max Woodcutting lvl off oak trees .//i sugust leave it
      Players[3].Active := True;

      Players[4].Name := '';
      Players[4].Pass := '';
      Players[4].Nick := '';
      Players[4].Integer1 := 25;//Max fishing lvl to get to until fisher stops.
      Players[4].Integer2 := 15;//Max Woodcutting lvl off regular trees .//i sugust leave it
      Players[4].Integer3 := 30;//Max Woodcutting lvl off oak trees .//i sugust leave it
      Players[4].Active := True;

    end;

    Procedure AntiBan;
    var ban: integer;
    begin
      Ban := Random(20);
      case Ban of
        0: Wait(550);
        1: PickupMouse;
        2: HoverSkill('Fishing', False);
        3: HoverSkill('Defense', False);
        4: HoverSkill('Defense', False);
        5: HoverSkill('Woodcutting', False);
        6: HoverSkill('Firemaking', False);
        7: HoverSkill('Fishing', False);
        8: SayCurrentLevels('Fishing');
        9: Wait(550);
        10: RandomRClick;
        11: TypeSend('Type 1 if your bored!');
        12: AlmostLogout;
        13: SleepAndMoveMouse(5000 + random(2000));
        14: GameTab(1 + random(12));
      end;
    end;


    Procedure Randoms;
    begin
    if FindFight then
    begin
    Status('Running from Fight');
    RunTo('n',true);
    wait(8000 + random(1000));
    RunTo('s',true);
    end;
    end;

    Procedure LoadDtms;

    begin
      BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF676060042' +
           '310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1269C' +
           '809A0AC26A00E665129F');
    end;

    Function FindDraynorBank(Var x, y: Integer): Boolean;

    Var
       BankA: Extended;
       I: Integer;
    Begin
      Repeat
        I := I + 1;
        Wait(1);
        Result:= FindDTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.05, BankA);
    //    Result:= FindDTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.1, BankA);
      Until Result Or (I > 10);
    End;

    Procedure WalkToFish;
    begin
    If FindSymbol(x, y, 'fishing spot') Then
    Mouse(x, y, 1, 1, True);
    FindNormalRandoms;
    randoms;
    end;

    procedure tobank;
    begin
    randoms;
    FindNormalRandoms
    If FindDraynorBank(x, y) Then
    Begin
    Mouse(x, y, 3, 3, True);
    Randoms;
    Wait(1500);
    FFlag(0);
    Wait(500);
    end;
    end;

    Function FindWhirlPool(x, y: integer): Boolean;

    Var
       FishPoints: TPointArray;

    Begin
      If Not LoggedIn Then Exit;
      ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(x, y, FishPoints, 13947343, x - 20, y - 20, x + 20, y + 20, 40)
      If GetArrayLength(FishPoints) > Round(230 * WhirlPoolAcc) Then
      Begin
        WhirlPools := Whirlpools + 1;
        WriteLn(IntToStr(Round(GetArrayLength(FishPoints) /  1600))+ '% Change');
        Result := True;
      End;
      ColorToleranceSpeed(1);
    End;

    Function Fish: Boolean;
    begin
    repeat
    If FindFishingSpot (x, y) Then
    Begin
    RotateNum := 15000 + Random(20000);
    If Not FindWhirlPool(x, y) Then
    Begin
    Mouse(x, y, 1, 1, True);
    findnormalrandoms;
    randoms;
    end;
    until(IsUpText('You cant carry any more fish.'))
    end;

    Procedure WalkToTree1;
    begin
    RunTo('E', true);
    end;

    function FindObjMultiText2(var cx, cy: Integer; Ut1, UT2, UT3: string; color,
      tolerance: Integer): Boolean;
    var
      x, y, a, c, i, x1, y1, x2, y2: Integer;
    begin
      Color := Color;
      if (FindColorTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance)) then
      begin
        x1 := 245;
        y1 := 165;
        x2 := 277;
        y2 := 185;
        repeat
          if (not (Loggedin)) then
            Break;
          a := a + 1;
          if (a = 1) or (a = 3) then
            c := c + 1;
          for i := 1 to c do
          begin
            if (a = 1) then
            begin
              x1 := x1 + 30;
              x2 := x2 + 30;
            end
            else if (a = 2) then
            begin
              y1 := y1 - 20;
              y2 := y2 - 20;
            end
            else if (a = 3) then
            begin
              x1 := x1 - 30;
              x2 := x2 - 30;
            end
            else if (a = 4) then
            begin
              y1 := y1 + 20;
              y2 := y2 + 20;
            end;
            if (x1 = 485) and (x2 = 517) then
              x2 := x2 - 2;
            if (y1 = 325) and (y2 = 345) then
              y2 := y2 - 7;
            if (x2 > 515) then
              Break;
            if (FindColorTolerance(x, y, Color, x1, y1, x2, y2, tolerance)) then
            begin
              MMouse(x, y, 0, 0)
                Wait(10);
              cx := x;
              cy := y;
              if (IsUpTextMulti(UT1, UT2, UT3)) then
              begin
                Result := True;
                Break;
              end;
            end;
          end;
          if (a = 4) then
            a := 0;
        until (x2 > 515) or (Result = True);
      end;
    end;
    /////////////////Chopping/////////////////////////////////
    procedure FindingEnts;
    var
      Ents: Integer;
    begin
      if (FindEnt(TreeColor1)) or
        (FindEnt(TreeColor2)) or
        (FindEnt(TreeColor3)) then
      begin
        WriteLn('Ent! Eek!');
        RunAwayDirection('N');
        wait(7000 + random(3000));
        RunBack;
        Ents := Ents + 1;
      end;
    end;
    //////////////////////////////////////////////////////////
    procedure Randoms;
    begin
      if FindFight then
      begin
        Status('Running from Fight');
        RunTo('n', true);
        wait(8000 + random(1000));
        RunTo('s', true);
      end;
    end;
    //////////////////////////////////////////////////////////

    procedure ChopRegTree;
    begin
      GameTab(4);
      repeat
        if FindObjMultiText2(Ix, Iy, 'Tre', 'ree', 'Tree', TreeColor1, 5) then
        Mouse(Ix, Iy, 1, 1, True);
        wait(6000 + random(1000));
        FindingEnts;
        randoms;
        FindNormalRandoms;
      until (InvFull);
    end;

    Procedure WalkToTree2;
    begin
    RunTo('E', true);
    end;

    Procedure ChopOakTree;
    begin
      GameTab(4);
      repeat
        if FindObjMultiText2(Ix, Iy, 'Oa', 'ak', 'Oak', TreeColor2, 5) then
        Mouse(Ix, Iy, 1, 1, True);
        wait(6000 + random(1000));
        FindingEnts;
        randoms;
        FindNormalRandoms;
      until (InvFull);
    end;





    begin
    SetUpSRL;
    LoadDTMS;
    Repeat
    Antiban;
    WalkTofish;
    Fishy;
    tobank;
    Walktofish;
    until// I want it to make it so it Fishes until level 25 fishing or something...
    Repeat
    AntiBan;
    WalkToTree1;
    ChopRegTree;
    ToBank;
    WalkToTree1;
    until//Same here... i want it to stop at lvl 15 woodcutting
    repeat
    AntiBan;
    WalkToTree2;
    ChopOakTree;
    Tobank;
    WalktoTree2;
    until// Same here but until level 30...
    end.
    Oh Thanks Dude wha about the Repeat Until
    and i get an error in the fishing script when i add include fishing
    Line 63: [Error] (14516:5): Unknown identifier 'FindItemColor' in script C:\Program Files\SCAR 3.11\includes\SRL/SRL/Skill/Fishing.scar

  4. #4
    Join Date
    Apr 2007
    Location
    California
    Posts
    259
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Extended/xIntentory.scar}
    {.include SRL/SRL/Skill/Fishing.scar}

    Try that. I dunno if it'll work, but xInventory has FindItemColor in it, so it should fix that error. Make sure you put the includes in that order though.

  5. #5
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by NewToAutoing View Post
    SCAR Code:
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Extended/xIntentory.scar}
    {.include SRL/SRL/Skill/Fishing.scar}

    Try that. I dunno if it'll work, but xInventory has FindItemColor in it, so it should fix that error. Make sure you put the includes in that order though.
    Thanks for trying but that didnt help... I fixed it on my own .. ill edit the first post with new script

  6. #6
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by cnr sport View Post
    Thanks for trying but that didnt help... I fixed it on my own .. ill edit the first post with new script
    bump

  7. #7
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    try doing

    If GetSkill('Fishing',=25)
    Originally Posted by YoHoJo
    I like hentai.

  8. #8
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by llamaman View Post
    try doing

    If GetSkill('Fishing',=25)
    Thanks but i want to use it after the until and even if i didnt use it after the until it gave me unknown identifier GetsKill... SO that doesnt work... unless u no how to implant it

  9. #9
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It would be "If GetSkillLevel('Fishing') = 25" if anything..

  10. #10
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    or Until(getSkill'fishing'=25)
    theres ur until =D
    Originally Posted by YoHoJo
    I like hentai.

  11. #11
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    until(getskilllevel('fishing')=25) lol everyone put horribly wrong parameters.

  12. #12
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol, ive been scripting fer 2 hours!!!
    Originally Posted by YoHoJo
    I like hentai.

  13. #13
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by llamaman View Post
    lol, ive been scripting fer 2 hours!!!

    lol thanks

    ill try it out..

  14. #14
    Join Date
    Jul 2007
    Location
    UK
    Posts
    307
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    But I think it look bit bot-like if every time the main loop is finsihed it have look at the stats everytime it catchs a fish...

  15. #15
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah, make it check it every 10+random(10)) loads or something
    Originally Posted by YoHoJo
    I like hentai.

  16. #16
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by llamaman View Post
    yeah, make it check it every 10+random(10)) loads or something

    where do i implant that? sorry im not a very good scripter... i only do the main things... bank.walktofish and trees and cut and fish and walk back

  17. #17
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Const
    SkillLevelToBe=;//SKill To Stop The Script and move onto next one

    Var

    Lodes: Integer;

    Now put This In Every SKill Procedure


    Lodes:= 0
    If
    InvFull Then
    Begin

    Lodes:= Lodes+1 If Lodes > (SkillLevelToBe) Then Writeln('got '+InToStr(SkillLevelToBe)' Woodcutting'// or whatever skill End;
    Originally Posted by YoHoJo
    I like hentai.

  18. #18
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    SCAR Code:
    {First it will use your net and fish in draynor to 25 fishing.. Go to line 331 to change...
     Next it will cut regular trees to level 15 woodcutting.. go to line 188 to change...
    Next it will cut oaks till level 30 wc... line 347

    Thanks to WIzzuP for some functions!
    }


    program DraynorSkills;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\skill\Woodcutting.scar}




    Var  BankDTM,RotateNum,Ix,bx,by,Tries, FishingNet, FishingNetColor, Iy:Integer ;
    WhirlPoolAcc: Extended;
    CallBTime: LongInt;
    NoNet: Boolean;
    FishLoads:integer;
    RegularLoads:integer;
    OakLoads:integer;
    WillowLoads:Integer;
    var
    frmDesign : TForm;
      Image1 : TImage;
      Start : TButton;
      ProgressBar1 : TProgressBar;

    const
    TreeColor1 = 793624;   //RegularTree
    TreeColor2 = 4624512;  //Oaks
    Willow1 = 2592888; //willow
    FishLevel = 25; //What level to get fishing to before starting on reg trees.
    RegularTree = 15;//What level to get woodcutting before starting oaks
    Oaklevel = 30;//What level to get woodcutting before willows
    WillowLevel = 40;// What level to get from woodcutting from willows







    procedure SafeInitForm;
    var
    v: TVariantArray;
    begin
    setarraylength(V, 0);
    ThreadSafeCall('InitForm', v);
    end;

    procedure ShowFormModal;
    begin
    frmDesign.ShowModal;
    end;

    procedure SafeShowFormModal;
    var
    v: TVariantArray;
    begin
    setarraylength(V, 0);
    ThreadSafeCall('ShowFormModal', v);
    end;
     procedure buttonclick(sender: TObject);
     begin
      frmDesign.Caption:= frmDesign.Caption + '.';
      frmDesign.ModalResult:= mrOk;
    end;


    Procedure Initform;
    begin
    frmDesign := CreateForm;
    frmDesign.Left := 250;
    frmDesign.Top := 114;
    frmDesign.BorderStyle := bsToolWindow;
    frmDesign.Caption := 'frmDesign';
    frmDesign.ClientHeight := 458;
    frmDesign.ClientWidth := 690;
    frmDesign.Color := clBlack;
    frmDesign.Font.Color := clWindowText;
    frmDesign.Font.Height := -10;
    frmDesign.Font.Name := 'MS Sans Serif';
    frmDesign.Font.Style := [];
    frmDesign.Visible := False;
    frmDesign.PixelsPerInch := 84;
    Image1 := TImage.Create(frmDesign);
    Image1.Parent := frmDesign;
    Image1.Left := -7;
    Image1.Top := 26;
    Image1.Width := 609;
    Image1.Height := 358;
    Start := TButton.Create(frmDesign);
    Start.Parent := frmDesign;
    Start.Left := 188;
    Start.Top := 203;
    Start.Width := 76;
    Start.Height := 48;
    Start.Caption := 'Start';
    Start.TabOrder := 8;
    Start.OnClick:= @buttonclick;
    ProgressBar1 := TProgressBar.Create(frmDesign);
    ProgressBar1.Parent := frmDesign;
    ProgressBar1.Left := 96;
    ProgressBar1.Top := 437;
    ProgressBar1.Width := 486;
    ProgressBar1.Height := 15;
    ProgressBar1.TabOrder := 9;

    end;

    procedure SetupScript;
    begin
    SafeInitForm;
    SafeShowFormModal;
    end;




    procedure DeclarePlayers;
    begin
      HowManyPlayers := 5;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; //USername
      Players[0].Pass := ''; //password
      Players[0].Nick := 'nan'; //3-4 letters of username
      Players[0].Active := True;

      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := 'new';
      Players[1].Active := True;

      Players[2].Name := '';
      Players[2].Pass := '';
      Players[2].Nick := '';
      Players[2].Active := True;

      Players[3].Name := '';
      Players[3].Pass := '';
      Players[3].Nick := '';
      Players[3].Active := True;

      Players[4].Name := '';
      Players[4].Pass := '';
      Players[4].Nick := '';
      Players[4].Active := True;

    end;

    Procedure AntiBan;
    var ban: integer;
    begin
      Ban := Random(20);
      case Ban of
        0: Wait(550);
        1: PickupMouse;
        2: HoverSkill('Fishing', False);
        3: HoverSkill('Defense', False);
        4: HoverSkill('Defense', False);
        5: HoverSkill('Woodcutting', False);
        6: HoverSkill('Firemaking', False);
        7: HoverSkill('Fishing', False);
        8: SayCurrentLevels('Fishing');
        9: Wait(550);
        10: RandomRClick;
        11: TypeSend('Type 1 if your bored!');
        12: AlmostLogout;
        13: SleepAndMoveMouse(5000 + random(2000));
        14: GameTab(1 + random(12));
      end;
    end;


    Procedure Randoms;
    begin
    if FindFight then
    begin
    Status('Running from Fight');
    RunTo('n',true);
    wait(8000 + random(1000));
    RunTo('s',true);
    end;
    end;

    procedure FindingEnts;
    var
      Ents: Integer;
    begin
      if (FindEnt(TreeColor1)) or
        (FindEnt(TreeColor2)) then
      begin
        WriteLn('Ent! Eek!');
        RunAwayDirection('N');
        wait(7000 + random(3000));
        RunBack;
        Ents := Ents + 1;
      end;
    end;

    Function IsFishNet: Boolean;

    Var
       x, y: Integer;

    Begin
      If Not LoggedIn Then Exit;
      GameTab(4);
      Result := FindColor(x, y, FishingNetColor, MIX1, MIY1, MIX2, MIY2);
      If Result Then Exit;

      Result := FindBitmapToleranceIn(FishingNet, x, y, MIX1, MIY1, MIX2, MIY2, 25);
      If Result Then
      Begin
        FishingNetColor := GetColor(x, y);
        WriteLn('FishingNetColor: ' +IntToStr(FishingNetColor));
      End;
    End;


    Function FindNet: Boolean;

    Var
       x, y: Integer;
    Begin
      If Not LoggedIn Then Exit;
      Result := True;
      If Not IsFishNet Then
      Begin
        NoNet := True;
        Result := False;
        Wait(4000+Random(1000));
        If FindObj(x, y, 'mall', FishingNetColor, 0) Then
        Begin
          Mouse(x, y, 0, 0, True);
          Wait(100);
          FFlag(0);
          Wait(500);
          If IsFishNet Then
          Begin
            Result := True;
            NoNet := False;
            Exit;
          End;
        End
        Else
        Begin
          CallBTime := CallBTime - 25000;
          Mouse(665, 72, 5, 5, True);
          FFlag(0);
          Wait(1000+Random(500));
          If FindObj(x, y, 'mall', FishingNetColor, 0) Then
          Begin
            Mouse(x, y, 0, 0, True);
            Wait(100);
            FFlag(0);
            Wait(500);
            If IsFishNet Then
            Begin
              Result := True;
              NoNet := False;
              Exit;
            End;
          End;
        End;
      End;
    End;

    Procedure LoadDtms;

    begin
      BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF676060042' +
           '310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1269C' +
           '809A0AC26A00E665129F');
    end;

    function FindObjMultiText2(var cx, cy: Integer; Ut1, UT2, UT3: string; color,
      tolerance: Integer): Boolean;
    var
      x, y, a, c, i, x1, y1, x2, y2: Integer;
    begin
      Color := Color;
      if (FindColorTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance)) then
      begin
        x1 := 245;
        y1 := 165;
        x2 := 277;
        y2 := 185;
        repeat
          if (not (Loggedin)) then
            Break;
          a := a + 1;
          if (a = 1) or (a = 3) then
            c := c + 1;
          for i := 1 to c do
          begin
            if (a = 1) then
            begin
              x1 := x1 + 30;
              x2 := x2 + 30;
            end
            else if (a = 2) then
            begin
              y1 := y1 - 20;
              y2 := y2 - 20;
            end
            else if (a = 3) then
            begin
              x1 := x1 - 30;
              x2 := x2 - 30;
            end
            else if (a = 4) then
            begin
              y1 := y1 + 20;
              y2 := y2 + 20;
            end;
            if (x1 = 485) and (x2 = 517) then
              x2 := x2 - 2;
            if (y1 = 325) and (y2 = 345) then
              y2 := y2 - 7;
            if (x2 > 515) then
              Break;
            if (FindColorTolerance(x, y, Color, x1, y1, x2, y2, tolerance)) then
            begin
              MMouse(x, y, 0, 0)
                Wait(10);
              cx := x;
              cy := y;
              if (IsUpTextMulti(UT1, UT2, UT3)) then
              begin
                Result := True;
                Break;
              end;
            end;
          end;
          if (a = 4) then
            a := 0;
        until (x2 > 515) or (Result = True);
      end;
    end;

    Function FindDraynorBank(Var x, y: Integer): Boolean;

    Var
       BankA: Extended;
       I: Integer;
    Begin
      Repeat
        I := I + 1;
        Wait(1);
        Result:= FindDTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.05, BankA);
    //    Result:= FindDTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.1, BankA);
      Until Result Or (I > 10);
    End;

    Procedure WalkToFish;
    begin
    If FindSymbol(x, y, 'fishing spot') Then
    Mouse(x, y, 1, 1, True);
    FindNormalRandoms;
    randoms;
    end;

    procedure tobank;
    begin
    randoms;
    FindNormalRandoms
    If FindDraynorBank(x, y) Then
    Begin
    Mouse(x, y, 3, 3, True);
    Randoms;
    Wait(1500);
    FFlag(0);
    Wait(500);
    Repeat
    openbank3;
    Tries := Tries + 1;
    Until ((BankScreen) Or (Tries > 5));
    end;
    end;


    Function FindFishingSpot(Var x, y: Integer): Boolean;

    Var
       I, ArrC, MinX, MinY, MaxX, MaxY, FishColor: Integer;
       FPt: TPointArray;

    Begin
      If Not LoggedIn Then Exit;
      If x = $0 Then x := $106;
      If y = $0 Then y := $AA;
      ColorToleranceSpeed(2);
      If FindColorSpiralTolerance(x, y, 15181944, 5, 5, 515, 336, 20) Then
      Begin
        FishColor := GetColor(x, y);
        FindColorsSpiralTolerance(x, y, FPt, FishColor, x - 20, y - 20, x + 20, y + 20, 40)
        ArrC := GetArrayLength(FPt);
        MinX := 1 Shl 10;
        MinY := 1 Shl 10;
        For I := 0 To ArrC - 1 Do
        Begin
          MaxX := Max(MaxX, FPt[I].X);
          MinX := Min(MinX, FPt[I].X);
          MaxY := Max(MaxY, FPt[I].Y);
          MinY := Min(MinY, FPt[I].Y);
        End;
        x := (MaxX + MinX) Shr 1;
        y := (MaxY + MinY) Shr 1;
        Result := True;
        ColorToleranceSpeed(1);
        Exit;
      End Else WriteLn('Color Not Found.');
      ColorToleranceSpeed(1);
    End;

    Function FindWhirlPool(x, y: integer): Boolean;

    Var
       FishPoints: TPointArray;

    Begin
      If Not LoggedIn Then Exit;
      ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(x, y, FishPoints, 13947343, x - 20, y - 20, x + 20, y + 20, 40)
      If GetArrayLength(FishPoints) > Round(230 * WhirlPoolAcc) Then
      Begin
        WhirlPools := Whirlpools + 1;
        WriteLn(IntToStr(Round(GetArrayLength(FishPoints) /  1600))+ '% Change');
        Result := True;
      End;
      ColorToleranceSpeed(1);
    End;

    Procedure WalkToTheWillows;
    begin
      MakeCompass('S');
      if (FindSymbol(BX, BY, 'fish')) then
      begin
        Mouse(BX, BY, 1, 1, True);
        wait(4000)
        FindNormalRandoms;
        randoms;
        writeln('woot at willows');
      end;
    end;

    procedure ChopWillows;
    begin
      GameTab(4);
      repeat
        WillowLoads:= 0
        If InvFull Then
        Begin
        WillowLoads:= FishLoads+1
        If WillowLoads > (WillowLevel) Then
        begin
        TerminateScript;
        end;
        if FindObjMultiText2(Ix, Iy, 'Wil', 'ill', 'low', Willow1, 5) then
        Mouse(Ix, Iy, 1, 1, True);
        FindingEnts;
        randoms;
        wait(6000 + random(1000));
        FindNormalRandoms;
        end;
      until (InvFull);
    end;






    /////////////////Chopping/////////////////////////////////
    Procedure ChopOakTree;
    begin
      GameTab(4);
      repeat
        OakLoads:= 0
        If InvFull Then
        Begin
        OakLoads:= OakLoads+1
        If OakLoads > (OakLevel) Then
        begin
        Tobank;
        WalkToTheWillows;
        end;
        if FindObjMultiText2(Ix, Iy, 'Oa', 'ak', 'Oak', TreeColor2, 5) then
        Mouse(Ix, Iy, 1, 1, True);
        wait(6000 + random(1000));
        FindingEnts;
        randoms;
        FindNormalRandoms;
        end;
      until (InvFull);
    end;

    Procedure WalkToTree1;
    begin
    RunTo('E', true);
    end;

    //////////////////////////////////////////////////////////
    Function Fish: Boolean;
    begin
    repeat
    FishLoads:= 0
    If InvFull Then
    Begin
    FishLoads:= FishLoads+1
    If FishLoads > (FishLevel) Then
    begin
    Tobank;
    WalkToTree1;
    end;
    if not invfull then
    begin
    If FindFishingSpot (x, y) Then
    Begin
    RotateNum := 15000 + Random(20000);
    If Not FindWhirlPool(x, y) Then
    Begin
    Mouse(x, y, 1, 1, True);
    findnormalrandoms;
    randoms;
    end;
    end;
    end;
    end;
    until(IsUpText('You cant carry any more fish.'))
    end;



    //////////////////////////////////////////////////////////

    procedure ChopRegTree;
    begin
        GameTab(4);
        repeat
        RegularLoads:= 0
        If InvFull Then
        Begin
        RegularLoads:= RegularLoads+1
        If RegularLoads > (RegularTree) Then
        begin
        Tobank;
        WalkToTree1;
        end;
        if FindObjMultiText2(Ix, Iy, 'Tre', 'ree', 'Tree', TreeColor1, 5) then
        Mouse(Ix, Iy, 1, 1, True);
        wait(6000 + random(1000));
        FindingEnts;
        randoms;
        FindNormalRandoms;
        end;
      until (InvFull);
    end;

    Procedure WalkToTree2;
    begin
    RunTo('E', true);
    end;












    begin
    SetUpSRL;
    LoadDTMS;
    SetupScript;
    DeclarePlayers;
    If not (loggedin) then
    loginplayer;
    begin
    Antiban;
    WalkTofish;
    Fish;
    tobank;
    antiban;
    Walktofish;
    end;
    begin
    AntiBan;
    WalkToTree1;
    ChopRegTree;
    ToBank;
    Antiban;
    WalkToTree1;
    end;
    begin
    AntiBan;
    WalkToTree2;
    ChopOakTree;
    Tobank;
    AntiBan;
    WalktoTree2;
    end;
    begin
    antiban;
    WalkToTheWillows;
    FindNormalRandoms;
    ChopWillows;
    Tobank;
    AntiBan;
    WalkToTheWillows;
    end;
    end.
    it compiles can u test it ?

  19. #19
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol, alright, ill post proggy soon, if u release the script, give credz to me =D
    Originally Posted by YoHoJo
    I like hentai.

  20. #20
    Join Date
    Jan 2007
    Posts
    117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ahhh...

    Lodes:= 0
    If
    InvFull Then
    Begin

    Lodes:= Lodes+1 If Lodes > (SkillLevelToBe) Then Writeln('got '+InToStr(SkillLevelToBe)' Woodcutting'// or whatever skill End;
    [/QUOTE]

    I would do it differently- 1) you seem to call walktofish twice within your main procedure- is this nescessary?
    2) create a global variable such as 'gotfishlvl : boolean' and also make a global constant for the desired fishing lvl, such as 'maxfishlvl := 20'
    3) now create a procedure along these lines:
    SCAR Code:
    procedure fishlvl;
    var
    i : integer;
    begin
      i := Random(12)
      if (i=0) then
      begin
        if (GetSkillLevel('fishing')>maxfishlvl) then gotfishlvl:=true;
      end;
    end;

    4) to make this work you would need to declare gotfishlvl:=false at the start of your main procedure (outside the repeat) and use 'until (gotfishlvl = true)' as yr until part.
    5) if you are to take out the second walk to fish, then you could call this lvl finder in all 3 fishing procedures within yr main loop and there wud be a 0.25 chance of it checking the lvl each time it was called. the random(12) could be altered to make it more or less likely.

    Hope this helps!!h): -edit: thats a nice looking script!

  21. #21
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by llamaman View Post
    lol, alright, ill post proggy soon, if u release the script, give credz to me =D
    OKay dokey... and ill try what you suggusted

  22. #22
    Join Date
    Jul 2007
    Location
    England
    Posts
    86
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I standardised your script for you as best I could :

    SCAR Code:
    {First it will use your net and fish in draynor to 25 fishing.. Go to line 331 to change...
     Next it will cut regular trees to level 15 woodcutting.. go to line 188 to change...
    Next it will cut oaks till level 30 wc... line 347
     
    Thanks to WIzzuP for some functions!
    }


    program DraynorSkills;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/Woodcutting.scar}




    var BankDTM, RotateNum, Ix, bx, by, Tries, FishingNet, FishingNetColor, Iy: Integer;
      WhirlPoolAcc: Extended;
      CallBTime: LongInt;
      NoNet: Boolean;
      FishLoads: integer;
      RegularLoads: integer;
      OakLoads: integer;
      WillowLoads: Integer;
    var
      frmDesign: TForm;
      Image1: TImage;
      Start: TButton;
      ProgressBar1: TProgressBar;

    const
      TreeColor1 = 793624; //RegularTree
      TreeColor2 = 4624512; //Oaks
      Willow1 = 2592888; //willow
      FishLevel = 25; //What level to get fishing to before starting on reg trees.
      RegularTree = 15; //What level to get woodcutting before starting oaks
      Oaklevel = 30; //What level to get woodcutting before willows
      WillowLevel = 40; // What level to get from woodcutting from willows







    procedure SafeInitForm;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm', v);
    end;

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

    procedure SafeShowFormModal;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;

    procedure buttonclick(sender: TObject);
    begin
      frmDesign.Caption := frmDesign.Caption + '.';
      frmDesign.ModalResult := mrOk;
    end;


    procedure Initform;
    begin
      frmDesign := CreateForm;
      frmDesign.Left := 250;
      frmDesign.Top := 114;
      frmDesign.BorderStyle := bsToolWindow;
      frmDesign.Caption := 'frmDesign';
      frmDesign.ClientHeight := 458;
      frmDesign.ClientWidth := 690;
      frmDesign.Color := clBlack;
      frmDesign.Font.Color := clWindowText;
      frmDesign.Font.Height := -10;
      frmDesign.Font.Name := 'MS Sans Serif';
      frmDesign.Font.Style := [];
      frmDesign.Visible := False;
      frmDesign.PixelsPerInch := 84;
      Image1 := TImage.Create(frmDesign);
      Image1.Parent := frmDesign;
      Image1.Left := -7;
      Image1.Top := 26;
      Image1.Width := 609;
      Image1.Height := 358;
      Start := TButton.Create(frmDesign);
      Start.Parent := frmDesign;
      Start.Left := 188;
      Start.Top := 203;
      Start.Width := 76;
      Start.Height := 48;
      Start.Caption := 'Start';
      Start.TabOrder := 8;
      Start.OnClick := @buttonclick;
      ProgressBar1 := TProgressBar.Create(frmDesign);
      ProgressBar1.Parent := frmDesign;
      ProgressBar1.Left := 96;
      ProgressBar1.Top := 437;
      ProgressBar1.Width := 486;
      ProgressBar1.Height := 15;
      ProgressBar1.TabOrder := 9;

    end;

    procedure SetupScript;
    begin
      SafeInitForm;
      SafeShowFormModal;
    end;




    procedure DeclarePlayers;
    begin
      HowManyPlayers := 5;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; //USername
      Players[0].Pass := ''; //password
      Players[0].Nick := 'nan'; //3-4 letters of username
      Players[0].Active := True;

      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := 'new';
      Players[1].Active := True;

      Players[2].Name := '';
      Players[2].Pass := '';
      Players[2].Nick := '';
      Players[2].Active := True;

      Players[3].Name := '';
      Players[3].Pass := '';
      Players[3].Nick := '';
      Players[3].Active := True;

      Players[4].Name := '';
      Players[4].Pass := '';
      Players[4].Nick := '';
      Players[4].Active := True;

    end;

    procedure AntiBan;
    var ban: integer;
    begin
      Ban := Random(20);
      case Ban of
        0: Wait(550);
        1: PickupMouse;
        2: HoverSkill('Fishing', False);
        3: HoverSkill('Defense', False);
        4: HoverSkill('Defense', False);
        5: HoverSkill('Woodcutting', False);
        6: HoverSkill('Firemaking', False);
        7: HoverSkill('Fishing', False);
        8: SayCurrentLevels('Fishing');
        9: Wait(550);
        10: RandomRClick;
        11: TypeSend('Type 1 if your bored!');
        12: AlmostLogout;
        13: SleepAndMoveMouse(5000 + random(2000));
        14: GameTab(1 + random(12));
      end;
    end;


    procedure Randoms;
    begin
      if FindFight then
      begin
        Status('Running from Fight');
        RunTo('n', true);
        wait(8000 + random(1000));
        RunTo('s', true);
      end;
    end;

    procedure FindingEnts;
    var
      Ents: Integer;
    begin
      if (FindEnt(TreeColor1)) or
        (FindEnt(TreeColor2)) then
      begin
        WriteLn('Ent! Eek!');
        RunAwayDirection('N');
        wait(7000 + random(3000));
        RunBack;
        Ents := Ents + 1;
      end;
    end;

    function IsFishNet: Boolean;

    var
      x, y: Integer;

    begin
      if not LoggedIn then Exit;
      GameTab(4);
      Result := FindColor(x, y, FishingNetColor, MIX1, MIY1, MIX2, MIY2);
      if Result then Exit;

      Result := FindBitmapToleranceIn(FishingNet, x, y, MIX1, MIY1, MIX2, MIY2, 25);
      if Result then
      begin
        FishingNetColor := GetColor(x, y);
        WriteLn('FishingNetColor: ' + IntToStr(FishingNetColor));
      end;
    end;


    function FindNet: Boolean;

    var
      x, y: Integer;
    begin
      if not LoggedIn then Exit;
      Result := True;
      if not IsFishNet then
      begin
        NoNet := True;
        Result := False;
        Wait(4000 + Random(1000));
        if FindObj(x, y, 'mall', FishingNetColor, 0) then
        begin
          Mouse(x, y, 0, 0, True);
          Wait(100);
          FFlag(0);
          Wait(500);
          if IsFishNet then
          begin
            Result := True;
            NoNet := False;
            Exit;
          end;
        end
        else
        begin
          CallBTime := CallBTime - 25000;
          Mouse(665, 72, 5, 5, True);
          FFlag(0);
          Wait(1000 + Random(500));
          if FindObj(x, y, 'mall', FishingNetColor, 0) then
          begin
            Mouse(x, y, 0, 0, True);
            Wait(100);
            FFlag(0);
            Wait(500);
            if IsFishNet then
            begin
              Result := True;
              NoNet := False;
              Exit;
            end;
          end;
        end;
      end;
    end;

    procedure LoadDtms;

    begin
      BankDTM := DTMFromString('78DA63EC60626008614001FFFFFF676060042' +
        '310FB3F6303508D37448E09AAE6ED5B08CD08E583D50413A1269C' +
        '809A0AC26A00E665129F');
    end;

    function FindObjMultiText2(var cx, cy: Integer; Ut1, UT2, UT3: string; color,
      tolerance: Integer): Boolean;
    var
      x, y, a, c, i, x1, y1, x2, y2: Integer;
    begin
      Color := Color;
      if (FindColorTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance)) then
      begin
        x1 := 245;
        y1 := 165;
        x2 := 277;
        y2 := 185;
        repeat
          if (not (Loggedin)) then
            Break;
          a := a + 1;
          if (a = 1) or (a = 3) then
            c := c + 1;
          for i := 1 to c do
          begin
            if (a = 1) then
            begin
              x1 := x1 + 30;
              x2 := x2 + 30;
            end
            else if (a = 2) then
            begin
              y1 := y1 - 20;
              y2 := y2 - 20;
            end
            else if (a = 3) then
            begin
              x1 := x1 - 30;
              x2 := x2 - 30;
            end
            else if (a = 4) then
            begin
              y1 := y1 + 20;
              y2 := y2 + 20;
            end;
            if (x1 = 485) and (x2 = 517) then
              x2 := x2 - 2;
            if (y1 = 325) and (y2 = 345) then
              y2 := y2 - 7;
            if (x2 > 515) then
              Break;
            if (FindColorTolerance(x, y, Color, x1, y1, x2, y2, tolerance)) then
            begin
              MMouse(x, y, 0, 0)
                Wait(10);
              cx := x;
              cy := y;
              if (IsUpTextMulti(UT1, UT2, UT3)) then
              begin
                Result := True;
                Break;
              end;
            end;
          end;
          if (a = 4) then
            a := 0;
        until (x2 > 515) or (Result = True);
      end;
    end;

    function FindDraynorBank(var x, y: Integer): Boolean;

    var
      BankA: Extended;
      I: Integer;
    begin
      repeat
        I := I + 1;
        Wait(1);
        Result := FindDTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.05, BankA);
    //    Result:= FindDTMRotated(BankDTM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, 0.1, BankA);
      until Result or (I > 10);
    end;

    procedure WalkToFish;
    begin
      if FindSymbol(x, y, 'fishing spot') then
        Mouse(x, y, 1, 1, True);
      FindNormalRandoms;
      randoms;
    end;

    procedure ToBank;
    begin
      Randoms;
      FindNormalRandoms
        if FindDraynorBank(x, y) then
      begin
        Mouse(x, y, 3, 3, True);
        Randoms;
        Wait(1500);
        FFlag(0);
        Wait(500);
        repeat
          OpenBank3;
          Tries := Tries + 1;
        until ((BankScreen) or (Tries > 5));
      end;
    end;


    function FindFishingSpot(var x, y: Integer): Boolean;

    var
      I, ArrC, MinX, MinY, MaxX, MaxY, FishColor: Integer;
      FPt: TPointArray;

    begin
      if not LoggedIn then Exit;
      if x = $0 then x := $106;
      if y = $0 then y := $AA;
      ColorToleranceSpeed(2);
      if FindColorSpiralTolerance(x, y, 15181944, 5, 5, 515, 336, 20) then
      begin
        FishColor := GetColor(x, y);
        FindColorsSpiralTolerance(x, y, FPt, FishColor, x - 20, y - 20, x + 20, y + 20, 40)
          ArrC := GetArrayLength(FPt);
        MinX := 1 shl 10;
        MinY := 1 shl 10;
        for I := 0 to ArrC - 1 do
        begin
          MaxX := Max(MaxX, FPt[i].X);
          MinX := Min(MinX, FPt[i].X);
          MaxY := Max(MaxY, FPt[i].Y);
          MinY := Min(MinY, FPt[i].Y);
        end;
        x := (MaxX + MinX) shr 1;
        y := (MaxY + MinY) shr 1;
        Result := True;
        ColorToleranceSpeed(1);
        Exit;
      end else WriteLn('Color Not Found.');
      ColorToleranceSpeed(1);
    end;

    function FindWhirlPool(x, y: integer): Boolean;

    var
      FishPoints: TPointArray;

    begin
      if not LoggedIn then Exit;
      ColorToleranceSpeed(2);
      FindColorsSpiralTolerance(x, y, FishPoints, 13947343, x - 20, y - 20, x + 20, y + 20, 40)
        if GetArrayLength(FishPoints) > Round(230 * WhirlPoolAcc) then
      begin
        WhirlPools := Whirlpools + 1;
        WriteLn(IntToStr(Round(GetArrayLength(FishPoints) / 1600)) + '% Change');
        Result := True;
      end;
      ColorToleranceSpeed(1);
    end;

    procedure WalkToTheWillows;
    begin
      MakeCompass('S');
      if (FindSymbol(BX, BY, 'fish')) then
      begin
        Mouse(BX, BY, 1, 1, True);
        wait(4000)
          FindNormalRandoms;
        Randoms;
        writeln('woot at willows');
      end;
    end;

    procedure ChopWillows;
    begin
      GameTab(4);
      repeat
        WillowLoads := 0
          if InvFull then
        begin
          WillowLoads := FishLoads + 1
            if WillowLoads > (WillowLevel) then
          begin
            TerminateScript;
          end;
          if FindObjMultiText2(Ix, Iy, 'Wil', 'ill', 'low', Willow1, 5) then
            Mouse(Ix, Iy, 1, 1, True);
          FindingEnts;
          randoms;
          wait(6000 + random(1000));
          FindNormalRandoms;
        end;
      until (InvFull);
    end;






    /////////////////Chopping/////////////////////////////////

    procedure ChopOakTree;
    begin
      GameTab(4);
      repeat
        OakLoads := 0
          if InvFull then
        begin
          OakLoads := OakLoads + 1
            if OakLoads > (OakLevel) then
          begin
            Tobank;
            WalkToTheWillows;
          end;
          if FindObjMultiText2(Ix, Iy, 'Oa', 'ak', 'Oak', TreeColor2, 5) then
            Mouse(Ix, Iy, 1, 1, True);
          wait(6000 + random(1000));
          FindingEnts;
          Randoms;
          FindNormalRandoms;
        end;
      until (InvFull);
    end;

    procedure WalkToTree1;
    begin
      RunTo('E', true);
    end;

    //////////////////////////////////////////////////////////

    function Fish: Boolean;
    begin
      repeat
        FishLoads := 0
          if InvFull then
        begin
          FishLoads := FishLoads + 1
            if FishLoads > (FishLevel) then
          begin
            ToBank;
            WalkToTree1;
          end;
          if not InvFull then
          begin
            if FindFishingSpot(x, y) then
            begin
              RotateNum := 15000 + Random(20000);
              if not FindWhirlPool(x, y) then
              begin
                Mouse(x, y, 1, 1, True);
                findnormalrandoms;
                randoms;
              end;
            end;
          end;
        end;
      until (IsUpText('You cant carry any more fish.'))
    end;


    //////////////////////////////////////////////////////////

    procedure ChopRegTree;
    begin
      GameTab(4);
      repeat
        RegularLoads := 0
          if InvFull then
        begin
          RegularLoads := RegularLoads + 1
            if RegularLoads > (RegularTree) then
          begin
            Tobank;
            WalkToTree1;
          end;
          if FindObjMultiText2(Ix, Iy, 'Tre', 'ree', 'Tree', TreeColor1, 5) then
            Mouse(Ix, Iy, 1, 1, True);
          wait(6000 + random(1000));
          FindingEnts;
          Randoms;
          FindNormalRandoms;
        end;
      until (InvFull);
    end;

    procedure WalkToTree2;
    begin
      RunTo('E', true);
    end;


    begin
      SetUpSRL;
      LoadDTMS;
      SetupScript;
      DeclarePlayers;
      if not (LoggedIn) then
        LoginPlayer;
      begin
        Antiban;
        WalkTofish;
        Fish;
        tobank;
        antiban;
        Walktofish;
      end;
      begin
        AntiBan;
        WalkToTree1;
        ChopRegTree;
        ToBank;
        Antiban;
        WalkToTree1;
      end;
      begin
        AntiBan;
        WalkToTree2;
        ChopOakTree;
        Tobank;
        AntiBan;
        WalktoTree2;
      end;
      begin
        antiban;
        WalkToTheWillows;
        FindNormalRandoms;
        ChopWillows;
        Tobank;
        AntiBan;
        WalkToTheWillows;
      end;
    end.

    Now it looks much neater =]

    -Nitro

  23. #23
    Join Date
    Jan 2007
    Posts
    117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    begin
      repeat
        FishLoads := 0
          if InvFull then
        begin
          FishLoads := FishLoads + 1
            if FishLoads > (FishLevel) then

    What?!? this dosnt make sense, doing this would mean that fishlevel represented how many loads to do- NOT the skill level!

    sry just the illogicality irritated me lol try what I suggested earlier instead, you should find that it will work with skill levels, rather than the number of loads.

    edit-
    SCAR Code:
    begin
            if FindFishingSpot(x, y) then
            begin
              RotateNum := 15000 + Random(20000);
              if not FindWhirlPool(x, y) then
              begin
                Mouse(x, y, 1, 1, True);
                findnormalrandoms;
                randoms;
              end;
            end;
          end;

    this currently is not needed btw, because it only happens, 'if(invFull)' you might've missed out another end after the if(invFull) loop perhaps?

  24. #24
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by joerobo View Post
    SCAR Code:
    begin
      repeat
        FishLoads := 0
          if InvFull then
        begin
          FishLoads := FishLoads + 1
            if FishLoads > (FishLevel) then

    What?!? this dosnt make sense, doing this would mean that fishlevel represented how many loads to do- NOT the skill level!

    sry just the illogicality irritated me lol try what I suggested earlier instead, you should find that it will work with skill levels, rather than the number of loads.

    edit-
    SCAR Code:
    begin
            if FindFishingSpot(x, y) then
            begin
              RotateNum := 15000 + Random(20000);
              if not FindWhirlPool(x, y) then
              begin
                Mouse(x, y, 1, 1, True);
                findnormalrandoms;
                randoms;
              end;
            end;
          end;

    this currently is not needed btw, because it only happens, 'if(invFull)' you might've missed out another end after the if(invFull) loop perhaps?
    ok.. but can i still keep it?.. and can you explain the thing u said before alittle more clearer... thanks nitro but no thanks.. i standardize it my self before i realese it...

  25. #25
    Join Date
    Jan 2007
    Posts
    117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sure sry, it wasnt very clear wat i was saying firstly do u understand why the first bit of code wouldnt anything about the actual skill level? back to the bit which u didnt need, u can still include it (well u need to if the script is gonna do any fishing ) heres what u need to do:
    SCAR Code:
    function Fish: Boolean;
    begin
      repeat
        FishLoads := 0
        if (InvFull) then
        begin
          FishLoads := FishLoads + 1
          if FishLoads > (FishLevel) then
          begin
            ToBank;
            WalkToTree1;
          end;
        end;
        if (not (InvFull)) then
        begin
          if FindFishingSpot(x, y) then
          begin
            RotateNum := 15000 + Random(20000);
            if not FindWhirlPool(x, y) then
            begin
              Mouse(x, y, 1, 1, True);
              findnormalrandoms;
              randoms;
            end;
          end;
        end;
      until (IsUpText('You cant carry any more fish.'))
    end;

    because you effectively had:
    SCAR Code:
    if (invFull) then
    begin
      if (not(InvFull)) then...
    This is a contradiction so nothing will happen.

    But the above script is a bit clumsy.. this is better:
    SCAR Code:
    procedure Fish;
    begin
      repeat
        if (FindFishingSpot(x, y)) then
        begin
          RotateNum := 15000 + Random(20000);
          if (not (FindWhirlPool(x, y))) then
          begin
            Mouse(x, y, 1, 1, True);
            findnormalrandoms;
            randoms;
          end;
        end;
      until (InvFull);
    fishlvl;
    end;

    ive included a call for the fishlvl procedure which i showed you earlier. Also fish can just be a procedue not a function, finally you need some failsafes etc. -apologies if i double post by accident, (quick post seemed to cut out)

Page 1 of 2 12 LastLast

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
  •