Results 1 to 5 of 5

Thread: Private message reply?

  1. #1
    Join Date
    Sep 2014
    Posts
    55
    Mentioned
    0 Post(s)
    Quoted
    23 Post(s)

    Default Private message reply?

    Hello all I have a script id like to add reply to private messages by anyone. is there any function in srl 5 i could use, and would anyone teach me how to apply them? Like if i get a pm i want to reply a random case (10) of messages. thx

  2. #2
    Join Date
    Apr 2015
    Location
    Falador
    Posts
    41
    Mentioned
    2 Post(s)
    Quoted
    18 Post(s)

    Default

    What RSPS you play on? I will try to make it for you.

  3. #3
    Join Date
    Sep 2014
    Posts
    55
    Mentioned
    0 Post(s)
    Quoted
    23 Post(s)

    Default

    Thank you for your help @The Legendary ; Dtms were used to find the message color of a private message and a case of messages was randomly sent by keydown(9);

  4. #4
    Join Date
    Jun 2013
    Location
    Scranton
    Posts
    496
    Mentioned
    5 Post(s)
    Quoted
    220 Post(s)

    Default

    I actually need something like this for soulpsplit, if you guys don't mind sharing it

  5. #5
    Join Date
    Apr 2015
    Location
    Falador
    Posts
    41
    Mentioned
    2 Post(s)
    Quoted
    18 Post(s)

    Default

    Quote Originally Posted by jstemper View Post
    I actually need something like this for soulpsplit, if you guys don't mind sharing it
    Simba Code:
    program pm;
        {$I SRL/SRL.simba}

    Function reply:Boolean;
    begin
     KeyDown(9);          //this is where it press the tab key to respond to the person who pmed you.
      wait(RandomRange(50, 100));
      KeyUp(9);
    wait(500+random(200));
      case Random(10) of
     0:  begin
       Typesend('Really?');
       Writeln('Really');
          result:=True;    
        end;
      1: begin
        Typesend('WOW!');
          Writeln('WOW');
          result:=True;    
          end;
         2: begin
        Typesend('LOL');
          Writeln('lol');
          result:=True;    
           end;
            3: begin
        Typesend('Are you kidding me');
          Writeln('Are you kidding me');
          result:=True;    
           end;
            4: begin
        Typesend('Hey');
          Writeln('Hey');
          result:=True;    
           end;
            5: begin
        Typesend('How are you');
          Writeln('How are you');
          result:=True;    
           end;
            6: begin
        Typesend('Hi');
          Writeln('Hi');
          result:=True;    
           end;
            7: begin
        Typesend('Good luck');
          Writeln('Good luck');
          result:=True;    
           end;
            8: begin
        Typesend('Hello');
          Writeln('Hello');
          result:=True;    
         end;
            9: begin
        Typesend('hi there');
          Writeln('hi there');
          result:=True;    
         end;
            10: begin
        Typesend('what?');
          Writeln('what?');
          result:=True;    
         end;   end;end;
    Function Seepm:Boolean;
    Var
    message,X,Y:Integer;
    Begin
    message:=DTMFromString('mGQAAAHicY2RgYPgDxKGMQOL/fwYQADEZADGBA1M='); //this dtm is just the color cyan when they pm you

    If FindDTM(message,X,Y,150,317,237,325)Then //make sure to change the x/y coordinate of the pm it will look for. (not to close to the names)
    Begin
    Writeln('see message');
    Result:=True;
    End Else
    FreeDTM(message);
    End;
          Begin
    ClearDebug;
    SetupSRL;
    ActivateClient;
    Wait(1000);
    if seepm then reply;

    end.

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
  •