Results 1 to 3 of 3

Thread: Help on script?

  1. #1
    Join Date
    Jul 2008
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Question Help on script?

    How would I add a break feature to this script?
    Simba Code:
    program ProAlch;
    {$DEFINE SMART}
    {$include srl/srl/misc/smart.simba}
    {$include srl/srl.simba}
    var
      DTM,Location:Integer;
    const
     Speed       = 10;       //How fast to move mouse. (Lower is slower and better.)
      procedure DeclarePlayers;
    begin

      Location := 1; //Change to slot item to alch is in.

      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
       with Players[0] do
      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True;
      end;

    procedure ScriptStart;
    begin
      ClearDebug;
      Smart_Server := 71;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;
      SetupSRL;
      MouseSpeed:=Speed;
      DeclarePlayers;
      LoginPlayer;
    end;

    procedure Alchemy;
    var
      x,y:Integer;
    begin
    GameTab(tab_Magic);
    DTM := DTMFromString('mrAAAAHic42BgYGhnYmBoAuJ+IO4G4gogrgHieiDuAeLZjAwMC4B4JhD3AfEsJP58ID60QICBiZEJjmWRaD1GZob/DPgBIwEMAwDmdgwW');
    if FindDTM(DTM,x,y,MIx1,MIy1,mix2,miy2) then
      begin
        Mouse(x,y,4,4,True);
        MouseItem(Location,1);
      end;
    wait(950);
    end;

    Procedure Antiban;
    Begin

      Case Random(100) Of
        1: HoverSkill('magic', False);
        2: HoverSkill('random', False);
        3: Boredhuman;
        4: Wait(2500 + random(4500));
        5: HoverSkill('firemaking', False);
        6: PickUpMouse;
        7: RandomMovement;
        8: RandomRClick;
        9: BoredHuman;

      end;
    end;

    Procedure MiniBreaker;
    Begin

      Case Random (160) Of
        1: Wait(40000 + random(7400));
        2: Wait(25500 + random(8550));
        3: Wait(60040 + random(6759));
        4: Wait(20400 + random(2549));
      end;
    end;

    Procedure Randoms;
    Begin
    Findnormalrandoms;
    End;

    begin
      ScriptStart;
      repeat
       Alchemy;
       Antiban;
       MiniBreaker;
       Randoms;
       until(AllPlayersInactive);
        FreeDTM(DTM);
    end.

  2. #2
    Join Date
    Dec 2011
    Location
    Kosovo
    Posts
    831
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Simba Code:
    const
      SRLStats_Username = '';   //Insert your SRL stats username here.
      SRLStats_Password = '';   //Insert your SRL stats password here.
      BreakEvery        = 20;  //How many minutes before breaking?
      BreakFor          = 5;    //How many minutes to break for?
      Version           = '2'; // Version of your Big Script :p
      NumbOfPlayers     = 1;    //How many players are you using?
      StartPlayer       = 0;    //Which player will you start with? (0 means first)

    You can remove the SRL stasts. This should be at the beginning. Before procedure DeclarePlayers;
    Goals:
    Understanding TPAs
    Making Proggy for fighting
    Getting on SRL members
    Get 500 posts

  3. #3
    Join Date
    Dec 2011
    Location
    Toronto, Ontario
    Posts
    6,424
    Mentioned
    84 Post(s)
    Quoted
    863 Post(s)

    Default

    So you're still modifying my script...?

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
  •