Results 1 to 13 of 13

Thread: Withdraw

  1. #1
    Join Date
    Mar 2007
    Posts
    209
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Withdraw

    Hi, im working on a script that smelts in port Phasmatys, but im stuck on withdrawing the ores, allready got this far and im working on the Procedure WithdrawOres.

    Code:
    Program PortPhasmatysSmelter;
    
    {.include SRL/SRL.scar}
    {.include SRL/SRL/extended/xbank.scar}
    
    ///////////Change this if needed///////////////////
    Const Bars = 100 ;//Number of loads to do
          Furnace = 3684413;//Furnace color
          FurnaceMM = 2851583;//Furnace color on the minimap
          BankSymbol =  5890811;//color of the bank symbol
          BankBooth = 1984064;//bankbooth color
    
    
    ///////////////////Dont touch this/////////////////
    
    var BarsDone : integer;
        Iron : integer;
        Coal : integer;
    
    Procedure FreeBitmaps;
     begin
       Iron := BitmapFromString(13, 10, 'z78DA75D25B0E83201005D02D' +
           '316FFC44C4FD2FA9D84BD369B49ADC4C081E0747DBB58938EB29E' +
           '166241575B92E92C2F346CD414E45820B6D72B051D76BADE79DCB' +
           'D94CA57937971DF583D6A993408383848C3D4B3B6DBE2FE75D13A' +
           '641FED39BF34E2327FA09B65D4BB4696BA81D4A0F1A9CDC5BE3CE' +
           '25273A89C355BD8A6F5A613E68E95BAD7EE00C1ECCC8082F2A709' +
           '6F696EF5AFE56776DCE6F4676AAF99C30EAACE9A64556B7FF9C1F' +
           '0D4EF5433BF29FB6CC74BAA59908C772B2D6FCD4919F45DA75D68' +
           'EA97D56BE0E567227F75412BBF6ABF2C0BF9D279E13A77801392D' +
           'A15F');
           end;
        Coal := BitmapFromString(14, 9, 'z78DA7592510EC4200844AF243' +
           '0A07EAA75EF7FA4B5E207CD6E359934545F19A6F932C0D2BD4812' +
           'AFEDCF3C78D0741516E6245994559A34CE0FDD75BFE55AC42A4A6' +
           '4A222094E25D25E987E928C2C5D34D69652ECC278639E7AA44D99' +
           '5C5D1FB4ADBC165969F6C18C0457252CFF36D4A41F7260C6930F6' +
           '6E54A8FB7A0BB1F5580A7A92E13197A817EBF18271F5D47E66275' +
           '1AA7B74DF30E4B32438E9CA827CDEDD7693E25EE77052685B3558' +
           '534A765D68EF496609CF9F9371E39F2E474FC6E9A7DB4CAE5AE8B' +
           '5A477B63FEA67966D8A4738DBD392D674B9098E01F665989896B9' +
           'CC91776469AA3');
           end;
     end;
    
    Function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i:=1 to 12 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;
         5:  If FindQuiz then
               Result := True;
         6:  If FindDemon then
               Result := True;
         7: begin
               if NoGameTab then
               begin
                 Result := True;
                 Logout;
                 Exit;
               end;
             end;
         8: begin
               if InBlack then
               begin
                 Result := True;
                 Logout;
                 Exit;
               end;
             end;
         9: begin
                 if(DetectFrogCave) then SolveFrogSwamp;
            end;
         10: begin
                  if(FindFight) then
                  begin
                       RunAwayDirection('W');
                       Wait(10000 + Random(2000));
                       RunBack;
                  end;
             end;
         11: begin
                  FindLamp('Prayer');
             end;
         12: begin
                  if findname or findtalk then
                  begin
                   FindNormalRandoms;
                  end
             end;
        end;
        Wait(1);
      end;
    end;
    
    Procedure WithdrawOres;//based it on the bank opening proces by ThickAsBlood
    var i:integer;
    
      Begin
       i:=0
       if not (BankScreen) then
        repeat
         i:= + 1;
         if (FondObj(x,y,'ank boot',BankBooth,10))then
          Mouse(x,y,0,0,false);
          Wait(1000+random(500));
          ClickOption('ickl', 1);
          Wait(3000+random(1000));
        until (GetColor(229, 41) = 2070783) or (i >= 10) or (BankScreen);
        if (i >= 10) then
        TerminateScript;
        QuickFixBank;
        If(FindBitmap(Iron,x,y))
        MoveMouseSmoothEx(x,y,20,40,45,25,20);
        Wait(1000+random(500));
        Mouse(x,y, false);
        ClickOption('ithdraw x');
    
    
    //////////////////////Main Loop////////////////////////
    Begin
      SetupSRL;
      FreeBitmaps;
      BarsDone:=0
        Repeat
          MakeCompass('s')
          WithdrawOres;
          GoToFurnace;
          SmeltOres;
          GoToBank;
        Until (BarsDone >= Bars)
    end.
    How do I let it withdraw the iron?
    Also the MakeCompass('s') doesnt work, anyone that can help me?

  2. #2
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    ur bitmaps are big, i'd do DTMS, then do

    SCAR Code:
    if FindDTM then //im too lazy to put the things u need for FindDTM
    begin
    mouse(x,y,2,2,false);
    ChooseOption(x,y,'ithdraw x');
    wait(1000+random(500));
    HitKeys(true);

    dont use hitkeys unless you're doing gold,blurite,silver, or iron
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  3. #3
    Join Date
    Mar 2007
    Posts
    209
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by dan cardin View Post
    ur bitmaps are big, i'd do DTMS, then do

    SCAR Code:
    if FindDTM then //im too lazy to put the things u need for FindDTM
    begin
    mouse(x,y,2,2,false);
    ChooseOption(x,y,'ithdraw x');
    wait(1000+random(500));
    HitKeys(true);

    dont use hitkeys unless you're doing gold,blurite,silver, or iron

    Well I understanded evrything you said except the HitKeys(true);
    What does it stand for?BTW, im using Iron, but I also need to use coal, so I cant use that for coal?

  4. #4
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    function hitkeys(send: Boolean): Integer;
    By: Pyro
    Description:
    Hits Random 4 Keys that are random 4 dist away. Good for smelt or cook x

    so with iron it'd be good, cuz its only 1 ore, but if you're making steel then you'll either need a case or do

    SCAR Code:
    if FindDTM(Coal) then //im too lazy to put the things u need for FindDTM
    begin
      mouse(x,y,2,2,false);
      ChooseOption(x,y,'ithdraw x');
      wait(1000+random(500));
      TypeSend('14');
    end;
    if FindDTM(iron) then //im too lazy to put the things u need for FindDTM
    begin
      mouse(x,y,2,2,false);
      ChooseOption(x,y,'ithdraw x');  
      wait(1000+random(500));
      TypeSend('7');
    end;
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  5. #5
    Join Date
    Mar 2007
    Posts
    209
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ah, typesend, ok thank you very much

  6. #6
    Join Date
    Jun 2007
    Location
    Indiana
    Posts
    153
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  7. #7
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    wtf did that have to do with anything?!

    but cases would work better than what i showed u
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  8. #8
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

    Dan he was talking to TYCO, he used MoveMOuseSmooth in his script.
    Hes just warning him about it

  9. #9
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    oops i didnt remember that he gave his script in the beginning
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  10. #10
    Join Date
    Mar 2007
    Posts
    209
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    oops, thought I had changed them all
    Well better change that to MMouse then èh

    Edit: checked for it, but it looks like I allready changed it

  11. #11
    Join Date
    Mar 2007
    Posts
    209
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I finished my script and now im checking it for bugs but howcome it says:
    Line 134: [Error] (14801:26): Invalid number of parameters in script?
    Here is my full script so far:
    SCAR Code:
    Program PortPhasmatysSmelter;

    {.include SRL/SRL.scar}
    {.include SRL/SRL/extended/xbank.scar}

    ///////////Change this if needed///////////////////
    Const Bars = 100 ;//Number of loads to do
          Furnace = 3684413;//Furnace color
          FurnaceMM = 2851583;//Furnace color on the minimap
          BankSymbol =  5890811;//color of the bank symbol
          BankBooth = 1984064;//bankbooth color


    ///////////////////Dont touch this/////////////////

    var BarsDone : integer;
        Iron : integer;
        Coal : integer;
        Steel : integer;
    Procedure FreeBitmaps;
     begin
       Iron := BitmapFromString(13, 10, 'z78DA75D25B0E83201005D02D' +
           '316FFC44C4FD2FA9D84BD369B49ADC4C081E0747DBB58938EB29E' +
           '166241575B92E92C2F346CD414E45820B6D72B051D76BADE79DCB' +
           'D94CA57937971DF583D6A993408383848C3D4B3B6DBE2FE75D13A' +
           '641FED39BF34E2327FA09B65D4BB4696BA81D4A0F1A9CDC5BE3CE' +
           '25273A89C355BD8A6F5A613E68E95BAD7EE00C1ECCC8082F2A709' +
           '6F696EF5AFE56776DCE6F4676AAF99C30EAACE9A64556B7FF9C1F' +
           '0D4EF5433BF29FB6CC74BAA59908C772B2D6FCD4919F45DA75D68' +
           'EA97D56BE0E567227F75412BBF6ABF2C0BF9D279E13A77801392D' +
           'A15F');

        Coal := BitmapFromString(14, 9, 'z78DA7592510EC4200844AF243' +
           '0A07EAA75EF7FA4B5E207CD6E359934545F19A6F932C0D2BD4812' +
           'AFEDCF3C78D0741516E6245994559A34CE0FDD75BFE55AC42A4A6' +
           '4A222094E25D25E987E928C2C5D34D69652ECC278639E7AA44D99' +
           '5C5D1FB4ADBC165969F6C18C0457252CFF36D4A41F7260C6930F6' +
           '6E54A8FB7A0BB1F5580A7A92E13197A817EBF18271F5D47E66275' +
           '1AA7B74DF30E4B32438E9CA827CDEDD7693E25EE77052685B3558' +
           '534A765D68EF496609CF9F9371E39F2E474FC6E9A7DB4CAE5AE8B' +
           '5A477B63FEA67966D8A4738DBD392D674B9098E01F665989896B9' +
           'CC91776469AA3');

        Steel := DTMFromString('78DA630C626060706040011505F90CFF81342' +
           '310FF0702C64820C393010D302291403A1848F811501300247C09' +
           'A87107125E44A87126A0C60BD35F186A40EEB521A006143E9604D' +
           '480C2C79A809A5820614B404D02116E8E01126E04D4C4010917FC' +
           '6A006F840EBA');
     end;

    Function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i:=1 to 12 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;
         5:  If FindQuiz then
               Result := True;
         6:  If FindDemon then
               Result := True;
         7: begin
               if NoGameTab then
               begin
                 Result := True;
                 Logout;
                 Exit;
               end;
             end;
         8: begin
               if InBlack then
               begin
                 Result := True;
                 Logout;
                 Exit;
               end;
             end;
         9: begin
                 if(DetectFrogCave) then SolveFrogSwamp;
            end;
         10: begin
                  if(FindFight) then
                  begin
                       RunAwayDirection('W');
                       Wait(10000 + Random(2000));
                       RunBack;
                  end;
             end;
         11: begin
                  FindLamp('Prayer');
             end;
         12: begin
                  if findname or findtalk then
                  begin
                   FindNormalRandoms;
                  end
             end;
        end;
        Wait(1);
      end;
    end;
    ///////////////////////opens the bank and withdraws the ores only for the first time//////////////////
    Procedure WithdrawOres;//based it on the bank opening proces by ThickAsBlood
    var i:integer;

      Begin
       i:=0
       if not (BankScreen) then
        repeat
         i:= + 1;
         if(FindColorTolerance(x, y, BankBooth,MSX1, MSY1, MSX2, MSY2,5))and
         (IsUpText('bank')) then
          Mouse(x,y,0,0,false);
          Wait(1000+random(500));
          ClickOption('ickl', 1);
          Wait(3000+random(1000));
        until (GetColor(229, 41) = 2070783) or (i >= 10) or (BankScreen);
        if (i >= 10) then
          TerminateScript;
          QuickFixBank;
        If(FindBitmap(Iron,x,y)) then
         begin
          Wait(1000+random(500));
          Mouse(x,y,2,2,false);
          ChooseOption('ithdraw x');
          TypeSend('18');
        end;
        If(FindBitmap(Coal,x,y)) then
         begin
          Wait(1000+random(500));
          Mouse(x,y,2,2,false);
          ChooseOption('All');
         end;
        MouseBox(478, 33, 494, 49, 1);
        FindFastRandoms;
     end;

    ///////////////////////Walks to the furnace/////////////////
    Procedure GoToFurnace;
     Begin
      FindColor(x,y,FurnaceMM,mmx1,mmy1,mmx2,mmy2)
      Wait(1000+random(500));
      Mouse(x,y,1,1,true);
      Wait(5000+random(1000));
      FindFastRandoms;
     end;

    /////////////////////Smelt the ores/////////////////////
    Procedure SmeltOres;
    var mins: Integer;
        skill: string

     Begin
      if(FindColorTolerance(x, y, Furnace,MSX1, MSY1, MSX2, MSY2,5))and
      (IsUpText('elt furn')) then
       begin
        MMouse(x,y,0,0);
        Mouse(x,y,0,0,true);
        Wait(2000+random(1000));
        MouseBox(258, 712, 286, 738, 2);
        ChooseOption('elt 10 ste');
        Wait(1000+random(3000))
        TypeSend('19');
        FindFastRandoms;
        Wait(10000+random(5000));
        FindFastRandoms;
        begin
         if ((TimeFromMark(HoverMark) / 1000) / 60 >= mins) then //Used the one out of the xAntiBan by Dankness
         begin
           MarkTime(HoverMark);
           HoverSkill(Skill, False);
         end;
        end;
        wait(20000+random(2000));
        Barsdone:= Barsdone + 19;
       end;
     end;

    //////////////////////back to the bank////////////////////
    Procedure GoToBank;
     begin
      FindColor(x,y,BankSymbol,mmx1,mmy1,mmx2,mmy2)
      Wait(500+random(500));
      Mouse(x,y,1,1,true);
      Wait(3000+random(2000));
      FindFastRandoms;
     end;

    ////////////////////////deposit the ores///////////////////
    Procedure ChangeBarsForOres;
    var i : integer;
     Begin
      MakeCompass('s');
      Lowestangle;
      1:=0
      repeat
         i:= + 1;
         if (FondObj(x,y,'ank boot',BankBooth,10))then
          Mouse(x,y,0,0,false);
          Wait(1000+random(500));
          ClickOption('ickl', 1);
          Wait(3000+random(1000));
      until (GetColor(229, 41) = 2070783) or (i >= 10) or (BankScreen);
          if (i >= 10) then
          TerminateScript;
          end;
        if FindDTM(Steel, x, y, 568, 216, 715, 325)then
         begin
          Wait(1000+random(500));
          Mouse(x,y,2,2,false);
          ChooseOption('All');
          QuickFixBank;
        end;
         If(FindBitmap(Iron,x,y)) then
         begin
          Wait(1000+random(500));
          Mouse(x,y,2,2,false);
          ChooseOption('ithdraw x');
          TypeSend('18');
        end;
        If(FindBitmap(Coal,x,y)) then
         begin
          Wait(1000+random(500));
          Mouse(x,y,2,2,false);
          ChooseOption('All');
         end;
        MouseBox(478, 33, 494, 49, 1);
        FindFastRandoms;
        HighestAngle;
     end;
    //////////////////////Main Loop////////////////////////
    Begin
      SetupSRL;
      FreeBitmaps;
      BarsDone:=0
      MakeCompass('s');
      WithdrawOres;
        Repeat
          MakeCompass('n');
          GoToFurnace;
          SmeltOres;
          GoToBank;
          ChangeBarsForOres;
        Until (BarsDone >= Bars)
    end.

    Can someone help me? again?

  12. #12
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    make a comment on line 134 so i dont have to check the whole script

    *hint*-on line 133 or 134 u dont have enough ()'s i think, either that or u dont have enough things in a procedure like doing Mouse(x,y,2,2) instead of Mouse(x,y,2,2,true)
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  13. #13
    Join Date
    Mar 2007
    Posts
    209
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Btw all the errors are solved
    But now my DTMs dont work :S
    SCAR Code:
    Program PortPhasmatysSmelter;
    //by EL_TYCHO
    {.include SRL/SRL.scar}
    {.include SRL/SRL/extended/xbank.scar}

    ///////////Change this if needed///////////////////
    Const Bars = 100 ;//Number of loads to do
          Furnace = 3297479;//Furnace color
          FurnaceMM = 157428;//Furnace color on the minimap
          BankSymbol =  3196640;//color of the bank symbol
          BankBooth = 923672;//bankbooth color


    ///////////////////Dont touch this/////////////////

    var BarsDone : integer;
        Iron : integer;
        Coal : integer;
        Steel : integer;

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

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

    Procedure FreeDTMs;
     begin
        Iron := DTMFromString('78DA6314616060106440013E7A4A609A11CA6' +
           '7940412520C688011558D00909027A0868D0873988184080135AC' +
           '40828F801A903D1C04D42802092E026A6489708F2261F70000032' +
           'C0238');

        Coal := DTMFromString('78DA63146260601060400116E66A609A11CA6' +
           '7E40312B20C688011558D14901027A0460148701350230324D808' +
           'A8110312CC04D480E47988502341408D1C90E023A0868770F8000' +
           '0F2B30216');

        Steel := DTMFromString('78DA630C626060706040011505F90CFF81342' +
           '310FF0702C64820C393010D302291403A1848F811501300247C09' +
           'A87107125E44A87126A0C60BD35F186A40EEB521A006143E9604D' +
           '480C2C79A809A5820614B404D02116E8E01126E04D4C4010917FC' +
           '6A006F840EBA');
     end;

    Function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i:=1 to 12 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;
         5:  If FindQuiz then
               Result := True;
         6:  If FindDemon then
               Result := True;
         7: begin
               if NoGameTab then
               begin
                 Result := True;
                 Logout;
                 Exit;
               end;
             end;
         8: begin
               if InBlack then
               begin
                 Result := True;
                 Logout;
                 Exit;
               end;
             end;
         9: begin
                 if(DetectFrogCave) then SolveFrogSwamp;
            end;
         10: begin
                  if(FindFight) then
                  begin
                       RunAwayDirection('W');
                       Wait(10000 + Random(2000));
                       RunBack;
                  end;
             end;
         11: begin
                  FindLamp('Prayer');
             end;
         12: begin
                  if findname or findtalk then
                  begin
                   FindNormalRandoms;
                  end
             end;
        end;
        Wait(1);
      end;
    end;
    ///////////////////////opens the bank and withdraws the ores only for the first time//////////////////
    Procedure WithdrawOres;//based it on the bank opening proces by ThickAsBlood
    var i:integer;

      Begin
       i:=0
       if not (BankScreen) then
        repeat
         i:= + 1;
         if (FindObj(x,y,'ank boot',BankBooth,10))then
          Mouse(x,y,0,0,false);
          Wait(1000+random(500));
          ClickOption('ickl', 1);
          Wait(3000+random(1000));
        until (GetColor(229, 41) = 2070783) or (i >= 10) or (BankScreen);
        if (i >= 10) then
          TerminateScript;
        if FindDTM(Iron, x, y, 76, 60, 442, 94)then
         begin
          Wait(500+random(500));
          Mouse(x,y,2,2,false);
          Wait(500+random(500));
          ClickOption('X', 1);
          Wait(1000+random(500));
          TypeSend('9');
        end;
        if FindDTM(Coal, x, y, 76, 60, 442, 94)then
         begin
          Wait(1000+random(500));
          Mouse(x,y,2,2,false);
          Wait(1000+random(500));
          ClickOption('ll', 1);
         end;
        MouseBox(478, 33, 494, 49, 1);
      end;

    ///////////////////////Walks to the furnace/////////////////
    Procedure GoToFurnace;
     Begin
      FindMMColorTol(x,y,FurnaceMM,25);
      Mouse( x, y, 5, 5,true);
      Wait(2000+random(1000));
     End;

    /////////////////////Smelt the ores/////////////////////
    Procedure SmeltOres;
    var mins: Integer;
        skill: string;

     Begin
        wait(3000+random(1000));
        repeat
        FindMSColorTol(x,y,Furnace,15);
        wait(50+random(10));
        Mouse(x,y,5,8,false);
        wait(50+random(10));
        until(ClickOption('Smelt', 1)=true);
        begin
        Wait(5000+random(500));
        MouseBox(240, 395, 268, 418, 2);
        ChooseOption(x, y, 'elt 10');
        Wait(1000+random(3000))
        HitKeys(true);
        Wait(500+random(500));
        FindFastRandoms;
        Wait(10000+random(5000));
        begin
         if ((TimeFromMark(HoverMark) / 1000) / 60 >= mins) then //Used the one out of the xAntiBan by Dankness
         begin
           MarkTime(HoverMark);
           HoverSkill(Skill, False);
         end;
        end;
        wait(20000+random(2000));
        Barsdone:= Barsdone + 19;
       end;
     end;

    //////////////////////back to the bank////////////////////
    Procedure GoToBank;
     begin
      FindMMColorTol(x,y,bANKsYMBOL,25);
      Mouse( x, y, 5, 5,true);
      Mouse(x,y,1,1,true);
      Wait(3000+random(2000));
      FindFastRandoms;
     end;

    ////////////////////////deposit the ores///////////////////
    Procedure ChangeBarsForOres;
    var i : integer;
     Begin
      MakeCompass('s');
      Lowestangle;
      i:=0;
      repeat
         i:= + 1;
         if (FindObj(x,y,'ank boot',BankBooth,10))then
          Mouse(x,y,0,0,false);
          Wait(1000+random(500));
          ClickOption('ickl', 1);
          Wait(3000+random(1000));
      until (GetColor(229, 41) = 2070783) or (i >= 10) or (BankScreen);
          if (i >= 10) then
          TerminateScript;
        if FindDTM(Steel, x, y, 568, 216, 715, 325)then
         begin
          Wait(1000+random(500));
          Mouse(x,y,2,2,false);
          Wait(500+random(500));
          ClickOption('ll', 2);
          QuickFixBank;
        end;
         if FindDTM(Iron, x, y, 76, 60, 442, 94)then
         begin
          Wait(1000+random(500));
          Mouse(x,y,2,2,false);
          ClickOption('X', 1);
          Wait(1000+random(500));
          TypeSend('9');
        end;
        if FindDTM(Coal, x, y, 76, 60, 442, 94)then
         begin
          Wait(1000+random(500));
          Mouse(x,y,2,2,false);
          Wait(1000+random(500));
          ClickOption('ll', 1);
         end;
        MouseBox(478, 33, 494, 49, 1);
        FindFastRandoms;
        HighestAngle;
     end;
    //////////////////////Main Loop////////////////////////
    Begin
      SetupSRL;
      DeclarePlayers;
     if (not(LoggedIn)) then
      LoginPlayer;
      FreeDTMs;
      BarsDone:=0
      MakeCompass('s');
      WithdrawOres;
        Repeat
          MakeCompass('n');
          GoToFurnace;
          SmeltOres;
          GoToBank;
          ChangeBarsForOres;
        Until (BarsDone >= Bars)or(Not(LoggedIn));
    end.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. what is the withdraw function, to withdraw X
    By ummmmm0k in forum OSR Help
    Replies: 3
    Last Post: 01-21-2008, 07:52 AM
  2. Withdraw Slot 1
    By yanix in forum OSR Help
    Replies: 7
    Last Post: 11-12-2007, 09:21 PM
  3. withdraw
    By RS Rebel in forum OSR Help
    Replies: 11
    Last Post: 07-28-2007, 02:47 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
  •