Results 1 to 2 of 2

Thread: i have a problem withdrawing bones

  1. #1
    Join Date
    Dec 2007
    Posts
    2,112
    Mentioned
    71 Post(s)
    Quoted
    580 Post(s)

    i have a problem withdrawing bones

    this is my script all of it
    SCAR Code:
    program boneburyer;
    {==============================================================================}
    {.include SRL/SRL/Misc/Smart.scar}
    {.include srl/srl.scar}
    {==============================================================================}
    {rules=========================================================================}
    {put in your:==================================================================}
    {*username=====================================================================}
    {*password=====================================================================}
    {*nickname=====================================================================}
    {*bankpin======================================================================}
    {*location of character========================================================}
    {*number of players============================================================}
    {*which smartworld=============================================================}
    {*your srl id==================================================================}
    {*your srl pass================================================================}
    {*your run direction===========================================================}
    {*the amount of loads you want to do===========================================}
    {*and click play and enjoy=====================================================}
    {*and please post end proggy===================================================}
    {==============================================================================}
    const
      SmartWorld      = 105;
      Signed          = True;
      YourSRLId  = '3953';
      YourSRLpass =  '2ucrBRvcrz';
      rundir ='n';
      loads = 3;
    {==============================================================================}
    var
      a , x, y : integer;
      bonesinvent :integer;
      bones, bankbone : integer;
    {==============================================================================}
    procedure loadbitmaps;
    begin

      bonesinvent := BitmapFromString(13, 13, 'beNpjYGhgIBE1kK5lO' +
           'CIGYoOrgYEYLQ0QebAaJC24lB0AA4QWDGUQlRBlDTCAohIAW/ZeAQ' +
           '==');

    end;
    {==============================================================================}
    procedure loaddtms;
    begin

    writeln('loading bones dtm and bankbone....');

      bones := DTMFromString('78DA631466606010644001678E1E61F80FA41' +
           '981F83F10304A0119BC0C6880118904D2B2404294801A01202145' +
           '400DC81E01026A40EEE520A0861F487013502306243809A86127C' +
           '2EF7C404218BF1A00A20208B9');


      bankbone := DTMFromString('78DA6394626060E062400137AF5C06D38C40F' +
             'C1F081855800C7E0634C08844026951202142400D2FA65D186A84' +
             '81043B0135C4B88718351244B819E42F3E22DCCC43408D3C90602' +
             '3A0468AB05D00FEED0872');

    writeln('loaded all dtms');

    end;
    {==============================================================================}
    procedure declareplayers;
    begin
    writeln('declaring player...');

      CurrentPlayer := 0;
      NumberOfPlayers(1); // raise if you added more PLAYERS! please

      Players[0].Name   := '';
      Players[0].Pass   := '';
      Players[0].Nick   := '';
      Players[0].Active := True;
      Players[0].Strings[1] := ''; // Bank Pin
      Players[0].Loc    := ''; //bank look down location

    //'akb', 'al kharid'
    //'lb', 'lumbridge'
    //'veb', 'varrock east'
    //'vwb','varrock west'
    //'feb', 'falador east'
    //'fwb', 'falador west'
    //'db', 'draynor'
    //'eb', 'edgeville bank'

      Writeln( IntToStr ( HowManyPlayers ) + ' Players' );

      writeln('declared players logging in...');

    end;
    {=============================================================================-}
    procedure findloc;
    begin

    writeln('this does not work for any memeber banks');

        if Players[CurrentPlayer].Loc ='akb' then
       begin
      writeln('your player is in al-kharid bank');
       end;

        if Players[CurrentPlayer].Loc ='lb' then
       begin
      writeln('your player is in lumbridge bank');
       end;

        if Players[CurrentPlayer].Loc ='veb' then
       begin
      writeln('your player is in varrock east bank');
       end;

        if Players[CurrentPlayer].Loc ='vwb' then
       begin
      writeln('your player is in varrock west bank');
       end;

        if Players[CurrentPlayer].Loc ='feb' then
       begin
      writeln('your player is in falador east bank');
       end;

        if Players[CurrentPlayer].Loc ='fwb' then
       begin
      writeln('your player is in falador west bank');
       end;

        if Players[CurrentPlayer].Loc ='db' then
       begin
      writeln('your player is in draynor bank');
       end;

        if Players[CurrentPlayer].Loc ='eb' then
       begin
      writeln('your player is in edgeville bank');
       end;

         if Players[CurrentPlayer].Loc ='' then
        begin
       writeln('you have not set the location of the bank');
      writeln('terminating script....');
       writeln('set the location of the bank and please start again!');
        terminatescript;
       end;

    end;
    {==============================================================================}
    procedure Antiban;//antiban by osmm
    begin
    writeln('starting antiban');
      MouseSpeed := 9 + Random(3);
       case random(7) of
       0: begin
       SleepAndMoveMouse(500 + random(500));
      SleepAndMoveMouse(1500);
     end;
       1: begin
        MMouse(Random (500), Random (500), 10 , 10);
       MMouse(Random (500), Random (500), 10 , 10);
     end;
       2: begin
      GameTab(1 + random(13));
        FTWait(RandomRange(2,4));
      GameTab(4);
     end;
       3: begin
      RandomMovement;
       ChooseOption('Cancel');
     end;
       4: begin
      GameTab(2);
       FTWait(RandomRange(2,4));
      GameTab(4);
     end;
       5: begin
     FTWait(RandomRange(2,4));
      RandomMovement;
     GameTab(4);
     end;
       6: begin
      Pickupmouse;
       BoredHuman;
      GameTab(4);
      end;
      end;
     end;
    {==============================================================================}
    procedure myantiban;// inventoryantiban; by me!!!
    begin
    writeln('starting inventoryantiban;');
    MouseSpeed := 7 + Random(3);
    case random(7) of
    0: begin
      gametab(4);
      ArrangeInv;
      MMouseItem(16);
      end;
    1: begin
      gametab(4);
      MouseItem(1, false);
      ChooseOption('Cancel');
      end;
    2: begin
      AlmostLogout;
      HoverSkill('prayer', false);
      gametab(4);
      gametab(10);
      end;
    3: begin
      gametab(4);
      BoredHuman;
      PickUpMouse;
        BoredHuman;
      end;
    4: begin
      gametab(4);
      RandomRClick;
      chooseoption('cancel');
      gametab(4);
      FixChat;
      end;
    5: begin
      gametab(4);
      RandomMovement;
      SleepAndMoveMouse(2000);
      end;

    6: begin
      OpenBankFast(Players[CurrentPlayer].Loc);//location of bnk look up
      wait(2000);

      if PinScreen then
      InPin(Players[CurrentPlayer].Strings[1]);
      wait(2000);
      closebank;

      if BankScreen then
      fixbank;
      CloseBank;
      end;

    7: begin
      BoredHuman;
      DragItem(18, 1);
      BoredHuman;
      ChooseOption('Cancel');
      end;
     end;
    end;
    {==============================================================================}
    procedure burybones; forward;
    {==============================================================================}
    procedure withdrawbones; forward;
    {==============================================================================}
    procedure randoms; forward;
    {==============================================================================}
    procedure changecompassrandomly; forward;
    {==============================================================================}
    procedure proggy; forward;
    {==============================================================================}
    procedure checkinvent;
    begin
     gametab(4);
    if invfull then
    begin
      writeln('inventory is full checking for bones...');
      if findbitmapin(bonesinvent, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
      writeln('found the bitmap of the normal bones, burying...');
      burybones;
    end else
      writeln('inventory is empty we will withdraw the bones');
      withdrawbones;
    end;
    end;
    {==============================================================================}
    procedure getburyedwriting;
    begin
    if IsChatBlackTextAnyLine('you dig a hole in the ground...') or
    ischatblacktextanyline('you bury the bones.') then
    begin
      writeln('found the writing');
      writeln('scar dug a hole in the ground');
      writeln('scar buryed the bones');
      randoms;
      antiban;
      myantiban;
      changecompassrandomly;
    end else
      randoms;
      antiban;
      myantiban;
      changecompassrandomly;
      writeln('scar did not find the buryedwriting bitmap');
      withdrawbones;
    end;
    {==============================================================================}
    procedure burybones;
    var
     i : integer;
    begin
      gametab(4);
    for i := 1 to 28 do
    begin
      writeln('looking for bones...');
    if FindDTM(bones, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
      mouseitem(i, false);
      WAIT(500);
      CHOOSEOPTION('bury');
      getburyedwriting;
      antiban;
      myantiban;
      changecompassrandomly;
     
    end else
      writeln('could not find bones.');
      writeln('moving on to procedure withdrawbones;...');
      a := a+1
      proggy;
    end;
    end;

    {==============================================================================}
    procedure withdrawbones;
    begin
    writeln('opening your bank...');

      OpenBankFast(Players[CurrentPlayer].Loc);
      wait(5000);
      randoms;
      antiban;
      myantiban;
      changecompassrandomly;

      if pinscreen then
      begin
      inpin(Players[currentplayer].Strings[1]);
      writeln('opened your bank');
      writeln('fixing your bank...');
      fixbank;
      wait(500);
      depositall;
      wait(500);
      writeln('withdrawing bones...');
      if finddtm(bankbone,x ,y, MIX1, MIY1, MIX2, MIY2) THEN
      BEGIN
      MOUSE(X, Y, 5, 5, FALSE);
      wait(500);
      chooseoption('Withdraw X')
      wait(500);
      typesend('28');
      writeln('closing your bank...');
      closebank;
      randoms;
      antiban;
      myantiban;
      changecompassrandomly;
      end;

      if bankscreen then
      begin
      writeln('opened your bank');
      writeln('fixing your bank...');
      fixbank;
      wait(500);
      depositall;
      wait(500);
      writeln('withdrawing bones...');
      if finddtm(bankbone,x ,y, MIX1, MIY1, MIX2, MIY2) THEN
      BEGIN
      MOUSE(X, Y, 1, 1, FALSE);
      wait(500);
      chooseoption('all')
      wait(500);
      typesend('28');
      closebank;
      randoms;
      antiban;
      myantiban;
      changecompassrandomly;
      end;

    end else
      writeln('cant open the bank for some reason make sure your in a bank');
      writeln('treminating script...');
      terminatescript;
    end;
    end;
    {==============================================================================}
    procedure freedtmsandbitmaps;
    begin
      freedtm(bones);
      freedtm(bankbone);
      freebitmap(bonesinvent);
    end;
    {==============================================================================}
    procedure startscript;
    begin
    writeln('####################################################################################');
    writeln('######################################################/////////////////////////////#');
    writeln('#####################################################/////////////////////////////##');
    writeln('############################################################################/////###');
    writeln('#############/~~~~~~~~~~~~~~~/##/  /#########/  /##/~~/####################/////####');
    writeln('############/   /~~~~~~~~/  /##/  /#########/  /##/  ~~~~~~~~~~~~/########/////#####');
    writeln('###########/   /########/  /##/  /#########/  /##/  ~~~~~~~~~~~~/########/////######');
    writeln('##########/   /########/  /##/  /#########/  /##/  /####################/////#######');
    writeln('#########/   /########/  /##/  /#########/  /##/  /##///////////////////////########');
    writeln('########/   /~~~~~~~~/  /##/  /#########/  /##/  /##///////////////////////######### ');
    writeln('#######/   /##############/  /~~~~~~~~~/  /##/  /####################/////########## ');
    writeln('######/   /##############/               /##/  /####################/////########### ');
    writeln('#####/   /##############/~~~~~~~~~~~~~~~/##/~~/####################/////############ ');
    writeln('##################################################################/////############# ');
    writeln('#########################################/////////////////////////////############## ');
    writeln('########################################/////////////////////////////############### ');
    writeln('#################################################################################### ');
    SetBar('Brightness', 4);
    SetBar('Volume', 1);
    setbar('Effect', 1)
    setbar('Area', 1)
    SetChat('on', 1);
    SetChat('off', 2);
    SetChat('off', 3);
    SetChat('off', 4);
    gametab(4);
    if invempty then
    begin
    withdrawbones;
    end;
    end;
    {==============================================================================}
    procedure proggy;
    begin
      writeln('----------pur3 buryer--------------------------------');
      writeln('----------buryed about '+IntToStr(a)+' inventorys----');
      writeln('----------Worked For '+TimeRunning+' ----------------');
      writeln('----------version 1.3 -------------------------------');
      writeln('----------thankyou for using pur3 buryer-------------');
    SRLRandomsReport;
    end;
    {==============================================================================}
    procedure changecompassrandomly;
    begin
    case random(7) of
    0: begin
      makecompass('n');
      end;
    1: begin
      makecompass('s');
      end;
    2: begin
      makecompass('e');
      end;
    3: begin
      makecompass('w');
      end;
    4: begin
      makecompass('nw');
      end;
    5: begin
      makecompass('sw');
      end;
    6: begin
      setangle(true);
       end;
    end;
    end;
    {==============================================================================}
    procedure randoms;
    begin
      findnormalrandoms;
     findinventoryrandoms;
    findtalk;
     solvepinball;
      dwarfitem;
     findlamp('prayer');
    findmod;
     openbox;
      solvebox;
    detectfrogcave;
     findfrogcave;
      solvefrogswamp;
     solvefrog;
    solvequiz;
     solvesandwich;

      if findfight then
     begin
    setrun(true);
     runto(rundir, true);
      wait(15000);

     if rundir ='n' then
    begin
     runto('s', true);
      end;

     if rundir ='s' then
    begin
     runto('n', true);
      end;

     if rundir ='e' then
    begin
     runto('w', true);
      end;

     if rundir ='w' then
    begin
     runto('e', true);
      end;

    end;
    end;
    {==============================================================================}
    procedure SetupSmart;
    begin
      SmartSetupEx(SmartWorld, false, Signed);
      ClearDebug;
      WriteLn('Setting up Smart...');
      writeln('Please Hold...');
      Wait(5000 + random(5000));
      SetTargetDC(SmartGetDC);
      While not(SmartReady) do Wait(100);
    end;
    {==============================================================================}
    begin
      cleardebug;
       clearreport;
        SetupSRL;
         SetupSmart;
        CheckUserNicks;
       SetupSRL;
      Disguise('starting script');
     Getapplication.minimize;
    ActivateClient;
     DeclarePlayers;
      findloc;
       loginplayer;
        Disguise('script started');
       disguise('itunes');
      startscript;
     proggy;
    repeat
    setangle(true);
     loadbitmaps;
      loaddtms;
       checkinvent;
        withdrawbones;
       freedtmsandbitmaps;
      if a = loads then
     logout;
    nextplayer(false);
    until(false);
    end.
    it opens up the bank then cus iv gt a pin it just stays the and does nothing then after 5 seconds it logs me out can any1 help me fix this error

  2. #2
    Join Date
    Jan 2008
    Location
    UK
    Posts
    500
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    after openbankfast you need to add something like:

    if PinScreen then InPin;

    Then get rid your you current pinscreen routine.
    For the Ultimate Monk Fisher: Ultra Monkfish n Bank Click Here


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. bones!
    By skilld u in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 04-24-2008, 07:59 PM
  2. Withdrawing a new axe...
    By Wade007 in forum OSR Help
    Replies: 2
    Last Post: 02-24-2008, 12:00 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
  •