Results 1 to 8 of 8

Thread: I need help with my first script :(

  1. #1
    Join Date
    Sep 2006
    Location
    The Netherlands
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default I need help with my first script :(

    hey,

    i'm busy with a MSN script, since i don't play Runescape anymore

    i followed the TUT about bitmaps and created this:

    SCAR Code:
    program MSNautoTalk;

    var
    x,y,Bitmap:integer;

    procedure DeclareBMPS;
    begin
     bitmap := BitmapFromString(5, 6, 'z78DA458E4112C0200803BF94' +
           '4B6B3C16B0FF7F5203E874322AB291687438078889E0921E1A9DE' +
           '4DC55A0E9C22B6D0F446A396F2635F902ED37FC33AF3ABBEE3DE9' +
           '71AAA31CCDC4CABBD46F039952898756B77FF5015E0028B7');
           
    bitmap := BitmapFromString(7, 7, 'z78DA4D8E490E04210C03BF1' +
           '4CD34B139129AFCFF496D9659408910291764FED6C0DC159144B7' +
           'C160E7EAF36C7F603631359BEEA9795A5B3D6CF39BB9E5BB13083' +
           '8AA0D034FE730DACCD6E36C192A57BE68DEE9A44C30F23E291E12' +
           'A8E959D87899EB55F116F44F6AF2872CC92C98CCC537C197E6C1A' +
           '2535772FBBFAFA3C94C559985ED948DEBB7F23EA3F1451B');
           
     bitmap := BitmapFromString(6, 6, 'z78DA558E510E80200C43AFD' +
           '4A860F9840DEE7F240B231AF7C2026F0DE0C8C2710B4766A63109' +
           'C3218C64C1E00F8C6D4CE9ACCCC584AE93B1B3A1B26BA92F63387' +
           '9D29190E4A06A8488FE1A95A3A028FF99B6F661FAFC21AB6E6E91' +
           '84CFD7B9FB32310D1E491A2F5F');
    end;

    procedure ClickBMPS;
    begin
    wait(300+random(32))
    movemousesmooth(x,y)
    wait(32+random(16))
    clickmouse(x,y,true)
    end;


    Procedure FindBMPS;
    begin
    if(FindBitmap(Bitmap,x,y))then
    ClickBMPS;
    clickBMPS;
    end;

    begin
    repeat
    wait(1300)
    declareBMPS;
    findbmps;
    until(false)
    end.

    but now, the scripts needs to talk..
    HELP pls

    Script only works with MSN live Messenger.

  2. #2
    Join Date
    Mar 2006
    Posts
    509
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    look up the SendKeys(); function
    Currently Working on: Its a Secret
    WSP!! <3 bebe

  3. #3
    Join Date
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Yes, and all three bitmaps are named bitmaps, will probably give an error...

  4. #4
    Join Date
    Sep 2006
    Posts
    161
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You know that each bitmap with the same name overwrites the previous, right?


    Wow. I've been away quite a while. Real life, yea, way unpredictable. Sorry, y'all, if I've caused any inconvenience.

  5. #5
    Join Date
    Sep 2006
    Location
    The Netherlands
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by I Pick Axes View Post
    You know that each bitmap with the same name overwrites the previous, right?
    well, if i name a bitmap as bitmap2 or something it doesn't work .

  6. #6
    Join Date
    Jun 2006
    Posts
    366
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Change the name u saved the file as.. if u got all files saved in the different names and when u change em from picture to string I think it'll choose a different name.. I think tht should work

  7. #7
    Join Date
    Feb 2006
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    By using one variable all your doing is writing over the bitmap set before so instead name them all differently, your prolly getting an error because you forget to declare them all differently as well.

    So, ya... I own so I fixed it... To my logicality and added standards:

    SCAR Code:
    program MSNautoTalk;

    var
      x, y, Bitmap1, Bitmap2, Bitmap3 : Integer;

    procedure DeclareBMPS;
    begin

     Bitmap1 := BitmapFromString(5, 6, 'z78DA458E4112C0200803BF94' +
           '4B6B3C16B0FF7F5203E874322AB291687438078889E0921E1A9DE' +
           '4DC55A0E9C22B6D0F446A396F2635F902ED37FC33AF3ABBEE3DE9' +
           '71AAA31CCDC4CABBD46F039952898756B77FF5015E0028B7');

     Bitmap2 := BitmapFromString(7, 7, 'z78DA4D8E490E04210C03BF1' +
           '4CD34B139129AFCFF496D9659408910291764FED6C0DC159144B7' +
           'C160E7EAF36C7F603631359BEEA9795A5B3D6CF39BB9E5BB13083' +
           '8AA0D034FE730DACCD6E36C192A57BE68DEE9A44C30F23E291E12' +
           'A8E959D87899EB55F116F44F6AF2872CC92C98CCC537C197E6C1A' +
           '2535772FBBFAFA3C94C559985ED948DEBB7F23EA3F1451B');

     Bitmap3 := BitmapFromString(6, 6, 'z78DA558E510E80200C43AFD' +
           '4A860F9840DEE7F240B231AF7C2026F0DE0C8C2710B4766A63109' +
           'C3218C64C1E00F8C6D4CE9ACCCC584AE93B1B3A1B26BA92F63387' +
           '9D29190E4A06A8488FE1A95A3A028FF99B6F661FAFC21AB6E6E91' +
           '84CFD7B9FB32310D1E491A2F5F');
           
    end;

    procedure ClickBMPS;
    begin
     wait(300+random(32))
     movemousesmooth(x,y)
     wait(32+random(16))
     clickmouse(x,y,true)
    end;


    Procedure FindBMPS;
    begin
     if(FindBitmap(Bitmap1, x, y))then
      begin
       ClickBMPS;
       ClickBMPS;
      end;
    end;

    begin
     repeat
      wait(1300)
      declareBMPS;
      findbmps;
     until(false)
    end.

    Ps: Ya as Mutant says use SendKeys('Text Here'); or something .

  8. #8
    Join Date
    Sep 2006
    Location
    The Netherlands
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    What can i say? THX! :P

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
  •