Results 1 to 2 of 2

Thread: Can you tell i'm new? lol

  1. #1
    Join Date
    Jun 2007
    Location
    I'm not sure...
    Posts
    581
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Can you tell i'm new? lol

    Oke-doke, I have a script (omg) that I'm writing (even more omg) and I need help with it (I think I'm in the right forum for that )

    BTW, I put a note in it to show you where I need help, I thought that might be more specific

    SCAR Code:
    program BoneCollector;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/extended/xDTM.scar}

    var
    bones, feather, x, y, totalbones, totalfeathers:Integer;
    direction, oppdir:string;
    querk:boolean;

    Procedure LoadDTMs;
    Begin
      bones := DTMFromString('78DA63E4656060E062800326203E75F81098C' +
        'D08C4FF81805114550D08ECDBBA05AE064C0B000956543577AE5F' +
        '4755C309243808A801C9F3A3AAB97CF62C8A1A0079B81073');
      feather := DTMFromString('78DA63E4626060E06740015B56AD623801A41' +
        '981F83F1030F263AA5934750A986684F2198580040BAA9A9DEBD7' +
        'A3AAE100123CA86A766FDA88AA861D4888A0AAD9B86C298A1A005' +
        '93C0F4F');
    end;

    Procedure RandomDir;
     Begin
      Begin
      Case (random(4)) of;
          0: direction:='n';
          1: direction:='s';
          2: direction:='e';
          3: direction:='w';
      End;
      End;
      querk:=False;
     End;


    Procedure OppDir;
     Begin
      Begin
       Case (direction) of;
         'n': oppdir:='s';
         's': oppdir:='n';
         'e': oppdir:='w';
         'w': oppdir:='e';
       End;
      End;
      querk:=True;
     End;


    Procedure FindStuff;
      Begin
       LowestAngle;
       If DTMRotated(bones, x, y, MSX1, MSY1, MSX2, MSY2) Then;
         Begin
           Mouse(x, y, 5, 5, false);
           ChooseOptionEx('ones');
             If Result:= True Then;
               Begin
                 totalbones:=totalbones+1;
               End;
         End Else;
         If DTMRotated(feather, x, y, MSX1, MSY1, MSX2, MSY2) Then;
         Begin
           Mouse(x, y, 5, 5, false);
           ChooseOptionEx('eather');
             If Result:= True Then;
               Begin
                 totalfeathers:=totalfeathers+1;
               End;
         End Else;
           Begin
                  Case (querk) of;
                    True: RandomDir;
                          RunAway(direction);
                    False: RunAway(oppdir);
                  End;
           End;
      End;

    Procedure NoBan;
    var
      wtfbbq: Integer;
    begin
    wtfbbq:= Random(11);
     case wtfbbq of

        0: RandomRClickEvery(2 + Random(13));
        1: HoverSkill('Mining', False);
        2: RandomChatEvery(10 + Random(5));
        3: RotateEvery(20 + Random(10));
        4: LeaveScreenEvery(5 + Random(5));
        5: HoverEvery(15 + Random(5), 'Attack');
        6: PickUpMouse;
        7: BoredEvery(9 + Random(24));
        8: DragItem(1, 1 + Random(18));
        9: GameTab(1 + Random(12));
        10: RotateEvery(7 + random(4));
      end;
    end;

    procedure NoRan;
      Begin
        FindNormalRandoms;
      End;


    Procedure ProgRep;
      Begin
        ClearDebug;
        Writeln('You have found ' +IntToStr(totalbones) +' bones, ');
        Writeln('and ' +IntToStr(totalfeathers) +' little packs of ');
        Writeln('feathers. Good job ;)');
        Writeln('Thanks for choosing Rotflmfwao''s bone and feather thingy');
        AddToReport('I don''t care if you post this wherever the hell you want to, but please put credits up ;)');
      End;

    {checks the inventory to see if its full, and it it is, the script
    will walk to the bank and deposit the stuff, and then walk back. As
    you can see, it is terrible, and I need a lot of help ;) Please help
    me with this procedure!!! (I need it lol)}

    Procedure CheckInv;
     var doorcolor:integer;
      Begin
        InvFull;
          If Result:=True Then;
           Begin
            GetDoorColor;
            Result:= doorcolor;
            FindMSColor(doorcolor);
           End;


    Begin
    SetUpSrl;
    LoadDTMs;
    totalbones:=0;
    totalfeathers:=0;
     While 1:=1 Do;
       Begin
         NoBan;
         NoRan;
         CheckInv;
         FindStuff;
         ProgRep;
       End;
    end.
    ---------------------------------------------------------


    Pm me if you need any math functions made. Me = l0ving t3h mathz

    ---------------------------------------------------------

  2. #2
    Join Date
    May 2007
    Location
    in a pineapple under the sea
    Posts
    1,040
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    umm this will help fix what uve got

    SCAR Code:
    Procedure CheckInv;
    var  doorcolor:integer;

    Begin
      if InvFull then
      Begin
        GetDoorColor;
        Result:= doorcolor;
        FindMSColor(doorcolor);
      End;

    to find the bank and open the bankscreen just use

    SCAR Code:
    findbank(bankcodegoeshere);

    some codes are

    replace bankcodegoeshere with the bank u want to find

    'veb' = varrock east bank

    'vwb' = varrock west bank

    'db' = draynor bank

    'feb' = falador east bank

    'fwb' = falador east bank

    Feel free to pm me with your questions.
    [SIZE="4"][CENTER][URL="http://www.youtube.com/watch?v=5YsGJz3j4os"]LOL u mad bro?[/URL][/CENTER][/SIZE]

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
  •