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

Thread: Proggy Wont Work?

  1. #1
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Proggy Wont Work?

    Ok so this script works perfectly to me but I still cannot get the progress report to work and I have no idea why. I read the tutorials on them but I still cannot understand, anyone know why it isn't working? Thanks.

  2. #2
    Join Date
    Feb 2007
    Location
    Alberta,Canada
    Posts
    2,358
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    uou call terminate script, before you cal proggy in your mainloop, thus the script ends before the proggie can be called. if you aren't catching my drift, im looking at,

    SCAR Code:
    begin
      SMARTSetUp('world124', True, True, False); {World prefix, safe mode, unsigned, RS-HD}
      SetTargetDC(SMARTGetDC);
      SetUpSRL;
      SRLID := YourSRLID;
      SRLPassword := YourSRLPW;
      DeclarePlayers;
      SetupPlayers;
      MainLoop;
      SendSRLReport;
      TerminateScript;
      Report;
    end.

    just move the report above the terminate script, and i think it should work,

    -Blumblebee
    “Ignorance, the root and the stem of every evil.”

  3. #3
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok thanks I'll try that. I would like it to show a new proggy every 5 minutes, so how would I do that?

    Edit: Ok so it posts the proggy every 20 seconds or so, but it just counts the time and nothing else.

    ================================================== =
    || Chickenz Killed: 0 ||
    || Experience Gained: 0 ||
    || Featherz Gathered: 0 ||
    || AntiBanz: 0 ||
    || AntiRandumz: 0 ||
    || Ran For: 3 Minutes and 8 Seconds ||
    ================================================== =

  4. #4
    Join Date
    Feb 2007
    Posts
    211
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by d1s3l View Post
    Ok thanks I'll try that. I would like it to show a new proggy every 5 minutes, so how would I do that?

    Edit: Ok so it posts the proggy every 20 seconds or so, but it just counts the time and nothing else.

    ================================================== =
    || Chickenz Killed: 0 ||
    || Experience Gained: 0 ||
    || Featherz Gathered: 0 ||
    || AntiBanz: 0 ||
    || AntiRandumz: 0 ||
    || Ran For: 3 Minutes and 8 Seconds ||
    ================================================== =
    You have to actually update the variables as the script goes through, such as you have to say Inc(ChickensKilled); every time the script kills a chicken. Same goes for everything else you want for your progress report (time being an exception)

    For every 5 minutes you could do something like having a var to hold the time for next progress report, for example I will call it ProggyTimer

    SCAR Code:
    if (GetSystemTime >= ProggyTimer) then
    begin
      Report;
      ProggyTimer := GetSystemTime + 300000; // 300000 ms = 5 minutes
    end;
    Current Project: Catching up on what I missed, re-writing some old includes I done in the past.
    Upcoming Project: Open For Suggestions

  5. #5
    Join Date
    Jul 2008
    Posts
    907
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    standards please? i haven't fixed em it'd take forever but erm this should work except for the feathers, you need to make it count them
    and then inc(featherz) so somat like
    SCAR Code:
    begin
      if finddtm(x, y, feather, mix1, miy1, mix2, miy2) then
        featherz:=getamount(x, y)
    end;

    SCAR Code:
    {


          /////// //    // //////// /////// //    // /////// //     //
          //      //    //    //    //      //  //   //      ////   //
          //      ////////    //    //      ////     /////   //  // //
          //      //    //    //    //      //  //   //      //    ///
          /////// //    // //////// /////// //    // /////// //     //
                   /////// //    // //     // /////// ///////
                   //   // //    // ////   // //      //   //
                   //////  // // // //  // // /////   ///////
                   //      // // // //    /// //      // //
                   //      ///  /// //     // /////// //   //
               -------------------------------------------------
              /                                                 \
             /___________________________________________________\
            /                  Created by: d1s3l                  \
           /                Anti-Randoms + Anti-Bans               \
          |                       Version 1.75                     |
          |        Credits To i pro leechin' On The Tutorial       |
          |                      On AntiRandoms                    |
          +========================================================+
                                                                       }


    program ChickenPwner;


    {.Include SRL\SRL\Misc\SMART.SCAR}
    {.Include SRL\SRL.SCAR}
    {.include SRL/SRL/skill/Fighting.scar}

      var X, Y, I , Mark , ExpGained , Clicked , AntiRandomz , FeathersPickedUp  , AntiBanz , ChickensKilled : Integer;

    const
      YourSRLID = ''; //Your SRL ID, 4 digits long. (create one at [url]http://www.stats.srl-forums.com/[/url])
      YourSRLPW = ''; //Your Srl Password
      ColorOfChicken1 = 4168878; //Pick a main color
      ColorOfChicken2 = 857705; //Pick a main color of a diff. type of chicken
     
     
    //----------------------------->Line 204 to change worlds<-----------------------------//
    //                             ^^^^^^^^^^^^^^^^^^^^^^^^^^^                             //
    //---------------------------->Line 89 to change fight mode<-------------------------- //
    //      (top right attack mode=1 , top left=2 , bottom left=3 , bottom right =4)       //


    procedure DeclarePlayers;
     begin
     HowManyPlayers :=1; //How many players to use in script
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer :=0;

     Players[0] .Name         := '';
     Players[0] .Pass         := '';
     Players[0] .Nick         := '';   //3/4 of the characters name (bobbey = bob)
     Players[0] .Active       := True; // True=yes, False=no//
     Players[0] .Booleans[1]  := False; // False for brightness Check Once. Just leave at false.
    end;

    //*******Do not change below this point*******//
       /////// //    // //////// /////// //    // /////// //     //
       //      //    //    //    //      //  //   //      ////   //
       //      ////////    //    //      ////     /////   //  // //
       //      //    //    //    //      //  //   //      //    ///
       /////// //    // //////// /////// //    // /////// //     //
                /////// //    // //     // /////// ///////
                //   // //    // ////   // //      //   //
                //////  // // // //  // // /////   ///////
                //      // // // //    /// //      // //
                //      ///  /// //     // /////// //   //


    procedure TiltScreen;
    begin
      if not(loggedIn) then exit;
      keydown(VK_DOWN);
      wait(200+random(125)+random(138));
      keyup(VK_DOWN);
      wait(random(232));
      end;

    Procedure SetupPlayers;
     begin
     if not LoggedIn then LoginPlayer;
     MakeCompass('n');
     SetAngle(true);
     SetRun(true);
     TiltScreen;
     SetFightMode(i+4);
     end;

    procedure Report;
    begin
      WriteLn('===================================================');
      WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled), 49) + '||');
      WriteLn(Padr('|| Experience Gained: ' + IntToStr(ExpGained), 49) + '||');
      WriteLn(Padr('|| Featherz Gathered: ' + IntToStr(FeathersPickedUp), 49) + '||');
      WriteLn(Padr('|| AntiBanz: ' + IntToStr(AntiBanz), 49) + '||');
      WriteLn(Padr('|| AntiRandumz: ' + IntToStr(AntiRandomz), 49) + '||');
      WriteLn(Padr('|| Ran For: ' + TimeRunning, 49) + '||');
      WriteLn('===================================================');
    end;

    procedure ClickTheMouse;
    begin
      Mouse(x,y,1,1,true)
      Clicked := Clicked + 1;
      GameTab(4);
    end;

    Function MobTPAs: TPointArray;
    Var
      TPA: TPointArray;
    begin
      FindColorsSpiralTolerance(MMCX, MMCY, TPA, 195836, MMX1, MMY1, MMX2, MMY2, 0);
      If Length(TPA) < 1 Then
        Exit;
      RAaSTPA(TPA, 4);
      SortTPAFrom(TPA, IntToPoint(MMCX, MMCY));
      result := TPA;
    end;

    procedure AntiRandoms;
      begin
      if not LoggedIn then Exit;
       if FindNormalRandoms then
       in(antirandomz)
        if FindFight then
      RunAway('E', True, 1, 5000);
     
     end;

    Procedure AntiBan;
      begin
      if not LoggedIn then Exit;
      case 6+random(10) of
        0 : HoverSkill('Random', false);
        1: PickUpMouse;
        2: BoredHuman;
        3,4: begin
               MakeCompass('S');
               wait(10+random(5));
               MakeCompass('N');
               wait(10+random(5));
               MakeCompass('E');
         end;
         inc(antibanz
        end;
       end;


    Procedure KillChicken;

      begin
      FindObjCustom(x, y, ['tta', 'ack', 'hick', 'ken'], [2572628,6916764,9155272,3627895,5928325], 3);
      Mouse(x, y, 2, 2, False);
      Wait(900 + Random(110));
      if not ChooseOption('ttack') then Exit;
      Flag;
      MarkTime(Mark);
      Wait(5 * 1000 + Random(1050));
      if HPPercent < 25 then RunTo('N', true);
      Wait(500);
      GameTab(4);
      inc(chickenzkilled);
    end;

    procedure FindFeathers;
    begin
      if (FindObjCustom(X, Y, ['ake', 'eat', 'ther'], [403205], 3)) then
        begin
          Mouse(x, y, 2, 2, False)
          if not(ChooseOption('ake')) then
          wait(500);
          Exit;
        end else
      Exit;
    end;


    procedure EndScript;
    begin
    writeln('ChickensKilled' + IntToStr(ChickenzKilled) + 'Total');
    begin
     Report;
     end;
     end;

    procedure MainLoop;
    var Mark : Integer;
    begin
      repeat
        repeat
         KillChicken;
          FindFeathers;
           MobTPAs;
            AntiRandoms;
             AntiBan;
            MarkTime(Mark);
           if not LoggedIn then Exit;
          KillChicken;
         FindFeathers;

        until((TimeFromMark(Mark) / 1000 * 60) >= 50);
      until(false);
     end;

    begin
      SMARTSetUp('world124', True, True, False); {World prefix, safe mode, unsigned, RS-HD}
      SetTargetDC(SMARTGetDC);
      SetUpSRL;
      SRLID := YourSRLID;
      SRLPassword := YourSRLPW;
      DeclarePlayers;
      SetupPlayers;
      MainLoop;
      SendSRLReport;
      Report;
    end.


  6. #6
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok I fixed up the script and now Im testing it. Thanks to everyone that helped. Ill post if I find other problems.

    Edit: The script works good still but it does now post the proggy still so I still do not know what is wrong. Here is the script.

    SCAR Code:
    {


          /////// //    // //////// /////// //    // /////// //     //
          //      //    //    //    //      //  //   //      ////   //
          //      ////////    //    //      ////     /////   //  // //
          //      //    //    //    //      //  //   //      //    ///
          /////// //    // //////// /////// //    // /////// //     //
                   /////// //    // //     // /////// ///////
                   //   // //    // ////   // //      //   //
                   //////  // // // //  // // /////   ///////
                   //      // // // //    /// //      // //
                   //      ///  /// //     // /////// //   //
               -------------------------------------------------
              /                                                 \
             /___________________________________________________\
            /                  Created by: d1s3l                  \
           /                Anti-Randoms + Anti-Bans               \
          |                       Version 1.75                     |
          |        Credits To i pro leechin' On The Tutorial       |
          |                      On AntiRandoms                    |
          +========================================================+
                                                                       }


    program ChickenPwner;


    {.Include SRL\SRL\Misc\SMART.SCAR}
    {.Include SRL\SRL.SCAR}
    {.include SRL/SRL/skill/Fighting.scar}

      var X, Y, I , Mark , ExpGained , Clicked , AntiRandomz , FeathersPickedUp , Feather, ProggyTimer , AntiBanz , ChickensKilled : Integer;

    const
      YourSRLID = ''; //Your SRL ID, 4 digits long. (create one at [url]http://www.stats.srl-forums.com/[/url])
      YourSRLPW = ''; //Your Srl Password
      ColorOfChicken1 = 4168878; //Pick a main color
      ColorOfChicken2 = 857705; //Pick a main color of a diff. type of chicken
     
     
    //----------------------------->Line 202 to change worlds<-----------------------------//
    //                             ^^^^^^^^^^^^^^^^^^^^^^^^^^^                             //
    //---------------------------->Line 89 to change fight mode<-------------------------- //
    //      (top right attack mode=1 , top left=2 , bottom left=3 , bottom right =4)       //


    procedure DeclarePlayers;
     begin
     HowManyPlayers :=1; //How many players to use in script
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer :=0;

     Players[0] .Name         := '';
     Players[0] .Pass         := '';
     Players[0] .Nick         := '';   //3/4 of the characters name (bobbey = bob)
     Players[0] .Active       := True; // True=yes, False=no//
     Players[0] .Booleans[1]  := False; // False for brightness Check Once. Just leave at false.
    end;

    //*******Do not change below this point*******//
       /////// //    // //////// /////// //    // /////// //     //
       //      //    //    //    //      //  //   //      ////   //
       //      ////////    //    //      ////     /////   //  // //
       //      //    //    //    //      //  //   //      //    ///
       /////// //    // //////// /////// //    // /////// //     //
                /////// //    // //     // /////// ///////
                //   // //    // ////   // //      //   //
                //////  // // // //  // // /////   ///////
                //      // // // //    /// //      // //
                //      ///  /// //     // /////// //   //


    procedure TiltScreen;
    begin
      if not(loggedIn) then exit;
      keydown(VK_DOWN);
      wait(200+random(125)+random(138));
      keyup(VK_DOWN);
      wait(random(232));
      end;

    Procedure SetupPlayers;
     begin
     if not LoggedIn then LoginPlayer;
     MakeCompass('n');
     SetAngle(true);
     SetRun(true);
     TiltScreen;
     SetFightMode(i+4);
     end;

    procedure Report;
    begin
      WriteLn('=============== skilld Spam Botter ================');
      WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled), 49) + '||');
      WriteLn(Padr('|| Experience Gained: ' + IntToStr(ExpGained), 49) + '||');
      WriteLn(Padr('|| Featherz Gathered: ' + IntToStr(FeathersPickedUp), 49) + '||');
      WriteLn(Padr('|| AntiBanz: ' + IntToStr(AntiBanz), 49) + '||');
      WriteLn(Padr('|| AntiRandumz: ' + IntToStr(AntiRandomz), 49) + '||');
      WriteLn(Padr('|| Ran For: ' + TimeRunning, 49) + '||');
      WriteLn('===================================================');
    end;

    procedure ProggyTime;
    begin
    if (GetSystemTime >= ProggyTimer) then
    begin
      Report;
      ProggyTimer := GetSystemTime + 300000;
      repeat
      until(false)
    end;
    end;

    procedure ClickTheMouse;
    begin
      Mouse(x,y,1,1,true)
      Clicked := Clicked + 1;
      GameTab(4);
    end;

    Function MobTPAs: TPointArray;
    Var
      TPA: TPointArray;
    begin
      FindColorsSpiralTolerance(MMCX, MMCY, TPA, 195836, MMX1, MMY1, MMX2, MMY2, 0);
      If Length(TPA) < 1 Then
        Exit;
      RAaSTPA(TPA, 4);
      SortTPAFrom(TPA, IntToPoint(MMCX, MMCY));
      result := TPA;
    end;

    procedure AntiRandoms;
      begin
      if not LoggedIn then Exit;
       FindNormalRandoms;
        if FindFight then
       SetRun(true);
     end;

    Procedure AntiBan;
      begin
      if not LoggedIn then Exit;
      case 6+random(10) of
        0 : HoverSkill('Random', false);
        1: PickUpMouse;
        2: BoredHuman;
        3,4: begin
               MakeCompass('S');
               wait(10+random(5));
               MakeCompass('N');
               wait(10+random(5));
               MakeCompass('E');
         end;
        end;
       end;


    Procedure KillChicken;

      begin
      FindObjCustom(x, y, ['tta', 'ack', 'hick', 'ken'], [2572628,6916764,9155272,3627895,5928325], 3);
      Mouse(x, y, 2, 2, False);
      Wait(900 + Random(110));
      if not ChooseOption('ttack') then Exit;
      Flag;
      MarkTime(Mark);
      Wait(5 * 1000 + Random(1050));
      Wait(500);
      GameTab(4);
    end;

    procedure FindFeathers;
    begin
      if (FindObjCustom(X, Y, ['take', 'feat', 'ther'], [403205], 3)) then
        begin
          Mouse(x, y, 2, 2, False)
          if not(ChooseOption('ake')) then
          wait(500);
          Exit;
        end else
      Exit;
    end;

    Procedure CountFeathers;
    begin
      if finddtm(x, y, feather, mix1, miy1, mix2, miy2) then
        FeathersPickedUp:=getamount(x, y)
    end;

    Procedure CountDeadChickens;
    begin
        ChickensKilled:=getamount(x, y)
    end;


    procedure EndScript;
    begin
    writeln('ChickensKilled' + IntToStr(ChickensKilled) + 'Total');
    begin
     Report;
     end;
     end;

    procedure MainLoop;
    var Mark : Integer;
    begin
      repeat
        repeat
         KillChicken;
          FindFeathers;
           MobTPAs;
            AntiRandoms;
             AntiBan;
            MarkTime(Mark);
           if not LoggedIn then Exit;
          KillChicken;
         FindFeathers;
        until((TimeFromMark(Mark) / 1000 * 60) >= 50);
      until(false);
     end;

    begin
      SMARTSetUp('world124', True, True, False); {World prefix, safe mode, unsigned, RS-HD}
      SetTargetDC(SMARTGetDC);
      SetUpSRL;
      SRLID := YourSRLID;
      SRLPassword := YourSRLPW;
      DeclarePlayers;
      SetupPlayers;
      MainLoop;
      SendSRLReport;
      Report;
      TerminateScript;
    end.

  7. #7
    Join Date
    Feb 2007
    Location
    Alberta,Canada
    Posts
    2,358
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    you dont increase anything to add to the proggie, thus the only thing that gets increased is t he total time.

    you need things like inc(X) (X meaning whatever you want to add to string, like chickenskilled for example). inc(x) will increase the number by one. So after every chicken kill, you can increase it on the porggie (if you need more help with this i can show you an example, but im lazy and i dont want to unless necessary).

    I hope that helped, if not just pm me or something, and i can give you more help.

    -Blumblebee
    “Ignorance, the root and the stem of every evil.”

  8. #8
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Dude. We've told you a thousand times.

    In your main loop, move TerminateScript; below Report;...

  9. #9
    Join Date
    Feb 2007
    Location
    Alberta,Canada
    Posts
    2,358
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by TheVoiceInYourHead View Post
    Dude. We've told you a thousand times.

    In your main loop, move TerminateScript; below Report;...
    hes got that, and hes got it on a timer, hes saying that it shows up blank, with nothing on it and he cant figure out why.
    “Ignorance, the root and the stem of every evil.”

  10. #10
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ChickensKilled:=getamount(x, y)


    Phale.

    You need to have it increase ChickensKilled every time it attacks a chicken.

  11. #11
    Join Date
    Jul 2008
    Posts
    907
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    the one i posted dude?


  12. #12
    Join Date
    Feb 2007
    Posts
    211
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by TheVoiceInYourHead View Post
    Dude. We've told you a thousand times.

    In your main loop, move TerminateScript; below Report;...
    I hate to diss you dude but 90+% of all posts i found by you are complete garbage usually just a random comment thats completely unneeded, most are rude and making you look like a postwhore. When someone doesnt understand and messes something up you dont make fun of them for it. you explain it. Please stop with these rude worthless posts.
    Current Project: Catching up on what I missed, re-writing some old includes I done in the past.
    Upcoming Project: Open For Suggestions

  13. #13
    Join Date
    Feb 2007
    Location
    Alberta,Canada
    Posts
    2,358
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Seroko View Post
    I hate to diss you dude but 90+% of all posts i found by you are complete garbage usually just a random comment thats completely unneeded, most are rude and making you look like a postwhore. When someone doesnt understand and messes something up you dont make fun of them for it. you explain it. Please stop with these rude worthless posts.
    agreed, and @D1 - heres a fixed version (i didnt test/try to compie it so srry if it doesnt work )

    SCAR Code:
    {


          /////// //    // //////// /////// //    // /////// //     //
          //      //    //    //    //      //  //   //      ////   //
          //      ////////    //    //      ////     /////   //  // //
          //      //    //    //    //      //  //   //      //    ///
          /////// //    // //////// /////// //    // /////// //     //
                   /////// //    // //     // /////// ///////
                   //   // //    // ////   // //      //   //
                   //////  // // // //  // // /////   ///////
                   //      // // // //    /// //      // //
                   //      ///  /// //     // /////// //   //
               -------------------------------------------------
              /                                                 \
             /___________________________________________________\
            /                  Created by: d1s3l                  \
           /                Anti-Randoms + Anti-Bans               \
          |                       Version 1.75                     |
          |        Credits To i pro leechin' On The Tutorial       |
          |                      On AntiRandoms                    |
          +========================================================+
                                                                       }


    program ChickenPwner;


    {.Include SRL\SRL\Misc\SMART.SCAR}
    {.Include SRL\SRL.SCAR}
    {.include SRL/SRL/skill/Fighting.scar}

      var X, Y, I , Mark , ExpGained , Clicked , AntiRandomz , FeathersPickedUp  , AntiBanz , ChickensKilled : Integer;

    const
      YourSRLID = ''; //Your SRL ID, 4 digits long. (create one at <a href="http://www.stats.srl-forums.com/" target="_blank">http://www.stats.srl-forums.com/</a>)
      YourSRLPW = ''; //Your Srl Password
      ColorOfChicken1 = 4168878; //Pick a main color
      ColorOfChicken2 = 857705; //Pick a main color of a diff. type of chicken


    //----------------------------->Line 204 to change worlds<-----------------------------//
    //                             ^^^^^^^^^^^^^^^^^^^^^^^^^^^                             //
    //---------------------------->Line 89 to change fight mode<-------------------------- //
    //      (top right attack mode=1 , top left=2 , bottom left=3 , bottom right =4)       //


    procedure DeclarePlayers;
     begin
     HowManyPlayers :=1; //How many players to use in script
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer :=0;

     Players[0] .Name         := '';
     Players[0] .Pass         := '';
     Players[0] .Nick         := '';   //3/4 of the characters name (bobbey = bob)
     Players[0] .Active       := True; // True=yes, False=no//
     Players[0] .Booleans[1]  := False; // False for brightness Check Once. Just leave at false.
    end;

    //*******Do not change below this point*******//
       /////// //    // //////// /////// //    // /////// //     //
       //      //    //    //    //      //  //   //      ////   //
       //      ////////    //    //      ////     /////   //  // //
       //      //    //    //    //      //  //   //      //    ///
       /////// //    // //////// /////// //    // /////// //     //
                /////// //    // //     // /////// ///////
                //   // //    // ////   // //      //   //
                //////  // // // //  // // /////   ///////
                //      // // // //    /// //      // //
                //      ///  /// //     // /////// //   //


    procedure TiltScreen;
    begin
      if not(loggedIn) then exit;
      keydown(VK_DOWN);
      wait(200+random(125)+random(138));
      keyup(VK_DOWN);
      wait(random(232));
      end;

    Procedure SetupPlayers;
     begin
     if not LoggedIn then LoginPlayer;
     MakeCompass('n');
     SetAngle(true);
     SetRun(true);
     TiltScreen;
     SetFightMode(i+4);
     end;

    procedure Report;
    begin
      WriteLn('===================================================');
      WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled)) + '||');
      WriteLn(Padr('|| Experience Gained: ' + IntToStr(ExpGained)) + '||');
      WriteLn(Padr('|| Featherz Gathered: ' + IntToStr(FeathersPickedUp)) + '||');
      WriteLn(Padr('|| AntiBanz: ' + IntToStr(AntiBanz)) + '||');
      WriteLn(Padr('|| AntiRandumz: ' + IntToStr(AntiRandomz)) + '||');
      WriteLn(Padr('|| Ran For: ' + TimeRunning) + '||');
      WriteLn('===================================================');
    end;

    procedure ClickTheMouse;
    begin
      Mouse(x,y,1,1,true)
      Clicked := Clicked + 1;
      GameTab(4);
    end;

    Function MobTPAs: TPointArray;
    Var
      TPA: TPointArray;
    begin
      FindColorsSpiralTolerance(MMCX, MMCY, TPA, 195836, MMX1, MMY1, MMX2, MMY2, 0);
      If Length(TPA) < 1 Then
        Exit;
      RAaSTPA(TPA, 4);
      SortTPAFrom(TPA, IntToPoint(MMCX, MMCY));
      result := TPA;
    end;

    procedure AntiRandoms;
      begin
      if not LoggedIn then Exit;
       if FindNormalRandoms then
       in(antirandomz)
        if FindFight then
      RunAway('E', True, 1, 5000);

     end;

    Procedure AntiBan;
      begin
      if not LoggedIn then Exit;
      case 6+random(10) of
        0 : HoverSkill('Random', false);
        1: PickUpMouse;
        2: BoredHuman;
        3,4: begin
               MakeCompass('S');
               wait(10+random(5));
               MakeCompass('N');
               wait(10+random(5));
               MakeCompass('E');
         end;
         inc(antibanz);
        end;
       end;


    Procedure KillChicken;

      begin
      FindObjCustom(x, y, ['tta', 'ack', 'hick', 'ken'], [2572628,6916764,9155272,3627895,5928325], 3);
      Mouse(x, y, 2, 2, False);
      Wait(900 + Random(110));
      if not ChooseOption('ttack') then Exit;
      Flag;
      MarkTime(Mark);
      Wait(5 * 1000 + Random(1050));
      if HPPercent < 25 then RunTo('N', true);
      Wait(500);
      GameTab(4);
      inc(chickenzkilled);
    end;

    procedure FindFeathers;
    begin
      if (FindObjCustom(X, Y, ['ake', 'eat', 'ther'], [403205], 3)) then
        begin
          Mouse(x, y, 2, 2, False)
          if not(ChooseOption('ake')) then
          wait(500);
          Exit;
        end else
      Exit;
    end;


    procedure EndScript;
    begin
    writeln('ChickensKilled' + IntToStr(ChickenzKilled) + 'Total');
    begin
     Report;
     end;
     end;

    procedure MainLoop;
    var Mark : Integer;
    begin
      repeat
        repeat
         KillChicken;
          FindFeathers;
           MobTPAs;
            AntiRandoms;
             AntiBan;
            MarkTime(Mark);
           if not LoggedIn then Exit;
          KillChicken;
         FindFeathers;

        until((TimeFromMark(Mark) / 1000 * 60) >= 50);
      until(false);
     end;

    begin
      SMARTSetUp('world124', True, True, False); {World prefix, safe mode, unsigned, RS-HD}
      SetTargetDC(SMARTGetDC);
      SetUpSRL;
      SRLID := YourSRLID;
      SRLPassword := YourSRLPW;
      DeclarePlayers;
      SetupPlayers;
      MainLoop;
      SendSRLReport;
      Report;
    end.
    “Ignorance, the root and the stem of every evil.”

  14. #14
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by blumblebee View Post
    agreed, and @D1 - try doing something along the lines of chickenskilled := Chickenskilled+1 or inc(ChickensKilled) (they do the same thing) chickenskilled represents a variable, whatever you specified i cant remember, ummm gimmi 5 minutes and ill kinda do a fix on your script for you
    Ok thanks for all the help. I sent you a pm asking for help and I sent the script there.

  15. #15
    Join Date
    Feb 2007
    Location
    Alberta,Canada
    Posts
    2,358
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yup yup i got that, if this didnt work, then ill send you my msn and ill give you some help
    “Ignorance, the root and the stem of every evil.”

  16. #16
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  17. #17
    Join Date
    Feb 2007
    Location
    Alberta,Canada
    Posts
    2,358
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    np, haha i love helping people get into scripting :P
    “Ignorance, the root and the stem of every evil.”

  18. #18
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  19. #19
    Join Date
    Feb 2007
    Posts
    211
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Also I saw you attempted to implement what I said about putting your report on a timer, you would replace report in the main part of your script with what i had, or pit before and after your whole report function so every time it calls report if it wasn't time for a report it would just script it (also could just make an exit command. Examples of what I ment by this, all will have the same outcome so you can use one not all :P

    SCAR Code:
    begin
      SMARTSetUp('world124', True, True, False); {World prefix, safe mode, unsigned, RS-HD}
      SetTargetDC(SMARTGetDC);
      SetUpSRL;
      SRLID := YourSRLID;
      SRLPassword := YourSRLPW;
      DeclarePlayers;
      SetupPlayers;
      MainLoop;
      SendSRLReport;
      if (GetSystemTime >= ProggyTimer) then
      begin
        Report;
        ProggyTimer := GetSystemTime + 300000; // 300000 ms = 5 minutes
      end;
    end.

    or

    SCAR Code:
    procedure Report;
    begin
      if (GetSystemTime >= ProggyTimer) then
      begin    
        WriteLn('===================================================');
        WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled)) + '||');
        WriteLn(Padr('|| Experience Gained: ' + IntToStr(ExpGained)) + '||');
        WriteLn(Padr('|| Featherz Gathered: ' + IntToStr(FeathersPickedUp)) + '||');
        WriteLn(Padr('|| AntiBanz: ' + IntToStr(AntiBanz)) + '||');
        WriteLn(Padr('|| AntiRandumz: ' + IntToStr(AntiRandomz)) + '||');
        WriteLn(Padr('|| Ran For: ' + TimeRunning) + '||');
        WriteLn('===================================================');
        ProggyTimer := GetSystemTime + 300000; // 300000 ms = 5 minutes
      end;
    end;

    and Finally

    SCAR Code:
    procedure Report;
    begin
      if (GetSystemTime < ProggyTimer) then
        Exit;
      ProggyTimer := GetSystemTime + 300000; // 300000 ms = 5 minutes
      WriteLn('===================================================');
      WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled)) + '||');
      WriteLn(Padr('|| Experience Gained: ' + IntToStr(ExpGained)) + '||');
      WriteLn(Padr('|| Featherz Gathered: ' + IntToStr(FeathersPickedUp)) + '||');
      WriteLn(Padr('|| AntiBanz: ' + IntToStr(AntiBanz)) + '||');
      WriteLn(Padr('|| AntiRandumz: ' + IntToStr(AntiRandomz)) + '||');
      WriteLn(Padr('|| Ran For: ' + TimeRunning) + '||');
      WriteLn('===================================================');
    end;
    Current Project: Catching up on what I missed, re-writing some old includes I done in the past.
    Upcoming Project: Open For Suggestions

  20. #20
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  21. #21
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by blumblebee View Post
    agreed, and @D1 - heres a fixed version (i didnt test/try to compie it so srry if it doesnt work )

    SCAR Code:
    {


          /////// //    // //////// /////// //    // /////// //     //
          //      //    //    //    //      //  //   //      ////   //
          //      ////////    //    //      ////     /////   //  // //
          //      //    //    //    //      //  //   //      //    ///
          /////// //    // //////// /////// //    // /////// //     //
                   /////// //    // //     // /////// ///////
                   //   // //    // ////   // //      //   //
                   //////  // // // //  // // /////   ///////
                   //      // // // //    /// //      // //
                   //      ///  /// //     // /////// //   //
               -------------------------------------------------
              /                                                 \
             /___________________________________________________\
            /                  Created by: d1s3l                  \
           /                Anti-Randoms + Anti-Bans               \
          |                       Version 1.75                     |
          |        Credits To i pro leechin' On The Tutorial       |
          |                      On AntiRandoms                    |
          +========================================================+
                                                                       }


    program ChickenPwner;


    {.Include SRL\SRL\Misc\SMART.SCAR}
    {.Include SRL\SRL.SCAR}
    {.include SRL/SRL/skill/Fighting.scar}

      var X, Y, I , Mark , ExpGained , Clicked , AntiRandomz , FeathersPickedUp  , AntiBanz , ChickensKilled : Integer;

    const
      YourSRLID = ''; //Your SRL ID, 4 digits long. (create one at <a href="http://www.stats.srl-forums.com/" target="_blank">http://www.stats.srl-forums.com/</a>)
      YourSRLPW = ''; //Your Srl Password
      ColorOfChicken1 = 4168878; //Pick a main color
      ColorOfChicken2 = 857705; //Pick a main color of a diff. type of chicken


    //----------------------------->Line 204 to change worlds<-----------------------------//
    //                             ^^^^^^^^^^^^^^^^^^^^^^^^^^^                             //
    //---------------------------->Line 89 to change fight mode<-------------------------- //
    //      (top right attack mode=1 , top left=2 , bottom left=3 , bottom right =4)       //


    procedure DeclarePlayers;
     begin
     HowManyPlayers :=1; //How many players to use in script
     NumberOfPlayers(HowManyPlayers);
     CurrentPlayer :=0;

     Players[0] .Name         := '';
     Players[0] .Pass         := '';
     Players[0] .Nick         := '';   //3/4 of the characters name (bobbey = bob)
     Players[0] .Active       := True; // True=yes, False=no//
     Players[0] .Booleans[1]  := False; // False for brightness Check Once. Just leave at false.
    end;

    //*******Do not change below this point*******//
       /////// //    // //////// /////// //    // /////// //     //
       //      //    //    //    //      //  //   //      ////   //
       //      ////////    //    //      ////     /////   //  // //
       //      //    //    //    //      //  //   //      //    ///
       /////// //    // //////// /////// //    // /////// //     //
                /////// //    // //     // /////// ///////
                //   // //    // ////   // //      //   //
                //////  // // // //  // // /////   ///////
                //      // // // //    /// //      // //
                //      ///  /// //     // /////// //   //


    procedure TiltScreen;
    begin
      if not(loggedIn) then exit;
      keydown(VK_DOWN);
      wait(200+random(125)+random(138));
      keyup(VK_DOWN);
      wait(random(232));
      end;

    Procedure SetupPlayers;
     begin
     if not LoggedIn then LoginPlayer;
     MakeCompass('n');
     SetAngle(true);
     SetRun(true);
     TiltScreen;
     SetFightMode(i+4);
     end;

    procedure Report;
    begin
      WriteLn('===================================================');
      WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled)) + '||');
      WriteLn(Padr('|| Experience Gained: ' + IntToStr(ExpGained)) + '||');
      WriteLn(Padr('|| Featherz Gathered: ' + IntToStr(FeathersPickedUp)) + '||');
      WriteLn(Padr('|| AntiBanz: ' + IntToStr(AntiBanz)) + '||');
      WriteLn(Padr('|| AntiRandumz: ' + IntToStr(AntiRandomz)) + '||');
      WriteLn(Padr('|| Ran For: ' + TimeRunning) + '||');
      WriteLn('===================================================');
    end;

    procedure ClickTheMouse;
    begin
      Mouse(x,y,1,1,true)
      Clicked := Clicked + 1;
      GameTab(4);
    end;

    Function MobTPAs: TPointArray;
    Var
      TPA: TPointArray;
    begin
      FindColorsSpiralTolerance(MMCX, MMCY, TPA, 195836, MMX1, MMY1, MMX2, MMY2, 0);
      If Length(TPA) < 1 Then
        Exit;
      RAaSTPA(TPA, 4);
      SortTPAFrom(TPA, IntToPoint(MMCX, MMCY));
      result := TPA;
    end;

    procedure AntiRandoms;
      begin
      if not LoggedIn then Exit;
       if FindNormalRandoms then
       in(antirandomz)
        if FindFight then
      RunAway('E', True, 1, 5000);

     end;

    Procedure AntiBan;
      begin
      if not LoggedIn then Exit;
      case 6+random(10) of
        0 : HoverSkill('Random', false);
        1: PickUpMouse;
        2: BoredHuman;
        3,4: begin
               MakeCompass('S');
               wait(10+random(5));
               MakeCompass('N');
               wait(10+random(5));
               MakeCompass('E');
         end;
         inc(antibanz);
        end;
       end;


    Procedure KillChicken;

      begin
      FindObjCustom(x, y, ['tta', 'ack', 'hick', 'ken'], [2572628,6916764,9155272,3627895,5928325], 3);
      Mouse(x, y, 2, 2, False);
      Wait(900 + Random(110));
      if not ChooseOption('ttack') then Exit;
      Flag;
      MarkTime(Mark);
      Wait(5 * 1000 + Random(1050));
      if HPPercent < 25 then RunTo('N', true);
      Wait(500);
      GameTab(4);
      inc(chickenzkilled);
    end;

    procedure FindFeathers;
    begin
      if (FindObjCustom(X, Y, ['ake', 'eat', 'ther'], [403205], 3)) then
        begin
          Mouse(x, y, 2, 2, False)
          if not(ChooseOption('ake')) then
          wait(500);
          Exit;
        end else
      Exit;
    end;


    procedure EndScript;
    begin
    writeln('ChickensKilled' + IntToStr(ChickenzKilled) + 'Total');
    begin
     Report;
     end;
     end;

    procedure MainLoop;
    var Mark : Integer;
    begin
      repeat
        repeat
         KillChicken;
          FindFeathers;
           MobTPAs;
            AntiRandoms;
             AntiBan;
            MarkTime(Mark);
           if not LoggedIn then Exit;
          KillChicken;
         FindFeathers;

        until((TimeFromMark(Mark) / 1000 * 60) >= 50);
      until(false);
     end;

    begin
      SMARTSetUp('world124', True, True, False); {World prefix, safe mode, unsigned, RS-HD}
      SetTargetDC(SMARTGetDC);
      SetUpSRL;
      SRLID := YourSRLID;
      SRLPassword := YourSRLPW;
      DeclarePlayers;
      SetupPlayers;
      MainLoop;
      SendSRLReport;
      Report;
    end.

    It seems good, but I get this error:
    Line 95: [Error] (16464:65): Invalid number of parameters in script
    Which is this part:
    WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled)) + '||');

  22. #22
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Change it to:
    WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled), 49) + '||');

  23. #23
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by TheVoiceInYourHead View Post
    Change it to:
    WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled), 49) + '||');
    Ok now its like this:
    SCAR Code:
    procedure Report;
    begin
      WriteLn('===================================================');
      WriteLn(Padr('|| Chickenz Killed: ' + IntToStr(ChickensKilled), 49) + '||');
      WriteLn(Padr('|| Experience Gained: ' + IntToStr(ExpGained), 49) + '||');
      WriteLn(Padr('|| Featherz Gathered: ' + IntToStr(FeathersPickedUp), 49) + '||');
      WriteLn(Padr('|| AntiBanz: ' + IntToStr(AntiBanz), 49) + '||');
      WriteLn(Padr('|| AntiRandumz: ' + IntToStr(AntiRandomz), 49) + '||');
      WriteLn(Padr('|| Ran For: ' + TimeRunning, 49) + '||');
      WriteLn('===================================================');
    end;

    but now I get this error:
    Line 127: [Error] (16748:1): Identifier expected in script

    procedure AntiRandoms;
    begin
    if not LoggedIn then Exit;
    if FindNormalRandoms then
    in(antirandomz)<-----this one
    if FindFight then
    RunAway('E', True, 1, 5000);
    end;

  24. #24
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    change it to Inc(antirandomz); instead of In(antirandomz);

  25. #25
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ================================================== =
    || Chickenz Killed: 12 ||
    || Experience Gained: 0 ||
    || Featherz Gathered: 0 ||
    || AntiBanz: 0 ||
    || AntiRandumz: 0 ||
    || Ran For: 3 Minutes and 27 Seconds ||
    ================================================== =

    Good it finally works!
    I dont knwo why the feathers didnt get counted though, Ill check it 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)

Similar Threads

  1. First proggy on a 2-hour-work script...
    By Floor66 in forum NOTA
    Replies: 10
    Last Post: 01-06-2009, 04:47 PM
  2. help it wont work :(
    By the premo1 in forum OSR Help
    Replies: 1
    Last Post: 11-27-2007, 12:18 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
  •