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

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

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

Started by Tarot, 27 February, 2005, 21:05:06

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1 2
User actions

Tarot

27 February, 2005, 21:05:06
is it posible to convert to lua 5 fore me i like this script

--====COPY FROM THIS LINE===== ??????Gotham??????


--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 = "??????Op??????"         --\\ Tag

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

MastersTagInDescription = "??????Master??????"      --\\ Tag

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

MastersTagInDescription = "??????Owner??????"      --\\ Tag

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

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 = strfind(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 = strfind(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 = strfind(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 = strfind(userToShow.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
            SendToAll( "$MyINFO $ALL "..name.." "..regTagInDescription.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
         end
      end
   end
end
Gothic Metal City
       

photoshop and 3D


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

#1
27 February, 2005, 21:49:39 Last Edit: 27 February, 2005, 21:51:41 by ??????Hawk?????? 
--Description Tag by ??????Hawk?????? 27-02-2005 LUA 5 

--===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 = "??????Op??????" --\\ Tag 

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

MastersTagInDescription = "??????Master??????" --\\ Tag 

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

MastersTagInDescription = "??????Owner??????" --\\ Tag 

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

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 
end



BTW   above Script is a Feature In  Xsthetic Netserver  :P  :P


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

Tarot

#2
27 February, 2005, 22:00:16
great work Hawk and a fast service

i like the script it is great
Gothic Metal City
       

photoshop and 3D


LILLITH

#3
09 March, 2005, 12:34:47
Is it possible to add NetFounder and Moderator profiles in this GREAT script?

Thanx in advance! :)

6Marilyn6Manson6

#4
09 March, 2005, 12:53:38
QuoteOriginally posted by LILLITH
Is it possible to add NetFounder and Moderator profiles in this GREAT script?

Thanx in advance! :)

Yeppa:

--Description Tag by ??????Hawk?????? 05-07-2004
--Add Description For Moderator And NetFounder by 6Marilyn6Manson6
--===Sets the tag to be shown in Vip's descriptions=================

VipTagInDescription = "{ViP}"   	--\\ Tag

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

OpsTagInDescription = "{OP}"   		--\\ Tag

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

MastersTagInDescription = "{MaSTeR}"   	--\\ Tag

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

ModeratorTagInDescription = "{MoDeRaToR}"   	--\\ Tag

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

NetFounderTagInDescription = "{NetFounder}"   	--\\ Tag

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

regTagInDescription = "{ReG}"   	--\\ Tag

--==================================================================
--===Sets the time for the tags to be upos.dated====================

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("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.." "..ModeratorTagInDescription.." "..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.." "..NetFounderTagInDescription.." "..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
end

bye bye

LILLITH

#5
09 March, 2005, 13:01:40
What would i do without you? :D

6Marilyn6Manson6

#6
09 March, 2005, 13:16:51
No prob ;)

night_hawk

#7
18 April, 2005, 04:37:24
i just used the new lua5 verion you had when i added it to my hub it will not show me as netfounder...moderater, operater, master vip or reg...what am i doing wrong..what the tags to show up in discriptsions i am useing robocop10 and new ptokax 16.09...i really need this set up for me

bastya_elvtars

#8
18 April, 2005, 04:49:19
Hmmm, this script is one of those which need rewriting IMHO... I have no time, but gonna give hints to others:

  • Tag should be changed on MyINFOArrival
  • Would be much, much easier to make an assoc. table like [6]="{Founder}" or whatever
  • Use frmHub:getOnlineUsers() loop instead of executing loops for every profiles, thus script will be almost profiles.dat-independent, just needs more config in the beginning. :)
Everything could have been anything else and it would have just as much meaning.

night_hawk

#9
18 April, 2005, 05:06:05
i hope this will not take long i really can not wait to stop using test drive 4 and start the new one up just i really need so much done at this time..

osse

#10
22 October, 2005, 10:43:51
Very good script......

UnReg Tag can you add to the script???


Thnx...

Markitos

#11
22 October, 2005, 11:00:51
QuoteOriginally posted by osse
Very good script......

UnReg Tag can you add to the script???


Thnx...
You can do it manually...take a good look in the script.

Cheers...

Optimus

#12
22 October, 2005, 11:35:03 
----------------------------------------------------------------------------
-- Description Tag by ??????Hawk?????? 05-07-2004
-- Add Description For Moderator And NetFounder by 6Marilyn6Manson6
-- Totaly rewriten by Optimus 22-10-2005
-- Only works for registerd profiles, otherwise it takes to much bandwidth
----------------------------------------------------------------------------

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

-- Set Profile Tags
tProfileTag = {
	[1] = "{OP}",
	[2] = "{ViP}",
	[3] = "{ReG}",
	[4] = "{MoDeRaToR}",
	[5] = "{NetFounder}",
	[0] = "{MaSTeR}",
}

Main = function() 
	SetTimer(60000 * Minutes)
	StartTimer() 
end 

OnTimer = function()
	for id,usr in pairs(frmHub:GetOnlineRegUsers()) do
		if usr.sMyInfoString then
			local s,e,name,desc,speed,email,share = string.find(usr.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
			SendToAll("$MyINFO $ALL "..name.." "..tProfileTag[usr.iProfile].." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
		end
	end
end
summ like this ;)

bastya_elvtars

#13
22 October, 2005, 15:28:01
Then what's the use of MyINFO stripping? I hope you see how stupid this script is.
Everything could have been anything else and it would have just as much meaning.

6Marilyn6Manson6

#14
22 October, 2005, 15:37:08
I love this script but version of ??????Hawk?????? or 6Marilyn6Manson6 :p. C ya

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

#15
22 October, 2005, 16:40:09 Last Edit: 22 October, 2005, 16:40:42 by ??????Hawk??????
QuoteOriginally posted by bastya_elvtars
Then what's the use of MyINFO stripping? I hope you see how stupid this script is.

if theres a better way of adding a tag on to a users description then please feel free to post it ...

scripts are not always " Ideal "  BUT its what ppl want..


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

Optimus

#16
22 October, 2005, 16:51:59
QuoteThen what's the use of MyINFO stripping? I hope you see how stupid this script is.
bastya_elvtars has allways something to complaine about. It's not really positive feedback

- Optimus

bastya_elvtars

#17
22 October, 2005, 16:54:13
I don't complain, but you are spitting the greatest feature of PtokaX in the eye, and not use but abuse LUA.
Everything could have been anything else and it would have just as much meaning.

Optimus

#18
22 October, 2005, 16:55:57
thats your opinion. the old script looked liked shit so it was time for a rewrite. Nothing more nothing less

;)

bastya_elvtars

#19
22 October, 2005, 17:59:49
QuoteOriginally posted by Optimus
thats your opinion. the old script looked liked shit so it was time for a rewrite. Nothing more nothing less

;)

OK, then here is some warning:

If you use this script, PtokaX will use more CPU and 2.5-3 times more bandwidth.

I miss this from the script's initial comments.

No offence meant, these are facts.
Everything could have been anything else and it would have just as much meaning.

Optimus

#20
22 October, 2005, 18:18:37
QuoteIf you use this script, PtokaX will use more CPU and 2.5-3 times more bandwidth.
That problem was allready there with the old version. i thought you allready knew

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

#21
22 October, 2005, 19:18:12 Last Edit: 22 October, 2005, 19:18:37 by ??????Hawk??????
QuoteOriginally posted by bastya_elvtars
QuoteOriginally posted by Optimus
thats your opinion. the old script looked liked shit so it was time for a rewrite. Nothing more nothing less

;)

OK, then here is some warning:

If you use this script, PtokaX will use more CPU and 2.5-3 times more bandwidth.

I miss this from the script's initial comments.

No offence meant, these are facts.


CPU usage (60 sec avg): 0.17%   Runnin Terminator with this option enabled......   OUCH didnt realise my CPU was soooo  High   :P


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

bastya_elvtars

#22
22 October, 2005, 19:32:28
Hehe, what are your computer specs? How many users? What is your Internetg connection like?
The number 0.17% is not evaluable in itself without this information (only serves masturbation purposes), sorry to disappoint you, I thought it does not have to be told to a developer.
Anyway it can be considered a good progress to see non-compiled code from both of you.
Everything could have been anything else and it would have just as much meaning.

Optimus

#23
22 October, 2005, 19:48:36
Quoteonly serves masturbation purposes
why such stupid comments. Are you some kind of wanker??

1.) i don't use this code myself in robocop just helping others. I'm hating the script asswell in mater of speaking of bandwidth/resources but hey if others like it go ahead

2.) you gave the hints so your guilty asswell

3.) I checked your script and it's full of loops at to many places i tested it in test hub. and it takes why to much memory and bandwidth. So you can say your script really sucked. I can go on for many hours if you would like to

But hey your were probably bored and wanked your self to much today. so you started critisising others on this board for none positive purposes.

Did ya like my message, naaa i don't think so. Go clean up your act wise guy

Northwind

#24
22 October, 2005, 20:25:26
hey, stop fighting :-)

I personally respect ya all... and everyone has he's weaknes and strongness... i try to learn lua and best way to learn is see difrence kind of scripts and many many mods of them.

Print
Go Up Pages1 2
User actions
SMF spam blocked by CleanTalk