Results 1 to 6 of 6

Thread: AutoReponder Procedure SRL

  1. #1
    Join Date
    Feb 2006
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default AutoReponder Procedure SRL

    I really like this one cause it works real well and i think the chances of getting banned will be lowered so I hope you guys like!


    Procedure FindQuestion;
    Var
    Q,W,E,R:integer;
    begin
    Q:=CreateBitmapMaskFromText('Mining Lvls',ChrChatChars);
    If(FindBitMapMaskTolerance(Q,x,y,10,345,210,465,15 ,70))Then
    Begin
    SendKeysHumanJ('My Mining Level is'+inttostr(J),100,True);
    Wait(100+Random(2));
    W:=CreateBitmapMaskFromText('Noob',ChrChatChars);
    If(FindBitMapMaskTolerance(W,x,y,10,345,210,465,15 ,70))Then
    Begin
    SendKeysHumanJ('Im not a noob you are!',100,True);
    Wait(100+Random(2));
    E:=CreateBitmapMaskFromText('Auto',ChrChatChars);
    If(FindBitMapMaskTolerance(E,x,y,10,345,210,465,15 ,70))Then
    Begin
    SendKeysHumanJ('I have never autoed on rs in my life!',100,True);
    Wait(100+Random(2));
    R:=CreateBitmapMaskFromText('Hey',ChrChatChars);
    If(FindBitMapMaskTolerance(R,x,y,10,345,210,465,15 ,70))Then
    Begin
    SendKeysHumanJ('what Do you Want?',100,True);
    FreeBitMap(Q);
    FreeBitMap(W);
    FreeBitMap(E);
    FreeBitMap(R);
    end;
    end;
    end;
    end;
    end;
    <3 SRL

  2. #2
    Join Date
    Feb 2006
    Location
    California-Foster City
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    thank you i
    The Welcoming Party
    Don't be a Fakawi! Get 25 hours of sleep a day!

  3. #3
    Join Date
    Feb 2006
    Location
    Australia, NSW.
    Posts
    1,461
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    The only thing bad is if they keep saying the word over and over.

    Make it possible chances of different replies.

    Code:
    case random(5)+1 of
      1: SendKeysHumanJ('I have never autoed on rs in my life!',100,True);
      2: SendKeysHumanJ('ur the autoer!',100,True);
      3: SendKeysHumanJ('what''s auto?',100,True);
      4: SendKeysHumanJ('right.. whatever you say',100,True);
      5: SendKeysHumanJ('Auto-ing is for lazy ppl.',100,True);
    end;
    No offense to anyone on the last one

  4. #4
    Join Date
    Feb 2006
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yea I know I was just saying an idea
    but TY
    <3 SRL

  5. #5
    Join Date
    Feb 2006
    Location
    California-Foster City
    Posts
    742
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    It wont be added, too big of a hassle sorry . We'll work on an autoresponder i guess
    The Welcoming Party
    Don't be a Fakawi! Get 25 hours of sleep a day!

  6. #6
    Join Date
    Feb 2006
    Posts
    71
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I dont mind just sharing with other people
    <3 SRL

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Procedure Help...
    By impiwimpi in forum OSR Help
    Replies: 16
    Last Post: 01-08-2009, 06:20 PM
  2. Procedure TypeSendRandom & Procedure AutoResponder!
    By Ultra in forum Research & Development Lounge
    Replies: 12
    Last Post: 01-08-2008, 07:04 PM
  3. Replies: 8
    Last Post: 05-24-2007, 11:57 PM
  4. Procedure that calls random procedure?
    By Secet in forum OSR Help
    Replies: 2
    Last Post: 03-03-2007, 03: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
  •