Hello!
I'm using this NickAbuse script.
function DataArrival(user, data)
if strsub(data,1,1) == "<" then
data=strsub(data,1,strlen(data)-1)
s,e,cmd,Name,rsn = strfind(data,"%b<>%s+(%S+)%s+(%S+)%s+(.*)")
if user.iProfile == 0 then
if (cmd=="+say") or (cmd=="!say") or (cmd=="?say") then
SendToAll(Name, rsn) return 1
elseif (cmd=="+saypm") or (cmd=="!saypm") or (cmd=="?saypm") then
s,e,cmd,to,from,msg = strfind(data,"%b<>%s+(%S+)%s+(%S+)%s+(%S+)%s+(.*)")
SendPmToNick(to,from,msg) return 1
end
end
end
end
I also wanted to make messages like !me from selected user.
Example: I'm writing !sayme Puma lol lol lol
then in main appears
[19:47] * Puma lol lol lol
What lines should I add to my script to enable this function?
function DataArrival(user, data)
if strsub(data,1,1) == "<" then
data=strsub(data,1,strlen(data)-1)
s,e,cmd,Name,rsn = strfind(data,"%b<>%s+(%S+)%s+(%S+)%s+(.*)")
if user.iProfile == 0 then
if (cmd=="+say") or (cmd=="!say") or (cmd=="?say") then
SendToAll(Name, rsn) return 1
elseif (cmd=="+saypm") or (cmd=="!saypm") or (cmd=="?saypm") then
s,e,cmd,to,from,msg = strfind(data,"%b<>%s+(%S+)%s+(%S+)%s+(%S+)%s+(.*)")
SendPmToNick(to,from,msg) return 1
elseif cmd =="!sayme" or cmd == "+sayme" or cmd == "?sayme" then
if not user.bOperator then return end --//remove this line if you want non ops to use the command.
Name = Name or ""
rsn = rsn or ""
SendToAll("* "..Name.." "..rsn)
return 1
end
end
end
end
:D
-BH
hehehehehehehe cool script i love it LoL :D
Thanx! :)