Print Page - tag on

Title: tag on
Post by: Death on 20 August, 2005, 18:17:25

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

--===Sets the tag to be shown in reg's descriptions=================

regTagInDescription = "[Reg]"    --\\ Tag

--==================================================================
--===Sets the tag to be shown in Vip's descriptions=================

VipTagInDescription = "[Vip]"    --\\ Tag

--==================================================================
--===Sets the tag to be shown in op's descriptions==================

OpsTagInDescription = "[Operator]"    --\\ Tag

--==================================================================
--===Sets the tag to be shown in masters's descriptions=============

MastersTagInDescription = "[Admin]"    --\\ Tag

--==================================================================
--===Sets the tag to be shown in Net Founder descriptions===========

netTagInDescription = "[Founder]"    --\\ Tag

--==================================================================
--===Sets the tag to be shown in Moderator's descriptions=============

modTagInDescription = "[Moderator]"    --\\ Tag

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

Mins = 1

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

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

function OnTimer()
   TagInDescription()
end

function TagInDescription()
   local aux,usr
   for aux, usr in 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
   for aux, usr in 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.." "..OpsTagInDescription.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
         end
      end
   end
   for aux, usr in 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.." "..MastersTagInDescription.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
         end
      end
   end
   for aux, usr in 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
   for aux, usr in GetUsersByProfile("Moderator") 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.." "..modTagInDescription.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
         end
      end
   end
   for aux, usr in GetUsersByProfile("NetFounder") 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.." "..netTagInDescription.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
         end
      end
   end
end

Title:
Post by: ??????Hawk?????? on 20 August, 2005, 18:39:56

yup we seen this one before ..

Would be nice if you could Keep the Credits Intact when posting

Code Select



--====COPY FROM THIS LINE=====


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

--===Sets the tag to be shown in reg's descriptions=================


etc..  etc..  etc...

??????Hawk??????

Title: sowwy
Post by: Death on 20 August, 2005, 18:47:12

sorry bout that ...my copy had no credits :o\
ill ad that part to my copy now :o)

QuoteOriginally posted by ??????Hawk??????
yup we seen this one before ..

Would be nice if you could Keep the Credits Intact when posting

Code Select Expand
--====COPY FROM THIS LINE===== --Description Tag by ??????Hawk?????? 05-07-2004 --===Sets the tag to be shown in reg's descriptions================= etc.. etc.. etc...

??????Hawk??????

Title:
Post by: ??????Hawk?????? on 20 August, 2005, 18:53:27

np's m8 .. it happens..

btw if you search the board you should find an optimised version edited by .. ( i forget now ) but Less repetative code..

??????Hawk??????

PtokaX forum

Archive => Archived 5.0 boards => Finished Scripts => Topic started by: Death on 20 August, 2005, 18:17:25