Hey guys,
I am after a script that the OPs & Masters can use by runnin a command 4 instance the !away command so that it will change their name 2 av the prefix [AWAY] on their nick. The reason i'm asking is because new users get frustrated when they think OPs r jus ignoring them.
So 4 jus 2 clear it up when they come in the hub they can type !away (or wateva) then the prefix will change their name to say [AWAY]QuikThinker 4 example so this will be a clear enuff indication 2 the users who r away & who r at their PCs.
Dunno if its possible but good luck.
Quik.
I dont think this represents in full the funcitonaity that one would want from an away bot but ... It does what you asked for ... I havent tested it thoroughly so pls grab n test ... report bugs and misses and maybe we can fix it ...
[*To All*] pls lets make this one a nice script ;)
--- Awayer v1 --- idea by QuitckThinker
--- by Herodes
--- This bot has been writen offline and based on no other script
--- Although the initial idea for the AwayBot is from tezlo's RetroBot...
--- This diplays a prefix for those operators and above that are away
--- !away
--- !back
--- feel free to develop this further ...
tAways = {}
awpref = "[AWAY]"
function Main()
frmHub:EnableFullData(1)
end
function DataArrival(user, data)
if ( (user.bOperator) and (tAways[user.sName]) and (strsub(data, 1, 7) == "$MyINFO") ) then
local s,e,name = strfind(data, "%$MyINFO %$ALL (%S+)")
SendToAll("$Quit "..user.sName)
frmHub:UnregBot(awpref..user.sName)
frmHub:RegBot(awpref..user.sName)
newinfo = gsub(data, user.sName, awpref..user.sName)
SendToAll(newinfo)
return 1
end
if strsub(data, 1, 8) == "$GetINFO" then
local s,e,from, to = strfind(data, "$GetINFO%s(%S+)%s(%S+)")
if tAways[from] == 1 then
data = gsub(data, from, awpref..from)
SendToAll("$Quit "..from)
end
if tAways[to] == 1 then
data = gsub(data, to, awpref..to)
SendToAll("$Quit "..to)
end
SendToNick(to, data)
return 1
end
if strsub(data, 1,1) == "<" then
data =strsub(data, 1, strlen(data)-1)
local s,e,cmd = strfind(data, "%b<>%s+(%S+)")
if cmd == "!away" then
if tAways[user.sName] ~= 1 then
tAways[user.sName] = 1
user:SendData("Awayer", "You are now set to away ..")
frmHub:UnregBot(awpref..user.sName)
frmHub:RegBot(awpref..user.sName)
else
user:SendData("Awayer", "You are away already ... ")
end
SendToAll("$Quit "..user.sName)
return 1
elseif cmd == "!back" then
if tAways[user.sName] == 1 then
tAways[user.sName] = nil
frmHub:UnregBot(awpref..user.sName)
SendToAll("Awayer", user.sName.." is back .. :)")
else
user:SendData("Awayer", "You were not away... :)")
end
return 1
elseif tAways[user.sName] == 1 then
tAways[user.sName] = nil
user:SendData("Awayer", "You spoke in main chat so you are not away anymore.")
frmHub:UnregBot(awpref..user.sName)
end
end
end
function OpDisconnected(user)
if GetItemByName(awpref..user.sName) then
frmHub:UnregBot(awpref..user.sName)
elseif GetItemByName(user.sName) then
SendToAll("$Quit "..user.sName)
end
end
got some more work on that ,...
--- Awayer v2 --- idea by QuitckThinker
--- by Herodes
--- This bot has been writen offline and based on no other script
--- Although the initial idea for the AwayBot is from tezlo's RetroBot...
--- This diplays a prefix for those operators and above that are away
--- !away --- is optional
--- !back
--- !awaylist
--- feel free to develop this further ...
--- --- v 2 --- ---
--- currently has a problem with the following path ..
--- 1) !away
--- 2) user reconnnects
--- 3) !back
--- this produces a lot of shity names in the list ... dunno y ...:(
--- --- --- --- --- --- ---
tAways = {}
awpref = "[AWAY]"
defmsg = "I'm away. I might answer later if you're lucky."
function Main()
frmHub:EnableFullData(1)
end
function NewUserConnected(user)
for nick, msg in tAways do
user:SendData("$Quit "..nick)
user:SendData("You are missing "..nick)
end
if GetItemByName(user.sName) and tAways[user.sName] then
SendToAll("$Quit "..user.sName)
end
end
OpConnected = NewUserConnected
function DataArrival(user, data)
if ( (user.bOperator) and (tAways[user.sName]) and (strsub(data, 1, 7) == "$MyINFO") ) then
local s,e,name = strfind(data, "%$MyINFO %$ALL (%S+)")
frmHub:UnregBot(awpref..user.sName)
frmHub:RegBot(awpref..user.sName)
newinfo = gsub(data, user.sName, awpref..user.sName)
SendToAll(newinfo)
SendToAll("$Quit "..user.sName)
return 1
end
if strsub(data, 1, 4) == "$To:" then
local s,e,whoTo,from = strfind(data, "$To:%s"..awpref.."(%S+)%sFrom:(%S+)")
if tAways[whoTo] then
SendPmToNick(from, whoTo, tAways[whoTo])
end
end
if strsub(data, 1, 8) == "$GetINFO" then
local s,e,from, to = strfind(data, "$GetINFO%s(%S+)%s(%S+)")
if tAways[from] == 1 then
data = gsub(data, from, awpref..from)
SendToAll("$Quit "..from)
end
if tAways[to] == 1 then
data = gsub(data, to, awpref..to)
SendToAll("$Quit "..to)
end
if GetItemByName(from) then
oper = GetItemByName(from)
if oper.bOperator then
frmHub:UnregBot(oper.bOperator)
end
end
if strfind(data, "$GetINFO%s"..awpref..to.."%s"..to) or strfind(data, "$GetINFO%s"..awpref..from.."%s"..from) then
return 1
end
SendToNick(to, data)
return 1
end
if strsub(data, 1,1) == "<" then
data =strsub(data, 1, strlen(data)-1)
local s,e,cmd = strfind(data, "%b<>%s+(%S+)")
if cmd == "!away" then
local s,e,arg = strfind(data, "%b<>%s+"..cmd.."%s(.*)")
if arg == nil or arg == "" then arg = defmsg end
if not tAways[user.sName] then
local s,e,name,desc,tag, con,email,share = strfind(user.sMyInfoString, "$MyINFO $ALL (%S+)%s+(.*)<([^$]+)$ $([^$]*)$([^$]*)$([^$]+)")
tAways[user.sName] = {}
tAways[user.sName]["info"] = {}
if desc == nil then desc = "" end
tAways[user.sName]["info"]["d"] = desc
tAways[user.sName]["info"]["t"] = "<"..tag
tAways[user.sName]["info"]["c"] = con
if email == nil then email = "" end
tAways[user.sName]["info"]["e"] = email
tAways[user.sName]["info"]["s"] = share
tAways[user.sName]["reason"] = arg
user:SendData("Awayer", "You are now set to away ..")
frmHub:UnregBot(awpref..user.sName)
SendToAll("$MyINFO $ALL "..awpref..user.sName.." AwayMsg: "..arg..tAways[user.sName]["info"]["t"].."$ $"..tAways[user.sName]["info"]["c"].."$"..tAways[user.sName]["info"]["e"].."$$"..tAways[user.sName]["info"]["s"].."$")
frmHub:RegBot(awpref..user.sName)
else
user:SendData("Awayer", "You are away already ... ")
end
SendToAll("$Quit "..user.sName)
return 1
elseif cmd == "!back" then
if tAways[user.sName] then
SendToAll("$MyINFO $ALL "..awpref..user.sName.." "..tAways[user.sName]["info"]["d"]..tAways[user.sName]["info"]["t"].."$ $"..tAways[user.sName]["info"]["c"].."$"..tAways[user.sName]["info"]["e"].."$$"..tAways[user.sName]["info"]["s"].."$")
tAways[user.sName] = nil
frmHub:UnregBot(awpref..user.sName)
frmHub:RegBot(user.sName)
SendToAll("Awayer", user.sName.." is back .. :)")
else
user:SendData("Awayer", "You were not away... :)")
end
return 1
elseif cmd == "!awaylist" then
local list = "These users are set to away\r\n"
local cnt = 0
for nick, msg in tAways do
cnt = cnt + 1
list = list.."\t"..cnt..". "..nick.."\tAway Msg :"..msg.."\r\n"
end
user:SendData(list)
return 1
elseif tAways[user.sName] then
SendToAll("$MyINFO $ALL "..awpref..user.sName.." "..tAways[user.sName]["info"]["d"]..tAways[user.sName]["info"]["t"].."$ $"..tAways[user.sName]["info"]["c"].."$"..tAways[user.sName]["info"]["e"].."$$"..tAways[user.sName]["info"]["s"].."$")
tAways[user.sName] = nil
user:SendData("Awayer", "You spoke in main chat so you are not away anymore.")
frmHub:UnregBot(awpref..user.sName)
frmHub:RegBot(user.sName)
end
end
end
function OpDisconnected(user)
frmHub:UnregBot(awpref..user.sName)
frmHub:UnregBot(user.sName)
if GetItemByName(user.sName) then
SendToAll("$Quit "..user.sName)
end
endIt will not create any errors in PtokaX but there is the possiblity to mess up the users with Keys in the Userlist ...
try to convince ppl not use the steps in the script comments ...
I was originally gonna jus create double profiles 4 the team so if they were jus gonna be in the hub idle they could login usin that name but I thought it'd easier with a script instead. I guess it's quite complicated coz u gotta include all the features of the profiles aswell?
QuoteOriginally posted by QuikThinker
I was originally gonna jus create double profiles 4 the team so if they were jus gonna be in the hub idle they could login usin that name but I thought it'd easier with a script instead. I guess it's quite complicated coz u gotta include all the features of the profiles aswell?
Naah dont bother this script should be running nice ... apart from that glitch mentioned ...
I dont know how to tackle it until now so I would appreciate it if someone could go into the script and it fixed before I do ... :)
I have some stuff I dont think I understand how they happen with this script ...
Not how they are done BUt how they happen ...
Some scripted responses get to the userlist but I certainly haven't said it to do that .. :)
so someone, pls spare an hour to help me with this .. :s
lol yea please........someone? :D
I jus ran it & I get this message in main:
[18:25:39]
You are now set to away ..
[18:25:39] Satellite <------ Gives the connection I state for sum reason :s
Plus it displays ma share as 0b when i'm away also.
yeah some debug shitty-chat ;) sorry ...
edited above for removing the connection send to main ...
I have tackled the garbage in the userlist by changing the order that stuff are processed in the script ( simple : moved some lines up and some other down) BUT :)
I am having problems with something else in the version I am preparing ...
I have
function OpDisconnected(user)
frmHub:RegBot(user.sName)
frmHub:UnregBot(user.sName)
SendToAll("$Quit "..user.sName)
end and I still get the reserved nickname message if the user has gone throught this procedure
!away
!back //// or //// 'anything'
user disconnects
and on reconnection the nickname_reserved msg .... :((((((((((((((
any1 any ideas ?
ok this is the script up to now ...
I still havent come over the last bug I posted ...
I wish , and dbl wish, for someone to tell me what is wrong with it .. ;?
--- Awayer v3 --- idea by QuitckThinker
--- by Herodes
--- This bot has been writen offline and based on no other script
--- Although the initial idea for the AwayBot is from tezlo's RetroBot...
--- This diplays a prefix for those operators and above that are away
--- It also places the Away message in the users description ...
--- --- --- This script works only for Operators (as intended) --- --- ---
--- !away --- is optional
--- !back
--- !awaylist
--- feel free to develop this further ...
--- --- v 2 --- ---
--- currently has a problem with the following path ..
--- 1) !away
--- 2) user reconnnects
--- 3) !back
--- this produces a lot of shity names in the list ... dunno y ...:(
--- --- v 3 --- ---
--- fixed v2 problem but has abother one ...
--- following path ..
--- 1) !away
--- 2) or !back
--- 3) user disconnects ...
--- 4) user receives nickname reserved message (???)
--- --- all other scenarios I have tested and work fine ...
--- --- --- --- --- --- ---
tAways = {}
awpref = "[AWAY]"
defmsg = "I'm away. I might answer later if you're lucky."
function Main()
frmHub:EnableFullData(1)
end
function NewUserConnected(user)
for nick, msg in tAways do
user:SendData("$Quit "..nick)
--- user:SendData("You are missing "..nick)
end
if GetItemByName(user.sName) and tAways[user.sName] then
SendToAll("$Quit "..user.sName)
end
end
OpConnected = NewUserConnected
function DataArrival(user, data)
if ( (tAways[user.sName]) and (strsub(data, 1, 7) == "$MyINFO") ) then
local s,e,name = strfind(data, "%$MyINFO %$ALL (%S+)")
frmHub:UnregBot(awpref..user.sName)
frmHub:RegBot(awpref..user.sName)
newinfo = gsub(data, user.sName, awpref..user.sName)
SendToAll(newinfo)
SendToAll("$Quit "..user.sName)
return 1
end
if strsub(data, 1, 4) == "$To:" then
local s,e,whoTo,from = strfind(data, "%$To:%s(%S+)%sFrom:%s(%S+)%s%$")
-- SendToAll("from "..from.." to "..whoTo)
if strfind(whoTo, awpref) then
whoTo = strsub(whoTo, strlen(awpref)+1, strlen(whoTo) )
end
-- SendToAll("the nick "..whoTo)
if tAways[whoTo]["reason"] then
SendPmToNick(from, whoTo, tAways[whoTo]["reason"].." ")
end
local s,e,msg = strfind(data, "%b<>%s+(%S+)")
SendPmToNick(whoTo, from, msg)
end
if strsub(data, 1, 13) == "$ValidateNick" then
local s,e,name = strfind(data, "%$ValidateNick%s(%S+)|")
if tAways[name] then
UnRegIt(name)
--- SendToAll("connecting "..name)
end
end
if strsub(data, 1, 5) == "$Quit" then
local s,e,name = strfind(data, "%$Quit%s(%S+)")
-- local usr = GetItemByName(name)
--- if usr then
-- if tAways[name] then
UnRegIt(name)
--- end
--- SendToAll("disconnecting "..name)
end
if strsub(data, 1, 8) == "$GetINFO" then
local s,e,from, to = strfind(data, "$GetINFO%s(%S+)%s(%S+)")
if ( (from ~= awpref..to) or (to ~= awpref..from) ) then
if tAways[from] == 1 then
data = gsub(data, from, awpref..from)
SendToAll("$Quit "..from)
end
if tAways[to] == 1 then
data = gsub(data, to, awpref..to)
SendToAll("$Quit "..to)
end
if GetItemByName(from) then
local oper = GetItemByName(from)
if oper.bOperator then
frmHub:UnregBot(oper.bOperator)
end
end
SendToNick(to, data)
elseif ( (strfind(data, "$GetINFO%s"..awpref..to.."%s"..to)) or (strfind(data, "$GetINFO%s"..awpref..from.."%s"..from)) ) then
return 1
end
end
if strsub(data, 1,1) == "<" then
data =strsub(data, 1, strlen(data)-1)
local s,e,cmd = strfind(data, "%b<>%s+(%S+)")
if (user.bOperator) then
if cmd == "!away" then
local s,e,arg = strfind(data, "%b<>%s+"..cmd.."%s(.*)")
if arg == nil or arg == "" then arg = defmsg end
if not tAways[user.sName] then
local s,e,name,desc,tag, con,email,share = strfind(user.sMyInfoString, "$MyINFO $ALL (%S+)%s+(.*)<([^$]+)$ $([^$]*)$([^$]*)$([^$]+)")
tAways[user.sName] = {}
tAways[user.sName] = {}
if desc == nil then desc = "" end
tAways[user.sName]["d"] = desc
tAways[user.sName]["t"] = "<"..tag
tAways[user.sName]["c"] = con
if email == nil then email = "" end
tAways[user.sName]["e"] = email
tAways[user.sName]["s"] = share
tAways[user.sName]["reason"] = arg
user:SendData("Awayer", "You are now set to away ..")
RegIt(awpref..user.sName)
SendToAll("$MyINFO $ALL "..awpref..user.sName.." AwayMsg: "..arg..tAways[user.sName]["t"].."$ $"..tAways[user.sName]["c"].."$"..tAways[user.sName]["e"].."$$"..tAways[user.sName]["s"].."$|")
else
user:SendData("Awayer", "You are away already ... ")
end
SendToAll("$Quit "..user.sName.."|")
return 1
elseif cmd == "!back" then
if tAways[user.sName] then
UnRegIt(awpref..user.sName)
SendToAll("Awayer", user.sName.." is back .. :)")
RegIt(user.sName)
SendToAll("$MyINFO $ALL "..user.sName.." "..tAways[user.sName]["d"]..tAways[user.sName]["t"].."$ $"..tAways[user.sName]["c"].."$"..tAways[user.sName]["e"].."$$"..tAways[user.sName]["s"].."$|")
tAways[user.sName] = nil
else
user:SendData("Awayer", "You were not away... :)")
end
return 1
elseif cmd == "!awaylist" then
local list = "These users are set to away\r\n"
local cnt = 0
for nick, msg in tAways do
cnt = cnt + 1
list = list.."\t"..cnt..". "..nick.."\tAway Msg :"..msg.."\r\n"
end
user:SendData(list)
return 1
elseif tAways[user.sName] then
UnRegIt(awpref..user.sName)
user:SendData("Awayer", "You spoke in main chat so you are not away anymore.|")
RegIt(user.sName)
SendToAll("$MyINFO $ALL "..user.sName.." "..tAways[user.sName]["d"]..tAways[user.sName]["t"].."$ $"..tAways[user.sName]["c"].."$"..tAways[user.sName]["e"].."$$"..tAways[user.sName]["s"].."$|")
tAways[user.sName] = nil
end
end
end
end
function OpDisconnected(user)
if tAways[user.sName] then
UnRegIt(awpref..user.sName)
-- SendToAll("Was Away ... by the nick "..awpref..user.sName.." and the reason "..tAways[user.sName]["reason"])
end
UnRegIt(user.sName)
SendToAll(user.sName)
--- SendToAll("$Quit "..user.sName)
--- SendToAll("$Quit "..awpref..user.sName)
end
function RegIt(name)
frmHub:UnregBot(name)
frmHub:RegBot(name)
end
function UnRegIt(name)
frmHub:RegBot(name)
frmHub:UnregBot(name)
SendToAll("$Quit "..name.."|")
end...pls ? :)
I treble wish ;(