READ THE RULES
0 Members and 1 Guest are viewing this topic.
HubPwd = "guestpass"RegProf = 3OpNick = "Mutor"OnStartup = function() Bot = SetMan.GetString(21)endOnError = function(msg) local user = Core.GetUser(OpNick) if msg and user then Core.SendToUser(user,"<"..Bot.."> "..msg.."|") endendValidateNickArrival = function(user,data) local _,_,Nick = data:find("^$ValidateNick (%S+)|$") if Nick and not RegMan.GetReg(Nick) then RegMan.AddReg(Nick,HubPwd,RegProf) Core.SendToUser(user,"<"..Bot.."> Enabling Log-In for: "..Nick..". Please reconnect.|") Core.Disconnect(user) endend
HubPwd = "guestpass"RegProf = 3OpNick = "Mutor"OnStartup = function() Bot,Regs = SetMan.GetString(21),{}endOnError = function(msg) local user = Core.GetUser(OpNick) if msg and user then Core.SendToUser(user,"<"..Bot.."> "..msg.."|") endendValidateNickArrival = function(user,data) local _,_,Nick = data:find("^$ValidateNick (%S+)|$") if Nick and not RegMan.GetReg(Nick) then Regs[Nick] = RegMan.AddReg(Nick,HubPwd,RegProf) Core.SendToUser(user,"<"..Bot.."> Enabling Log-In for: "..Nick..". Please reconnect.|") Core.Disconnect(user) return true endendUserDisconnected = function(user) if Regs[user.sNick] then RegMan.DelReg(user.sNick) endendOpDisconnected,RegDisconnected = UserDisconnected,UserDisconnected
To force prompt for password.
HubPwd = "guestpass"RegProf = 3OpNick = "Mutor"OnStartup = function() Bot,Regs = SetMan.GetString(21),{}endOnError = function(msg) local user = Core.GetUser(OpNick) if msg and user then Core.SendToUser(user,"<"..Bot.."> "..msg.."|") endendValidateNickArrival = function(user,data) local _,_,Nick = data:find("^$ValidateNick (%S+)|$") if Nick and not RegMan.GetReg(Nick) then Regs[Nick] = RegMan.AddReg(Nick,HubPwd,RegProf) return Core.SendToUser(user,"$GetPass|"),true endendUserDisconnected = function(user) if Regs[user.sNick] then RegMan.DelReg(user.sNick) endendOpDisconnected,RegDisconnected = UserDisconnected,UserDisconnected