Page 1 of 3 123 LastLast
Results 1 to 25 of 61

Thread: The Termite by Whatsthat

  1. #1
    Join Date
    Nov 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default The Termite by Whatsthat

    Welcome to my thread, and the new powercutter "The Termite"



    THANK YOU!!!

    POST PROGGIES, DON'T LEECH, ASK FOR PERMISSION TO BORROW (script stuff)

    Yeah I already had the character that's in the script jacked, so don't even bother...

    Newest Version (V1.0) uploaded, test please!!!

  2. #2
    Join Date
    Nov 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    noone can help me

  3. #3
    Join Date
    Oct 2007
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What is this?

  4. #4
    Join Date
    Nov 2007
    Posts
    157
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok, line 15 needs a semicolon, after that I get an error on line 107 saying "Unknown identifier 'RotateEvery' in script." I tried changing it around and even replaced the entire procedure with another person's antiban and I couldn't fix it. I don't know much at all though. I hope you get it running, I'd love to test it. It looks good.

    I hope someone with some experience comes along to help.

  5. #5
    Join Date
    Apr 2007
    Location
    Michigan -.-
    Posts
    1,357
    Mentioned
    2 Post(s)
    Quoted
    4 Post(s)

    Default

    SCAR Code:
    // BY WHATSTHAT
     // THIS IS MEH FIRST SCRIPT
     // THANK YOU FOR TRYING IT FOR ME :D


     program New;
     {.include SRL/SRL.scar}

     var Loads: Integer;

     const
       LoadsPerPlayer = 25;  //This is how many loads each character will do.
       TreeColor = 0;  //Use the color picker to fill in a tree color.
       WaitPerTree = 5000;
       AxeEquiped = False; // <--- NEEDED SEMI COLON THERE

     procedure DeclarePlayers;
     begin
       NumberOfPlayers(4);
       CurrentPlayer := 0;

       Players[0].Name := ''; //Your character's name.
       Players[0].Pass := ''; //Your character's password.
       Players[0].Nick := ''; //Your character's nickname, should be 2-3 letters.
       Players[0].Active := True; //Is this characting going to be active?

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

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

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

     procedure ChopTree;
     var
       x, y, MyMark : integer;
     begin
       if not Loggedin then Exit;
       MarkTime(MyMark);
       repeat
         if FindObj(x, y, 'hop', TreeColor, 30) then
         begin
           Mouse(x, y, 0, 0, False);
           if ChooseOption('hop') then
           begin
             Exit;
           end;
         end;
         if TimeFromMark(MyMark) > (2 * 60 * 100) then
         begin
           Logout;
           Exit;
         end;
       until false
     end;

     function FindFastRandoms: Boolean;  // WT-Fakawi
     var
      i: Integer;
     begin
      for i:=1 to 10 do
      begin
        case I of
         1:  if FindDead then
               Result := True;
         2:  if FindMod then
               Result := True;
         3:  if FindMime then
               Result := True;
         4:  if FindMaze then
               Result := True;
         5:  if FindQuiz then
               Result := True;
         6:  if FindDemon then
               Result := True;
         7:  begin
               if NoGameTab then
               begin
                 Result := True;
                 Players[CurrentPlayer].loc := 'No GameTab';
                 Logout;
                 Exit;
               end;
             end;
         8:  if FindTalk then Result:= True;
        end;
        wait(1);
      end;
     end;

     procedure Antiban;
      var
        DBanMe : Integer;
      begin
      DBanMe:= Random(20); // <--- CHANGED THAT TO A HIGHER NUMBER SO IT DOESNT LOOK SO OFTEN
       case DbanMe of
        1:HoverSkill('random', False);
        3:GameTab(2 + Random(10));         //<<< TOOK OUT ROTATEEVERY CUZ IT DOESNT EXIST ANYMORE
        4:MMouse(Random(MSY1), Random(MSX1), 0, 0);
       end; // <--- NEEDED TO END YOUR CASE STATEMENT
      end;
     
     procedure AntiRandoms;
     Begin                       // YOU ONLY NEED FINDNORMALRANDOMS HERE!
      FindMod;
      FindNormalRandoms;
      FindTalk;
      FindMime;
      FindMaze;
      DwarfItem;
      FindDemon;
      Solvepinball;
      FindLamp(Players[CurrentPlayer].Skill);
      UseBoxSolver := True
      UseCerterSolver := True
      UseSandwichSolver :=True
     end;

     function UberEnt: Boolean; //by Nashi, Edited By HyperSecret
    var
     x, y:integer;
     begin
      if (FindColorTolerance(x, y, 383705, 9, 9, 233, 24, 20)) or
         (FindColorTolerance(x, y, 65535, 9, 9, 233, 24, 20)) then
      begin
        GetMousePos(x, y);
        Mouse(x, y, 5, 5, False);
        if (FindText(x, y, 'Chop down', upchars, x - 50, y - 50, x + 100, y + 50)) then
        begin
          if (FindColor(x, y, 65535, x + 70, y, x + 100, y + 10)) then
          begin
            Mouse(MMCX, MMCY, 5, 5, True);
            Writeln('Found ent. Waiting for ent to go away.');
            Result := True;
            EntsAvoided := EntsAvoided + 1;
          end;
        end;
     end;
     end;
      // GOT RID OF SOLVE CHAT RANDOM 2....YOU ONLY NEED FINDNORMALRANDOMS NOW //

     
     procedure Proggy;
      begin
       ClearDebug;
        Writeln('[]========================================[]');
        Writeln('---------------->Termite by Whatsthat<----------------');
        Writeln('  did ' + IntToStr(Loads) + ' Loads' + '    ');
        Writeln('---------------------------------------------');
        Writeln('[]========================================[]');
      end;

     begin
       SetupSRL;
       Disguise('Termite');
       Writeln('Starting up the termite, thank you for using!')
       DeclarePlayers;
       if Loggedin then Logout;
       LoginPlayer;

     repeat
       ChopTree;
       if InvFull then
       begin
         DropToPosition(2, 28)
         Inc(Players[CurrentPlayer].Banked);
         if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
         begin
           NextPlayer(True);
         end;
       end;
       if not Loggedin then NextPlayer(False);
     until false
     end.

    Ok i fixed your stuff lol explanations are next to the areas that i fixed. A suggestion of mine would be to learn proper standards. Hit up the tut island section if you dont know about them. Other than that looks like a good first script. Keep testing it and working out the things that will go wrong until you have an ownage script! Keep it up!
    METAL HEAD FOR LIFE!!!

  6. #6
    Join Date
    Dec 2006
    Location
    UK!!
    Posts
    910
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok i dont have mcuh time so i only made it compile right...
    SCAR Code:
    // BY WHATSTHAT
     // THIS IS MEH FIRST SCRIPT
     // THANK YOU FOR TRYING IT FOR ME :D


     program New;
     {.include SRL/SRL.scar}

     var Loads: Integer;

     const
       LoadsPerPlayer = 25;  //This is how many loads each character will do.
       TreeColor = 0;  //Use the color picker to fill in a tree color.
       WaitPerTree = 5000;
       AxeEquiped = False; //<----- needed a ; after false...

     procedure DeclarePlayers;
     begin
       NumberOfPlayers(4);
       CurrentPlayer := 0;

       Players[0].Name := ''; //Your character's name.
       Players[0].Pass := ''; //Your character's password.
       Players[0].Nick := ''; //Your character's nickname, should be 2-3 letters.
       Players[0].Active := True; //Is this characting going to be active?

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

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

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

     procedure ChopTree;
     var
       x, y, MyMark : integer;
     begin
       if not Loggedin then Exit;
       MarkTime(MyMark);
       repeat
         if FindObj(x, y, 'hop', TreeColor, 30) then
         begin
           Mouse(x, y, 0, 0, False);
           if ChooseOption('hop') then
           begin
             Exit;
           end;
         end;
         if TimeFromMark(MyMark) > (2 * 60 * 100) then
         begin
           Logout;
           Exit;
         end;
       until false
     end;

     function FindFastRandoms: Boolean;  // WT-Fakawi
     var
      i: Integer;
     begin
      for i:=1 to 10 do
      begin
        case I of
         1:  if FindDead then
               Result := True;
         2:  if FindMod then
               Result := True;
         3:  if FindMime then
               Result := True;
         4:  if FindMaze then
               Result := True;
         5:  if FindQuiz then
               Result := True;
         6:  if FindDemon then
               Result := True;
         7:  begin
               if NoGameTab then
               begin
                 Result := True;
                 Players[CurrentPlayer].loc := 'No GameTab';
                 Logout;
                 Exit;
               end;
             end;
         8:  if FindTalk then Result:= True;
        end;
        wait(1);
      end;
     end;

     procedure Antiban;// took out the rotate but i can always get u some.. be creative and hover some lvls or w/e.... boredhuman is a good one
      var
        DBanMe : Integer;
      begin
      DBanMe:= Random(3);
       case DbanMe of
        1:HoverSkill('random', False);
        2:GameTab(2 + Random(10));
        3:MMouse(Random(MSY1), Random(MSX1), 0, 0);
       end;
      end;
     
    procedure AntiRandoms;
     Begin
      FindMod;
      FindNormalRandoms;
      FindTalk;
      FindMime;
      FindMaze;
      DwarfItem;
      FindDemon;
      Solvepinball;
      FindLamp(Players[CurrentPlayer].Skill);
      UseBoxSolver := True
      UseCerterSolver := True
      UseSandwichSolver :=True
     end;

     function UberEnt: Boolean; //by Nashi, Edited By HyperSecret
    var
     x, y:integer;
     begin
      if (FindColorTolerance(x, y, 383705, 9, 9, 233, 24, 20)) or
         (FindColorTolerance(x, y, 65535, 9, 9, 233, 24, 20)) then
      begin
        GetMousePos(x, y);
        Mouse(x, y, 5, 5, False);
        if (FindText(x, y, 'Chop down', upchars, x - 50, y - 50, x + 100, y + 50)) then
        begin
          if (FindColor(x, y, 65535, x + 70, y, x + 100, y + 10)) then
          begin
            Mouse(MMCX, MMCY, 5, 5, True);
            Writeln('Found ent. Waiting for ent to go away.');
            Result := True;
            EntsAvoided := EntsAvoided + 1;
          end;
        end;
     end;
     end;

     function SolveChatRandom2: Boolean;// is this needed cos of findfastrandoms???
     var
      Event: string;
     begin
      if (not SolveChatRandoms) or (not AreTalking) then
        Exit;
      Event := GetNPCEvent;

      case Capitalize(Event) of
        'Unknown': Exit;
        'Pious Pete':                                     // Candle Lighting
          begin
            Writeln(Players[CurrentPlayer].Name + ': Stupid Pete =(');
            Logout;
            LoginPlayer
            Result := True;
            Exit;
          end;
        'Mysterious Old Man':                             // Maze + Pinball
          begin
            if ((GetColor(83, 431) = 0) and (GetColor(88, 418) = 0)) or
               ((GetColor(83, 430) = 0) and (GetColor(88, 417) = 0)) or
               ((GetColor(151, 426) = 0) and (GetColor(470, 393) = 0) and
               (GetColor(372, 370) = 128)) then
              begin
                SolvePinball;
              end
           Exit;
          end;
        'Quiz Master': FindQuiz;                          // Quiz Master
        'Prison Pete':                                    // ScapeRune balloons
          begin
            Inc(ScapeRunes);
            Writeln(Players[CurrentPlayer].Name + ': Yay Balloon Animals!');
            Logout;
            LoginPlayer
            Result := True;
            Exit;
          end;
        'Sergeant Damien': FindDemon;                     // Camo
        'Leo The Gravedigger':                            // Zombie
          begin
            Writeln(Players[CurrentPlayer].Name + ': I Don' + chr(39) + 't Want To Dig Any Graves! ');
            Logout;
            LoginPlayer
            Result := True;
            Exit;
          end;
        'Evil Bob':                                       // ScapeRune island
          begin
            Inc(ScapeRunes);
            Writeln(Players[CurrentPlayer].Name + ': An Evil Cat? What is the World Coming To?!');
            Logout;
            LoginPlayer
            Result := True;
            Exit;
          end;
         'Freaky Forester':                               // Lederhosen
          begin
            Writeln(Players[CurrentPlayer].Name + ': Since When Do Birds Have More Than One Tail...');
            Logout;
            LoginPlayer
            Result := True;
            Exit;
          end;
         'Mr Mordaut':                                   // Surprise Exam
          begin
            Writeln(Players[CurrentPlayer].Name + ': School? NO WAY!');
            Logout;
            LoginPlayer
            Result := True;
            Exit;
          end;
      end;
     end;
     
     procedure Proggy;
      begin
       ClearDebug;
        Writeln('[]========================================[]');
        Writeln('---------------->Termite by Whatsthat<----------------');
        Writeln('  did ' + IntToStr(Loads) + ' Loads' + '    ');
        Writeln('---------------------------------------------');
        Writeln('[]========================================[]');
      end;

     begin
       SetupSRL;
       Disguise('Termite');
       Writeln('Starting up the termite, thank you for using!')
       DeclarePlayers;
       if Loggedin then Logout;
       LoginPlayer;

     repeat
       ChopTree;
       if InvFull then
       begin
         DropToPosition(2, 28)
         Inc(Players[CurrentPlayer].Banked);
         if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
         begin
           NextPlayer(True);
         end;
       end;
       if not Loggedin then NextPlayer(False);
     until false
     end.

    otherwise is good... but there are no failsafes
    SCAR Code:
    if FindObj(x, y, 'hop', TreeColor, 30) then
    wat about if it can find the tree...
    SCAR Code:
    if not (FindObj(x, y, 'hop', TreeColor, 30)) then
    break;// for example...

    good start keep it up

    spaz


    EDIT... oh thx gerauchet... lol beat me to it..... :P

  7. #7
    Join Date
    Nov 2007
    Posts
    157
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Tried both of those guy's revisions and it'll log in and Find the Compass but will just stand there.
    I'm using a VM so I can't see what the mouse is doing. I'll try it on my normal computer in a little while to see what it's doing for me.

  8. #8
    Join Date
    Dec 2006
    Location
    UK!!
    Posts
    910
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    make sure ur near ur tree and set the color right... if u have to u canbt remember... and as i said i didn't have much time so i dont know it it actually works.. i jst made it compile,...

    spaz

  9. #9
    Join Date
    Nov 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    omg, omg thank you guys so much, i will improve this and hopefully turn it into a great banker

    i will add failsafes, gotta check that crap out, time to move on to FFA scripts and the intermediate tut island!!!

  10. #10
    Join Date
    Nov 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    updated, thanks for help mastas

  11. #11
    Join Date
    Nov 2007
    Location
    Australia
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  12. #12
    Join Date
    Nov 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    aight thanks for taking my character, still wanna post proggy?

  13. #13
    Join Date
    Nov 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok, im probably gonna add dtms in here by the end of next week

  14. #14
    Join Date
    Nov 2007
    Posts
    33
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Pretty much errors, easily fixed, keep up the good work!
    btw, the ent avoider doesn't work for me.

  15. #15
    Join Date
    Dec 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    cool

  16. #16
    Join Date
    Nov 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by distress View Post
    Pretty much errors, easily fixed, keep up the good work!
    btw, the ent avoider doesn't work for me.
    i dont get any errors, but yeah ent finder doesnt work really well, update comes out soon so keep your eyes peeled though

  17. #17
    Join Date
    Dec 2007
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    didnt find any errors, nice name btw its ferny xD

  18. #18
    Join Date
    Oct 2006
    Posts
    77
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    ok seetting it on, tested it works, ill post proogy soon
    http://i49.tinypic.com/2iibhwm.jpg
    This drawing got "stollen" idk i might retrieve it but i'm not sure.

  19. #19
    Join Date
    Nov 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    pretty nice for your frist one

  20. #20
    Join Date
    Nov 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks guys, update comes soon, still working on it though

  21. #21
    Join Date
    Dec 2007
    Posts
    133
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Good!

    Nice script as it is your first!
    but one suggestion add auto color it make it more easy! Keep it up.

  22. #22
    Join Date
    Nov 2007
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks, Good Job!

  23. #23
    Join Date
    Nov 2007
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks for the suggestion

  24. #24
    Join Date
    Aug 2007
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Woot It Works

  25. #25
    Join Date
    Sep 2007
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quite nice for a first script

    Well done, work hard on the updates

Page 1 of 3 123 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
  •