PtokaX forum

Dear All

I have a little request. I am using the follwing description-script:

--------------------------------------------------
--Description Tag by ??????Hawk?????? 05-07-2004 -
--------------------------------------------------



MasterTagInDescription = "[Admin] "

OperatorTagInDescription = "[Operator] "

VIPTagInDescription = "[VIP] "

RegTagInDescription = "[REG] "

OwnerTagDescription = "[OWNER]"

--==================================================================

Mins =  0.1 --===Sets the time for the tags to be updated

--==================================================================



timer = 60000 * Mins
function Main()
SetTimer(timer)
StartTimer()
end

function OnTimer()
TagInDescription()
end

function TagInDescription()
local aux,usr

---------------------------------------------------------------------------- Profil 1

for aux, usr in pairs(GetUsersByProfile("Master")) do
if (GetItemByName(usr) ~= nil) then
local userToShow = GetItemByName(usr)
if (userToShow.sMyInfoString ~= nil) then
local s,e,name,desc,speed,email,share = string.find(userToShow.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
SendToAll( "$MyINFO $ALL "..name.." "..MasterTagInDescription.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
end
end
end

---------------------------------------------------------------------------- Profil 2

for aux, usr in pairs(GetUsersByProfile("Operator")) do
if (GetItemByName(usr) ~= nil) then
local userToShow = GetItemByName(usr)
if (userToShow.sMyInfoString ~= nil) then
local s,e,name,desc,speed,email,share = string.find(userToShow.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
SendToAll( "$MyINFO $ALL "..name.." "..OperatorTagInDescription.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
end
end
end

---------------------------------------------------------------------------- Profil 3

for aux, usr in pairs(GetUsersByProfile("VIP")) do
if (GetItemByName(usr) ~= nil) then
local userToShow = GetItemByName(usr)
if (userToShow.sMyInfoString ~= nil) then
local s,e,name,desc,speed,email,share = string.find(userToShow.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
SendToAll( "$MyINFO $ALL "..name.." "..VIPTagInDescription.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
end
end
end

---------------------------------------------------------------------------- Profil 4

for aux, usr in pairs(GetUsersByProfile("Reg")) do
if (GetItemByName(usr) ~= nil) then
local userToShow = GetItemByName(usr)
if (userToShow.sMyInfoString ~= nil) then
local s,e,name,desc,speed,email,share = string.find(userToShow.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
SendToAll( "$MyINFO $ALL "..name.." "..RegTagInDescription.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
end
end
end

---------------------------------------------------------------------------- Profil 5

for aux, usr in pairs(GetUsersByProfile("Owner")) do
if (GetItemByName(usr) ~= nil) then
local userToShow = GetItemByName(usr)
if (userToShow.sMyInfoString ~= nil) then
local s,e,name,desc,speed,email,share = string.find(userToShow.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
SendToAll( "$MyINFO $ALL "..name.." "..OwnerTagDescription.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
end
end
end
end



And I want to expand the description so that the description reflects also the country of the user. I thought this information can be extracted of the GeoIPCountryWhois.csv as there the country abbreviation (2letter-code) is alreaydy mentioned. Do anybody of our great scripters think that this is feasible?
Thanks in advance for your great work. ;) ;D :-*

I havnt tested, though I fear that a feature like this would slow down the hubsoft to a stall.
Unless it's not done real-time - thus by timer, making the idea mute.

[Edit] Though, this would be an exelent feature for language file detection.. IF a language could be solved on connect in real-time on a fast way.[/edit]

-Snooze (http://www.dixbot.com)