Results 1 to 9 of 9

Thread: My attempt lol

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

    Default My attempt lol

    Here is my attempt at a prayer lvler. XD At least I tried XD
    BTW, can u check it for me?
    ---------------------------------------------------------


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

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

  2. #2
    Join Date
    Apr 2007
    Location
    Texas
    Posts
    1,668
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hmm, I looked at it, and it seems to be done pretty well.

    I notocied that you have 5 bone colors, yet you only look for four of them...

    I also dont see the point in waiting 10 to 15 minutes here, lol
    SleepAndMoveMouse(600000+random(300000));
    isnt that a bit much?
    [IMG]http://farm3.static.flickr.com/2120/2052732965_348f3629d0_o.jpg[/IMG]

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

    Default

    Oops, yeah, I'll fix some stuff and repost it XD

    EDIT: Heres the new one
    ---------------------------------------------------------


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

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

  4. #4
    Join Date
    Jun 2007
    Location
    Kentucky, United States of America
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It had a few errors. I put all the corrections in there that I could find. It still says there is a colon expected at line 207, but I'm too lazy to go see where you messed up. Here it is with some thing corrected.


    SCAR Code:
    program prayer2;
    {.include SRL/SRL.scar}
    {.Include SRL/SRL/extended/xAntiBan.scar}
    Var
      BoneColors: Array of Integer;
      HaveBones: Integer;
      w:Integer;

    Const
      Trips=1;//Didn't need the : on either of these
      RunDir='n';//Forgot that ;

    procedure DeclarePlayers;

    Begin
      HowManyPlayers := 6; //Number of PLAYERS. active or not.
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; //Player to start on.

        //set all user names, passwords and nicks correctly please.
        //If you don't, I will kill you in your sleep >=)
      Players[0].Name := 'UserName';
      Players[0].Pass := 'Password';
      Players[0].Nick := '3-4 letters of UserName';
      Players[0].Active := True;

      Players[1].Name := 'UserName';
      Players[1].Pass := 'Password';
      Players[1].Nick := '3-4 letters of UserName';
      Players[1].Active := False;

      Players[2].Name := 'UserName';
      Players[2].Pass := 'Password';
      Players[2].Nick := '3-4 letters of UserName';
      Players[2].Active := False;

      Players[3].Name := 'UserName';
      Players[3].Pass := 'Password';
      Players[3].Nick := '3-4 letters of UserName';
      Players[3].Active := False;

      Players[4].Name := 'UserName';
      Players[4].Pass := 'Password';
      Players[4].Nick := '3-4 letters of UserName';
      Players[4].Active := False;

      Players[5].Name := 'UserName';
      Players[5].Pass := 'Password';
      Players[5].Nick := '3-4 letters of UserName';
      Players[5].Active := False;

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    End;

    Procedure DeclareColors;
      Begin
        SetArrayLength(BoneColors,5);
        BoneColors[0]:= 11842750;
        BoneColors[1]:= 13487571;
        BoneColors[2]:= 11382457;
        BoneColors[3]:= 13355986;
        BoneColors[4]:= 10329769;
      End;

    Procedure Randoms;
      Begin
        If(Not(LoggedIn))Then
        Begin
          Players[CurrentPlayer].Active:=False;
          Exit;
        End;
        FindNormalRandoms;
        If(FindFight)Then
          RunAway(RunDir);//This is an invalid procedure for SCAR DIVI 3.11 and SRL 3.81.  What version are you using?
          Wait(1000+Random(2000));
          RunBack;
      End;

    Function RandomDir: String;
      Begin
        If(Not(LoggedIn))Then
        Begin
          Players[CurrentPlayer].Active:=False;
          Exit;
        End;
        Case (random(4)) of
          0: Result:='n';
          1: Result:='s';
          2: Result:='e';
          3: Result:='w';
        End;
      End;

    Procedure ScrewyCompass(arrowkey:String; moveback:Boolean);//up, down, left, right, or ran
      Var HoldingTime, WaitTime, RanDir, OppRanDir:Integer;
      Begin
        If(Not(LoggedIn))Then
        Begin
          Players[CurrentPlayer].Active:=False;
          Exit;
        End;
        HoldingTime:= 500+random(1000);
        WaitTime:= 500+random(250);
        RanDir:= random(4);
        Case (RanDir) of
          0: OppRanDir:=2
          1: OppRanDir:=3
          2: OppRanDir:=0
          3: OppRanDir:=1
        End;
        Case (arrowkey) of
          'up': SendArrowWait(0,HoldingTime);
          'down': SendArrowWait(2,HoldingTime);
          'left': SendArrowWait(3,HoldingTime);
          'right': SendArrowWait(1,HoldingTime);
          'ran': SendArrowWait(RanDir,HoldingTime);
        End;
        If (moveback) Then
          Begin
            Wait(WaitTime);
            Case (arrowkey) of
              'up': SendArrowWait(2,HoldingTime);
              'down': SendArrowWait(0,HoldingTime);
              'left': SendArrowWait(1,HoldingTime);
              'right': SendArrowWait(3,HoldingTime);
              'ran': SendArrowWait(OppRanDir,HoldingTime);
            End;
          End;
      End;

    Procedure NevaBanMe;
      Begin
        If(Not(LoggedIn))Then
        Begin
          Players[CurrentPlayer].Active:=False;
          Exit;
        End;
        Case (random(11)) of
          0: RandomRClickEvery(2 + Random(4));

          1: begin
               HoverSkill('Prayer', false);
               wait(1000+random(2000));
               GameTab(4);
             end;

          2: ScrewyCompass('ran',True);

          3: DontBanMe(2+random(3));

          4: PickUpMouse;

          5: LeaveScreenEvery(10 + Random(4));

          6: BoredEvery(10 + Random(5));

          7: begin
               GameTab(1 + Random(12));
               wait(1000+random(1000));
               GameTab(4);
             end;

          8: begin
               case random(4) of
                 0: TypeSend('Ugh, Prayer takes 4 eva 2 lvl!!!');

                 1: TypeSend('Bones Bones Bones...');

                 2: TypeSend('Hey all, wats ur prayer lvls?');

                 3: TypeSend('Prayer Pwnz!');
               end;
             end;

          9: AntiBan;

          10: SleepAndMoveMouse(600000+random(300000));
        End;
      End;


    Function GetBones: Boolean;
      Var
        i,q :Integer;
        coords: TPoint;
      Begin
        Result:=False;
        If(Not(LoggedIn))Then
          Begin
            Players[CurrentPlayer].Active:=False;
            Exit;
          End;
        For q:= 0 to 1 do
          Begin
            For i:= 0 to 3 do
              Begin
                Randoms;
                If FindObjMultiText(coords.x,coords.y,'Bones','nes','ones',BoneColors[i],20) then //Forgot the s after BoneColor
                   Begin
                     Mouse(coords.x,coords.y,2,2,false);
                     If (PopUp('up Bones')) then
                       Begin
                         Result:=True;
                         Exit;
                       End;
                   End;
              End;
          End;
      End;

    Function BuryBones;
      Var q:Integer;
      Begin
        If(Not(LoggedIn))Then
        Begin
          Players[CurrentPlayer].Active:=False;
          Exit;
        End;
        If(InvFull)Then
          For q:=1 to 28 do
          Begin
            Randoms;
            MouseItem(q,False);
            (PopUp('ury'));
            Wait(500+random(1000));
          End;
      End;

    begin
      DeclarePlayers;
      DeclareColors;
      Repeat
        Begin
          For w :=0 to Trips do
          Begin
            If(Not(LoggedIn))Then
              Begin
                Players[CurrentPlayer].Active:=False;
                Exit;
              End;
            GetBones;
            NevaBanMe;
            BuryBones;
            NevaBanMe;
          End;
          NextPlayer(Players[CurrentPlayer].Active);
        End;
      Until(False);
    end.

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

    Default

    Ok, ty, could you check it for my new one too lol XD
    As you can see, I'm not too good at this XD

    BTW, i fixed runaway
    ---------------------------------------------------------


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

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

  6. #6
    Join Date
    Apr 2007
    Location
    Texas
    Posts
    1,668
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i dont have time to look at it

    but hey, ure working on it, and your learning. thats very very good keep up the good work, and dont be discoraged
    [IMG]http://farm3.static.flickr.com/2120/2052732965_348f3629d0_o.jpg[/IMG]

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

    Default

    Btw, I changed the
    SCAR Code:
    For i:=0 to 3 do
    In GetBones to
    SCAR Code:
    For i:=0 to 4 do
    so it finds all the colors, ty for telling me 'bout that XD
    ---------------------------------------------------------


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

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

  8. #8
    Join Date
    Jun 2007
    Location
    Kentucky, United States of America
    Posts
    409
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I gotta go to bed man, I have three a days for soccer tomorrow. If you want, PM me the script, and I'll take a better look at it tomorrow.

  9. #9
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    i found an error you have {.include SRL\SRL\extended\antiban} you have to add .scar to antiban so its antiban.scar.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. First Attempt
    By Harry in forum Graphics and Multimedia
    Replies: 5
    Last Post: 03-25-2008, 01:13 PM
  2. First ever sig attempt
    By jhildy in forum Graphics and Multimedia
    Replies: 1
    Last Post: 02-13-2008, 02:42 AM
  3. My First Ever Attempt!
    By Belt in forum First Scripts
    Replies: 4
    Last Post: 10-08-2007, 10:36 PM
  4. 3d attempt
    By jhildy in forum Semi Stupid Pictures
    Replies: 12
    Last Post: 08-08-2007, 01:56 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
  •