Results 1 to 2 of 2

Thread: Iron / Gold Ore Heater.

  1. #1
    Join Date
    Feb 2012
    Posts
    35
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Iron / Gold Ore Heater.

    Hello i just make my first script, its a heater you need to start at west varrock bank and have the iron / gold ore on the first tab.

    Code:
     
    program script;
     
    {$DEFINE SMART}
    {$i SRL/srl.simba}
     
    procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
     
      With Players[0] Do
     
      Begin
        Name        := '';     //Player username.
        Pass        := '';     //Player password.
        Nick        := ''; //Player nickname - 3-4 letters of Player username.
        Active      := True;
      End;
     
    End;
    procedure SetupChar;
     
    begin
     
    SetupSRL();
    SetAngle(0);
    //ClickNorth(0);
    end;
    procedure Startup;
    begin
      Smart_Server := 69;
      Smart_Members:= true;
      Smart_Signed := true;
      SetupSRL;
      DeclarePlayers;
      LogInPlayer;
      MouseSpeed := 500;
      wait(100+random(100));
    end;
     
    Function Bank: boolean;
    Var
    x, y: integer;
    begin
      if OpenBank('vwb', false, false) then  //Varrock West Bank, vwb
      begin
        WriteLn('opened bank');
        wait(500 + random(550));
      end
    end;
     
    Procedure WithdrawOre;
    begin
    If BankScreen then
    begin
    Mouse(624, 230, 0, 0, False);
    WaitOption('All', 400);
    Wait(1000);
    Withdraw(1, 0, 18);
    Wait(500);
    Withdraw(0, 0, 18);
    Wait(500);
    end;
    CloseBank;
    end;
     
    Procedure Heat;
    Var
    J:Integer;
    Begin
    J := 0
    Repeat
      MMouse(743, 187, 2, 2);
      ClickMouse2(True);
      Wait(1500 + Random(25));
      MMouse(621, 327, 1, 1);
      ClickMouse2(True);
      Wait(1500 + Random(25));
      MMouse(702, 446, 2, 2);
      ClickMouse2(True);
      Inc(J);
      Wait(1500 + Random(25));
      Until (J = 9);
    End;
     
     
     
    begin
      Startup;
      SetupChar;
      repeat
      Heat;
      Wait(1000); //this is the number it takes to heat all items!
      Bank;
      Wait(1243 + Random (250));
      WithdrawOre;
      Wait(1243 + Random (250));
      until (not LoggedIn);
    end.

  2. #2
    Join Date
    Feb 2012
    Posts
    202
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    direct download please and does it support gold gauntlets?

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
  •