:Scripting:Utilities:Central:

[Herodes]

Thats why I posted it typ ;D
I am glad u like the function ...

[tezlo]

dug this one up..

local tmp = clock()
local days, hours, minutes = floor(tmp/86400), floor(mod(tmp/3600, 24)), floor(mod(tmp/60, 60))

considering your code..
instead of multiplying time by 1000, you could just take away the three zeros from the values in tO
and instead of substracting them n times in a loop, you could just use modulo/division once

[Typhoon]

Originally posted by Herodes
Thats why I posted it typ ;D
I am glad u like the function ...

Well , you missed my point , in your version on cmd  !uptime you try to call a function that dont exist , thats why i below your post , made the correction...

You call

function DataArrival(user, data)
	data = strsub(data,1,strlen(data)-1)
	local s,e,cmd = strfind( data, "%b<>%s+(%S*)" )
	if cmd == "!uptime" then
		SendToAll("UpTime", "The "..frmHub:GetHubName().." Hub has been running for"..DoTime(clock()) )
	end
end

But it should be

function DataArrival(user, data)
	data = strsub(data,1,strlen(data)-1)
	local s,e,cmd = strfind( data, "%b<>%s+(%S*)" )
	if cmd == "!uptime" then
		SendToAll("UpTime", "The "..frmHub:GetHubName().." Hub has been running for"..DoTimeUnits(clock()) )
	end
end

hope you get it now ;)

keep up the good work inhere

*** Typhoon?

[Herodes]

Originally posted by tezlo
dug this one up..

local tmp = clock()
local days, hours, minutes = floor(tmp/86400), floor(mod(tmp/3600, 24)), floor(mod(tmp/60, 60))

considering your code..
instead of multiplying time by 1000, you could just take away the three zeros from the values in tO
and instead of substracting them n times in a loop, you could just use modulo/division once

hmmm ... but it doesnt modify the ' time ' variable so that the next indexes of tO work on the leftovers from the current index operation ... hope its clear ... I would appreciate the a mod to show me how ...
I had been trying to make it work like that but the maths procedure came hard on me at the time ... ( late in night... ) I'll have another look unless a reply comes faster ...

about the time = time*1000 this is so that I can operate for the seconds in the same way as in days,hours,minutes ... I expected myself to come up with something more ingenious, but ... to no avail.


[*note*] Thx typ ... ;) post edited ...

[Psycho_Chihuahua]

anyone got a snipplet or standalone Code to insert into a bot that checks for Users that are in Open Hubs and kicks them with a message referring to which rule he broke? (in my example rule Nr. 6).
The Reason is that i'm running a Reg Hub and i don't want my Users running round in Open Hubs seeming though the Authoritys are getting pretty harsh here in Europe

[NightLitch]

this should work:

-- By NightLitch

DisconnectMessage = "Enter Message Here"

function DataArrival( sUser , sData )
	if strsub( sData , 1 , 7 ) == "$MyINFO" then
		local _,_,openhubs = strfind( sData , "H:(%d+)" )
		if ( openhubs ~= 0 ) then
			SendToNick( sUser.sName , DisconnectMessage )
			sUser:Disconnect()
		end
	end
end

/NL

[NotRabidWombat]

Nightlitch,

H:0 in the description will bypass your script.

I think this will do the trick:
local _,_,openhubs = strfind( sData , ".+H:(%d+)" );

-NotRabidWombat

[tezlo]

that.. and you're comparing a string with a number, which will never equal, so everyone gets disconnected
should be: if openhubs ~= "0" then ..

herodes..
this one does :)

function strftime(form, time)
  local d, h, m
  d, time = floor(time/86400), mod(time, 86400)
  h, time = floor(time/3600), mod(time, 3600)
  m, time = floor(time/60), mod(time, 60)
  return format(form, d, h, m, time)
end

print("uptime: "..strftime("%ddays %dhours %dminutes %dseconds", 90061))

[Herodes]

function strftime(form, time)
  local d, h, m
  d, time = floor(time/86400), mod(time, 86400)
  h, time = floor(time/3600), mod(time, 3600)
  m, time = floor(time/60), mod(time, 60)
  return format(form, d, h, m, time)
end

print("uptime: "..strftime("%ddays %dhours %dminutes %dseconds", 90061))

nasty math lib use ;)

ty tezlo ... I will post an update of the DoTimeUnits later ... I need to find more about that mod(num) lua function as I dont know what it does ... floor(num/num) was hard to figure out ... but I need to know these I suppose....

PS: btw this snippet still comes up with the 0 days 0 hours 15 minutes and so on string ... the DoTimeFunction intends to eliminate reduntant 0 units from the string ... again thx for the input ... :)

[Psycho_Chihuahua]

Originally posted by NightLitch
this should work:

-- By NightLitch

DisconnectMessage = "Enter Message Here"

function DataArrival( sUser , sData )
	if strsub( sData , 1 , 7 ) == "$MyINFO" then
		local _,_,openhubs = strfind( sData , "H:(%d+)" )
		if ( openhubs ~= "0" ) then
			SendToNick( sUser.sName , DisconnectMessage )
			sUser:Disconnect()
		end
	end
end

NL

Works great with the 2 missing " 's :)
Just 1 more thing: Can you please add a timer to set that it checks all RegUsers every x minutes just in case they connect to Open Hubs fter they have connected to mine?

[NightLitch]

this one should be green then:

-- By NightLitch

DisconnectMessage = "Enter Message Here"

function DataArrival( sUser , sData )
	if strsub( sData , 1 , 7 ) == "$MyINFO" then
		local _,_,openhubs = strfind( sData , ",H:(%d+)" )
		if ( tonumber(openhubs) ~= 0 ) then
			SendToNick( sUser.sName , DisconnectMessage )
			sUser:Disconnect()
		end
	end
end

Just 1 more thing: Can you please add a timer to set that it checks all RegUsers every x minutes just in case they connect to Open Hubs fter they have connected to mine?

there's no need to add a timer, the MyINFO string updates in every hub when u connect to another...

DataArrival take's care of it...

Cheers / NightLitch

[Psycho_Chihuahua]

Originally posted by NightLitch
...there's no need to add a timer, the MyINFO string updates in every hub when u connect to another...

DataArrival take's care of it...

Cheers, NightLitch

Oh, ok thnx for the Info and also for the script. Would be interesting to se something like this in Thor in a future release perhaps.

[Herodes]

this here is used for extracting the tag from the $MyINFO $ALL nickname description$[...]
you insert the whole descriptiontag string ...

function SplitTagDescr(str)
	local tag, descr, tTab = "", "", {}
--- get those letters in the tTab
	for i= 1, strlen(str) do 
		tTab[i] = strsub(str, i,i) 
	end
--- move backwards until we find a "<"
	local i = getn(tTab)
	repeat 
		tag = tTab[i]..tag
		i = i - 1
	until tTab[i] == "<"
--- add the missing "<"
	tag = "<"..tag
--- construct the description
	for l = 1, i-1 do 
		descr = descr..tTab[l] 
	end
	return descr, tag
end

[Markitos]

Hello!
Maybe continuing posting code snippets in lua 5/ 5.1 wouldn't be a bad idea...??
WE all wanna learn and i found this thread very usefull for that kind of thing.


Regards