Gofez0r's official script request thread. *FREE*

Discussion in 'Script Requests' started by Gofez0r, Apr 10, 2007.

Thread Status:
Not open for further replies.
Gofez0r's official script request thread. *FREE*
  1. Unread #21 - Apr 14, 2007 at 9:02 AM
  2. Town
    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5

    Town Grand Master
    Scar Programmers

    Gofez0r's official script request thread. *FREE*

    The 2 of you that wanted Willow choppers can go to SRL Forums and get the SL Port Sarim Willow Whacker.
     
  3. Unread #22 - Apr 14, 2007 at 10:34 AM
  4. himlol
    Joined:
    Apr 10, 2007
    Posts:
    78
    Referrals:
    0
    Sythe Gold:
    0

    himlol Member
    Banned

    Gofez0r's official script request thread. *FREE*

    ^Is that sarim willow whacker better then secet wcer(a good wc)?:rolleyes:
     
  5. Unread #23 - Apr 14, 2007 at 11:00 AM
  6. Town
    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5

    Town Grand Master
    Scar Programmers

    Gofez0r's official script request thread. *FREE*

    Yes, in my opinion.
     
  7. Unread #24 - Apr 14, 2007 at 4:40 PM
  8. daniel owns
    Referrals:
    0

    daniel owns Guest

    Gofez0r's official script request thread. *FREE*

    lookin for a stringer....any ideas where to find one?
     
  9. Unread #25 - Apr 14, 2007 at 9:04 PM
  10. Town
    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5

    Town Grand Master
    Scar Programmers

    Gofez0r's official script request thread. *FREE*

    Check SRL Forums, it isn't a hard script. You should be able to find plenty.
     
  11. Unread #26 - Apr 14, 2007 at 10:55 PM
  12. daniel owns
    Referrals:
    0

    daniel owns Guest

    Gofez0r's official script request thread. *FREE*

    tyvm town.
     
  13. Unread #27 - Apr 14, 2007 at 10:57 PM
  14. daniel owns
    Referrals:
    0

    daniel owns Guest

    Gofez0r's official script request thread. *FREE*

    as my sig says i hava a ton of exp b4 99 fletch,
    and its all stringing.
    ech.
     
  15. Unread #28 - Apr 15, 2007 at 5:19 AM
  16. Gofez0r
    Joined:
    Jan 21, 2007
    Posts:
    1,820
    Referrals:
    1
    Sythe Gold:
    0

    Gofez0r Guru

    Gofez0r's official script request thread. *FREE*

    @Jwippy This is most likely the best free guildminer out there.. Of course i suggest buying sumilions :) It works great.

    MiningGuildRaper by Wizzup? and WT-Fakawi

    Code:
    {=========================================================================]
    [                          SRL Guildminer 0.39.                           ]
    [                                                                         ]
    [              NAME        : SRL Guildminer 0.39                          ]
    [              WRITER      :  by Wizzup and WT-Fakawi (by Stupid3ooo)     ]
    [              CATEGORY    : Miner                                        ]
    [              DESCRIPTION : See below.                                   ]
    [              USAGE       : Miner/banker for coal                        ]
    [              AUTOCOLOR   : YES                                          ]
    [              SRL REV.    : SRL Version 3.                               ]
    [              NOTES       : STAND @ LEFTMOST BANKSLOT                    ]
    [                            FACE MM PERFECT NORTH.                       ]
    [=========================================================================]
    | Description:                                                            |
    |   A macro that mines a full load of coal and mith in the miner's guild, |
    |   then banks it in the east Falador bank.                               |                            |
    | Instructions:                                                           |
    |   1.Set the Runescape brightness to V-bright, and your computer's       |
    |     resolution to 32bit resolution.                                     |
    |   2.Need SCAR version 2.0.3.                                            |
    |   3.Start script in the Falador eastern bank.                           |
    |   4.Start with a pickaxe in your fist inventory slot or equiped.        |
    |   5.Recomended to have extra pickaxes in your first bank slot.          |
    |   6.Click and drag the crosshair over the Runescape client.             |
          Then press the green arrow.                                         |
    |   7.START @ FALADOR EASTBANK LEFTMOST BANKSLOT FACE MM PERFECTLY NORTH  |
    [=========================================================================}
    
    
    program SRLGuildMiner;
    
    {.include SRL/SRL.scar}
    {.include SRL/SRL/skill/Mining.scar}
    {.include SRL/SRL/misc/FaladorColorFinder.scar}
    {.include SRL/SRL/extended/xMapWalk.scar}
    
    Const
      Loads                = 2;     // Number of loads before switching user.
      OreTol               = 4;
      StartPlayer          = 0;
    
    Const
      CoalColor              = 2438711;   // CoalColor is a constant
      MithrilColor           = 7425100;   // MithrilColor is a constant
    
    //----------------------------------------------------------------------------//
    Const VersionNumber        = '0.39';
    //----------------------------------------------------------------------------//
    
    Var MapPickColor,MapOreColor,LadderColor,
        TotalOres,SecondsToWait,H,G:integer;
    
    Var FB1,FB2,FB3: Integer; // BankerDTMs (Yellow dots at three angles: -10,0,+10 degrees)
    // For use with DTM3Flag that plants a flag when any of 3 DTM's is found
    
    
    //----------------------------------------------------------------------------//
    
    Procedure DeclarePlayers;
    begin
         HowManyPlayers:=6;
         NumberOfPlayers(HowManyPlayers);
         Players[0].Name     :='';
         Players[0].Pass     :='';
         Players[0].Nick     :='';
         Players[0].Loc      :='Falador';
         Players[0].Boolean1 := True;   // EquipPick.
         Players[0].String1  := 'Coal'; // Coal = coal only. Mithril = both.
         Players[0].Active   := True;
    
         Players[1].Name     :='';
         Players[1].Pass     :='';
         Players[1].Nick     :='';
         Players[1].Loc      :='Falador';
         Players[1].Boolean1 := True;   // EquipPick.
         Players[1].String1  := 'Coal'; // Coal = coal only. Mithril = both.
         Players[1].Active   := True;
    
         Players[2].Name     :='';
         Players[2].Pass     :='';
         Players[2].Nick     :='';
         Players[2].Loc      :='Falador';
         Players[2].Boolean1 := True;   // EquipPick.
         Players[2].String1  := 'Coal'; // Coal = coal only. Mithril = both.
         Players[2].Active   := True;
    
         Players[3].Name     :='';
         Players[3].Pass     :='';
         Players[3].Nick     :='';
         Players[3].Loc      :='Falador';
         Players[3].Boolean1 := True;   // EquipPick.
         Players[3].String1  := 'Coal'; // Coal = coal only. Mithril = both.
         Players[3].Active   := True;
    
         Players[4].Name     :='';
         Players[4].Pass     :='';
         Players[4].Nick     :='';
         Players[4].Loc      :='Falador';
         Players[4].Boolean1 := True;   // EquipPick.
         Players[4].String1  := 'Coal'; // Coal = coal only. Mithril = both.
         Players[4].Active   := True;
    
         Players[5].Name     :='';
         Players[5].Pass     :='';
         Players[5].Nick     :='';
         Players[5].Loc      :='Falador';
         Players[5].Boolean1 := True;   // EquipPick.
         Players[5].String1  := 'Coal'; // Coal = coal only. Mithril = both.
         Players[5].Active   := True;
    
    end;
    
    //----------------------------------------------------------------------------//
    
    Procedure FillMem;   // 3 yellow dot bankers @ different angle
    begin
    
      FB1 := DTMFromString('78DA636C66626008634001972E5E66F80FA41' +
           '981F83F1030B601D5C4A0AAF9F38789810BAA0604189B8850D345' +
           '580D00CA7B110D');
      FB2 := DTMFromString('78DA63EC61626008614001478F1E65F80FA41' +
           '981F83F1030F602D544A1AAF9F38789810BAA0604182712A1662A' +
           '504D247E3500C2961107');
      FB3 := DTMFromString('78DA636C646260086140038C0CFFC12403C37' +
           'F206004A9894255F1E70F130317540D58472B504D3401359D4035' +
           '31F8D50000978B0E8E');
    end;
    
    //----------------------------------------------------------------------------//
    
    Procedure SetOres;
    
    Begin
      Case Lowercase(Players[CurrentPlayer].String1) Of
        'coal'   : Begin OreColor1 := CoalColor OreColor2 := OreColor1 End;
        'mithril': Begin OreColor1 := MithrilColor ; OreColor2 :=CoalColor ; End;
      End;
    End;
    
    //----------------------------------------------------------------------------//
    
    Function FindOre(MaxTol:Integer):Boolean;
    
    Var Tol,Ex,Ey:Integer;
    
    Begin
    
    H:=H+1;
      For G := 1 to H do
       Begin
        Case G Of
    
          1: Begin OreColor:= OreColor1; SecondsToWait := 5; End;
          2: Begin OreColor:= OreColor2; SecondsToWait := 10; End;
    
        End;
       End;
    
      While (Not (FindColorTolerance(Ex, Ey, OreColor, MSX1, MSY1, MSX2, MSY2, Tol))
      And Not (Tol > MaxTol)) Do
        Begin
          Tol:=Tol+1;
        End;
      If ((FindColorTolerance(Ex, Ey, OreColor, MSX1,MSY1 ,MSX2, MSY2, Tol))
      And Not (Tol > MaxTol)) Then Result:=True;
      Tol:=1;
      Wait(10);
    
    End;
    
    //----------------------------------------------------------------------------//
    
    procedure PlayerStats;
    
    var PSActive: string;
    var i: Integer;
    begin
      WriteLn(' ');
      WriteLn(' ');
      WriteLn(' ');
      writeln('**********************************************');
      writeln('Name         : '+ Players[CurrentPlayer].Name);
      writeln('Number       : '+inttostr(CurrentPlayer));
      writeln('Mining Level : '+ inttostr(Players[CurrentPlayer].level[15]));
      writeln('Worked for   : '+IntToStr(Players[CurrentPlayer].Worked)+' minutes.');
      writeln('Banked       : '+ inttostr(Players[CurrentPlayer].Banked) + ' times.');
      if Players[CurrentPlayer].Active=True then PSActive:='True' else PSActive:='False';
      writeln('Active       : '+ PSActive);
      writeln('Location     : '+ Players[CurrentPlayer].loc);
      writeln('**********************************************');
    
    for i := 0 to HowManyPlayers-1 do
       begin
       if Players[i].Active=True then PSActive:='True' else PSActive:='False';
          writeln( (inttostr(i))+' : '+Players[i].name+ ' = '+PSActive+
          '.- Lvl : '+inttostr(Players[i].level[15])+
          '.- B :'+inttostr(Players[i].Banked)+' Times.'+
          '.- A: '+IntToStr(Players[i].Worked)+' mins.'+
          '.- Loc: '+Players[i].loc);
        end
       writeln('**********************************************');
    end;
    
    //----------------------------------------------------------------------------//
    
    procedure ProgressReport;
    begin
      WriteLn(' ');
      WriteLn(' ');
      WriteLn(' ');
      WriteLn('<============== -'+VersionNumber+'- Progress Report ===============>');
      writeln('Worked for '+ TimeRunning);
      WriteLn('Banked '+IntToStr(banks)+' loads[s].');
      WriteLn('Banked '+IntToStr(TotalOres)+' Ores.');
      WriteLn('<=====================================================>');
      PlayerStats;
      SRLRandomsReport;
    end;
    
    //----------------------------------------------------------------------------//
    
    function FindMapOreColor:integer;
    var
      MapOre,MapOre2:integer;
    begin
      MapOre := BitmapFromString(3, 3,
             '3D2C345948546D5D624A39416D5D626D5D625948546D5D626D5D62' +
             '');
      MapOre2 := BitmapFromString(3, 3,
             '061115222D35364243131E22364243364243222D35364243364243' +
             '');
      if(FindBitmapsProgressiveTol(MapOre,MapOre2,0,0,0,65,5,587,41,705,118))then
        Result:=GetColor(x+1,y+1);
      Freebitmap(MapOre);
      Freebitmap(MapOre2);
    end;
    
    //----------------------------------------------------------------------------//
    
    Function FindFaladorLadderColor: Integer;
    var  C,TX,TY,FaladorLadder:integer;
    
    begin
    FaladorLadder:= BitmapFromString(2, 2, '4F1F004F1F004F1F00' +
           'A4A298');
    
     while (C<100) do
       begin
       C:=C+5;
       If FindBitMapToleranceIn(FaladorLadder,TX,TY,650,144,664,156,C) then
          begin
                LadderColor:=GetColor(TX,TY);
                Players[CurrentPlayer].Loc:='Falador';
                Result:=LadderColor;
                writeln('LadderColor = '+IntToStr(LadderColor));
                break;
          end
       end
    FreeBitMap(FaladorLadder);
    if Result = 0 then begin writeln('ERROR: LadderColor NOT Found'); TerminateScript end;
    end;
    
    //----------------------------------------------------------------------------//
    
    function Underground:boolean;
    begin
      if((FindColoredAreaTolerance(x,y,256,570,5,725,162,50,1)))then
      begin
        Result:=true;
      end;
    end;
    
    //----------------------------------------------------------------------------//
    
    procedure ToCenter;
    begin
      if(FindColorSpiral(x,y,MapPickColor,570,63,725,160))then
      begin
        Mouse(x-10,y-10,20,20,true);
        FFlag(20);
        Wait(1000+Random(100));
      end else
      begin
        RoadWalk(MapOreColor,'S');
        if(FindColorSpiral(x,y,MapPickColor,570,63,725,160))then
        begin
          Mouse(x-10,y-10,20,20,true);
          FFlag(20);
          Wait(1000+Random(100));
        end;
      end;
    end;
    
    //----------------------------------------------------------------------------//
    
    procedure RunAway;
    begin
      if(UnderGround)then
      begin
        RoadWalk(MapOreColor,'W');
        ClickMMColor(LadderColor);
        FFlag(10);
        RoadWalk(MapOreColor,'E');
      end else
      RunTo('N',False);
    end;
    
    //----------------------------------------------------------------------------//
    
    function HandleGas(Gx,Gy:Integer):Boolean;
    begin
          if FindGas(gx,gy) then
          begin
             ToCenter;
             Result:=True;
          end;
    end;
    
    //----------------------------------------------------------------------------//
    
    Function ClimbLadderDown:Boolean;
    var
      c:integer;
    begin
      for c:=1 to 50 do
      begin
        If FindColor(x,y,0,MSX1+10,MSY1+10,MSX2-10,MSY2-10) then
        begin
          Wait(100);
          Mouse(x,y,0,0,false);
          if ChooseOption(x,y,'Climb') then
          begin
             MarkTime(Mark);
             repeat
               Wait((1000)+Random(1000));
               If TimeFromMark(Mark)>30000 then begin Logout; Exit; end;
             until ((GetColor(580,80)=0) and (GetColor(648,142)=0));
          Result:=True;
          Exit;
          end;
        end;
      c:=C+1;
      SendArrowSilentWait((Random(2)*2)+1, 20 + Random(10));
      if C=50 then begin Logout; exit end;
      end;
    end;
    
    //----------------------------------------------------------------------------//
    
    Function ClimbLadderUp:Boolean;
    var
      c:integer;
    begin
      for c:=1 to 50 do
      begin
        Wait(100);
        if FindObj(x,y,'adder',2775161,21) then
          begin
            Wait(100);
            Mouse(x,y,0,0,false);
            if ChooseOption(x,y,'Climb') then
            begin
              MarkTime(Mark);
              repeat
                Wait((1000)+Random(1000));
                If TimeFromMark(Mark)>30000 then begin Logout; Exit; end;
              until FindColor(x,y,WaterColor,MMX1,MMY1,MMX2,MMY2);
              Result:=True;
              Exit;
            end;
          end;
      c:=C+1;
      if C=50 then begin Logout; exit end;
      SendArrowSilentWait((Random(2)*2)+1, 20 + Random(10));
      end;
    end;
    
    //----------------------------------------------------------------------------//
    // --                To the Guild in Three Clicks!                          --//
    //----------------------------------------------------------------------------//
    
    procedure BankToGuild;
    var xblack,yblack:Integer;
    begin
      PerfectNorth;
      MouseFindFlag(690,110,1,-1);
      Flag;
      FindColor(xblack,yblack,0,MMX1,MMCY,MMX2,MMY2);
      Mouse(xblack-5,yblack+10,0,0,true);
      Flag;
      ClimbLadderDown;
      Players[CurrentPlayer].loc:='Guild';
    end;
    
    
    //----------------------------------------------------------------------------//
    
    procedure GuildToBank;
    var
      c:integer;
    begin
    
        repeat
          c:=c+1;
          RadialWalk(MapOreColor,210,270,50,-1,0);
          if FindColor(x,y,LadderColor,MMX1,MMY1,MMX2,MMY2) then break;
          if c=10 then begin Logout; exit; end;
        until( FindColor(x,y,LadderColor,MMX1,MMY1,MMX2,MMY2) or(c>10) )
        IdleTime(3000, 1000, 1.0);
        If FindColor(x,y,LadderColor,MMX1,MMY1,MMX2,MMY2) Then Mouse(x,y,2,2,True);
        Wait(1500+Random(500));
        FFlag(0);
        ClimbLadderUp;
    
        MouseFindFlag(666,45,-1,-1);
        Flag;
        MakeCompass('N');
        If FindColor(x,y,BankColor,MMX1,MMY1,MMX2,MMY2) then
        begin
          Mouse(x,y,0,0,True);
          FFlag(10);
          DTM3Flag(FB1,FB2,FB3,True);
          FFlag(3);
        end
        else
        begin
          DTM3Flag(FB1,FB2,FB3,True);
          FFlag(3);
        end;
        Players[CurrentPlayer].loc:='Falador';
    end;
    //----------------------------------------------------------------------------//
    
    Function SimpleBank:Boolean;
    var sx,sy,dx,dy,Mark2,Tries:integer;
    begin
      SX:=MSCX; SY:=MSCY;
      repeat
        sx:=Sx+1;
        sy:=sy+3;
        MMouse(sx, sy, 0, 0);
        if IsUpTextMulti('e Bank','Booth','ooth') then
        begin
          GetMousePos(Dx, Dy);
          Mouse(Dx, Dy, 0, 0, False);
          if ChooseOption(Dx, Dy, 'uickly')  then
          begin
            MarkTime(Mark2);
            repeat
              Wait(10);
              if TimeFromMark(Mark2) > 20000 then
               begin
                 Result:=False;
                 Exit;
               end;
            until BankScreen;
            if BankScreen then
            begin
              Result := True;
              Exit;
            end;
          end;
        end
        else
        begin
          wait(1);
          Tries:=Tries+1;
        end;
      until(tries >9);
    end;
    
    //----------------------------------------------------------------------------//
    
    procedure Bank;
    
    var LocalOres:integer;
    begin
        if (NoPick and EquipPick) then
        begin
           if InventoryFull then
           begin
             if(FindBitmapSpiralTolerance(Ore,x,y,559,210,735,460,25))then
                  begin
                    Mouse(x,y,5,5,false);
                    ChooseOption(x,y,'Drop');
                  end;
           end;
           GameTab(5);
           Mouse(593,303,0,0,true);
           Wait(Random(1000)+2000);
           GameTab(4);
        end;
    
        LocalOres:=CountItemBmpTol(Ore,50);
        MarkTime(Mark);
    
        if not BankScreen then
        begin
          repeat
             if (not(Loggedin)) then  Exit;
             if not SimpleBank then OpenBankQuiet('feb');
          until(BankScreen or (TimeFromMark(Mark)>60000));
        end;
        if(BankScreen)then
        begin
          Wait(Random(2000)+200);
          FixBank;
          if(NoPick=true)then
          begin
            ClickAllItemsColorWait('All',65536,1000+Random(100));
            Wait(Random(2000)+200);
            Withdraw(1,1,1);
            Wait(Random(2000)+200);
          end else
          begin
            if(EquipPick=false)then Deposit(2,28,2);
            Wait(Random(2000)+200);
            if(EquipPick=true)then
               begin
                 ClickAllItemsColorWait('All',65536,1000+Random(100));
                 Wait(Random(2000)+200);
               end;
          end;
          CloseBank;
          if(NoPick=true)and(EquipPick=true)then
          begin
            FindPickHeadColor;
            Wait(Random(1000)+200);
            ClickItemColor(hc1,true);
          end;
          Banks:=Banks+1;
          TotalOres:=TotalOres+LocalOres;
          Players[CurrentPlayer].Banked:=Players[CurrentPlayer].Banked+1;
          NoPick:=false
        end;
    end;
    
    //----------------------------------------------------------------------------//
    
    Procedure ChangeGasPixels(Var Gasx,GasY:Integer);
    
    Var
       TempX, TempY: Integer;
    
    Begin
      Wait(100);
      If FlagPresent Then
        Begin
          FFlag(0);
          If FindColorSpiralTolerance(x,y,OreColor,MSX1,MSY1,MSX2,MSY2,4) Then
            Begin
            x := TempX;
            y := TempY;
            If CheckOre(x,y,OreColor,4) > 2 Then
              Begin
                If Distance(MSCX,MSCY,TempX,Tempy) < 40 Then
                  Begin
                    GasX := x;
                    GasY := y;
                  End;
              End;
            End;
      End;
    End;
    
    //----------------------------------------------------------------------------//
    
    Procedure WizzupMine;
    
    Var Dx,Dy,Ex,Ey:Integer;
    
    Begin
    
      If FindOre(OreTol) Then
      Begin
        If FindObjOre(Dx, Dy, 'Mine', OreColor, 10, 4) Then
        Begin
          H:=0;
          If Not HandleGas(Dx, Dy) Then
          Begin
              If Random (9) < 7 Then Mouse(Dx, Dy, 0, 0, True)
              Else
              Begin
                Mouse(Dx, Dy, 0, 0, False);
                ChooseOption(Ex, Ey, 'ine');
              End;
          ChangeGasPixels(Dx,Dy);
          MarkTime(Mark);
          Repeat
            HandleGas(Dx, Dy);
            Wait(100);
            FindTalk;
            FindPick;
            If NoPick Then Break;
            If FindFight Then RunAway;
          Until ((TimeFromMark(Mark) > (1000 * SecondsToWait))
          Or (FindColor(X, Y, 0,51, 421, 51, 421)))
          End;
        End;
      End
      Else
      Begin
        If H>1 Then H:=0;
        If Random(9) < 7 Then if not FindColorTolerance(x,y,CoalColor, MSX1,MSY1,MSX2,MSY2,OreTol) then ToCenter;
        FindNormalRandoms;
        If FindFight Then RunAway;
        Wait(500+Random(500));
      End;
    End;
    
    //----------------------------------------------------------------------------//
    
    Procedure DoChats;
    
    Begin
      SetChat('On', 1);
      SetChat('On', 1);
      SetChat('Off', 2);
      SetChat('Off', 2);
      SetChat('On', 3);
      SetChat('On', 3);
    End;
    
    //----------------------------------------------------------------------------//
    
    procedure Setup;
    begin
         SetupSRL;
         SetUpSRLMining;
         FillMem;
         DeclarePlayers;
         CurrentPlayer:=StartPlayer;
         EquipPick:= Players[CurrentPlayer].Boolean1;  // Wielding.
         PickUpItems:=True; // to pick up random items when pickhead is gone.
         BenMouse:=False;
         MouseSpeed:=10;
         LoginPlayer;       // logs in the first player.
         SetOres;
    end;
    
    //----------------------------------------------------------------------------//
    //*************************** Main Loop***************************************//
    //----------------------------------------------------------------------------//
    
    begin
      Setup;
      FindFaladorLadderColor;
      SymbolAccuracy:=0.4;   // temporarily reduce symbolaccuracy for better symbol spotting
      FindFaladorBasicColors;
      SymbolAccuracy:=0.8; // set symbolacc. to default
      NickNameBMP:=CreateBitmapMaskFromText(Players[CurrentPlayer].Nick,UpChars) // in case we started logged in aot logged out
    
      repeat
          GetAllLevels;
          if not FindPickHeadColor then Logout;
    
          Dochats;
          if Players[CurrentPlayer].loc='Falador' then
            begin
             SetRun(true);
             BankToGuild;
            end
    
          if Players[CurrentPlayer].loc='Guild' then
            begin
              if(MapOreColor=0) then MapOreColor:=FindMapOreColor;
    
              if FindMMColor(x, y, LadderColor) then RoadWalk(MapOreColor,'E');
              FFlag(10);
    
              MarkTime(Mark);
                  if(MapPickColor=0) then MapPickColor:=GetSymbolColor(x,y,'mining spot');
              repeat
                WizzupMine;
                Wait(100);
                if (not(Loggedin)) then  break;
              until(InventoryFull)or(NoPick=true)or(TimeFromMark(Mark)>1800000)
    
              SetRun(False);
              GuildToBank;
              Bank;
              ProgressReport;
            end;
          if ((LoggedIn) and (Players[CurrentPlayer].Banked mod Loads = 0) ) then
            Begin
              MarkTime(Mark);
              SetChat('off',1);
              repeat
                 Wait(1000);
                 FindNormalRandoms;
                 if(TimeFromMark(Mark)>120000) then begin Logout; Break; end;
              until(not(LoggedIn));
              writeln('dead and logging back in');
              writeln(InttoStr(CurrentPlayer));
              Wait(500+Random(501));
              NextPlayer(True);
              writeln(InttoStr(CurrentPlayer));
              NoPick:=False;
              SetOres;
              EquipPick := Players[CurrentPlayer].Boolean1;
              FindPickHeadColor;
              DoChats;
            end;
    
          if (not (Loggedin)) then
            Begin
              NextPlayer(False);
              NoPick:=False;
              SetOres;
              EquipPick := Players[CurrentPlayer].Boolean1;
              FindPickHeadColor;
              DoChats;
          End;
      Until(False)
    end.
    
    Then the willow cutters..

    I suggest getting PSWW (Port Sarim Willow Whacker) by Sumilion and Lorax.. Attached it to my post.
     
  17. Unread #29 - Apr 15, 2007 at 9:26 AM
  18. Town
    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5

    Town Grand Master
    Scar Programmers

    Gofez0r's official script request thread. *FREE*

    You are sopposed to make them look, just point them in the right direction. If they don't find it, they would probably get themselves banned anyway :rolleyes:
     
  19. Unread #30 - Apr 15, 2007 at 9:42 AM
  20. Gofez0r
    Joined:
    Jan 21, 2007
    Posts:
    1,820
    Referrals:
    1
    Sythe Gold:
    0

    Gofez0r Guru

    Gofez0r's official script request thread. *FREE*

    Yea i guess.. But some people are usually too ignorant to look themselves..
     
  21. Unread #31 - Apr 15, 2007 at 5:00 PM
  22. n0 on3
    Referrals:
    0

    n0 on3 Guest

    Gofez0r's official script request thread. *FREE*

    hey, i was wondering if u have seen a auto mage trainer with curse and anti random and anti ban functions. I got like a butload of bodys and a mud staff and need mage up to 60. And casting curse get boring (very). if u find one let me know =)
     
  23. Unread #32 - Apr 15, 2007 at 5:16 PM
  24. runekingex
    Joined:
    Mar 17, 2007
    Posts:
    26
    Referrals:
    0
    Sythe Gold:
    0

    runekingex Member
    Banned

    Gofez0r's official script request thread. *FREE*

    i need a auto fishing guild fisher and banker.
     
  25. Unread #33 - Apr 15, 2007 at 6:08 PM
  26. Town
    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5

    Town Grand Master
    Scar Programmers

    Gofez0r's official script request thread. *FREE*

    N0 On3, I posted on your thread. There arn't many fishers out besides power fishers like PowerSkills.
     
  27. Unread #34 - Apr 15, 2007 at 6:36 PM
  28. loopster
    Joined:
    Mar 19, 2007
    Posts:
    113
    Referrals:
    0
    Sythe Gold:
    0

    loopster Active Member

    Gofez0r's official script request thread. *FREE*

    is there possibly just a bowstringer not the cutter and stringer im jw if there is can you give me a link there?
     
  29. Unread #35 - Apr 15, 2007 at 6:52 PM
  30. Town
    Joined:
    Jan 21, 2007
    Posts:
    3,776
    Referrals:
    3
    Sythe Gold:
    5

    Town Grand Master
    Scar Programmers

    Gofez0r's official script request thread. *FREE*

  31. Unread #36 - Apr 15, 2007 at 6:56 PM
  32. truepk
    Joined:
    Apr 15, 2007
    Posts:
    18
    Referrals:
    0
    Sythe Gold:
    0

    truepk Newcomer

    Gofez0r's official script request thread. *FREE*

    gofezor-
    i got a question about that guild miner u posted.
    i keep getting this error. it doesnt have the ladder color in the guide so wtf? do i put it in manually? if so whats the code like.
    User specified a new RS window
    Successfully compiled
    SRL Compiled in 47msec.
    Spotted a random...
    Spotted a random...
    ERROR: LadderColor NOT Found
    Successfully executed


    edit:nvm i fixed it i guess i had a screen just by my rs screen so it didnt detect it, but i fixed it lol im such a newb.
     
  33. Unread #37 - Apr 15, 2007 at 10:36 PM
  34. Smoke420Haze
    Joined:
    Mar 24, 2007
    Posts:
    44
    Referrals:
    0
    Sythe Gold:
    0

    Smoke420Haze Member

    Gofez0r's official script request thread. *FREE*

  35. Unread #38 - Apr 16, 2007 at 1:19 AM
  36. Gofez0r
    Joined:
    Jan 21, 2007
    Posts:
    1,820
    Referrals:
    1
    Sythe Gold:
    0

    Gofez0r Guru

    Gofez0r's official script request thread. *FREE*

    Seems that u posted that u have SRL errors.. Just download SRL?
     
  37. Unread #39 - Apr 16, 2007 at 7:27 AM
  38. saxman101
    Referrals:
    0

    saxman101 Guest

    Gofez0r's official script request thread. *FREE*

    i need a great ess miner please,....i used all the ones in the pack but each one has its own little mess-up somehow....do you know of which one is recommended and where i can find it?
     
  39. Unread #40 - Apr 16, 2007 at 7:35 AM
  40. killer121
    Referrals:
    0

    killer121 Guest

    Gofez0r's official script request thread. *FREE*

    any chance u can make or find me a auto tea thieving script
     
< Anti random script and anti bann script | Hunter Script >

Users viewing this thread
1 guest
Thread Status:
Not open for further replies.


 
 
Adblock breaks this site