Results 1 to 7 of 7

Thread: Helper Script 0.1 Alpha

  1. #1
    Join Date
    Sep 2006
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Helper Script 0.11 Alpha - Safe for all accounts.

    This script does not interact with the client at all, except to pick colors. This is for fighting or mining ess or woodcutting or fishing at the moment. I made this while doing homework and training on my pure. I could never concentrate on my homework while training, because I did not want a random to catch me. This script plays a sound when your inventory is full, when you speak with an npc, when you find a random, when you are in a fight when you are not supposed to be, or when you aren't in a fight when you are supposed to be. I need suggestions and more features. If anyone has any requests to add to this, please ask.

    I know you hate downloading attachments:
    SCAR Code:
    {.Script Info:
    # ScriptName  = HelperScript
    # Author      = xxLegitxx
    # Description = Helps you out while you train skills.
    # Version     = 0.11 Alpha
    # Date        = 19 Jan 07
    # Comments    = To my knowledge, does not interact with the client AT ALL.
                    Safe for all accounts.  Do not cover up your username.  It
                    checks for NPC chat using your username.
    # Updates     = 0.11 Alpha - Added DeclarePlayers for randoms and added HP check. Minor bug fixes.
                    0.10 Alpha - Basic script.
    /Script Info}

    program HelperScript;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\fighting.scar}
    var
    gMinutes, gStartPlayer, gScriptTime, gMark, gMark1, gMark2, gMark3, gMark4, gMark5, gMark6:integer;

    const
    TellTime    = True;   //If you want it to tell how long the script has been running.
    Fighting    = True;  //If you are fighting.
    HP          = True;  //If you want to be warned when you have low HP.
    HPWarn      = 10;  //Alert when you have lower than this hp percentage.
    Mining      = False;  //If you are mining.
    Woodcutting = False;  //If you are wcing.
    Fishing     = False;  //If you are fishing.
    Sound       = 'C:\WINDOWS\Media\ding.wav'; //Change if you like another sound better.

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

      Players[0].Name      := 'Zezima';
      Players[0].Nick      := 'ezi';
    end;

    procedure IfTellTime;
    begin
      if(TimeFromMark(gScriptTime) / 60000 > gMinutes) then
      begin
        gMinutes := gMinutes + 1;
        WriteLn(IntToStr(gMinutes) + ' minutes.');
      end;
    end;

    procedure MakeSound;
    begin
      PlaySound(Sound);
    end;

    //---------------------
    //  Based on FawkiDebug
    //---------------------
    procedure StatusMessage(gStatus:String);
    begin
      Status(gStatus);
      WriteLn(gStatus);
    end;

    //-----------------
    //  Based on FTWait
    //-----------------
    procedure AntiRandomWait(secs:integer);
    begin
      MarkTime(gMark);
      while(Seconds(secs) > TimeFromMark(gMark) + 500) do
      begin
        if(FindTalk) then MakeSound;
        Wait(400 + Random(100));
      end;
      while(Seconds(secs) > TimeFromMark(gMark)) do Wait(1);
    end;

    //-----------------------
    //  Alerts when HP is low
    //-----------------------
    procedure CheckHP;
    begin
      if(HP) then
      begin
        if(GetCurrentTab = 2) then
        begin
          if(HPPercent <= HPWarn)then
          begin
            MakeSound;
            StatusMessage('WARNING - ' + IntToStr(GetSkillAmount('hitpoints')) + ' HP.');
          end;
        end;
      end;
    end;
    //--------------------------
    //  What to do when fighting
    //--------------------------
    procedure IfFighting;
    begin
      if(Fighting) then
      begin
        if(not(FindColorTolerance(x, y, 0, 22, 437, 26, 446, 0))) then
        begin
          if((TimeFromMark(gMark6) > 10000) or (TimeFromMark(gMark6) = 0)) then
          begin
           MakeSound;
           MarkTime(gMark6);
           StatusMessage('Some message.');
          end;
        end;
        if(not(FindColorSpiral(x, y, 65280, 100, 75, 420, 270) or FindColorSpiral(x, y, 255, 100, 75, 420, 270))) then
        begin
          if((TimeFromMark(gMark1) > 15000) or (TimeFromMark(gMark1) = 0)) then
          begin
           MakeSound;
           MarkTime(gMark1);
           StatusMessage('Done fighting.');
          end;
        end;
      end else
      if(not(Fighting)) then
      begin
        if(InFight) then
        begin
          if((TimeFromMark(gMark2) > 5000) or (TimeFromMark(gMark2) = 0)) then
          begin
           MakeSound;
           MarkTime(gMark2);
           StatusMessage('Found a fight.');
          end;
        end;
      end;
    end;

    //----------------------
    //  What to do if mining
    //----------------------
    procedure IfMining;
    begin
      if(Mining) then
      begin
        if(not(FindColorTolerance(x, y, 0, 22, 437, 26, 446, 0))) then
        begin
          if((TimeFromMark(gMark3) > 10000) or (TimeFromMark(gMark3) = 0)) then
          begin
           MakeSound;
           MarkTime(gMark3);
           StatusMessage('Some message.');
          end;
        end;
      end;
    end;

    //----------------------
    //  What to do if fishing
    //----------------------
    procedure IfFishing;
    begin
      if(Fishing) then
      begin
        if(not(FindColorTolerance(x, y, 0, 22, 437, 26, 446, 0))) then
        begin
          if((TimeFromMark(gMark4) > 10000) or (TimeFromMark(gMark4) = 0)) then
          begin
           MakeSound;
           MarkTime(gMark4);
           StatusMessage('Some message.');
          end;
        end;
      end;
    end;

    //---------------------------
    //  What to do if woodcutting
    //---------------------------
    procedure IfWoodcutting;
    begin
      if(Woodcutting) then
      begin
        if(not(FindColorTolerance(x, y, 0, 22, 437, 26, 446, 0))) then
        begin
          if((TimeFromMark(gMark5) > 10000) or (TimeFromMark(gMark5) = 0)) then
          begin
           MakeSound;
           MarkTime(gMark5);
           StatusMessage('Some message.');
          end;
        end;
      end;
    end;

    begin
      MarkTime(gScriptTime);
      SetupSRL;
      DeclarePlayers;
      ActivateClient;
      ClearDebug;
      while(LoggedIn) do
      begin
        CheckHP;
        IfFighting;
        IfMining;
        IfWoodcutting;
        IfFishing;
        IfTellTime;
        AntiRandomWait(1);
        if(not(LoggedIn)) then AntiRandomWait(10);
      end;
      MakeSound;
    end.

    Btw, how do I add SRL version number and script version number?

  2. #2
    Join Date
    Nov 2006
    Location
    In an Amish Paradise
    Posts
    729
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    cool sounds like a good idea!! keep up the good work!!

  3. #3
    Join Date
    Dec 2006
    Posts
    78
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I got the same problem, when im doing my homework and autoing i cant concentrate on my work, ill test this later. But i learned its better just to do homework away from the computer desk
    Download Looney/GoFez0r's Merchanter v.1.1
    http://www.fenjer.com/adnan/SRLStats/57.png
    http://www.fenjer.com/adnan/SRL/8/2/...nt%20Alpha.png
    MSN:ghettogeec@hotmail.com
    Procedure CreateCommonItemMerchant;
    if CommonItemMerchant=Working then
    CreateFullMerchant;

    Scar= Me=

  4. #4
    Join Date
    Sep 2006
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for the support guys. Just give me reports, errors, suggestions. Thank you.

  5. #5
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    I like ur idea very much

    Maybe u should think about, if u have gotten a sound of a random, that u can klick a key (like one of the F-keys) to auto solve the random with SRL?
    Or even ,that when a random is spotted, that the scipt will wait 5-10 seconds after the sound has been played to solve the random itself. This could be handy if ur on the phone...

    Or a simple auto talker which will tell the lvl of the skill that is asked by someone..

  6. #6
    Join Date
    Sep 2006
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You realize that this is for mains. This is for any account that you do NOT want to risked getting banned with scar. If you want an auto-talker, just give me that account, because it's gonna get banned. But thanks for the feedback.

    Btw, someone on Mopar's I think asked to add HP warnings. Take a look to see if you guys like it. Also, I need you guys to check the anti-random system. Because an old man got past it. I need to know if it works.

  7. #7
    Join Date
    Sep 2006
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Bumpsies?

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. 1st script: CuT and BuRn 0.55 Alpha
    By lefamaster in forum First Scripts
    Replies: 44
    Last Post: 06-12-2008, 09:32 AM
  2. Yay! I got the helper cup!
    By n3ss3s in forum News and General
    Replies: 14
    Last Post: 08-20-2007, 02:59 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •