Results 1 to 2 of 2

Thread: power cutter

  1. #1
    Join Date
    Aug 2007
    Posts
    113
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default power cutter

    OK this is my first script and it is EXTREMELY simple, any ideas or suggestions on how to make it better?, e.c. antibans, more percise chopping, antirandoms?
    thanks very much


    SCAR Code:
    program Treekiller;
    //This is my frist script, so please post proggies an such.
    //fill out login information
    //fill out tree color and direction to run away, if attacked
    //if anyone has any suggestions or anything to make this better please post
    //can use for any tree as long as you pick the color
    //has antirandoms but haven't had the time to check if they work. but they should
    //Special thanks to RogerUK, hairy duncan2, and King of Knives for helping me with getting the script running.

    {.include SRL/SRL.scar}


    //Variables

    var
    Loads: integer;
    x,y  : integer;

    //Constants
    Const
    TreeColor = 531741; //Set the Tree Color
    StartPlayer = 0;
    NumberOfUsers = 1;
    WaitTime  = 5000; //5 Seconds to Wait

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

      Players[0].Name :='username';
      Players[0].Pass :='password';
      Players[0].Nick :='3-4 letter from your username';
      Players[0].Active:=True; // If You use This Player Set True
      NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
      if (not(LoggedIn)) then LoginPlayer;
     end;

    Procedure AntiRandoms;
    Begin
    FindTalk;
    FindNormalRandoms;
    if (FindFight = True) then
    begin
         RunAwayDirection('N');   //choose wisely
         Wait(10000 + random(3000));
         RunBack;
         end;
    end;

    Procedure Cut;
    Begin
      Repeat
       if(FindColorSpiralTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,5)) then
       begin
        MMouse(x,y,0,0);
        Wait(250+random(50));
        Mouse(x,y,0,0,true);
        Wait(500 + random(250));
        AntiRandoms;
        Wait(WaitTime +(random(500)))
       end;
      until(InvFull);
    end;

    Procedure Drop;
    Begin
    DropAll;
    Loads:=Loads+1;
    End;

    Procedure Prog;
    Begin
    ClearDebug;
         WriteLn('----->Welcome to the killer of trees :D<-----');
         WriteLn('                                            ');
         WriteLn('--------------------------------------------');
         WriteLn('------------->Progress Report<--------------');
         WriteLn('You have cut down' +IntToStr(Loads)+ 'loads!');
         WriteLn('---------->End of Progress Report<----------');
         WriteLn('--------------------------------------------');
    end;

    begin
    ActivateClient;
    SetupSRL;
    DeclarePlayers;
     repeat
       NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars);
       Cut;
       Drop;
       ClearDebug;
       Prog;
     until(IsFKeyDown(12));
    end.

  2. #2
    Join Date
    Jul 2007
    Location
    Players[CurrentPlayer].Loc:='Bank'
    Posts
    875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by s1cky View Post



    SCAR Code:
    program Treekiller;
    //This is my frist script, so please post proggies an such.
    //fill out login information
    //fill out tree color and direction to run away, if attacked
    //if anyone has any suggestions or anything to make this better please post
    //can use for any tree as long as you pick the color
    //has antirandoms but haven't had the time to check if they work. but they should
    //Special thanks to RogerUK, hairy duncan2, and King of Knives for helping me with getting the script running.

    {.include SRL/SRL.scar}


    //Variables

    var
    Loads: integer;
    x,y  : integer;

    //Constants
    Const
    TreeColor = 531741; //Set the Tree Color
    StartPlayer = 0;
    NumberOfUsers = 1;
    WaitTime  = 5000; //5 Seconds to Wait

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

      Players[0].Name :='username';
      Players[0].Pass :='password';
      Players[0].Nick :='ser' //3-4 letters of the middle of your username.
      Players[0].Active:=True; // If You use This Player Set True
      NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
      if (not(LoggedIn)) then LoginPlayer;
     end;

    Procedure AntiRandoms;
    Begin
    FindTalk;
    FindNormalRandoms;
    if (FindFight = True) then
    begin
         RunAwayDirection('N');   //choose wisely
         Wait(10000 + random(3000));
         RunBack;
         end;
    end;

    Procedure Cut;
    Begin
      Repeat
       if(FindColorSpiralTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,5)) then
       begin
        MMouse(x,y,0,0);
        Wait(250+random(50));
        Mouse(x,y,0,0,true);
        Wait(500 + random(250));
        AntiRandoms;
        Wait(WaitTime +(random(500)))
       end;
      until(InvFull);
    end;

    Procedure Drop;
    Begin
    DropAll;
    Loads:=Loads+1;
    End;

    Procedure Prog;
    Begin
    ClearDebug;
         WriteLn('----->Welcome to the killer of trees :D<-----');
         WriteLn('                                            ');
         WriteLn('--------------------------------------------');
         WriteLn('------------->Progress Report<--------------');
         WriteLn('You have cut down' +IntToStr(Loads)+ 'loads!');
         WriteLn('---------->End of Progress Report<----------');
         WriteLn('--------------------------------------------');
    end;

    begin
    ActivateClient;
    SetupSRL;
    DeclarePlayers;
     repeat
       NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars);
       Cut;
       Drop;
       ClearDebug;
       Prog;
     until(IsFKeyDown(12));
    end.


    Never use x,y,0,0. That will have it click the exact pixel of the color which will get ya banned pretty dayum fast. Try x,y,5,5 or something similar to that. For randoms use FindFastRandoms
    SCAR Code:
    function FindFastRandoms: Boolean; //By WT-Fakawi.
    var
      i: Integer;
    begin
      for i := 1 to 8 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;
          7: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          8: RC;
        end;
        wait(1);
      end;
    end;


    procedure Randoms;
    begin
      FindFastRandoms;
      FindNormalRandoms;
      if FindFight then
      begin
        Runto(RunDirection, True);
        Wait(7000+Random(2000))
        RunBack;
        FindEnt(x,y,True);
      end;
    end;

    Ignore the FindEnt becuase im not even sure i did that right. But thats a pretty decent AntiRandom for you. You only need create bitmask once, so it doesn't have to be in the loop. Read a DTM tutorial and use that in your drop procedure. That will keep you from dropping an axe you have in your inventory and whatnot. (For that antirandom you'll need to have a const RunDirection('n') or w e s.
    Quote Originally Posted by sirlaughsalot
    .... Obama had the devil jump out of his ass, run and stab Hillary in the back...
    ILMMTYAEAFHPY.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help with my power cutter plz.
    By shrubie1 in forum OSR Help
    Replies: 9
    Last Post: 06-01-2008, 02:53 AM
  2. My Power Cutter :)
    By kooldude in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 12-01-2007, 01:43 PM
  3. Help with my power cutter
    By shadows-collide in forum News and General
    Replies: 29
    Last Post: 06-25-2007, 04:37 PM
  4. power cutter
    By t3hl33tn00b in forum RS3 Outdated / Broken Scripts
    Replies: 37
    Last Post: 01-21-2007, 01:44 AM
  5. Help with Power cutter!@
    By wtf i sp4nk in forum OSR Help
    Replies: 2
    Last Post: 12-17-2006, 02:16 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
  •