Page 23 of 24 FirstFirst ... 1321222324 LastLast
Results 551 to 575 of 597

Thread: [OUTDATED][SRL 4] Gobbiez! 0.60 Autofighter.

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

    Default

    i please re-worked the coloring. it's not working for some odd reason. I have done about 5 tests with it on my pure.

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

    Default

    oh forget it i got it too work. i changed the brightness and it worked.

  3. #553
    Join Date
    May 2007
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice I used it very much , but sometimes its kinda crowded :P

  4. #554
    Join Date
    Apr 2008
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Emm error.

    Line 73: [Error] (13714:14): Syntax error in script C:\Documents and Settings\XXXXXXXXX\Desktop\[SRL4] Gobbiez 0.62 PUB.scar

  5. #555
    Join Date
    Mar 2008
    Location
    New Jersey
    Posts
    1,673
    Mentioned
    1 Post(s)
    Quoted
    9 Post(s)

    Default

    did you guys not see what Rencuz said, the script and some SRL functions and procedures are OUTDATED quit spamming and trying to get post counts up. Someone should close this thread, at least until it gets updated, if it gets updated.

  6. #556
    Join Date
    May 2008
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i cant usee what revision need this thing??

  7. #557
    Join Date
    May 2008
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  8. #558
    Join Date
    May 2008
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  9. #559
    Join Date
    Jul 2007
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice. been running for 5 mins and it works perfectly with no bugs (yet)

  10. #560
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    This script is outdated. Download it for evaluation purposes. If anyone (SRL Members and above) feels like updating it and posting it here, please do so.
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  11. #561
    Join Date
    May 2008
    Posts
    103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it helped out a lot
    good job no bugs
    got def up fast
    from lvl 1 to 34 in 10 hours

  12. #562
    Join Date
    May 2008
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    whoever invented this is prety awesome.

  13. #563
    Join Date
    May 2008
    Posts
    15
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    after downloading this..... its an alright script needs some work still. its also a bit slow.

  14. #564
    Join Date
    May 2008
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    once i had downloaded it, it worked well but it was a bit slow and needs some editing

  15. #565
    Join Date
    Aug 2007
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yea a lil slow but good nice job dude

  16. #566
    Join Date
    Mar 2007
    Posts
    393
    Mentioned
    1 Post(s)
    Quoted
    98 Post(s)

    Default

    i left it overnight and it still ran in the morning
    very nice script

  17. #567
    Join Date
    May 2008
    Posts
    27
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lawl, seems kool enough.

    How long has this script lasted before gets eaten by a random event?

    ~ M5N!

  18. #568
    Join Date
    May 2008
    Location
    in front of computer
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanx for this the nice script
    i lved from 6 to lv 34 cb

  19. #569
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Quote Originally Posted by WT-Fakawi View Post
    This script is outdated. Download it for evaluation purposes. If anyone (SRL Members and above) feels like updating it and posting it here, please do so.

    You heard him, shoo!

    Unlucky for you xbowman, but you got busted lying.

  20. #570
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Use your Banhammer n3ss3s!! x)


    Dearest Fakawi- I updated a while ago... dunno if it will still work, but hey, it compiles fine Enjoy, someone test for me please. I can't be asked to do tut island again...
    SCAR Code:
    {.Script Info:
    # ScriptName  = Goblin Schredduler
    # Author      = WT-Fakawi, plus love from Hy71194 :)
    # Description = Kills Goblins at GoblinHouse NE of LumCastle
    # Version     = 0.63
    # Date        = Fri. May 11, 2007.
    # Updated     = Wed. March 26, 2008.
    # Comments    = SRL 4 - Revision 16. Pick ROCKCOLOR and WATERCOLOR at lines 74/75!
    /Script Info}

    //----------------------------------------------------------------------------//
    // *
    // *           NAME        : Gobbiez 0.63
    // *           WRITER      : WT-Fakawi
    // *           CATEGORY    : Fighting
    // *           DESCRIPTION : Kills Goblins at Goblinhouse NE of Lumby Castle
    // *           USAGE       : Start @ Lumbridge Castle Square or @ Goblin House
    // *           AUTOCOLOR   : NO! Pick ROCKCOLOR and WATERCOLOR at lines 74/75!
    // *           NOTES       : SRL 4 - Revision 14.
    //----------------------------------------------------------------------------//
    //      1. USE the DEFAULT Runescape Client with Low Detail, Very Bright.
    //      2. Set your Screen to 32 bit TRUE color.
    //      3. Find yourself a quiet World.
    //      4. Position your char at Lumbridge Castle, with ONLY three wieldable
    //         pieces of armour.
    //----------------------------------------------------------------------------//

    program Gobbiez;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Magic.scar}
    {.include SRL/SRL/Skill/Fighting.scar}
    {.include SRL/SRL/Skill/Runecrafting.scar}

    var
      x, y,
      CastleFloor, NewDoor, Doors, RockColor, TheBone,  NewBones, OldBones, Bone1,
      Bone2, Bone3, Bone4, Bone5, Tellies, BeerMask, DaggerMask, BoneMask, HideMask,
      ShieldMask, EmptyBeerMask, Bones, Goblins, Hides, Shields, Daggers, Beers,
      GoblinAttempts, GoblinTimeOut, HGA, LeftCorner, RightCorner, BitMap,
      BonesText, BeerText, CoinsText, GoodClick, BadClick, Bone: integer;
    var
      GoblinColors: array[1..5] of integer;
      B: array[0..3] of integer;
      G: array[1..16] of integer;
    var
      GCIndex, RockDTM: integer;
    var
      StartTime, RunningTime, CallibrateTime, SST1, SST2, FindNorMalRandomsTime,
      FindFastRandomsTime: LongInt;

    //----------------------------------------------------------------------------//
    // -- Adjust these constants if needed

    const RemoteMaster        = '';    //<- fill in the Nickname of the RC master
    const MySRLID             = '';    //<- Your SRLID. Leave blank if you dont have one.
    const MySRLPassword       = '';    //<- Your SRL Password here if you want to have yout stats logged
    const PlayerTime          = 30;    //<- Time for Each Player In MINUTES!!!(or until death...)
    const GobMouseSpeed       = 20;     //<- Set Mouse Speed.
    const GAutoLevels         = True;  //<- Set True to even Skills.  This overrides .Skill settings.
    const PickupBones         = True;  //<- Enable Bone Collecting.
    const BonesBoost          = False;  //<- Collect bones during fight.
    Const VersionNumber       = '0.63';
    const MouseHit            = 255;
    const MouseMis            = 65535;
    const GreenStatusColor    = 65280;
    const RedStatusColor      = 255;
    //----------------------------------------------------------------------------//

    //---- COLORPICK THESE MINIMAP COLORS!!!!!!!----------//
    //---- COLORPICK THESE MINIMAP COLORS!!!!!!!----------//
    //---- COLORPICK THESE MINIMAP COLORS!!!!!!!----------//

    Procedure SetupGlobalColors;
    begin
      RockColor  := 0; // Hit Ctrl + Alt + X and click on the RockColor on RS, then paste into the blank spot.
      WaterColor := 0; // Hit Ctrl + Alt + X and click on the WaterColor on RS, then paste into the blank spot.
    end;

    //----------------------------------------------------------------------------//

    Function Callibrate(How: string): Boolean; Forward;

    Procedure DeclarePlayers;
    begin
        NumberOfPlayers(1);
        CurrentPlayer := 0;

        Players[0].Name :='';
        Players[0].Pass :='';
        Players[0].Nick :='';
        Players[0].Active :=True;
        Players[0].Skill := 'auto';

       { Players[1].Name :='';
        Players[1].Pass :='';
        Players[1].Nick :='';
        Players[1].Active :=True;
        Players[1].Skill := 'auto'; }


    end;

    //----------------------------------------------------------------------------//
    //--                     Initialises a Dynamic DTM                          --//
    //----------------------------------------------------------------------------//

    procedure SetRockDTM;
    var DTMSubPoints: array[0..2] of TDTMPointDef;
    var CGMainPoint: TDTMPointDef;
    var RockTDTM: TDTM;
    begin

      CGMainPoint.x:=625;            // Centre Of Rock Formation
      CGMainPoint.y:=34;
      CGMainPoint.areasize:=1;
      CGMainPoint.areashape:=0;
      CGMainPoint.color:=0;
      CGMainPoint.tolerance:=255;    // Any Color

      DTMSubPoints[0].x:=630;
      DTMSubPoints[0].y:=31;
      DTMSubPoints[0].areasize:=1;
      DTMSubPoints[0].areashape:=0;
      DTMSubPoints[0].color:=RockColor;
      DTMSubPoints[0].tolerance:=1;

      DTMSubPoints[1].x:=623;
      DTMSubPoints[1].y:=30;
      DTMSubPoints[1].areasize:=1;
      DTMSubPoints[1].areashape:=0;
      DTMSubPoints[1].color:=RockColor;
      DTMSubPoints[1].tolerance:=1;

      DTMSubPoints[2].x:=628;
      DTMSubPoints[2].y:=37;
      DTMSubPoints[2].areasize:=1;
      DTMSubPoints[2].areashape:=0;
      DTMSubPoints[2].color:=RockColor;
      DTMSubPoints[2].tolerance:=1;

      RockTDTM.MainPoint := CGMainPoint;
      RockTDTM.SubPoints := DTMSubPoints;
      RockDTM            := AddDTM(RockTDTM);
    end;

    //----------------------------------------------------------------------------//

    Function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i:=1 to 7 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; }

         3:  If FindQuiz then
               Result := True;
         {6:  If FindDemon then
               Result := True;}

         4: begin
               if NoGameTab then
               begin
                 Result := True;
                 Players[CurrentPlayer].loc := 'No GameTab';
                 Logout;
                 Exit;
               end;
             end;
         5: begin
               if InBlack then
               begin
                 Result := True;
                 Players[CurrentPlayer].loc := 'InBlack';
                 Logout;
                 Exit;
               end;
             end;
         6: RC;
         7: Respond;
        end;
        wait(1);
      end;
    end;

    //----------------------------------------------------------------------------//
    //---> Waits while Checking for Randoms;
    //----------------------------------------------------------------------------//

    procedure FTWaitD ( Time : Integer );
    var T, I : integer;
    begin
      try

        T := (Time div 1000)+1;
        for I := 1 to T do
        begin
          Wait ( 250 );
          FindTalk;
        end;

      except

        begin
          Wait ( Time );
          FindTalk;
        end;

      end;
      FindFastRandoms;
      MarkTime(FindNorMalRandomsTime);
      if FindNorMalRandomsTime-SST1 >(10000+Random(5000)) then
      begin
        Status('FindNorMalRandoms.');
        FindNorMalRandoms;
        MarkTime(SST1);
        Status('FindNorMalRandoms took:'+IntToStr(SST1-FindNorMalRandomsTime)+' msec');
      end;

      MarkTime(FindFastRandomsTime);
      if FindFastRandomsTime-SST2 >(1500+Random(1500)) then
      begin
        Status('FindFastRandoms.');
        FindFastRandoms;
        MarkTime(SST2);
        Status('FindFastRandoms took:'+IntToStr(SST2-FindFastRandomsTime)+' msec');
      end;
    end;

    //----------------------------------------------------------------------------//
    // -- Performs FlagWait and FindTalk....
    //----------------------------------------------------------------------------//

    function FlagFTWait:Boolean;
    var FlagMark: Integer;
    begin
      MarkTime(FlagMark);
      Wait(10);
      if not FlagPresent then
      begin
        Result:=False;
        Status('NO FLAG');
        Exit;
      end
      else
      begin
        repeat
          FTWaitD(200);
          if not(Loggedin) then break;
        until ( (not FlagPresent) or  (TimeFromMark(FlagMark) > 9000) ); // waits until flag is gone or 9 seconds.
        Result:=True;
      end;
    end;

    //----------------------------------------------------------------------------//

    Procedure LoadBitmaps;
    begin

      Bone := BitmapFromString(4, 4, 'beNqLj2dgYISgG5cu7d2y+cz' +
           'Ro7euXt24dMmWFSuO7d17+sjhurLShvLyioL8BVOnpAMAHzMZKg==' +
           '');
      CastleFloor  := BitmapFromString(8, 8, 'z78DA333334753475341B2507' +
           '880400B5B154C1');
      NewDoor := BitmapFromString(32, 1, 'z78DA33733535337436A30' +
           'FE9646A4415D2CCC4CDD0124202003E5A2AD9');
      Bone1 := BitmapFromString(4, 1, 'B6ACABD3CDCDD3CDCDD3CDC' +
           'D');
      Bone2 := BitmapFromString(1, 5, 'E8E5E5B2A6A6B6ACABBBB0B' +
           '0BEB5B5');
      Bone3 := BitmapFromString(1, 7, 'D3CDCDBBB2B247381847381' +
           '8473818B0A4A4B8ADAC');
      Bone4 := BitmapFromString(5, 1, 'CDC6C6D3CDCD493E20DFDAD' +
           'ADFDADA');
      Bone5  :=  BitmapFromString(4, 4, '000001000001000001D2CCCC9B9' + // centre of bonebmp
           '090A19595CEC7C79B909089807FDED9D9CAC3C29A8E8E000001C7' +
           'BFBFA99D9D000001');
      BeerMask := BitmapFromString(11, 14, 'z78DA3330C00EDCC0C080' +
           '02402D13908101C58016A6D1DA04FCE1404F1368170E9498435E9' +
           'CD2531779BE03008015BB2D');
      DaggerMask := BitmapFromString(11, 6, 'z78DA73730301033070C3000' +
           '638801B862EFC6AF08BE3B78B3C338931871297901A1AC4980000' +
           'A1115305');
      BoneMask := BitmapFromString(8, 7, 'z78DA33304000371C0097A' +
           'C010E804B16531CBF39F8ED25462FE5007F9860AA0100B7C04951' +
           '');
      Shieldmask := BitmapFromString(16, 7, 'z78DA7373231618D0188' +
           'CDA3514EDA2B5F900F89A86C5');
      HideMask := BitmapFromString(18, 8, 'z78DA7373C3070CE808068' +
           'FED23CDD723C1C681B2170095BFAB49');
      EmptyBeerMask := BitmapFromString(23, 2, 'z78DA73730301031A' +
           '0337245BDC306C744302F471092E1B212200F5053865');

      LeftCorner := BitmapFromString(4, 4, 'z78DA33753135313137C5' +
        '411A600064715CEA914500CACE13F0');
      RightCorner := BitmapFromString(4, 4, 'z78DA33753135313137' +
        'C5200D30002E35F8C501C9C013F0');
      BonesText := BitmapFromString(24, 1, 'z78DA7373B33430317003' +
           '931060EA626A6262EE4603714C121940D40300C5511EC7');
      BeerText := BitmapFromString(29, 1, 'z78DA7373B334303170039' +
           '3C8C00D49DCD4C5D4C4C41C42BAD1513DA62E00B6FA2506');
      CoinsText := BitmapFromString(35, 1, 'z78DA7373B33430317003' +
           '931060EA626A62628E8B74C3A19ED6E2C8A4011240560F9105008' +
           'F812CC8');
    end;

    //----------------------------------------------------------------------------//

    procedure SetupGoblinColors;
    begin
     GoblinColors[1]  := 3710359;
     GoblinColors[2]  := 6921089;
     GoblinColors[3]  := 8371368;
     GoblinColors[4]  := 6591612;
     GoblinColors[5]  := 6723453;  // 1-5 new colors.
    end;

    //----------------------------------------------------------------------------//

    procedure PlayerStats;

    var Active: string;
    var i: Integer;
    begin
      if Players[CurrentPlayer].Active=True then
        Active:='True'
       else
        Active:='False';
      WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
      Writeln ('  Name         : '+ Players[CurrentPlayer].Name);
      Writeln ('  Number       : '+inttostr(CurrentPlayer));
      Writeln ('  Active       : '+ Active);
      if ( Players[CurrentPlayer].Worked > 0 ) then
        Writeln ('  Worked       : '+ inttostr(Players[CurrentPlayer].Worked));
      Writeln ('  Location     : '+ Players[CurrentPlayer].loc);
      Writeln ('  Time Left    : '+ IntToStr ( PlayerTime - ((RunningTime - StartTime) / 60000 ) ) + ' min[s].');
      WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');

      for I := 0 to HowManyPlayers - 1 do
      begin
        if Players[i].Active=True then Active:='T' else Active:='F';
        WriteLn ( ' ' + Inttostr ( I) + ' : ' + Players[i].Name + ' = ' + Active
        +'. - Lvl : '
        +' '+inttostr(Players[i].level[1])
        +' '+inttostr(Players[i].level[2])
        +' '+inttostr(Players[i].level[3])+
        +' '+inttostr(Players[i].level[5])+
        +' '+inttostr(Players[i].level[8])+'. '
        +'W : '+IntToStr(Players[i].Worked)+' min. '
        +'K : '+ IntToStr(Players[i].integers[0])+' Goblins. '
        +'L: '+Players[i].loc);
      end;
      if MySRLID = '' then
        WriteLn('     Please get an SRL Stats ID!  :)');
      WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
    end;

    //----------------------------------------------------------------------------//

    Procedure ProgressReport;

    begin
      writeln(' ');
      WriteLn ('/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\');
      WriteLn ('    -- Gobbiez! '+VersionNumber+' -- Progress Report -- by WT-Fakawi --  '+ 'HGA=' +IntToStr(HGA));
      Writeln ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
      Writeln('  Worked for '+ TimeRunning);
      Writeln('  Attacked '+inttostr(Goblins)+' Goblins.');
      if Bones   > 0  then Writeln('  Buried '+inttostr(Bones)+' Bones.');
      if Deaths  > 0  then Writeln('  Died   '+inttostr(Deaths)+' Times.');
      if Tellies > 0  then Writeln('  Tellied   '+inttostr(Tellies)+' Times.');
      if Doors   > 0  then Writeln('  Opened   '+inttostr(Doors)+' Doors.');
      if Beers   > 0  then Writeln('  Drank '+inttostr(Beers)+' Beers.');
      if Hides   > 0  then Writeln('  Dropped '+inttostr(Hides)+' Hides.');
      if Daggers > 0  then Writeln('  Dropped '+inttostr(Daggers)+' Daggers.');
      if Shields > 0  then Writeln('  Dropped '+inttostr(Shields)+' Shields.');
      PlayerStats;
      NewBones:= Bones;
      Reportvars[1] := NewBones - OldBones;
      SRLRandomsReport;
      OldBones:= Bones;
    end;

    //----------------------------------------------------------------------------//

    function WeAreInLumbridge: Boolean;
    begin
    if FindSymbol(x, y, 'water') then
       begin
          Players[CurrentPlayer].Loc := 'Lumbridge';
          Result := True;
       end;
    end;

    //----------------------------------------------------------------------------//

    function WeAreInGoblinHouse: Boolean;
    begin
      if FindSymbol(x, y, 'fish') then
      begin
        Players[CurrentPlayer].Loc := 'Goblin';
        Result := True;
      end;
    end;

    //----------------------------------------------------------------------------//

    function FindGobDoorDeformed(var ObjX, ObjY: Integer; UpText1, UpText2: string;
      BMP, a, b, c, d: Integer): Boolean;
    var
      acc, ref: Extended;
      XT, YT, times, tol: Integer;
    begin
      ref := 0.9;
      tol := 0;
      for times := 1 to 5 do
      begin
        FindDeformedBitmapToleranceIn(BMP, XT, YT, a, b, c, d, tol, 2, True, acc);
        if (acc >= ref) then
        begin
          MMouse(XT, YT, 0, 0);
          Wait(40);
          if (IsUpText(UpText1) or IsUpText(UpText2)) then
          begin
            ObjX := XT;
            ObjY := YT;
            Result := True;
            Exit;
          end;
        end;
        ref := ref - 0.1;
        tol := tol + 5;
        Wait(5);
      end;
    end;

    //----------------------------------------------------------------------------//

    Function OpenDoor:Boolean;
    var Gx,Gy: Integer;
    begin
      Gx := MSCx;
      Gy := MSCy + 100;
      if FindGobDoorDeformed(Gx, Gy, 'Ope','pen', NewDoor, MSx1 + 100, MSCY - 30, MSx2 - 100, MSCY + 30) then
      begin
        MMouse(GX + 10, Gy, 0, 0);
        GetMousePos(Gx, Gy);
        Mouse(Gx, Gy, 0, 0, True);
        Result := True;
        Doors := Doors + 1;
        ReportVars[11] := ReportVars[11] + 1;
        FFlag(0);
        Mouse(280, 90, 10, 10, True);
        Exit;
      end;
    end;

    //----------------------------------------------------------------------------//

    procedure FindRandoms;
    begin

      if ( not ( LoggedIn )) then Exit;
      RC;
      if InBlack then
      begin
        Players[CurrentPlayer].loc := 'InBlack';
        Logout;
        Exit;
      end;
      Wait(1);
      if NoGameTab then
      begin
        Players[CurrentPlayer].loc := 'GameTab';
        Logout;
        Exit;
      end;
      FindNormalRandoms;
      OpenDoor;
      Wait(1);
    end;

    //----------------------------------------------------------------------------//

    procedure WieldAll;
    var
      i,x,y:integer;
    Begin
        if ( not ( LoggedIn )) then Exit;
        GameTab(4);
        Wait(1000 + Random(1000));
        for i := 1 to 10 do //3 do
        begin
          if ExistsItem(i) then
          begin
            MMouseItem(i);//True);
            Wait(50+random(300));
            if (isuptext('e')) then // "Wield"
            begin
              GetMousePos(x,y);
              Mouse(x,y,2,2,True);
              Wait(50+Random(200));
            end else
              WriteLn('Junk Item?');
          end;
        end;
    End;

    //----------------------------------------------------------------------------//
    procedure DeclareRuneBitMaps; // Hy71194 --- Loads the bitmaps of the runes that Goblins drop.
    begin
      LoadRune('air');
      LoadRune('body');
      LoadRune('earth');
      LoadRune('fire');
      LoadRune('mind');
      LoadRune('water');
    end;


    Procedure SetUpScript;
    var I : Integer;
    begin
      LoadBitmaps;
      SetupGoblinColors;
      SetupGlobalColors;
      if (RockColor <= 0) then  // Hope you don't mind, Fawk ;)
      begin
        ClearDebug;
        WriteLn('@@@ Please set the RockColor at Line 74.');
        TerminateScript;
      end;
      if (WaterColor <= 0) then
      begin
        ClearDebug;
        WriteLn('@@@ Please set the WaterColor at Line 75.');
        TerminateScript;
      end;
      HGA             := 0;
      GCIndex         := 1;
      SetupSRL;
      DeclareRuneBitMaps;
      DeclarePlayers;
      if MySRLID <> '' then
      begin
        SRLID         := MySRLID;
        SRLPassword   := MySRLPassword;
      end;
      if MySRLID = '' then // Hope you also don't mind :eek:
      begin
        ClearDebug;
        WriteLn('Please get an SRL Stats ID + Pass at Stats.SRL-Forums.com.');
        WriteLn('Then paste it into Lines 54 + 55.');
        WriteLn('This 10 second delay will be removed once you do that :)');
        Wait(9999 + 1);
      end;
      for I := 0 to 19 do
        ReportVars[I] := 0;

      ReportVars[12]  := 1;
      ScriptID        := '3';
      MarkTime(SST1);
      MarkTime(SST2);

      Reincarnate     := True;  // <- RETAIN PLAYERS.ACTIVE TO TRUE AFTER DEATH
      SymbolAccuracy  := 0.8;
      MouseSpeed      := GobMouseSpeed;
      wait(2000);
      SetRockDTM;
      LoginPlayer;
      RCMaster:=RemoteMaster;
      GetAllLevels;
    end;

    //----------------------------------------------------------------------------//

    Function FindLumbridgeRoadColor: Integer;
    var FX, FY, d: Integer;
    var Found: Boolean;
    begin
      if ( not ( LoggedIn )) then Exit;
      while (D < 85)  do
         begin
          D := D + 5;
         if ( CastleFloor = 0 ) then
           LoadBitmaps;
         If FindBitMapToleranceIn(CastleFloor, FX, FY, 580, 50, 600, 80, D) then
            begin
            RoadColor:=GetColor(FX, FY);
            Found := True;
            Result := RoadColor;
            break;
            end
         end
    end;

    //----------------------------------------------------------------------------//

    procedure SetGoblinTimeOut;
    var HP:Integer;
    begin
      HP := Players[CurrentPlayer].level[8] ;
      if ( (HP > 0 ) and (HP < 21) ) then GoblinTimeOut := 25;
      if ( (HP > 20) and (HP < 31) ) then GoblinTimeOut := 12;
      if ( (HP > 30) and (HP < 41) ) then GoblinTimeOut := 8;
      if HP > 40 then GoblinTimeOut := 5;
    end;

    //----------------------------------------------------------------------------//

    Procedure SetLowest;
    var Ci, HL1, HL2, HL:Integer;
    Begin
      if ( not ( LoggedIn )) then Exit;
      if TabExists(2) then
      begin
        GetAllLevels;
        HL := 100;
        for Ci := 1 to 2 do
        begin
          HL1 := Players[CurrentPlayer].level[Ci];
          HL2 := Players[CurrentPlayer].level[Ci+1];
          if HL2 > HL1 then
          begin
            if HL > HL1 then HL := HL1;
          end
          else
          begin
            if HL > HL2 then HL := HL2;
          end;
        end;
        SetGoblinTimeOut;
      end;
     
      for CI := 1 to 3 do
      begin
         if Players[CurrentPlayer].level[Ci] = HL then
         begin
           if CI = 3 then CI := CI + 1;
           SetFightMode(CI);
           Case CI of
             1 :  LampSkill := 'attack';
             2 :  LampSkill := 'strength';
             4 :  LampSkill := 'defence';
           end;
           Exit;
         end;
      End;
    End;

    //----------------------------------------------------------------------------//

    procedure SetPlayerParams;
    begin
      if ( not ( LoggedIn )) then Exit;
      if Players[CurrentPlayer].skill = 'prayer' then Exit;
      WieldAll;
      GameTab(1);
      If GAutoLevels then
        SetLowest
      else
        begin
          if  Players[CurrentPlayer].Skill = 'attack'    then SetFightMode(1);
          if  Players[CurrentPlayer].Skill = 'strength'  then SetFightMode(2);
          if  Players[CurrentPlayer].Skill = 'defence'   then SetFightMode(4);
          LampSkill := LowerCase ( Players[CurrentPlayer].Skill );
          if Players[CurrentPlayer].Skill = 'auto'    then SetLowest;
        end;
      if Players[CurrentPlayer].Booleans[1] = False then
      begin
        Retaliate(True);            // Set Retaliate off only the first time. :)
        Players[CurrentPlayer].Booleans[1]:=True;
      end;

      FTWaitD(1000 + Random(500));
      SetChat('on', 1);
      SetChat('friends', 2);
      SetChat('off', 3);
      SetChat('on', 1);
      FindTalk;
    end;

    //----------------------------------------------------------------------------//

    Function InFightAt(x, y: Integer):Boolean;
    var
      dx, dy: Integer;
    begin
     if ( FindColor(dx, dy, GreenStatusColor, x - 20, y - 15, x + 20, y + 10) or
        FindColor(dx, dy, RedStatusColor, x - 20, y - 15, x + 20, y + 10)   or
        FindColor(dx, dy, 16728128, x - 20, y - 15, x + 20, y + 10)   or
        FindColor(dx, dy, 192, x - 20, y - 15, x + 20, y + 10) ) then
        Result:=True;

    end;

    //----------------------------------------------------------------------------//

    Procedure WalkToGoblinField;
    var Xc, Yc :integer;
    var Mark6: LongInt;
    begin
      if ( not ( LoggedIn )) then Exit;
      MakeCompass('N');
      RadialRoadWalk(RoadColor, 70, 40, 70, -1, 0);
      RadialRoadWalk(RoadColor, 140, 0, 70, -1, 0);
      if FindSymbol(Xc, Yc, 'arrow') then
      begin
        Wait(1500);
        MFF(Xc , Yc + 10, 1, 1);//MouseFindFlag(Xc , Yc + 10, 1, 1);
        FFlag(0);
      end
      else
      begin
        RadialRoadWalk(RoadColor, 320, 400, 60, -1, 0);
        MarkTime(Mark6);
        repeat
           LinearRoadWalk(RoadColor, 320, 30, 1, 1);
           if (not Loggedin) then break;
           if(TimeFromMark(Mark6) > 60000) then begin Logout; Exit; end;
        until FindSymbol(Xc, Yc, 'fish') or FindSymbol ( Xc, Yc, 'arrow');
      end;

      if (FindSymbol (Xc, Yc, 'fish')) then
        MFF(Xc + 2, YC + 10, 1, 1)//MouseFindFlag(Xc + 2, YC + 10, 1, 1)
       else
        if ( FindSymbol (Xc, Yc, 'arrow')) then
          MFF(Xc + (10 + random(10)),Yc - (30-random(10)), 1, 1);//MouseFindFlag(Xc + (10 + random(10)),Yc - (30-random(10)), 1, 1);
      FFlag(0);
      ReportVars[10] := ReportVars[10] + 1;
      Players[CurrentPlayer].Loc := 'Goblin';
    end;


    //----------------------------------------------------------------------------//

    Procedure CleanUpInventory;
    var
      x, y:Integer;
    begin
      if PickupBones then  Bones := Bones + ClickAllItems(Bone,'bitmap','ury',50+Random(250),[250]);//ClickAllItemsBmpTolWait(Bone, 'ury', 50, 250); // Buries Bones
      ClickAllItems(Bone,'bitmap','ury',50+Random(250),[250]);//ClickAllItemsBmpTolWait(Bone, 'ury', 50, 250);
      if FindBitmapMaskTolerance(BeerMask, x, y, MIx1, MIy1, MIx2, MIy2, 50, 10) then
        Beers := Beers + ClickAllItems(BeerMask,'bitmap','rink',50+Random(250),[250]);//ClickAllItemsBmpMaskTolWait(BeerMask, 'rink', 50, 10, 250);  // Drink Beers

      if FindBitmapMaskTolerance(EmptyBeerMask, x, y, MIx1, MIy1, MIx2, MIy2, 50, 10) then
        ClickAllItems(EmptyBeerMask,'bitmap','rop',50+Random(250),[250]);//ClickAllItemsBmpMaskTolWait(EmptyBeerMask, 'rop', 50, 10, 250);   // Drop EmptyBeers

      if FindBitmapMaskTolerance(DaggerMask, x, y, MIx1, MIy1, MIx2, MIy2, 50, 10) then
        Daggers := Daggers + ClickAllItems(DaggerMask,'bitmap','rop',50+Random(250),[250]);//ClickAllItemsBmpMaskTolWait(DaggerMask, 'rop', 50, 10, 250); // Drop Daggers

      if FindBitmapMaskTolerance(ShieldMask, x,  y, MIx1, MIy1, MIx2, MIy2, 50, 10) then
        Shields := Shields + ClickAllItems(ShieldMask,'bitmap','rop',50+Random(250),[250]);//ClickAllItemsBmpMaskTolWait( ShieldMask, 'rop', 50, 10, 250); // Drops Shields

      if FindBitmapMaskTolerance(HideMask, x,  y, MIx1, MIy1, MIx2, MIy2, 50, 10) then
      begin
        Hides := Hides + ClickAllItems(HideMask,'bitmap','rop',50+Random(250),[250]);//ClickAllItemsBmpMaskTolWait(HideMask, 'rop', 50, 10, 250); // Drops hides
        Callibrate('Fast');
      end;


    end;

    //----------------------------------------------------------------------------//

    Function Callibrate(how:string): Boolean;
    var Cx, Cy, Tx, Ty, RDTMx, RDTMy:integer;
    var WhichAngle: Extended;
    begin
      if How = 'Full' then
      begin
        if TabExists(11) then SetRun(True);
        If GAutoLevels then
          SetLowest;
        SetAngle(True);//HighestAngle;
        CleanUpInventory;
        FindTalk;
        MakeCompass('N');
        SetGoblinTimeOut;
        ProgressReport;
        FindRandoms;
      end;

      if FindDtmRotated(RockDTM, RDTMx, RDTMy, MMX1, MMY1, MMX2, MMY2, - Pi/4, Pi/4, 0.1,
            WhichAngle) then
      begin
        if rs_OnMinimap(RDTMx + 15, RDTMy + 53) then
        begin
          if How = 'Full' then MFF(RDTMx + 15, RDTMy + 53, 1, -1)//MouseFindFlag(RDTMx + 15, RDTMy + 53, 1, -1)
          else
          if How = 'Fast' then
            MFF(RDTMx + 15, RDTMy + 62, 1, -1);//MouseFindFlag(RDTMx + 15, RDTMy + 62, 1, -1);
          FFLag(0);
          OpenDoor;
        end
        else
        Begin
          MFF(RDTMx, RDTMy, 1, -1);//MouseFindFlag(RDTMx, RDTMy, 1, -1)
          FFlag(0);
          if FindDtmRotated(RockDTM, RDTMx, RDTMy, MMX1, MMY1, MMX2, MMY2, - Pi/4, Pi/4, 0.1,
            WhichAngle) then
          begin
            MFF(RDTMx + 15, RDTMy + 53, 1, -1);//MouseFindFlag(RDTMx + 15, RDTMy + 53, 1, -1)
            FFlag(0);
            GoblinAttempts := 0;
          end;
        end;
        Result := True;
      end
      else if FindSymbol(Cx, Cy, 'arrow') then
      begin
        Tx := Cx + 10 + random(10);
        Ty := Cy - 35 - random(10);
         if rs_OnMinimap(Tx, Ty) then
        MFF(Tx, Ty, 1, 1)//MouseFindFlag(Tx, Ty, 1, 1)
        else
        MFF(Cx, Cy, 1, 1);//MouseFindFlag(Cx, Cy, 1, 1)
        FFlag(0);
        GoblinAttempts := 0;
        Result := True;
      end
      else if FindSymbol(Cx, Cy, 'fish') then
      begin
        Tx := Cx + 20 + random(10);
        Ty := Cy + 30 + random(10);
         if rs_OnMinimap(Tx, Ty) then
        MFF(Tx, Ty, 1, 1)//MouseFindFlag(Tx, Ty, 1, 1)
        else
          MFF(Cx, Cy, 1, 1);//MouseFindFlag(Cx, Cy, 1, 1)
        FFlag(0);
        GoblinAttempts := 0;
        Result := True;
      end;
     
      if Not Result then
      begin
        if not FindColor(x, y, WaterColor, MMx1, MMy1, MMx2, MMy2) then
        begin
          MFF(MMCx - 50, MMCy, -1, 1);//MouseFindFlag(MMCx - 50, MMCy, -1, 1);
          FFlag(0);
          if FindColor(x, y, WaterColor, MMx1, MMy1, MMx2, MMy2) then
            Result := True
          else
            Result := False;
        end;
      end;
    end;

    //----------------------------------------------------------------------------//
    // -- function ChooseOption3: Boolean;                                     -- //
    // -- by Stupid3ooo modded by WT-Fakawi                                    -- //
    // -- Description:                                                         -- //
    // -- Finds Popup menu, then clicks on Coins/Beers/Bones IN THAT ORDER!    -- //
    //----------------------------------------------------------------------------//

    Function  ChooseOption3:Boolean;
    var
      i, x1, y1, x2, y2, Fx, Fy: Integer;
    begin
      if (FindBitmap(LeftCorner, x1, y1)) and (FindBitmap(RightCorner, x2, y2)) then
      begin
        for i := 1 to 3 do               // ALWAYS COINS FIRST!!!  :)
        begin
          case i of
           1: BitMap := CoinsText;     // Sliced Bitmaps of MenuItemText
           2: BitMap := BeerText;     // Sliced Bitmaps of MenuItemText
           3: BitMap := BonesText;      // Works like a charm
          end;
          If FindBitMap(BitMap, Fx, Fy) then
          begin
            Mouse(Fx, Fy, 20, 4, True);
            FTWait(1);
            if not FlagFTWait then
            begin
              Callibrate('Fast');
              Result := False;
              Break;
            end;
            Result := True;
            FlagFTWait;
            Exit;
          end;
        end;
        if (FindText(Fx, Fy, 'Cancel', upchars, x1, y1, x2, 502)) then
          Mouse(Fx + 9, Fy + 3, 2, 2, True);
      end;
    end;

    //----------------------------------------------------------------------------//

    Function FindBones:Boolean;
    var Dx, Dy, i, j, x1, x2, y1, y2:integer;
    var acc:Extended;
    begin
      if InvFull then CleanUpInventory;
      for j := 1 to 6 do
      begin
      case j of
        1: begin x1:= MSx1; y1 := MSy1 + 20; x2 := MSCx; y2:= MSCy; end;
        2: begin x1:= MSCx; y1 := MSy1 + 20; x2 := MSx2; y2:= MSCy; end;
        3: begin x1:= MSx1; y1 := MSCy;      x2 := MSCx; y2:= MSy2; end;
        4: begin x1:= MSCx; y1 := MSCy;      x2 := MSx2; y2:= MSy2; end;
        5: begin x1:= MSCx - 50; y1 := MSCy - 50; x2 := MSCx + 50; y2:= MSCy + 50; end;
        6: begin x1:= MSx1; y1 := MSy1 + 20; x2 := MSx2; y2:= MSy2; end;
      end
      if WeAreInLumbridge or FindDead or (not Loggedin) then Exit;
        for i := 0 to 3 do
        begin
          case i of
           0: TheBone := Bone1;
           1: TheBone := Bone2;
           2: TheBone := Bone3;
           3: TheBone := Bone4;
          end;
          Status('Searching for bones in Quadrant ' + IntToStr(j) + ' for Bone '+IntToStr(i));
          if InvFull  then Exit;
          if (not Loggedin) then Exit;
          FindDeformedBitmapToleranceIn(TheBone, Dx, Dy, x1, y1, x2 , y2 , 10, 1, True, acc);
    //      writeln('acc =' + FloatToStr(acc));
          begin
            if (acc > 0.4) then
            begin
              MMouse(Dx, Dy, 0, 6);
              GetMousePos(Dx, Dy);
              FindTalk;
              if FindColorTolerance(Dx, Dy, 3703002, 42, 8, 120, 21, 70) then  // Orange Color indicating Uptext!
              begin
                GetMousePos(Dx, Dy);
                Mouse(Dx, Dy, 0, 0, False);
                if ChooseOption3 then
                begin
                  Result := True;
                  b[i] := b[i] + 1;
                  Exit;
                end
                else Break;
              end
            end
          end;
          Wait(1);
        end;
      end
    end;

    //----------------------------------------------------------------------------//

    Procedure WaitGoblin;
    var Mark5:Integer;
    begin
      FFlag(0);
      Wait(2000 + Random(1000));
      MarkTime(Mark5);
      repeat
         if((WeAreInLumbridge) or (not (Loggedin)) or (FindDead)) then Exit;
         FTWaitD(250 + Random(100));
         if PickupBones then
           if BonesBoost  then
             if TimeFromMark(Mark5) mod 500 < 150  then Findbones;
         if (TimeFromMark(Mark5) > (GoblinTimeOut * 1000) ) then Exit;
      until not InFight;
      Goblins := Goblins + 1;
      ReportVars[0] := ReportVars[0] + 1;
      Players[CurrentPlayer].integers[0] := Players[CurrentPlayer].integers[0]+1;
    end;

    //----------------------------------------------------------------------------//

    Function ClickGoblin: Boolean;
    var i, CBx,CBy,Dmx, Dmy: Integer;
    begin
      if Players[CurrentPlayer].skill = Lowercase('prayer') then
      begin
        Result := False;
        Exit;
      end;
      for GCIndex := 1 to 5 do
      begin
        CBx := MSCx;
        CBy := MSCy;
        If FindObjTPA(CBx, CBy, GoblinColors[GCIndex], 20, 1, 10, 10, 20, ['b']) Then//If FindObjTPA(CBx, CBy, GoblinColors[GCIndex], 20, 1, 10, 10, 20, 'b') Then
        begin
          GoblinAttempts := GoblinAttempts + 1;
          Status('GA = '+IntToStr(GoblinAttempts));
          Wait(50);
          if not InFightAt(CBx, CBy) then
          begin
            Wait(50);
            Mouse(CBx, CBy, 0, 0, True);
            G[GCIndex] := G[GCIndex] + 1;
            for i := 0 to 20 do
            begin
              if FindColor(Dmx, Dmy, MouseHit, CBx - 8, CBy - 8, CBx + 8, CBy + 8) then
              begin
                GoodClick:=GoodClick + 1;
                Break;
              end;
              if FindColor(Dmx, Dmy, MouseMis, CBx - 8, CBy - 8, CBx + 8, CBy + 8) then
              begin
                BadClick := BadClick + 1;
                Exit;
              end;
              Wait(10);
            end;
            FTWait(1);
            FFlag(1);
            if FindBlackChatMessage('already') then
            begin
              Result:=False;
              WaitGoblin;
              Exit;
            end
    //        if FindBlackChatMessage('omeone') then
    //        begin
    //          Result:=False;
    //          Exit;
    //        end
            else
            begin
              Result := True;
              GoblinAttempts := 0;
            end;
            Exit;
          end;
        end;
      end;
    end;

    //----------------------------------------------------------------------------//

    Function TellyHo:Boolean;
    var
      Mark:Integer;
    begin
      if TabExists(7) then GameTab(7) else Exit;
      FTWait(8);
      MarkTime(Mark);
      SetChat('off', 1);
      Cast('Home Teleport');
      FTWait(12);
      if FindBlackChatMessage('to wait') then
      begin
        Players[CurrentPlayer].Active   := False;
        Players[CurrentPlayer].Booleans[0] := True;
        LogOut;
      end
      else
      begin
        Repeat
          Wait(250);
          FindTalk;
        until (TimeFromMark(Mark) > 30000); // wait 30 secs for lumby telly
        SymbolAccuracy := 0.4;
        if ( FindSymbol(x, y, 'guide') or FindSymbol(x, y, 'water')) then
        begin
          Players[CurrentPlayer].Active := True;
          Result:= True;
          Tellies := Tellies + 1;
          ProgressReport;
          LogOut;
        end
        else
        begin
          Players[CurrentPlayer].Active := False;
          Result:= False;
          Players[CurrentPlayer].Booleans[0] := True;
          LogOut;
        end;
      end;
      GoblinAttempts := 0;
      SymbolAccuracy := 0.8;
    end;

    //----------------------------------------------------------------------------//
    //--           Checks False Player and Tellies Home if possible            ---//
    //----------------------------------------------------------------------------//

    procedure LastChance;
    var i, Mark: Integer;
    begin
      for i:= 0 to (HowManyPlayers - 1) do
      begin
        If Players[i].Booleans[0] = False then   // last change flag, assume not set.
        begin
          CurrentPlayer := i;
          LoginPlayer;
          Wait(4000);
          if NoGameTab then
          begin
            Players[i].Active   := False;
            Players[i].Booleans[0] := True;
            LogOut;
          end
          else
          begin
            GameTab(7);
            FTWait(8);
            MarkTime(Mark);
            SetChat('off', 1);
            Cast('Home Teleport');
            FTWait(8);
            if FindBlackChatMessage('to wait') then
            begin
              Players[i].Active   := False;
              Players[i].Booleans[0] := True;
              LogOut;
            end
            else
            begin
              Repeat
                Wait(250);
                FindTalk;
              until (TimeFromMark(Mark) > 30000); // wait 30 secs for lumby telly
              SymbolAccuracy := 0.4;
              if ( FindSymbol(x, y, 'guide') or FindSymbol(x, y, 'water')) then
              begin
                Players[i].Active := True;
                Tellies := Tellies + 1;
                ProgressReport;
                LogOut;
              end
              else
              begin
                Players[i].Active := False;
                Players[i].Booleans[0] := True;
                LogOut;
              end;
            end;
          end;
        end else
        begin
        Writeln(Players[i].name + ' is hopelessly lost');
        TerminateScript;
        end;
      end;
      SymbolAccuracy := 0.6;
    end;

    //----------------------------------------------------------------------------//
    //--                     As NextPlayer with LastChance                     ---//
    //----------------------------------------------------------------------------//

    procedure NextGPlayer(Active: Boolean);
    begin
      if RandomPlayer then
        RandomNextPlayer(Active)
      else
      begin
        if not Active then
          Players[CurrentPlayer].Active := False;
        Logout;
        PlayerCurTime := (GetSystemTime div 1000);
        Players[CurrentPlayer].Worked := Players[CurrentPlayer].Worked +
          ((PlayerCurTime - PlayerStartTime) / 60);
        CurrentPlayer := CurrentPlayer + 1;
        if CurrentPlayer > HowManyPlayers - 1 then
          CurrentPlayer := 0;
        while Players[CurrentPlayer].Active = False do
        begin
          CurrentPlayer := CurrentPlayer + 1;
          if CurrentPlayer > HowManyPlayers - 1 then
          begin
            CurrentPlayer := 0;
            LastChance;     // <- if allFalse then run lastChance.
          end;
        end;
        SRL_Logs := SRL_Logs + 1;
        LoginPlayer;
      end;
    end;

    //----------------------------------------------------------------------------//
    //                               Main EventLoop
    //----------------------------------------------------------------------------//

    begin
      SetupScript;

      Repeat
        SetPlayerParams;
        MakeCompass('N');
        if WeAreInLumbridge then
        begin
          If (FindLumbridgeRoadColor = 0) then RoadColorChecker;
          WalkToGoblinField;
        end;

        Callibrate('Full');

        CallibrateTime := GetSystemTime;
        StartTime      := GetSystemTime;

        Repeat                          // Fighting Loop
          RunningTime := GetSystemTime;

          if ClickGoblin then
            WaitGoblin
          else if PickupBones then
            Findbones;
          if Players[CurrentPlayer].skill = 'prayer' then FTWait(1);

         if BonesBoost then FindBones;
         
          if HGA < GoblinAttempts then HGA := GoblinAttempts; // Highest GoblinAttempts

          If GoblinAttempts > 24  then Callibrate('Full');

          If GoblinAttempts > 100 then TellyHo;

          If TimeFromMark(CallibrateTime) > (180000 + Random(6000)) then
          begin
            Callibrate('Full');
            MarkTime(CallibrateTime);
          end;

          if (not LoggedIn)
          or FindDead
          or WeAreInLumbridge
          or (RunningTime - StartTime > ( PlayerTime * 60000 ) )
          then Break;
        Until FindDead or (not LoggedIn);
       
      if LoggedIn then
      begin
        SetChat('off', 1);
        if FindDead then Deaths := Deaths + 1;
        repeat
          FTWaitD(1000);
        until(not(LoggedIn));

        NextPlayer(True);

        FTWaitD(4000 + Random(2000));
      end;

      if (not(Loggedin)) then NextGPlayer(False);

      until(False);
    end.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  21. #571
    Join Date
    Jun 2008
    Location
    Arkansas
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Administrator's Warning:
    Dear User,
    Your post count has been reset on account of your mass of spam posts. Please take the time to read this thread before posting again.
    Sticky: Attention Spammers and Leechers...
    RAM

    Cheers,
    Hobbit.



    does it have a good anti ban?

    Port Sarim Willow Whacker is the best!

    alright i just recently started autoing with the downloadable autos. but they sucked....only mined cut or fished....no banking....it was a piece of crap. untill i found SCAR it was realy interesting. but i got it and didnt no what to do with it. os now 4 months later i figure it out and get these freakin awesome scripts!




    jk ok now here are the names search them becuase i am not providing links. this is just a quick thread i will provide later. Port Sarim Willow Whacker ~willow raper~ and the awesome chicken slayer. they are all very good scripts with antibans that actualy work. imagin tht. (h)

    dude that sucks. u should have got it banend on a friends computer and then say that u were not onthe account at the time. then unlock it with an apeal. may take like a week or 2 but ull get it back

    i think u kinda have it going right

    but then again what do i know?

    china should play runescape....but there graphics are way better than ours so runescape would be like freakin pacman graphics.

    which is better the SMART or regular?

    ?

    hmmmm seems to work fine....its pretty good.

    OMG!!!!!!! GOOOOOD!!!!!!!!!! good job dewd good job! yay P1nky!

    A q p
    w

    hey it works great thanks for this tutroial =)

    why does all my programs fail to comply!!!!!!!!!!??????????????

  22. #572
    Join Date
    Jun 2008
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hi can you help the problem is how to seleck the colour for me??

  23. #573
    Join Date
    Jun 2008
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sounds nice ill give it a try

  24. #574
    Join Date
    Jun 2008
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    kewl...

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

    Default

    Why does it automatically log me out and back on, out on, etc. etc. ??

Page 23 of 24 FirstFirst ... 1321222324 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Fix Outdated Script.
    By zealkctro in forum OSR Help
    Replies: 1
    Last Post: 03-04-2009, 10:59 AM
  2. Old script - what is outdated
    By HarryJames in forum OSR Help
    Replies: 7
    Last Post: 12-02-2007, 01:05 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
  •