Results 1 to 6 of 6

Thread: Annoying Probs

  1. #1
    Join Date
    Jul 2007
    Location
    UK
    Posts
    307
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Annoying Probs

    This Script was working PERFECTLY untill few hours ago I don't have clue what went wrong, its bacicly ment to be part of a Tutorial runner it will randomly genrate a number of clicks and decideing weather a number is even or odd it will decide which one of the left or right buttons it should actuly choose and i recently added a female or male which the script will do but It just suddenly just stopped working I dont have clue can someone please help me by telling whats wrong, mean while im going to replace the bitmaps with new ones.

    herers code

    SCAR Code:
    program Tut_Runner;
    {.include SRL/SRL.scar}

    const

         //Program Constants\\
         RandomRangeInteger = 10; //Must be Integer and at least 1 more than RandomClickNum.
         RandomClickNum = 1; //Must be Integer and at least 1 less than RandomRangeInteger.
         
    var
    LooperInteger, RandomInteger, xx, yy, WhichArrow, ArrowLeft, ArrowRight, Female, FemaleOrMale : Integer;

    //by bullzeye95 slightly edited... :P
    function IsEvenReturn(ValueId: Integer): Boolean;
     begin
        Result:= ((ValueId mod 2) = 0);
     end;


    procedure LoadBMPs;
      begin

     ArrowLeft := BitmapFromString2(False, 'a086E078DA6D905BAEC3' +
           '300844B76463F3FA043BDDFF926A0C525BDD9B482708660694D65' +
           'AEFBD9D67BD0E703E8734D6871D8212C4478242419DD1C7E88044' +
           '8D187A7CC59442DE882399153EC4D8C20F07E1E63B0657B8D8230' +
           '7664CBB036D527C18CE1078F1244D669F00178EEAD0A9E5BC636A' +
           'E999CF719570EBEA18217A7A653231C81660C7070DDB4F426E4CE' +
           'FEDA4ABBC2A838F54448AE9C53ED79CB9E5FB869C96F76E34D02E' +
           'DBCE0A854AB8DE891346E514BFBCA934D3AD622F1BBA93D93F772' +
           '27532DCA8C5FB67F2FEDA78F5EEE76B8E664695732FF961EA2F53' +
           '99AE45AE8E0B1C1DFEC9F9CB7BED1B468');

     ArrowRight := BitmapFromString2(False, 'a5803378DA75904992C' +
           '4200C04BF6484D62336F8FF4F6A2D443787191F32148548C95CD7' +
           'D5802FFF56907039B93F3F36082A7C13BAA38706641D5799D4098' +
           'A9150F6BC6163C853694E31F891DEE0926FC2AF056724BCC22677' +
           'D840C2D604B5C9CDF324133762067AA8572D22B14A9ECA23C826C' +
           '00FC31FCCCEAA49A9A331BB47EBD6764E365ADB73D8FECBCB438B' +
           '065D3A15E45614F6B3B20D26BAF7DCE4F69C49F650C307B16C26A' +
           'A8A4535ED3EAD6CC9F35FF6AD834808DDAA2EC3F0550D0658F3FD' +
           '72C3F2EC17C87DB63F5F83074DB2A2CFF237DE9E77749B9BC3A66' +
           '9E5A7ED0335E');
           
     Female := BitmapFromString2(False, 'aE875F78DA7D915B0E85200' +
           'C44B754A0D5F2A920FB5FD2A5D490315CEDC749334C5F4A445463' +
           '07E9D1912A778A6EC636C897F1D2A9471D1E29D3B38D067C8CFC9' +
           '4CE3D55CBF760792C534F6A0C69638BD05AD68E41B17828EE719D' +
           '9B109FA29285D183B5C8F5954660E755C1ADB00A9DF79428912B4' +
           'E710F6E782BE07405EF5A6F79380B57CEDFFADB14543C5F6FF99E' +
           '821BBE29FE5FD66E7F6AE1CBFC009D2');
           
      end;

    procedure CharLook;
     begin

        FemaleOrMale := RandomRange(1 , 20);

      if(IsEvenReturn(FemaleOrMale)) then
       begin

        if( FindBitmapIn(Female, xx, yy, 614, 538, 684, 574) ) then
         begin

           xx := xx+random(12);
           yy := yy+random(12);
           MMouse(xx, yy, 0, 0);
           wait(100+random(154));
           ClickMouse(xx, yy, true);

         end;
       end;

       //Button One
       WhichArrow := RandomRange(RandomRange(1, 10), RandomRange(11, 20));

       if(IsEvenReturn(WhichArrow)) then
        begin
           if(  FindBitmap(ArrowLeft, xx, yy)  ) then
            begin
               xx := xx+random(12);
               yy := yy+random(12);

               wait(200+random(300));
               
               MMouse(xx, yy, 0, 0);

               //Variables
               RandomInteger := RandomRange(RandomClickNum, RandomRangeInteger);
               LooperInteger := 0;

               for LooperInteger := 0 to RandomInteger do
                begin
                   wait(300+random(2101));
                   
                   ClickMouse(xx, yy, true);
                end;
             end;
        end;

    if(not IsEvenReturn(WhichArrow)) then
           begin
           if(  FindBitmapIn(ArrowRight, xx, yy, 220, 326, 383, 366)  ) then
            begin

               xx := xx+random(12);
               yy := yy+random(12);

               MMouse(xx, yy, 0, 0);

               //Variables
               RandomInteger := RandomRange(RandomClickNum, RandomRangeInteger);
               LooperInteger := 0;

               for LooperInteger := 0 to RandomInteger do
                begin
                   wait(300+random(2000));
                   ClickMouse(xx, yy, true);
                end;
             end;
        end;

    //Procedure END.
    end;

    begin
    SetupSRL;
    LoadBMPs;
    FindWindow('RuneScape - the massive online adventure game by Jagex Ltd - Windows Internet Explorer');
    ActivateClient;
    CharLook;
    end.

    Infact it cant even find the bitmap by searching the whole screen >

  2. #2
    Join Date
    Jul 2007
    Location
    UK
    Posts
    307
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    omfg Now Even Know the Coridnates are at 300, 300 its going to bottom of the screen ! I think its my computer ill restore it and tell you the outcome XD

  3. #3
    Join Date
    Feb 2007
    Location
    Alberta, Canada
    Posts
    4,615
    Mentioned
    50 Post(s)
    Quoted
    429 Post(s)

    Default

    Why do you have a clickmouse in there!!?!?!?!

    Scripts: Edgeville Chop & Bank, GE Merchanting Aid
    Tutorials: How to Dominate the Grand Exchange

    Quote Originally Posted by YoHoJo View Post
    I like hentai.

  4. #4
    Join Date
    Oct 2006
    Location
    I'm also from Michigan!
    Posts
    563
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    well i cant tell you why its not working but uhh....
    SCAR Code:
    ClickMouse(xx, yy, true);
    the insta-ban special
    SCAR Code:
    LooperInteger := 0;
    when you declare an integer it defaults to 0. and if you use it in a "for to do" statement it will set itself to the start integer (in your case, 0)
    SCAR Code:
    FindWindow('RuneScape - the massive online adventure game by Jagex Ltd - Windows Internet Explorer');
    hate to say it, but we dont all use internet explorer. Especially while running a script. Try SCSS.

    and im kinda confused at what your trying to do with randomly generated clicks? if all your trying to do is make it right click half the time, and left click the other half, just make something like...
    SCAR Code:
    if 5>random(11) then
    begin
    //right click
    end else
    begin
    //left click
    end;

    sorry if any of that seemed mean, just tryin to help.

  5. #5
    Join Date
    May 2007
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    clickmouse is insta-ban
    Originally Posted by YoHoJo
    I like hentai.

  6. #6
    Join Date
    Jul 2007
    Location
    UK
    Posts
    307
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by munk View Post
    well i cant tell you why its not working but uhh....
    SCAR Code:
    ClickMouse(xx, yy, true);
    the insta-ban special
    SCAR Code:
    LooperInteger := 0;
    when you declare an integer it defaults to 0. and if you use it in a "for to do" statement it will set itself to the start integer (in your case, 0)
    SCAR Code:
    FindWindow('RuneScape - the massive online adventure game by Jagex Ltd - Windows Internet Explorer');
    hate to say it, but we dont all use internet explorer. Especially while running a script. Try SCSS.

    and im kinda confused at what your trying to do with randomly generated clicks? if all your trying to do is make it right click half the time, and left click the other half, just make something like...
    SCAR Code:
    if 5>random(11) then
    begin
    //right click
    end else
    begin
    //left click
    end;

    sorry if any of that seemed mean, just tryin to help.
    Right the window thing I was going to change The clickmouse ill change what it was ment to is if a number is odd it will go to the right arrow and click it and if its even it will go to the left one then it comes to the clicking.... ok scar makes a random number and puts into the variable RandomInteger it is then throwen into the loop the LooperInteger has a value of 0 so say random Integer is 10 it will click ten times on that arrow now what could i change the click mouse to?

    And i no your not trying to be mean :P

    Please note this was just a test script oh and clickmouse seems to be the forbidden function :P

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. probs with dtmrotated
    By cocodog13 in forum OSR Help
    Replies: 4
    Last Post: 10-25-2007, 05:12 PM
  2. got 2 probs
    By ShowerThoughts in forum OSR Help
    Replies: 3
    Last Post: 09-03-2007, 09:27 PM
  3. banning probs
    By macromacro123 in forum OSR Help
    Replies: 16
    Last Post: 03-04-2007, 08:20 PM
  4. probs with banks
    By macromacro123 in forum OSR Help
    Replies: 2
    Last Post: 03-03-2007, 07:34 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
  •