Descritpion script with country representation
 

News:

29 December 2022 - PtokaX 0.5.3.0 (20th anniversary edition) released...
11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

Descritpion script with country representation

Started by baba.runner, 29 December, 2006, 20:45:22

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

baba.runner

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 :-*

Snooze

#1
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

SMF spam blocked by CleanTalk