Share Tool 1.0.dutch_En switch LUA 5.0/5.1
 

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

Share Tool 1.0.dutch_En switch LUA 5.0/5.1

Started by [NL]Daddy-Bear?, 13 January, 2007, 15:38:57

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

[NL]Daddy-Bear?

-------------------------------------------------------

Hello all and special Hello to the first author Mutor,

First a ferry nice script from Mutor the Share'Tool' 1.0c LUA 5.0/5.1.
I thougt by my self it wout be nice if it comes in more then one language.
:rolleyes:
So I get started with his script and made here and there some modification.

Now it?s possible to turn the script (also remote) in English and in this version to the Dutch language .

Mutor I hope you like It also this way.     :D  ??? 
I will shortly no it if I have a Thumps Up    ;)

May I ask if you read this people and you like it to translate the Dutch lines in for example French or ?..
And than post it please let?s have fun with our hobby.    =)

little help  >>> http://www.worldlingo.com/en/products_services/worldlingo_translator.html

--[[

	Share'Tool' 1.0c LUA 5.0/5.1
	
	By Mutor		05/15/06
	
	More nonsense...
	Graphs user share at login.
	See how you hub 'measures' up
	Feel free to change the graph
	charachters I won't mind :P

	+Changes from 1.0	11/01/06
		+Added total ,average and percent of hubshare stats [DoStats]
		~Changed ShareTab a bit.
		+Added parting share message [percent of hubshare lost]
		
		
	**********************************************************************************************	
=====================	Here I am again Lets see if I get Thumps Up :))	in Quote		=====================

=====================	Hello all and special Hello to the first author Mutor   !!!			=====================

=====================	You can find Daddy in one off his hubs ' good-evening-hub.no-ip.org:411  '	=====================
		
=====================	+Changes from [NL]Daddy-Bear?	on   13/01/07			=====================
=====================	Share Tool 1.0.dutch_En switch LUA 5.0/5.1				=====================
=====================	back = ShareToolProfiles							=====================
=====================	and translation in Dutch with switch to English version   >>  Nice	=====================

=====================	!don = Dutch / !doff =  English 							=====================

=====================	some otter little things								=====================
	**********************************************************************************************	

]]

HubOwner = "I-am-the-Owner"						-- put here name of Hub Owner
LanguageNL = 1									-- 1 = Language in Dutch / 0 = Language in English / 0 is eq Mutor version !!
												--  remote lanuage switch Op etc in main chat >>>>>>    !don = Dutch / !doff =  English 
-- [#] = {Check Share?(0,0=no/1,1=yes),
ShareToolProfiles  = {
	[-1] = {0,0},	--Unregistered User
	[0] = {0,0},	--Master
	[1] = {1,1},	--Operator
	[2] = {1,1},	--Vip
	[3] = {1,1},	--Registered User
	[4] = {1,1},	--Moderator
	[5] = {0,0},	--NetFounder
}

-- Set share levels and responses here Dutch
ShareTab = {
[1] = {500,"voorzicht usr je maakt iedereen jaloers met deze share!\r\n"},
[2] = {250,"Is dat je share in je Download map, of ben echt zo blij om hier bij "..HubOwner.." te zijn?\r\n"},
[3] = {125,"Wow usr, dit laat een heftige indruk achter mooie share.\r\n"},
[3] = {75,"Kijk hier!, een sportieve share van usr !\r\n"},
[4] = {35,"Niet slecht, maar je windt nog geen prijs met je share groote.\r\n"},
[5] = {20,"Voor de groote van je share hoef jij je niet te schamen usr\r\n"},
[6] = {10,"Hallo usr , komt dat ook nog in adult grote? Dacht het wel vooral gewoon doorgaan.\r\n"},
[7] = {5,"Awwwww users, is dit niet ontzettend leuk? Dat share'tje van usr\r\n"},
}

-- Set share levels and responses here English
ShareTabEn = {
[1] = {500,"Careful usr you'll poke your eye out with that thing!\r\n"},
[2] = {250,"Is that your share in your pocket or are you just happy to be here usr?\r\n"},
[3] = {125,"Wow usr, thats impressive.\r\n"},
[3] = {75,"Hey Now!, usr's sporting some wood!\r\n"},
[4] = {35,"Not bad, but you won't win any prizes with that.\r\n"},
[5] = {20,"Average huh. It's nothing to be ashamed of usr    ...*snicker*\r\n"},
[6] = {10,"Hey usr , does that come in adult size?\r\n"},
[7] = {5,"Awwwww usr, isn't that cute?\r\n"},
}

Main = function()
	local hs,hu = DoStats()
	if hs > 0 and hu then
		local hm = string.format("%.2f Gb ",hs/hu)
	if LanguageNL == 1 then
		local stats = "\r\n\tOriginele versie geschreven door Mutor ere wie de eer toe komt !\r\n\tEr zijn "..hu.." user(s) online de totale share van hen is "..string.format(" %.2f Gb  ",hs)..
		" dit is een gemiddelde van "..hm.." per user.\r\n"
		SendToAll("daddy zegt",stats)
	else
		local stats = "\r\n\tThe first written by Mutor !!! credits to him ;)\r\n\tDaddy's Share Tool 1.0.dutch_En switch has started. There are "..hu.." users are sharing "..
		string.format(" %.2f Gb ",hs).."of data. Mean share per user: "..hm
		SendToAll("daddy says",stats)
		end
	end
end

function ChatArrival(user, data)
  if user.bOperator then
    local data=string.sub(data,1,string.len(data)-1)
    local _,_,cmd = string.find(data,"%b<>%s+(%S+)")
    if cmd=="!don" then
	LanguageNL = 1
--	SendPmToOps(bot,"\r\n\tDaddy's Share Tool 1.0.dutch_En switch staat nu op de Nederlandse taal ingesteld.")	
	SendToAll("daddy zegt","\r\n\tOriginele versie geschreven door Mutor ere wie de eer toe komt !\r\n\tDaddy's Share Tool 1.0.dutch_En switch staat nu op de Nederlandse taal ingesteld.")
			return 1
    elseif cmd=="!doff" then
	LanguageNL = 0
      SendToAll("daddy says","\r\n\tThe first written by Mutor !!! credits to him ;)\r\n\tDaddy's Share Tool 1.0.dutch_En switch is stands now on the English language.")
			return 1
			end
		end
	end
	
NewUserConnected = function(user)
	if ShareToolProfiles[user.iProfile] and ShareToolProfiles[user.iProfile][1] == 1 then
	local hs,hu,us = DoStats(user)
	if hs > 0 and hu and us > 0 then
		local hm = string.format("%.2f Gb ",hs/hu)
		local pct = string.format("%.2f %% ",(us/hs) * 100)
	if LanguageNL == 1 then
		local stats = "\r\n\tWelkom "..user.sName.." er zijn "..hu.." user(s) online de totale share van hen is "..string.format(" %.2f Gb  ",hs)..
		" dit is een gemiddelde van "..hm.." per user."
		local prof = GetProfileName(user.iProfile) -- or "Unregistered User"
		local reply = "\r\n\t"..
		prof.."  "..user.sName.." voegt "..pct.." aan de totale hubshare toe, Zijn/Haar share is "
		local sharesize = ((tonumber(user.iShareSize)) / (1024^3)) or 0
		local output = ""..string.format(" %.2f Gb  ", sharesize)..
		"\r\n\t\t Je Hoort bij de kleintjes "..user.sName.." zeggen ze hier ;)\r\n"
		for a,b in ipairs(ShareTab) do
			if sharesize > b[1] then
				local goof = string.gsub(b[2],"usr",user.sName)
				output = " "..string.format(" %.2f Gb ", sharesize)..
				"groot.\r\n\r\n\t "..goof.."\r\n"
				break
			end
		end
		SendToAll("daddy zegt",reply..output)
		user:SendData("daddy zegt",stats)
		user:SendData("daddy zegt",reply..output)
		else
		local stats = "\r\n\tWelcome "..user.sName.." there are "..hu.." user(s) are sharing "..string.format(" %.2f Gb ",hs)..
		" of data. Thats an average of "..hm.." per user."
		local prof = GetProfileName(user.iProfile) -- or "Unregistered User"
		local reply = "\r\n\tBoasting "..pct.." of the total hubshare, lets see how the "..
		prof.." "..user.sName.."'s share measures up... \r\n"
		local sharesize = ((tonumber(user.iShareSize)) / (1024^3)) or 0
		local output = "\r\n"..string.format(" %.2f Gb  ", sharesize)..
		"\r\n\r\n\t\t Hey Shorty...\r\n\r\n"
		for a,b in ipairs(ShareTabEn) do
			if sharesize > b[1] then
				local goof = string.gsub(b[2],"usr",user.sName)
				output = "\r\n"..string.format(" %.2f Gb ", sharesize)..
				"\r\n\r\n\t "..goof.."\r\n"
				break
			end
		end
		SendToAll("daddy says",reply..output)
		user:SendData("daddy says",stats)
		user:SendData("daddy says",reply..output)
				end
			end
		end
	end
OpConnected = NewUserConnected

UserDisconnected = function(user)
	if ShareToolProfiles[user.iProfile] and ShareToolProfiles[user.iProfile][1] == 1 then
	local hs = frmHub:GetCurrentShareAmount() / (1024^3) or 0
	local us = user.iShareSize / (1024^3) or 0
	if LanguageNL == 1 then
	local msg = "\r\n\t Bye bye "..user.sName..", er is geen verlies in hubshare als je gaat.\r\n"
	if us > 0 then
		local pct = string.format("%.2f %% ",(us/hs) * 100)
		msg = "\r\n\t Bye bye "..user.sName..", uh oh, daar gaat "..pct.." van de hub's share.\r\n"
	end
	SendToAll("daddy zegt",msg)
--		end
	else
	local msg = "See ya "..user.sName..", there is no loss to  hubshare when you leave."
	if us > 0 then
		local pct = string.format("%.2f %% ",(us/hs) * 100)
		msg = "Goodbye "..user.sName..", uh oh, there goes "..pct.." of the hub's share."
	end
	SendToAll("daddy says",msg)
		end
	end
end

OpDisconnected = UserDisconnected

DoStats = function(user)
	local hs,hu = frmHub:GetCurrentShareAmount() / (1024^3),table.getn(frmHub:GetOnlineUsers())
	if user then
		local us = user.iShareSize / (1024^3) or 0
		hs,hu = us+hs, hu+1
		return hs,hu,us
	end
	return hs,hu
end



Respectfully,

[NL]Daddy-Bear?  

Note:
You can find Daddy in one off his hubs ' good-evening-hub.no-ip.org:411  '
I like my Users so veel free to ???   join.
-------------------------------------------------------
???????????? Lets enjoy our Hobby ??????????

dchub://daddys-friends-association.no-ip.org:4106

take a peek you are welcome :D

SMF spam blocked by CleanTalk