Private message reply?

[henryuscola]

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;)

[The Legendary]

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

[henryuscola]

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);

[jstemper]

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

[The Legendary]

I actually need something like this for soulpsplit, if you guys don't mind sharing it
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.