View Poll Results: What did you do with this script?

Voters
1. This poll is closed
  • Looked at it only, and saw its good

    0 0%
  • looked at it only, and saw its not so good

    0 0%
  • used it, and saw its perfect!

    1 100.00%
  • used it, and saw its good

    0 0%
  • used it, and saw its not so good

    0 0%
Page 1 of 3 123 LastLast
Results 1 to 25 of 61

Thread: RICK 4 SRL - bone pick and bury'er!

  1. #1
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    RICK 4 SRL - bone pick and bury'er!

    warning, this script is outdated and wont be updated again.


    ADVERTISE:



    Warning: my script is for scar 3.11 with srl 4.0
    Download here:
    [/FONT][/COLOR]

  2. #2
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    thats really good for a first script maybe take a look at this: http://www.villavu.com/forum/showthread.php?t=11652
    so your script will be a little bit more structured.
    Infractions, reputation, reflection, the dark side of scripting, they are.

  3. #3
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    and tnx to you Iloveit8

    i'll take a look at it

  4. #4
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    I second what Iloveit said. Maybe add a small autoresponder for extra antiban?
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  5. #5
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    i'll try to make a v1.5 whit auto responder ^.^
    and tnx

  6. #6
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Check out Pentti's. It's in the utilities section of free scripts. It's long and doesn't lag your script...
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  7. #7
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    ohh that way, i'll take a look at that to, but it would be nicer if a create a own one

  8. #8
    Join Date
    Jun 2006
    Posts
    193
    Mentioned
    1 Post(s)
    Quoted
    43 Post(s)

    Default

    dont use this
    Code:
     10:Begin                                                                                      //
          WhoWeDo;                                                                                 //
          WriteLn('    Prosedure: how old?');                                                      //
          TypeSend('How old are you '+AccName+'?');                                                //
          Wait(10000);                                                                             //
          TypeSend('i am 11');// im 15 lol (jun 2007)                                              //
        End;
    u may get banned for asking personal details

  9. #9
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    nah, i'm sure not =p but tnx for looking at my script

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

    Default

    Ok, not a bad script. But. You need to imporve these things.
    You NEED to go read up on pascal standards!!!
    You NEED to go and find out when you put in semi colons!

    If you feel like it, you might wana go and add in some walking method, like, to walk you back to the bones if you get too far away

    I spent about 1 hour going through your code. It looks like every time you do anything with a variable you forget to put a semi colon. I think I fixed about 30 of them.
    Now, i dont know why sometimes you did it right, and sometimes you didn't , perhaps copying and pasting code mabey, but anyhows.

    I FIXED IT ALL FOR YOU
    Yeah, took me about 1 hour, you owe me a cake or something.
    here you are.


    SCAR Code:
    program RicksBoneBurryEr;
    //MAJOR CREDIT TO LORDGREGGREG FOR FIXING ALL KINDS OF STUFF!!!

      {.include srl/srl.scar}
      {.include srl\srl\extended\xantiban.scar}
      {.include SRL/SRL/Misc/Trade.scar}

    const
      ScriptName = ' bone burryer ';
    Var
      loats, bones, BuryTimes, Berror: Integer;
      BonesInInv:    integer;
      FoundBonesDTM: Boolean;
      UseTalkForNow: Boolean;

      Procedure SetUpDTM;
      begin
        BonesInInv := DTMFromString('78DA6314676060106340038C4824905606129' +
          '204D470030911026A2480043F0135A2404281801A4922DC230424' +
          '84F0AB0100BBE40150');
      end;




      /////////////////////////////////////////////////////////////////////////////////////////////////
      //             ______ __ _____ __ __    ___ __    ______ ______ __                             //
      //            / __  //_// ___// // /   /  /  /   / ____// __  // /                             //
      //           /   __// // /__ /    /   /__   /   /___  //   __// /__                            //
      //          /_/\_\ /_//____//__/\_\     /__/   /_____//_/\_\ /____/                            //
      //                                                                                             //
      //                                                                                             //
      //          ~ THIS SCRIPT IS CREATED BY RICK (MASTERKILL ON SRL FORUMS)                        //
      //                                                                                             //
      //          ~ RUN THIS SCRIPT IN BARBARIAN UNDERGROUND! AT THE LV 12 MINOTOURS                 //
      //            (DONT GO TO A PLACE WITH WOLVES!)                                                //
      //                                                                                             //
      //          ~ Only run this script at the minotaurs...                                         //
      //                                                                                             //
      //          ~ This script is having anti randoms and a trader!                                 //
      //                                                                                             //
      //          ~ Auto Talker! talks to other people with their name <-- (procedure created by:    //
      //                                                                                   Pentti)   //
      /////////////////////////////////////////////////////////////////////////////////////////////////
      //          LINES TO SET UP BEFORE YOU RUN THE SCRIPT                                          //
      //                                                                                             //
      /////////////////////////////////////////////////////////////////////////////////////////      //
      Procedure DeclarePlayers;
      //      //
      begin                                                                                  //      //
        HowManyPlayers := 4;
        //      //
        NumberOfPlayers(HowManyPlayers);
        //      //
        CurrentPlayer     := 0;
        //      //
        //      //
        Players[0].Name   := 'UserName';
        //acc name                                   //      //
        Players[0].Pass   := 'Password';
        //acc pass                                    //      //
        Players[0].Nick   := 'serN';
        //3-4 of name                                 //      //
        Players[0].Active := True;
        //      //
        //      //
        Players[1].Name   := 'UserName';
        //      //
        Players[1].Pass   := 'Password';
        //      //
        Players[1].Nick   := 'rNam';
        //      //
        Players[1].Active := True;
        //      //
        //      //
        Players[2].Name   := 'UserName';
        //      //
        Players[2].Pass   := 'Password';
        //      //
        Players[2].Nick   := 'serN';
        //      //
        Players[2].Active := True;
        //      //
        //      //
        Players[3].Name   := 'UserName';
        //      //
        Players[3].Pass   := 'Password';
        //      //
        Players[3].Nick   := 'erna';
        //      //
        Players[3].Active := False;
        //      //
      end;                                                                                   //      //
      //      //
    Const                                                                                  //      //
      FightMode = 4;
      //---Put 1 for the fight mode in the upper left hand corner.//      //
      //--2 for top right corner. 3 for bottom left.             //      //
      //-4 for bottom right.                                    //      //
      bonecolor = 11908543;
      //bone color (dont Chage if isen't nessesairy!)          //      //
      bonetol   = 2;
      //Dont Change                                            //      //
      load      = 3;
      //loads before log out - 3/4 is good                     //      //
      RunDir    = 'S';
      //Dont Change                                            //      //
      /////////////////////////////////////////////////////////////////////////////////////////      //
      //                                                                                             //
      //                                                                                             //
      /////////////////////////////////////////////////////////////////////////////////////////////////




      ///////// SCRIPT ////////// SCRIPT ////////// SCRIPT ////////// SCRIPT ////////// SCRIPT ////////

      ////////// RICK 4 SRL ///////////////////////////////////////////////////////////////////////////
      Procedure Starting;
      //
      begin
        //
        disguiseScar('rick 4 srl - ' + ScriptName);
        //
        WriteLn('   ______ __ _____ __ __    ___ __    ______ ______ __');
        //
        WriteLn('  / __  //_// ___// // /   /  /  /   / ____// __  // /');
        //
        WriteLn(' /   __// // /__ /    /   /__   /   /___  //   __// /__');
        //
        WriteLn('/_/\_\ /_//____//__/\_\     /__/   /_____//_/\_\ /____/    /' + ScriptName + '/');
        //
        WriteLn('');
        //
        Wait(5000);
        //
      End;
      //
      /////////////////////////////////////////////////////////////////////////////////////////////////

      /////////////////////////////////////////////////////////////////////////////////////////////////
      Procedure SetChatAt;
      //
      begin
        //
        SetChat('On', 1);
        //
        SetChat('On', 1);
        //
        SetChat('friends', 2);
        //
        SetChat('friends', 2);
        //
        SetChat('on', 3);
        //
        SetChat('on', 3);
        //
      end;
      //
      /////////////////////////////////////////////////////////////////////////////////////////////////

      /////////////////////////////////////////////////////////////////////////////////////////////////
      Procedure Randoms;
      //
      Begin
        //
        FindNormalRandoms;
        //
        wait(10);
        //
        UseBoxSolver := True;
        //
        wait(10);
        //
        UseCerterSolver := True;
        //
        wait(10);
        //
        UseSandwichSolver := True;
        //
        FindMaze;
        //
        wait(10);
        //
        Solvepinball;
        //
        Wait(10);
        //
        if (FindFight) then
          //
        begin
          //
          RunAwayDirection(RunDir);
          //
          Wait(8500 + random(3500));
          //
          RunBack;
          //
        end;
        //
        Wait(10);
        //
        FindTalk;
        //
      end;
      //
      /////////////////////////////////////////////////////////////////////////////////////////////////

      /////////////////////////////////////////////////////////////////////////////////////////////////
      Procedure WhoWeDo;
      //
      begin
        //
        ClearDebug;
        //
        WriteLn('   ______ __ _____ __ __    ___ __    ______ ______ __');
        //
        WriteLn('  / __  //_// ___// // /   /  /  /   / ____// __  // /');
        //
        WriteLn(' /   __// // /__ /    /   /__   /   /___  //   __// /__');
        //
        WriteLn('/_/\_\ /_//____//__/\_\     /__/   /_____//_/\_\ /____/   / HowWeDo?! /');
        //
        WriteLn('');
        //
        WriteLn('~ Running Time = ' + TimeRunning + ' =o');
        //
        WriteLn('~ Times Buryed = ' + IntToStr(BuryTimes) + '   ~ Buryed Bones = ' +
          IntToStr(Bones));
        //
        WriteLn('~ status:');
        //
      end;
      //
      /////////////////////////////////////////////////////////////////////////////////////////////////

      /////////////////////////////////////////////////////////////////////////////////////////////////
      Procedure pickup;
      //
      Begin
        //
        repeat
          //
          Randoms;
          //
          If FindObjMultiText(x, y, 'ake', 'ake', 'ake', BoneColor, BoneTol) then
            //
          begin
            //
            Mouse(x, y, 1, 1, False);
            //
            WhoWeDo;
            //
            WriteLn('    attamping to pick a bone');
            //
            ChooseOption(x, y, 'ones');
            //
            EnglishWords;
            //
            Wait(1000 + random(1000));
            //
            SRLRandomsReport;
            //
          end;
          //
          if (FindColor(x, y, 0, 137, 423, 150, 431)) then
            //
          begin
            //
            WhoWeDo;
            //
            WriteLn('     o dear, its serieus a bone! now i need to pick and bury it!');
            //
            Case random(4) of
              //
              0: MakeCompass('e')
              //
              1: MakeCompass('s')
              //
              2: MakeCompass('w')
              //
              3: MakeCompass('n')
              //
            end;
            //
            TypeSend(' ');
            //
          end;
          //
          If not FindObjMultiText(x, y, 'ake', 'ake', 'ake', BoneColor, BoneTol) then
            //
          begin
            //
            WhoWeDo;
            //
            WriteLn('    Not found bone collor');
            //
            Case random(4) of
              //
              0: MakeCompass('e')
              //
              1: MakeCompass('s')
              //
              2: MakeCompass('w')
              //
              3: MakeCompass('n')
              //
            end;
            //
            Berror := Berror + 1;
            //
            Wait(3000 + random(3000) + random(3000));
            //
          end;
          //                                                                          //                                                                                        //
          if (Berror = 10) then
            //
          begin
            //
            WhoWeDo;
            //
            WriteLn('     to manny times not found the bone collor...');
            //
            Wait(3000);
            //
            UseTalkForNow := False;
            //
            exit;
            //
          end;
          //
        Until InvFull;
        //
        UseTalkForNow := True;
        //
      end;
      //
      /////////////////////////////////////////////////////////////////////////////////////////////////

      /////////////////////////////////////////////////////////////////////////////////////////////////
      //   ~this procedure is created by PENTTI. pentti rocks                                        //
      //   ~all the typesend text is steted up by RICK                                               //
      /////////////////////////////////////////////////////////////////////////////////////////////////
      procedure HowAreYouTodayMrX;
      //
      var
        FindAcc: Boolean;
        //
        AccName: String;
        //
      begin
        //
        if (UseTalkForNow = (False)) then
          exit;                                                            //
        if (UseTalkForNow = (True)) then
          //
        begin
          //
          FindAcc := False;
          //
          if (FindObj(x, y, 'evel', 2510975, 11)) then
            //
            FindAcc := True
          //
          else
          //
          if (FindObj(x, y, 'evel', 8474379, 11)) then
            //
            FindAcc := True
          //
          else
          //
          if (FindObj(x, y, 'evel', 4077094, 11)) then
            //
            FindAcc := True
          //
          else
          //
          if (FindObj(x, y, 'evel', 4544837, 11)) then
            //
            FindAcc := True
          //
          else
          //
          if (FindObj(x, y, 'evel', 1085071, 11)) then
            //
            FindAcc := True
          //
          else
          //
          if (FindObj(x, y, 'evel', 8747097, 11)) then
            //
            FindAcc := True
          else                                                                         //
          if (FindAcc = True) then
            //
            WriteLn('Found random account to talk with:')
          //
          else
            //
            exit;
          //\\
          begin
            //\\
            ClickToContinue;
            ///\\
            AccName := GetTextAtEx(77, 7, 100, UpChars, True, True, 0, 2, 14606047,
              12, False, tr_AllChars);//||
            if (not (AccName = '')) and (not (AccName = '')) then
              /////
              WriteLn('Account name is: ' + AccName);
            ////
            if (AccName = '') then
              ///
              Exit
            //
            else
              //
              Case Random(35) of
                //
                0:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' how he is, and we`ll tell were fine');
                  //
                  TypeSend('How are you ' + AccName + ' ?');
                  //
                  Wait(10000);
                  //
                  TypeSend('ok..');
                  //
                  Wait(5000);
                  //
                  TypeSend('im fine');
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asked ' + AccName + ' how he is, and we told were fine');
                  //
                End;
                //
                1:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' how he is, and we`ll tell were good');
                  //
                  TypeSend('How are you ' + AccName + ' ?');
                  //
                  Wait(10000);
                  //
                  TypeSend('ok..');
                  //
                  Wait(5000);
                  //
                  TypeSend('im good');
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asked ' + AccName + ' how he is, and we told were good');
                  //
                End;
                //
                2:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' how he is, and we`ll tell were fine');
                  //
                  TypeSend('How are you ' + AccName + ' ?');
                  //
                  Wait(10000);
                  //
                  TypeSend('sure');
                  //
                  Wait(5000);
                  //
                  TypeSend('im fine');
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asked ' + AccName + ' how he is, and we told were fine');
                  //
                End;
                //
                3:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asked ' + AccName + ' if he is rich =o');
                  //
                  TypeSend('are you rich ' + AccName + ' ?');
                  //
                End;
                //
                4:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' to plz leave the bones on the ground');
                  //
                  TypeSend(AccName + ', plz leave the bones on the ground');
                  //
                End;
                //
                5:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' to plz leave the bones on the ground');
                  //
                  TypeSend(AccName + ', plz leave the bones on the ground');
                  //
                End;
                //
                6:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('     asking ' + AccName + ' to plz leave the bones on the ground');
                  //
                  TypeSend(AccName + ', plz leave the bones on the ground');
                  //
                End;
                //
                7:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    telling ' + AccName + ' he looks kool');
                  //
                  TypeSend(AccName + ', u look kool =p');
                  //
                End;
                //
                8:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    telling ' + AccName + ' is having a kool name');
                  //
                  TypeSend(AccName + ', you got an kool name');
                  //
                End;
                //
                9:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    noob ownage');
                  //
                  TypeSend('zezima is in lumberige! fast use home teleport!');
                  //
                  Wait(7500);
                  //
                  TypeSend('joking...');
                  //
                End;
                //
                10:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    Prosedure: how old?');
                  //
                  TypeSend('How old are you ' + AccName + '?');
                  //
                  Wait(10000);
                  //
                  TypeSend('i am 11');
                  // im 15 lol (jun 2007)                                              //
                End;
                //
                11:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    Prosedure: how old?');
                  //
                  TypeSend('How old are you ' + AccName + '?');
                  //
                  Wait(6000);
                  //
                  TypeSend('i am 11');
                  // im 15 lol (jun 2007)                                              //
                End;
                //                                                        //
                12:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    just saying somthing noobs...');
                  //
                  TypeSend('bones 4 live');
                  //
                End;
                //
                13:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' if he is a pk`er');
                  //
                  TypeSend('are you a pker ' + AccName + '?');
                  //
                End;
                //
                14:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    telling ' + AccName + ' that he is haveing good looking armor');
                  //
                  TypeSend('u got good looking armor ' + AccName);
                  //
                End;
                //
                15:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    telling ' + AccName + ' that he is haveing good looking armor');
                  //
                  TypeSend('u got good looking armor ' + AccName);
                  //
                End;
                //
                16:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    telling ' + AccName + ' that he is haveing good looking armor');
                  //
                  TypeSend('nice armor ' + AccName);
                  //
                End;
                //
                17:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    telling ' + AccName + ' he is kool');
                  //
                  TypeSend('ur kool ' + AccName);
                  //
                End;
                //
                18:
                begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    lets own this noobs!');
                  //
                  Wait(2000);
                  //
                  typesend('free 100k!');
                  //
                  WhoWeDo;
                  //
                  WriteLn('    haha !100k! not even in your dreams!');
                  //
                  Wait(5000);
                  //
                  TypeSend('sorry...');
                  //
                  Wait(2000);
                  //
                  TypeSend('I dont have 100k lol!!!!');
                  //
                  Wait(3000);
                  //
                  TypeSend('Sorry');
                  //
                  TypeSend('Im only joking =p');
                  //
                  WhoWeDo;
                  //
                  WriteLn('    congratz! u owned some noobs!');
                  //
                end;
                //
                19:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' if he likes me');
                  //
                  TypeSend(AccName + ' do you like me?');
                  //
                End;
                //
                20:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' if he likes me');
                  //
                  TypeSend(AccName + ' do you like me?');
                  //
                End;
                //
                21:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' if he hates me');
                  //
                  TypeSend(AccName + ' do you hate me?');
                  //
                End;
                //
                22:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' the time');
                  //
                  TypeSend(AccName + ', whats the time?');
                  //
                  wait(6000);
                  //
                  TypeSend('nvm, i allready know it');
                  //
                End;
                //
                23:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' whats up');
                  //
                  TypeSend('whats up ' + AccName);
                  //
                End;
                //
                24:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' what armor he is wairing');
                  //
                  TypeSend('what are you wairing ' + AccName);
                  //
                End;
                //
                25:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' what armor he is wairing');
                  //
                  TypeSend('what are you wairing ' + AccName);
                  //
                End;
                //
                26:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' what armor he is wairing');
                  //
                  TypeSend('what are you wairing ' + AccName);
                  //
                End;
                //
                27:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    telling ' + AccName + ' he look greepy to you');
                  //
                  TypeSend('u look greepy to me ' + AccName);
                  //
                End;
                //
                28:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    telling ' + AccName + ' he look nice to you');
                  //
                  TypeSend('u look nice to me ' + AccName);
                  //
                End;
                //
                26:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    telling ' + AccName + ' he look good to you');
                  //
                  TypeSend('u look good to me ' + AccName);
                  //
                End;
                //
                27:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' if he can talk');
                  //
                  TypeSend('can you talk ' + AccName + '?');
                  //
                End;
                //
                28:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' how he is doing');
                  //
                  TypeSend('How are you doing ' + AccName);
                  //
                End;
                //
                29:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    hmm getting sleepy of this!');
                  //
                  TypeSend('hmm gettling sleepy of this');
                  //
                End;
                //
                30:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' if he is still living');
                  //
                  TypeSend('are you still living ' + AccName);
                  //
                End;
                //
                31:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' if he is still living');
                  //
                  TypeSend('are you still living ' + AccName);
                  //
                End;
                //
                32:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' if its a nice day');
                  //
                  TypeSend('Its a nice day ' + AccName + ', isnt it?');
                  //
                End;
                //
                33:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' if its a nice day');
                  //
                  TypeSend('Its a nice day ' + AccName + ', isnt it?');
                  //
                End;
                //
                34:
                Begin
                  //
                  WhoWeDo;
                  //
                  WriteLn('    asking ' + AccName + ' if its a nice day');
                  //
                  TypeSend('Its a nice day ' + AccName + ', isnt it?');
                  //
                End;
                //
              end;
            //
          end;
          //
        end;
        //
      end;
      //
      /////////////////////////////////////////////////////////////////////////////////////////////////

      /////////////////////////////////////////////////////////////////////////////////////////////////
      Procedure BuryTheBones2;
      //
      begin
        //
        MakeCompass('n');
        //
        repeat
          //                                                                                   //
          if FindDTM(BonesInInv, x, y, 525, 182, 745, 473) then
            //
          begin
            //
            FoundBonesDTM := True;
            //
            MoveMouseSmooth(x, y);
            //
            if IsUpTextMulti('Bones', 'ones', 'nes') then
              //
            begin
              //
              Wait(500);
              //
              MoveMouseSmooth(x, y);
              //
              ClickMouse(x, y, True);
              //
              Wait(1000 + random(200) + random(200));
              //
              Bones := Bones + 1;
              //
              WhoWeDo;
              //
              WriteLn('     burying');
              //
            end;
            //
          end;
          //
          if (not (FindDTM(BonesInInv, x, y, 525, 182, 745, 473))) then
            //
          begin
            //
            FoundBonesDTM := False;
            //
            WhoWeDo;
            //
            WriteLn('     all bones in ifentory are buried!');
            //
            Wait(2000);
            //
          end;
          //
          randoms;
          //
        until (FoundBonesDTM = (False));
        //
      end;
      //
      /////////////////////////////////////////////////////////////////////////////////////////////////

      /////////////////////////////////////////////////////////////////////////////////////////////////
      Procedure BeforeLogOut;
      //
      begin
        //
        SetChat('off', 1);
        //
        WriteLn('logging out =o');
        //
      End;
      //
      /////////////////////////////////////////////////////////////////////////////////////////////////

      /////////////////////////////////////////////////////////////////////////////////////////////////
      Procedure MainLoop3;
      //
      begin
        //                                                                                   //
        PickUp;
        //                                                           //
        WhoWeDo;
        //
        Berror := 0;
        //
        WhoWeDo;
        //
        WriteLn('     Done Picking Bones!');
        //
        Randoms;
        //
        HowAreYouTodayMrX;
        //   <-- by Pentti                                                        //
        MakeCompass('n');
        //
        BuryTheBones2;
        //
        BuryTimes := BuryTimes + 1;
        //
        SrlRandomsReport;
        //
        HowAreYouTodayMrX;
        //   <-- by Pentti                                                        //
      End;
      //
      /////////////////////////////////////////////////////////////////////////////////////////////////

      /////////////////////////////////////////////////////////////////////////////////////////////////
      procedure MainLoop2;
      //
      begin
        //
        LoginPlayer;
        //
        TypeSend(' ');
        //
        SetFightMode(FightMode);
        //
        GameTab(6);
        //
        Wait(2000);
        //
        SetChatAt;
        //
        SetRun(True);
        //
        repeat
          //
          MainLoop3;
          //
          loats := loats + 1;
          //
          WhoWeDo;
          //
        Until (loats = Load);
        //
        BeforeLogOut;
        //
        loats := 0;
        //
        NextPlayer(True);
        //
      End;
      //
      /////////////////////////////////////////////////////////////////////////////////////////////////

      ////////// MAINLOOP /////////////////////////////////////////////////////////////////////////////
    begin
      //
      SetupSRL;
      //
      SetUpDTM;
      //
      BuryTimes := 0;
      //
      DeclarePlayers;
      //
      ClearDebug;
      //
      Starting;
      //
      Activateclient;
      //
      //
      repeat
        //
        MainLoop2;
        //
        If Not LoggedIn then
          NextPlayer(False);                                                        //
      Until False;
      //
      ClearDeBug;
      //
      Starting;
      //
      WriteLn('program is at his and, tnx for use-ing my script ;)');
      //
      WriteLn('worked for: ' + TimeRunning);
      //
      WriteLn('bones buried: ' + IntToStr(Bones));
      //
    End.
    //////////////////////////////////////////////////////////////////////////////////////////////////////////// END ////////// END ////////// END ////////// END ////////// END ////////// END //////////          TNX FOR USE-ING MY SCRIPT =]
    [IMG]http://farm3.static.flickr.com/2120/2052732965_348f3629d0_o.jpg[/IMG]

  11. #11
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    What the?! Why's there a space between every line?!
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  12. #12
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default Wtf

    hmm u setted up some space's... why's that

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

    Default

    Quote Originally Posted by MasterKill View Post
    WHAT DID U CHANGED??? i can't find anything whats else?! pressing [enter] all the time is not bug-fixing...........
    Right, ok, all the enter signs are just because you had comments at the end of your line, and I really didnt feel like corecting them after a reformated your stardards. Your standards where not always correct, sometime you went a tab over instead of 2 spaces, and so i fixed all of that for you. Also, there were a bunch of times when you didnt end your line with a semi colon. I don't know why it compiled with scar, but its wrong. Ever statement needs to end with a semicolon, unles you are doing something fancy with else statement of seomthing.
    If you really need all go through and show you all the semi colons you missed, but they are there, I swear, you normaly had them missing every time you said "myVariable := myVariable + 1"

    Soory about the enters everywhere, I didnt do that, thats just how stuff lined up after a reformated it with 2 spaces (it looks messed up because you had "//" at the end of every line.

    Sorry if you think its a down grade, but um, it's not.
    [IMG]http://farm3.static.flickr.com/2120/2052732965_348f3629d0_o.jpg[/IMG]

  14. #14
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    anywayz: I asked for a bug report, not correcting it. And the script runs perfect at my place. i dont know what that spaces make the different... but if ya say it...

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

    Default

    Quote Originally Posted by MasterKill View Post
    grrhmmpff... my script was and is good.

    anywayz: I asked for a bug report, not correcting it. And the script runs perfect at my place. i dont know what that spaces make the different... but if ya say it... but i'll leave my script the same, but tnx for looking at my script and nice try changzing it...
    No no, the spaces are not good, they got put there as a byproduct of fixing it. Get rid of the spaces.
    ANd yes, your script is good, i never said it wasnt, but you will never make it into members unless you have semi colons put correctly regardless of whether it compiles or not. (everyone there is ocd about standards, including me)

    Edit: would another member like to come along and back me up please? I don't think im getting through
    [IMG]http://farm3.static.flickr.com/2120/2052732965_348f3629d0_o.jpg[/IMG]

  16. #16
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    meh... okay u win,

    i'll use it my upgrade in my scripts, u own me a cake
    i'm looking for a auto respownder ore i'll try to make one by my self, but thats for my v1.5

    uhh tnx then

  17. #17
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm having problems whit the auto trader. it click's at a trade.. but then don't find the trade window and gets frozen until the other player dicignet... then its go running again. not a big problem but its anoying... can someone help me fixing this problem?

  18. #18
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    ALMOST A UPDATE



    heey people,


    atm I am bussy whit V2.0!

    in that version i'll have a:
    * Trader (created by RICK4SRL)
    * MouseKiller (if not found the bones)
    * Gate Runner (if found an Fighting random)
    * ProgersReport update
    * Placing 'space's' for srl standaards
    * Added some 'if not logged in then next'

    This will come soon

  19. #19
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    VERSION 2.0 IS OUT!

    plz commands and bug reports plz

  20. #20
    Join Date
    Feb 2007
    Posts
    424
    Mentioned
    0 Post(s)
    Quoted
    16 Post(s)

    Default

    Quote Originally Posted by MasterKill View Post
    VERSION 2.0 IS OUT!

    plz commands and bug reports plz
    I will check it out when i got my magers at 40 magic

    Btw is this SRL 3.8 and Scar Divi 3.06?

  21. #21
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    tnx u want to look at it,

    uhhh...
    i created this script with: SCAR 2.03 by kaitnieks

  22. #22
    Join Date
    Jul 2007
    Posts
    52
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Line 29: [Error] (29:6): Unknown identifier 'TimeFromMark' in script C:\Program Files\SCAR 3.06\includes\srl\srl\extended\xantiban.scar

  23. #23
    Join Date
    Jul 2007
    Posts
    52
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    please tell me how i can fix this im a new user of SCAR

  24. #24
    Join Date
    May 2007
    Location
    Netherlands, Amersfoort
    Posts
    2,701
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by YDOuCARE View Post
    please tell me how i can fix this im a new user of SCAR
    you need scar 3.11 with srl 3.81

  25. #25
    Join Date
    Oct 2006
    Posts
    1,071
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    ______ __ _____ __ __ ~ Running time = 2 Hours, 30 Minutes and 59 Seconds
    / __ //_// ___// // / ~ Times buryed = 23
    / __// // /__ / / ___ __ ~ Buryed bones = 178
    /_/\_\ /_//____//__/\_\ / / / ~ Mouse`s killed = 0
    /__ / ______ ______ __
    <------------------/__/---/ ____// __ // /------------------------->
    /___ // __// /__
    ~ status: /_____//_/\_\ /____/
    Not found bone collor
    Successfully executed


    I had to tweak a bunch of stuff, but overall it worked pretty well I got rid of the gatefinding and put it at the Lumbridge chicken farm instead of the minotaurs.

Page 1 of 3 123 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Rick Roll
    By richk1693 in forum News and General
    Replies: 16
    Last Post: 01-05-2008, 07:06 PM
  2. buying pick handle + pick head * seperate.
    By Dark_Sniper in forum Mining and Smithing
    Replies: 10
    Last Post: 11-12-2007, 03:50 AM
  3. Rick 4 srl v e m is catching on!
    By ckeboss in forum Bot Information and Spottings
    Replies: 21
    Last Post: 10-11-2007, 01:09 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
  •