Results 1 to 5 of 5

Thread: need

  1. #1
    Join Date
    Mar 2008
    Location
    just where i live
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default need

    well, i'll just get to the point, i need an bone collector and banker, i don't know if this is possible, could you help me?
    what am i supposed to write?

  2. #2
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    A Bone Colllector and burrier and a burrier and banker? Because one that collects and banks is very veeeery anoying
    ~Hermen

  3. #3
    Join Date
    Sep 2007
    Posts
    415
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Hermpie View Post
    A Bone Colllector and burrier and a burrier and banker? Because one that collects and banks is very veeeery anoying
    that doesn't make any sense to me..if it buries..then doesn't it not have anything to bank? or do you mean the option to bank/bury? doesn't matter really..but yeah, making a bone collector/burrier would be very hard/super duper crazy hard with multiple places to bank bones at
    Quote Originally Posted by That guy that wrote forefeathers
    <munklez>haha im too lazy, girls annoy me
    <munklez> they always wanna like, do stuff
    <munklez> and i just wanna program
    <munklez> and they always take all my money

  4. #4
    Join Date
    Mar 2008
    Location
    just where i live
    Posts
    14
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok, i'll just do with a burrier
    what am i supposed to write?

  5. #5
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    -.-

    A Bone Collector and burrier takes bones From the GROUND Not the bank -.-
    A Bone Banker And burrier Would BANK them And Bury them -.-
    And A burrier is a short name form Bone Collector(GROUND) and burrier -.-



    Hermpie

    SCAR Code:
    program Hermpie;
    {.Include SRl/SRl.Scar}
    {.include SRL/SRL/Misc/Users.scar}

    Var
      X, Y, Loads : Integer;// Normal Variables
      Bone, BigBone, OpenFWBank : Integer;// DTM Variables
    {==========================]
      Loads The DTMs In Memory
    [==========================}

    Procedure LoadDTMs;
    Begin
      Bone := DTMFromString('78DA63DCC3C0C0E0CB00068C108AE1CCD1230' +
            'C9250FE7F2060DC01648432A00146143D8C4781442001359B8084' +
            '1F013587818407013520F7781150B319E12F5C6A00AC5B0DB9');
      BigBone := DTMFromString('78DA63B467626078C400068C108AE1D9E3C70' +
               'C9250FE7F20603407AA79CA80061851F430FA00D5BC2642CD0302' +
               '6A1C806A9E1350E30254F392801A3BA09ADB4498739F801A5B22D' +
               'CE30E54F30CBF1A009C351275');
      OpenFWBank := DTMFromString('78DA635465646038CF00068C108AA13AC58D4' +
                  '112CAFF0F048C2035BB51D504DAABC1D580C5AD802C25461435ED' +
                  'CEF6A86ADA802C055435C78FEF4355130464ED40B52BD4490355C' +
                  'D2F20B10FBF7B00443410E9');
    End;

    Function WaitUntil(Secs : integer; UntilProc : boolean):Boolean;
    Var
      Time : Integer;
    Begin
      MarkTime(Time)
      Repeat
        Wait(50 + Random(25));
      Until (TimeFromMark(time) > Secs) or (UntilProc);
        if UntilProc then Result:=True;
    End;
    {==========================]
      Performs Anti-Ban
    [==========================}

    Procedure AntiBan;
    Begin
      If Not (LoggedIn) Then Exit;


    End;
    Procedure HandlePin;
    begin
      if PinScreen then InPin(IntToStr(Players[CurrentPlayer].Integers[1]));
      WaitUntil(1500,False);
    end;
    {==========================]
      Take's Bones From Bank
    [==========================}

    Procedure Bank;
    Begin
      If Not (LoggedIn) Then Exit;
      LoadDTMs;
      If DTMRotated(OpenFWBank, X, Y, MSX1, MSY1, MSX2, MSY2) Then
      Begin
        Mouse(X,Y,3,3,False);
        Wait(50 + Random (25));
        If ChooseOption('quickly') Then
        begin
          wait(1000 + Random(500));
          if PinScreen then HandlePin;
          wait(1000 + Random(500));
          If FindDTM(Bone, X, Y, MSX1, MSY1, MSX2, MSY2) then
          begin
            Mouse(x,y,3,3,False);
            if Chooseoption('ll')then
            begin
              CloseBank;
              GameTab(4);
            end;
          end
       end;
    End;
    end;
    {==========================]
      Bury's The Bones
    [==========================}

    Procedure Bury;
    Begin
      If Not (LoggedIn) Then Exit;
      LoadDTMs;
      Repeat
        If FindDTM(Bone, X, Y, MIX1, MIY1, MIX2, MIY2) Then
        begin
          Wait(50 + Random(25));
          MMouse(X,Y,2,2);
          GetMousePos(X,Y);
          if isuptext('one') then Mouse(x,y,0,0,True);
          WaitUntil(1700,false);
        end;
      until (InvEmpty);
        If InvEmpty then
        begin
          Writeln('Burried Bones');
          Loads:= Loads + 1;
        End;
     end;
    {==========================]
      Writes an ProgressReport
    [==========================}

    Procedure ProgressReport;
    Begin


    End;

    {==========================]
      Multi-Player Procedure
    [==========================}

    Procedure LoginNewPlayer;
    Begin
      If LoggedIn Then Exit;
      If Not(LoggedIn) Then If Players[CurrentPlayer].Integers[0] > Loads then Nextplayer(True) else Nextplayer(False);
      Wait(1000 + Random(500));
      SetAngle(True);
      MakeCompass('N');
    End;

    {==========================]
      Main Loop
    [==========================}

    Begin
      SetupSrl;
      SRLPlayerForm(True, ['Bank(True), Pick-Up(False)','Use BigBones'], ['How Many Loads','Pin, If you have one'], [''], ['']);
      LoginPlayer;
      Repeat
        Bank;
        Bury;


      Until (False);

    End.

    I have made this someday I Don't know if all functions are working i think BigBones are not working etc but it is at the FALADOR WEST BANK try it there i hope it works for ya, not sure
    ~Hermen

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
  •