PtokaX forum

-- Message Unregged Users
-- Made by Optimus
-- 03/30/05

sBot = "BotName"

Main = function()
frmHub:RegBot(sBot)
end

ChatArrival = function(user, data)
data=string.sub(data,1,string.len(data)-1)
s,e,cmd=string.find(data, "%b<>%s+(%S+)")
if (cmd == "!messunreg") then
if user.bOperator then
local s,e,cmd,message = string.find(data,"%b<>%s+(%S+)%s+(.*)")
if message then
local border = ""
if (string.len ( message)*2/3+2) < 76 then
border = string.rep ("-", string.len (message)*2/3+2)
else
border = string.rep ("-", 75)
end message = "\r\n\r\n"..border.."\r\n"..message.."\r\n"..border.."\r\n"
for id,who in frmHub:GetOnlineUsers() do
if who.iProfile == -1 then
who:SendPM(sBot, message)
end
end
else
user:SendData(sBot, "*** Usage: !messunreg ")
end
end
return 1
end
end

Mass message unregged users updated version.

- Optimus

nice trick for the border,.. its about 2/3rds ;)
I couldn't resist touching this one,... no offense..

-- Message Unregged Users
-- Made by Optimus
-- 03/30/05
---
-- I couldn't resist touching .. Herodes..

sBot = "BotName"

ChatArrival = function(user, data)
if user.bOperator then
data=string.sub(data,1,-2)
s,e,cmd=string.find(data, "%b<>%s+(%S+)")
if (cmd == "!messunreg") then
local s,e,cmd,message = string.find(data,"%b<>%s+(%S+)%s+(.*)")
if message then
local border = string.rep ("-", 75)
if (string.len (message)*2/3+2) < 76 then
border = string.rep ("-", string.len (message)*2/3+2)
end
message = "\r\n\r\n"..border.."\r\n"..message.."\r\n"..border.."\r\n"
for id,who in frmHub:GetOnlineUsers() do
if who.iProfile == -1 then
who:SendData( "$To: "..who.sName.." From: "..who.sName.." $<"..sBot.."> "..message )
end
end
else
user:SendData(sBot, "*** Usage: !messunreg ")
end
end
return 1
end
end

If i use this:

SendPmToAll(user.sName,"message came")
will the away messages be rebounded to me?

Or better use this:

for h=1,table.getn(userstbl) do; userstbl[h]:SendData("$To: "..userstbl[h].sName.." From: "..Bot.." $<"..user.sName.."> "..message ); end
, where user is me.

So?

-- Message Unregged Users
-- Made by Optimus
-- 03/30/05
--
-- I couldn't resist touching .. Herodes..
-- Touched it some more by Optimus cause it feels so good hehe

sBot = "BotName"

ChatArrival = function(user, data)
if user.bOperator then
data=string.sub(data,1,-2)
local s,e,cmd=string.find(data, "%b<>%s+(%S+)")
if (cmd == "!massunreg") then
local s,e,cmd,message = string.find(data,"%b<>%s+(%S+)%s+(.*)")
if message then
local border = string.rep ("-", 75)
if (string.len (message)*2/3+2) < 76 then
border = string.rep ("-", string.len (message)*2/3+2)
end message = "*** Hub: "..(frmHub:GetHubName() or frmHub:GetHubAddress()).." - From: "..user.sName.."\r\n\r\n"..border.."\r\n"..message.."\r\n"..border.."\r\n"
for id,who in frmHub:GetOnlineUsers() do
if who.iProfile == -1 then
who:SendData( "$To: "..who.sName.." From: "..who.sName.." $<"..sBot.."> "..message)
end
end SendToOps(sBot, user.sName.." sended a mass message to all none regged users!")
else
user:SendData(sBot, "*** Usage: !massunreg ")
end
return 1
end
end
end Yummy yummy

The script above eats too much resources (memory compared to the one I'll give below) I think.. Maybe you can try this one:
-- Made by Optimus
-- 08/12/03
-- converted to LUA 5 by jiten

sBot = "BotName"

unRegUsers = {}
unRegUserFile = "unRegUsers.txt"

function Main()
frmHub:RegBot(sBot)
doloadTable(unRegUserFile)
if frmHub:GetUsersCount() == 0 then unRegUsers = {}
dosaveTable(user,data)
end
end

function NewUserConnected(user)
if user.iProfile == -1 then
doLog_unRegUsers(user, data)
end
end
function UserDisconnected(user)
if unRegUsers[user.sName] then
unRegUsers[user.sName] = nil
dosaveTable(user,data)
end
end

function ChatArrival(user, data)
data=string.sub(data,1,string.len(data)-1)
_,_,cmd=string.find(data, "%b<>%s+(%S+)")
if user.bOperator then
if (cmd == "!unregpm") then
s,e,cmd,message = string.find(data,"%b<>%s+(%S+)%s+(.+)")
if message then
tosend = ""
if (string.len ( message)*2/3+2) < 76 then
border = string.rep ("-", string.len (message)*2/3+2)
else
border = string.rep ("-", 75)
end
tosend = "\r\n\r\n"..border.."\r\n"..message.."\r\n"..border.."\r\n"
if unRegUsers then
for name,_ in unRegUsers do
SendPmToNick(name,sBot, tosend)
end
end
else
user:SendData(sBot, "*** Please Enter a Message!")
end
return 1
end
end
end

function doLog_unRegUsers(user, data)
if unRegUsers[user.sName] == nil then
unRegUsers[user.sName] = 1
dosaveTable(user,data)
end
end


function doloadTable(unRegUserFile)
local handle = io.open(unRegUserFile,"r")
if (handle ~= nil) then
                dofile(unRegUserFile)
handle:flush()
handle:close()
        end
end

function dosaveTable(user,data)
local f = io.open(unRegUserFile, "w+")
assert(unRegUserFile)
f:write("unRegUsers = {")
         for a,b in unRegUsers do
                  if b == 1 then
         f:write(string.format("[%q]=",a)..b..",")
         end
        end
        f:write("}")
        f:flush()
        f:close()
end


Am I wrong ?

If using lua new releases of ptokax (e.g. lua 5) wouldnt something like this be easier ?

local tUsers = {}
tUsers = frmHub:GetOnlineUsers()
for key,value in tUsers do
if not value.bRegistered then
tUnreg[value.sName] = 1
  end
end

Would save the need to save to a text file, tho use more resources when called in a hub with a lot of users.....

Requiem,.. I dont think that it eats up resources.. check it out ... the script done by Opti is taking advantage of what [UK]Madman pointed out .. ;)

Hello, i'm french
I put this last unreg mess but on connected unreg there no mess auto in pm for the unreg user ?
can you help me?

thank
respectfull

This script only sends a message when an operator types !massunreg in main followed by the message to send.

I noticed.. All codes posted in this is thread is lua 5... so maybe this topic fits better in the lua 5 section?