Can somebody change a little thing in the WelcomeInfoFunction
This is the script of me from WelcomeInfoFunction
----------------------------------------------------------------------------
-- welcome info
----------------------------------------------------------------------------
function WelcomeInfo(user)
local timeanddate = os.date("%d-%m-%Y %H:%M:%S")
local tmp = os.clock()
local topic = ""
local minshare = ""
local weeks, days, hours, minutes, seconds = math.floor(tmp/604800), math.floor(math.mod(tmp/86400, 7)), math.floor(math.mod(tmp/3600, 24)), math.floor(math.mod(tmp/60, 60)), math.floor(math.mod(tmp/1, 60))
if frmHub:GetHubTopic() == nil then
topic = "No topic set"
else
topic = frmHub:GetHubTopic()
end
if user.sMyInfoString then
local disp = ""
doGetProfile = GetProfileName(user.iProfile) or "Unregistered (to reg yourself type "..tGeneral.sPrefix.."regme and a password of your choice in main)"
local hubshare = string.format("%0.3f", frmHub:GetCurrentShareAmount()/(tb)).." TB"
local _,_,share = string.find(user.sMyInfoString, "^%$MyINFO %$ALL [^ ]+ [^$]*%$ $[^$]+[^$]%$[^$]*%$%s*(%d+)%$" )
if share then
minshare = string.format("%0.3f", tonumber(share)/gb).." GB"
else
minshare = "Corrupt"
end
local border1 = "??????????????????????????? Welcome To "..frmHub:GetHubName().." ???????????????????????????\r\n"
local border3 = " ??????????????????????????????????????????????????????????????????????????????????????????????????????"
disp = "\r\n\r\n"..border1.."??\r\n"
disp = disp.."?? Hub Name : "..frmHub:GetHubName().."\r\n"
disp = disp.."?? Hub Owner : "..tWelcomeInfo.HubOwner.."\r\n"
disp = disp.."?? Hub Address : "..frmHub:GetHubAddress()..":"..frmHub:GetHubPort().."\r\n"
disp = disp.."?? Hub Date & Time : "..timeanddate.."\r\n"
if tWelcomeInfo.HubListAddress ~= "" then
disp = disp.."?? Hub List Address : "..tWelcomeInfo.HubListAddress.."\r\n"
end
if tWelcomeInfo.WebAddress ~= "" then
disp = disp.."?? Web Address : "..tWelcomeInfo.WebAddress.."\r\n"
end
if tWelcomeInfo.HubEmail ~= "" then
disp = disp.."?? Hub Email : "..tWelcomeInfo.HubEmail.."\r\n"
end
disp = disp.."??\r\n"
local sMasters = ""
for x, user in pairs(frmHub:GetOnlineUsers(0)) do
sMasters = sMasters..user.sName..", "
end
sMasters = string.sub(sMasters, 1, -3)
if sMasters ~= "" then
disp = disp.."?? Masters : "..string.gsub(sMasters,", ","\r\n?? \t\t\t ").."\r\n"
end
disp = disp.."??\r\n"
local sOperators = ""
for x, user in pairs(frmHub:GetOnlineUsers(1)) do
sOperators = sOperators..user.sName..", "
end
sOperators = string.sub(sOperators, 1, -3)
if sOperators ~= "" then
disp = disp.."?? Operators : "..string.gsub(sOperators,", ","\r\n?? \t\t\t ").."\r\n"
end
disp = disp.."??\r\n"
local sModerators = ""
for x, user in pairs(frmHub:GetOnlineUsers(4)) do
sModerators = sModerators..user.sName..", "
end
sModerators = string.sub(sModerators, 1, -3)
if sModerators ~= "" then
disp = disp.."?? Special Vips : "..string.gsub(sModerators,", ","\r\n?? \t\t\t ").."\r\n"
end
disp = disp.."??\r\n"
if tWelcomeInfo.NetworkName ~= "" then
disp = disp.."?? Network Name : "..tWelcomeInfo.NetworkName.."\r\n"
end
if tWelcomeInfo.NetworkFounded ~= "" then
disp = disp.."?? Network Founded : "..tWelcomeInfo.NetworkFounded.."\r\n"
end
if tWelcomeInfo.NetworkOwner ~= "" then
disp = disp.."?? Network Founder : "..tWelcomeInfo.NetworkOwner.."\r\n"
end
if tWelcomeInfo.NetworkHubs ~= "" then
disp = disp.."?? Network Hubs : "..string.gsub(tWelcomeInfo.NetworkHubs,", ","\r\n??\t\t\t ").."\r\n"
end
if tWelcomeInfo.NetworkName ~= "" or tWelcomeInfo.NetworkOwner ~= "" or tWelcomeInfo.NetworkHubs ~= "" then
disp = disp.."??\r\n"
end
disp = disp.."?? Your IP : "..user.sIP.."\r\n"
disp = disp.."?? Your share size : "..minshare.."\r\n"
disp = disp.."?? Your profile : "..doGetProfile.."\r\n"
if sUserDescription ~= "" then
disp = disp.."?? Your description is : "..sUserDescription.."\r\n"
end
disp = disp.."?? Your connection is : "..user.sConnection.."\r\n"
if sUserEmail then
disp = disp.."?? Your email is : "..sUserEmail.."\r\n"
end
disp = disp.."?? Your client is : "..user.sClient.."\r\n"
if user.sClientVersion ~= nil then
disp = disp.."?? Your client version is : "..user.sClientVersion.."\r\n"
end
disp = disp.."?? Your total hubs are : "..user.iHubs.."\r\n"
disp = disp.."?? Your open slots are : "..user.iSlots.."\r\n??\r\n"
if tWelcomeInfo.MinShare ~= "" then
disp = disp.."?? Min Share for users : "..tWelcomeInfo.MinShare.."\r\n"
end
disp = disp.."?? Total Share in this hub : "..hubshare.."\r\n"
disp = disp.. "??\r\n"
disp = disp.."?? There are now "..ProfileCounter("master").." Master(s), "..ProfileCounter("Operator").." Operator(s), "..ProfileCounter("Moderator").." Special Vip(s), "..ProfileCounter("Vip").." Vip(s), "..ProfileCounter("reg").." Registered user(s) online.\r\n??\r\n"
disp = disp.."?? There are now: "..frmHub:GetUsersCount().." of the "..frmHub:GetMaxUsers().." users online after "..weeks.." week(s) "..days.." day(s) "..hours.." hour(s) "..minutes.." minutes and "..seconds.." seconds\r\n??\r\n"
disp = disp..border1
user:SendData(tBots.tWelcome.Name, disp)
disp = nil
end
end
--// Profile Counter
function ProfileCounter(profile)
local table, count = GetUsersByProfile(profile), 0
for i, User in pairs(table) do
if GetItemByName(User) then
count = count + 1
end
end
return count
end
You see now:
?? Operators : Jules_Deelder
?? Liza_Minelli
?? Herman_Finkers
?? Urbanus
?? Andre_Van_Duin
??
?? Special Vips : [Stamgast]Hans_Teeuwen
That contains only the online ops and special vips(moderators)
but i want that you can see all ops and special vips (moderators) also the one who are not online
If you replace your existing WelcomeInfoFunction with the below it will show all Masters, Ops and Mods registered in the hubsoft regardless of whether they are online or not.
I will also take a look at putting an option in the next version so you can select in the GUI which way you want it to show.
----------------------------------------------------------------------------
-- welcome info
----------------------------------------------------------------------------
function WelcomeInfo(user)
local timeanddate = os.date("%d-%m-%Y %H:%M:%S")
local tmp = os.clock()
local topic = ""
local minshare = ""
local weeks, days, hours, minutes, seconds = math.floor(tmp/604800), math.floor(math.mod(tmp/86400, 7)), math.floor(math.mod(tmp/3600, 24)), math.floor(math.mod(tmp/60, 60)), math.floor(math.mod(tmp/1, 60))
if frmHub:GetHubTopic() == nil then
topic = "No topic set"
else
topic = frmHub:GetHubTopic()
end
if user.sMyInfoString then
local disp = ""
doGetProfile = GetProfileName(user.iProfile) or "Unregistered (to reg yourself type "..tGeneral.sPrefix.."regme and a password of your choice in main)"
local hubshare = string.format("%0.3f", frmHub:GetCurrentShareAmount()/(tb)).." TB"
local _,_,share = string.find(user.sMyInfoString, "^%$MyINFO %$ALL [^ ]+ [^$]*%$ $[^$]+[^$]%$[^$]*%$%s*(%d+)%$" )
if share then
minshare = string.format("%0.3f", tonumber(share)/gb).." GB"
else
minshare = "Corrupt"
end
local border1 = "??????????????????????????? Welcome To "..frmHub:GetHubName().." ???????????????????????????\r\n"
local border3 = " ??????????????????????????????????????????????????????????????????????????????????????????????????????"
disp = "\r\n\r\n"..border1.."??\r\n"
disp = disp.."?? Hub Name : "..frmHub:GetHubName().."\r\n"
disp = disp.."?? Hub Owner : "..tWelcomeInfo.HubOwner.."\r\n"
disp = disp.."?? Hub Address : "..frmHub:GetHubAddress()..":"..frmHub:GetHubPort().."\r\n"
disp = disp.."?? Hub Date & Time : "..timeanddate.."\r\n"
if tWelcomeInfo.HubListAddress ~= "" then
disp = disp.."?? Hub List Address : "..tWelcomeInfo.HubListAddress.."\r\n"
end
if tWelcomeInfo.WebAddress ~= "" then
disp = disp.."?? Web Address : "..tWelcomeInfo.WebAddress.."\r\n"
end
if tWelcomeInfo.HubEmail ~= "" then
disp = disp.."?? Hub Email : "..tWelcomeInfo.HubEmail.."\r\n"
end
disp = disp.."??\r\n"
local sMasters = ""
for x, user in pairs(frmHub:GetOperators()) do
if user.iProfile == 0 then
sMasters = sMasters..user.sNick..", "
end
end
sMasters = string.sub(sMasters, 1, -3)
if sMasters ~= "" then
disp = disp.."?? Masters : "..string.gsub(sMasters,", ","\r\n?? \t\t\t? ").."\r\n"
end
local sModerators = ""
for x, user in pairs(frmHub:GetOperators()) do
if user.iProfile == 4 then
sModerators = sModerators..user.sNick..", "
end
end
sModerators = string.sub(sModerators, 1, -3)
if sModerators ~= "" then
disp = disp.."?? Moderators : "..string.gsub(sModerators,", ","\r\n?? \t\t\t? ").."\r\n"
end
local sOperators = ""
for x, user in pairs(frmHub:GetOperators()) do
if user.iProfile == 1 then
sOperators = sOperators..user.sNick..", "
end
end
sOperators = string.sub(sOperators, 1, -3)
if sOperators ~= "" then
disp = disp.."?? Operators : "..string.gsub(sOperators,", ","\r\n?? \t\t\t? ").."\r\n"
end
disp = disp.."??\r\n"
if tWelcomeInfo.NetworkName ~= "" then
disp = disp.."?? Network Name : "..tWelcomeInfo.NetworkName.."\r\n"
end
if tWelcomeInfo.NetworkFounded ~= "" then
disp = disp.."?? Network Founded : "..tWelcomeInfo.NetworkFounded.."\r\n"
end
if tWelcomeInfo.NetworkOwner ~= "" then
disp = disp.."?? Network Founder : "..tWelcomeInfo.NetworkOwner.."\r\n"
end
if tWelcomeInfo.NetworkHubs ~= "" then
disp = disp.."?? Network Hubs : "..string.gsub(tWelcomeInfo.NetworkHubs,", ","\r\n??\t\t\t? ").."\r\n"
end
if tWelcomeInfo.NetworkName ~= "" or tWelcomeInfo.NetworkOwner ~= "" or tWelcomeInfo.NetworkHubs ~= "" then
disp = disp.."??\r\n"
end
disp = disp.."?? Your IP : "..user.sIP.."\r\n"
disp = disp.."?? Your share size : "..minshare.."\r\n"
disp = disp.."?? Your profile : "..doGetProfile.."\r\n"
if sUserDescription ~= "" then
disp = disp.."?? Your description is : "..sUserDescription.."\r\n"
end
disp = disp.."?? Your connection is : "..user.sConnection.."\r\n"
if sUserEmail then
disp = disp.."?? Your email is : "..sUserEmail.."\r\n"
end
disp = disp.."?? Your client is : "..user.sClient.."\r\n"
if user.sClientVersion ~= nil then
disp = disp.."?? Your client version is : "..user.sClientVersion.."\r\n"
end
disp = disp.."?? Your total hubs are : "..user.iHubs.."\r\n"
disp = disp.."?? Your open slots are : "..user.iSlots.."\r\n??\r\n"
if tWelcomeInfo.MinShare ~= "" then
disp = disp.."?? Min Share for users : "..tWelcomeInfo.MinShare.."\r\n"
end
disp = disp.."?? Total Share in this hub : "..hubshare.."\r\n"
disp = disp.. "??\r\n"
disp = disp.."?? There are: "..ProfileCounter("master").." Master(s),"..ProfileCounter("Operator").." Operator(s),"..ProfileCounter("Vip").." Vip(s),"..ProfileCounter("reg")..", Registered user(s).\r\n??\r\n"
disp = disp.."?? There are now: "..frmHub:GetUsersCount().." of the "..frmHub:GetMaxUsers().." users online after "..weeks.." week(s) "..days.." day(s) "..hours.." hour(s) "..minutes.." minutes and "..seconds.." seconds\r\n??\r\n"
disp = disp..border1
user:SendData(tBots.tWelcome.Name, disp)
disp = nil
end
end
--// Profile Counter
function ProfileCounter(profile)
local table, count = GetUsersByProfile(profile), 0
for i, User in pairs(table) do
if GetItemByName(User) then
count = count + 1
end
end
return count
end
Nice code Mutor but it does something totally different to the function in the original script. That is called for each profile to return the number of people of that profile online. Yours lists all registered users of all profiles each time it is called showing whether each person is online or offline.
You could use this instead:
table.getn(frmHub:GetOnlineUsers(x))
Where 'x' is the desired Profile Number.
I just thought it should be clarified so as not to confuse others. The welcome info was incorporated in v1 from elsewhere.
I have since sunbstantially changed it so I maybe need to revisit again to remove/replace stuff that is not required.
Quote from: Rincewind on 30 April, 2006, 10:44:09
If you replace your existing WelcomeInfoFunction with the below it will show all Masters, Ops and Mods registered in the hubsoft regardless of whether they are online or not.
I will also take a look at putting an option in the next version so you can select in the GUI which way you want it to show.
----------------------------------------------------------------------------
-- welcome info
----------------------------------------------------------------------------
function WelcomeInfo(user)
local timeanddate = os.date("%d-%m-%Y %H:%M:%S")
local tmp = os.clock()
local topic = ""
local minshare = ""
local weeks, days, hours, minutes, seconds = math.floor(tmp/604800), math.floor(math.mod(tmp/86400, 7)), math.floor(math.mod(tmp/3600, 24)), math.floor(math.mod(tmp/60, 60)), math.floor(math.mod(tmp/1, 60))
if frmHub:GetHubTopic() == nil then
topic = "No topic set"
else
topic = frmHub:GetHubTopic()
end
if user.sMyInfoString then
local disp = ""
doGetProfile = GetProfileName(user.iProfile) or "Unregistered (to reg yourself type "..tGeneral.sPrefix.."regme and a password of your choice in main)"
local hubshare = string.format("%0.3f", frmHub:GetCurrentShareAmount()/(tb)).." TB"
local _,_,share = string.find(user.sMyInfoString, "^%$MyINFO %$ALL [^ ]+ [^$]*%$ $[^$]+[^$]%$[^$]*%$%s*(%d+)%$" )
if share then
minshare = string.format("%0.3f", tonumber(share)/gb).." GB"
else
minshare = "Corrupt"
end
local border1 = "??????????????????????????? Welcome To "..frmHub:GetHubName().." ???????????????????????????\r\n"
local border3 = " ??????????????????????????????????????????????????????????????????????????????????????????????????????"
disp = "\r\n\r\n"..border1.."??\r\n"
disp = disp.."?? Hub Name : "..frmHub:GetHubName().."\r\n"
disp = disp.."?? Hub Owner : "..tWelcomeInfo.HubOwner.."\r\n"
disp = disp.."?? Hub Address : "..frmHub:GetHubAddress()..":"..frmHub:GetHubPort().."\r\n"
disp = disp.."?? Hub Date & Time : "..timeanddate.."\r\n"
if tWelcomeInfo.HubListAddress ~= "" then
disp = disp.."?? Hub List Address : "..tWelcomeInfo.HubListAddress.."\r\n"
end
if tWelcomeInfo.WebAddress ~= "" then
disp = disp.."?? Web Address : "..tWelcomeInfo.WebAddress.."\r\n"
end
if tWelcomeInfo.HubEmail ~= "" then
disp = disp.."?? Hub Email : "..tWelcomeInfo.HubEmail.."\r\n"
end
disp = disp.."??\r\n"
local sMasters = ""
for x, user in pairs(frmHub:GetOperators()) do
if user.iProfile == 0 then
sMasters = sMasters..user.sNick..", "
end
end
sMasters = string.sub(sMasters, 1, -3)
if sMasters ~= "" then
disp = disp.."?? Masters : "..string.gsub(sMasters,", ","\r\n?? \t\t\t? ").."\r\n"
end
local sModerators = ""
for x, user in pairs(frmHub:GetOperators()) do
if user.iProfile == 4 then
sModerators = sModerators..user.sNick..", "
end
end
sModerators = string.sub(sModerators, 1, -3)
if sModerators ~= "" then
disp = disp.."?? Moderators : "..string.gsub(sModerators,", ","\r\n?? \t\t\t? ").."\r\n"
end
local sOperators = ""
for x, user in pairs(frmHub:GetOperators()) do
if user.iProfile == 1 then
sOperators = sOperators..user.sNick..", "
end
end
sOperators = string.sub(sOperators, 1, -3)
if sOperators ~= "" then
disp = disp.."?? Operators : "..string.gsub(sOperators,", ","\r\n?? \t\t\t? ").."\r\n"
end
disp = disp.."??\r\n"
if tWelcomeInfo.NetworkName ~= "" then
disp = disp.."?? Network Name : "..tWelcomeInfo.NetworkName.."\r\n"
end
if tWelcomeInfo.NetworkFounded ~= "" then
disp = disp.."?? Network Founded : "..tWelcomeInfo.NetworkFounded.."\r\n"
end
if tWelcomeInfo.NetworkOwner ~= "" then
disp = disp.."?? Network Founder : "..tWelcomeInfo.NetworkOwner.."\r\n"
end
if tWelcomeInfo.NetworkHubs ~= "" then
disp = disp.."?? Network Hubs : "..string.gsub(tWelcomeInfo.NetworkHubs,", ","\r\n??\t\t\t? ").."\r\n"
end
if tWelcomeInfo.NetworkName ~= "" or tWelcomeInfo.NetworkOwner ~= "" or tWelcomeInfo.NetworkHubs ~= "" then
disp = disp.."??\r\n"
end
disp = disp.."?? Your IP : "..user.sIP.."\r\n"
disp = disp.."?? Your share size : "..minshare.."\r\n"
disp = disp.."?? Your profile : "..doGetProfile.."\r\n"
if sUserDescription ~= "" then
disp = disp.."?? Your description is : "..sUserDescription.."\r\n"
end
disp = disp.."?? Your connection is : "..user.sConnection.."\r\n"
if sUserEmail then
disp = disp.."?? Your email is : "..sUserEmail.."\r\n"
end
disp = disp.."?? Your client is : "..user.sClient.."\r\n"
if user.sClientVersion ~= nil then
disp = disp.."?? Your client version is : "..user.sClientVersion.."\r\n"
end
disp = disp.."?? Your total hubs are : "..user.iHubs.."\r\n"
disp = disp.."?? Your open slots are : "..user.iSlots.."\r\n??\r\n"
if tWelcomeInfo.MinShare ~= "" then
disp = disp.."?? Min Share for users : "..tWelcomeInfo.MinShare.."\r\n"
end
disp = disp.."?? Total Share in this hub : "..hubshare.."\r\n"
disp = disp.. "??\r\n"
disp = disp.."?? There are: "..ProfileCounter("master").." Master(s),"..ProfileCounter("Operator").." Operator(s),"..ProfileCounter("Vip").." Vip(s),"..ProfileCounter("reg")..", Registered user(s).\r\n??\r\n"
disp = disp.."?? There are now: "..frmHub:GetUsersCount().." of the "..frmHub:GetMaxUsers().." users online after "..weeks.." week(s) "..days.." day(s) "..hours.." hour(s) "..minutes.." minutes and "..seconds.." seconds\r\n??\r\n"
disp = disp..border1
user:SendData(tBots.tWelcome.Name, disp)
disp = nil
end
end
--// Profile Counter
function ProfileCounter(profile)
local table, count = GetUsersByProfile(profile), 0
for i, User in pairs(table) do
if GetItemByName(User) then
count = count + 1
end
end
return count
end
I use this script now and its working good but got 1 problem with it i cant see the regged moderators and it doesnt show the line --> ?? Moderators :
i had this problem in the normal script to but with masters
Can anybody help me
If you do have Moderators setup in the hubsoft you shuld be able to see them when the WelcomeInfo shows. You will only see the " ?? Moderators :" if you do have Moderators though.
I got moderators regged if you look at the first post of me the one from i started. there i see the mods that are online and they are still mod didnt change anything. So i cant see the moderators and i cant see ?? Moderators :
Got it with the first script (the first post in this topic) there i had the same problem with master. but now i see master not mod
Given it a go here and it works fine; showing all of Masters, Mods and Ops.
I am using PtokaX 3.4.0e1. What version are you running so I can get hold of that and give it a try?
im using 0.3.3.21 dbg
Gv3 was not meant to work with 3.3.21 which predates the new ban list that PPK introduced in 3.3.21g. It will propably work ok if you switch off all kick functionality (including Search Spy and Anti-Advertise).
Just tried the Welcome Info on 3.3.21 to see what heppens and it worked fine. What other scripts do you have running and what is the order they are in?
Robocop 10.01e
zRighclicker
Rincewinds Octavo 1.0.1
rightclicker (made by myself for octavo) (this script is not the problem had the problem before the script was made to)
commands.lua (made by myself to for just opening tekst files in a folder)
a script but cant say the name because its forbidden
timed mass message
timed main message
and thats all
changed the order many times but doesnt help
Quote
Gv3 was not meant to work with 3.3.21
Dont use Gv3 but only Octavo 1.0.1
Gonna try it tommorow i think on ptokax 0.3.4.0 for looking what it does there.
Tested it now on 0.3.4.0 dbg
and thats working good
Using the same scripts didnt changed a script
So can it be only used in 0.3.4.0????
and if so is this a good stable version???
3.4.0 is the last full version released. I used it for quite a while and my main hub still does. Of the full versions of PtokaX the Gv3 and its offspring (Ov1 and DCv1) should only be used with 3.4.0 as this is the one with the new ban log in. They can be used with any of the beta versions from 3.3.21g onwards but I would recommend 3.4.0 release.
oke thanx alot