Share/slots/hubs Bot
 

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/slots/hubs Bot

Started by Genius, 01 April, 2007, 22:40:15

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Genius

Hi ppl

Its possible change this script for Redirect user if dont have minims share/slots/hub?

Script Cod

sBot= "[!???]??vdRip?"

kb = 1024
mb = 1024 ^ 2
gb = 1024 ^ 3

	--=[ Configura??o ]=-

MinShare = 10240*mb -- in MBs
MinSlots = 3
MaxSlots = 5
--[ MaxHubs = 10 ]--

	--=[ User inumes ao Bot ]=-

tImmune = {  ["[TvT]VeroN"] = 1, ["[CV]dream[er]"] = 1, ["[NT]mmmm@work"] = 1, ["[VIP]HELDER-TUGA"] = 1, ["[NT]saburu"] = 1, ["[VDF]NKS"] = 1, ["[NT]SpyFakes"] = 1, ["[SP]reg"] = 1, ["[SP]C???????-x"] = 1, ["[SP]Guitas"] = 1, ["[NT]monika"] = 1, ["[NT]maryjoint"] = 1, ["[SP]Cypress"] = 1, ["[NV]Bills"] = 1,  ["[SP]Red"] = 1, ["[SP]estrela_cadente"] = 1, ["[NT]SempreFiel"] = 1, ["[NT]Chucky"] = 1, ["[NT]Nitinha"] = 1, ["[NT]soniamartins"] = 1, ["[SP]user"] = 1, ["[SP]??ee?"] = 1, ["[SP]KillerIsDead"] = 1, ["[SP]Cyber_Cube?"] = 1, ["[SP]-?DiOsPiRo?-"] = 1, ["[SP]????????r??"] = 1, ["[SP]Nizi_Moon"] = 1, ["[NT]Algaman"] = 1, ["[SP]Nezinha"] = 1, ["[SP]__MARS__"] = 1,} --##  -Operators Immune List (["nick"] = 1) ##-- 

	--=[ C?digo ]=-

DoShareUnits = function(intSize) 
	if intSize ~= 0 then
		local tUnits = { "Bytes", "KB", "MB", "GB", "TB" }
		intSize = tonumber(intSize);
		local sUnits;
		for index = 1, table.getn(tUnits) do
			if(intSize < 1024) then sUnits = tUnits[index]; break; else intSize = intSize / 1024; end
		end
		return string.format("%0.1f %s",intSize, sUnits);
	else
		return "nothing"
	end
end

ConnectToMeArrival = function(curUser,data)
	if not curUser.bOperator then
		if not tImmune[curUser.sName] then
			if curUser.iShareSize < MinShare then
				return curUser:SendPM(sBot, "	- = [ Boas, tens pouca partilha. O minimo ? de [ "..DoShareUnits(MinShare).." ]. Abra o seu espirito de partilha, e d? mais algum contributo. At? l? ficar? impossibilitado de efectuar downloads. ] = -"),1
			elseif curUser.iSlots < MinSlots then
				return curUser:SendPM(sBot, "	- = [ Boas, tens poucas slots abertas. O minimo ? de "..MinSlots.." slots. Abra 3 a 5 slots para puder efectuar downloads no Hub. ] = -"),1
			elseif curUser.iSlots > MaxSlots then
				return curUser:SendPM(sBot, "	- = [ Boas, tens muitas slots abertas. O m?ximo ? de "..MaxSlots.." slots. Abra 3 a 5 slots para puder efectuar downloads no Hub. ] = -"),1
			--[ elseif (curUser.iNormalHubs + curUser.iRegHubs) > MaxHubs then ]--
				--[ return curUser:SendPM(sBot, "	- = [ Boas, t?s ligado a demasiados Hubs. O limite maximo ? de "..MaxHubs..". PF desligue-se de alguns Hubs. Vai ser redirectado ... ] = -"),1 ]--
			end
		end
	end
end

RevConnectToMeArrival = ConnectToMeArrival

Cêñoßy†ê

#1
here you go  ;D

sBot= "[!???]??vdRip?"

kb = 1024
mb = 1024 ^ 2
gb = 1024 ^ 3

	--=[ Configura??o ]=-

MinShare = 10240*mb -- in MBs
MinSlots = 3
MaxSlots = 5
check = {		-- should script check profile (1/yes  0/no)
	[-1] = 1,	-- unregistered
	[0] = 1,	-- master
	[1] = 1,	-- operator
	[2] = 1,	-- vip
	[3] = 1,	-- reg
	[4] = 1,	-- moderator
	[5] = 1,	-- netfounder
	[6] = 1,	-- owner
}

	--=[ User inumes ao Bot ]=-

tImmune = {  ["[TvT]VeroN"] = 1, ["[CV]dream[er]"] = 1, ["[NT]mmmm@work"] = 1, ["[VIP]HELDER-TUGA"] = 1, ["[NT]saburu"] = 1, ["[VDF]NKS"] = 1, ["[NT]SpyFakes"] = 1, ["[SP]reg"] = 1, ["[SP]C???????-x"] = 1, ["[SP]Guitas"] = 1, ["[NT]monika"] = 1, ["[NT]maryjoint"] = 1, ["[SP]Cypress"] = 1, ["[NV]Bills"] = 1,  ["[SP]Red"] = 1, ["[SP]estrela_cadente"] = 1, ["[NT]SempreFiel"] = 1, ["[NT]Chucky"] = 1, ["[NT]Nitinha"] = 1, ["[NT]soniamartins"] = 1, ["[SP]user"] = 1, ["[SP]??ee?"] = 1, ["[SP]KillerIsDead"] = 1, ["[SP]Cyber_Cube?"] = 1, ["[SP]-?DiOsPiRo?-"] = 1, ["[SP]????????r??"] = 1, ["[SP]Nizi_Moon"] = 1, ["[NT]Algaman"] = 1, ["[SP]Nezinha"] = 1, ["[SP]__MARS__"] = 1,} --##  -Operators Immune List (["nick"] = 1) ##-- 

	--=[ C?digo ]=-

DoShareUnits = function(intSize) 
	if intSize ~= 0 then
		local tUnits = { "Bytes", "KB", "MB", "GB", "TB" }
		intSize = tonumber(intSize);
		local sUnits;
		for index = 1, table.getn(tUnits) do
			if(intSize < 1024) then sUnits = tUnits[index]; break; else intSize = intSize / 1024; end
		end
		return string.format("%0.1f %s",intSize, sUnits);
	else
		return "nothing"
	end
end

MyINFOArrival = function(curUser,data)
	if check[curUser.iProfile] == 1 and not tImmune[curUser.sName] then
		if MinShare > 0 and curUser.iShareSize < MinShare then
			curUser:Redirect(frmHub:GetRedirectAddress(),"	- = [ Boas, tens pouca partilha. O minimo ? de [ "..DoShareUnits(MinShare).." ]. Abra o seu espirito de partilha, e d? mais algum contributo. At? l? ficar? impossibilitado de efectuar downloads. ] = -")
		end
		if MinSlots > 0 and curUser.iSlots < MinSlots then
			curUser:Redirect(frmHub:GetRedirectAddress(),"	- = [ Boas, tens poucas slots abertas. O minimo ? de "..MinSlots.." slots. Abra 3 a 5 slots para puder efectuar downloads no Hub. ] = -")
		end
		if MaxSlots > 0 and curUser.iSlots > MaxSlots then
			curUser:Redirect(frmHub:GetRedirectAddress(),"	- = [ Boas, tens muitas slots abertas. O m?ximo ? de "..MaxSlots.." slots. Abra 3 a 5 slots para puder efectuar downloads no Hub. ] = -")
		end
	end
end
Powered By Leviathan™ 2nd Generation v. 1.9

Genius

Hi

Sory but script dont work- I think its my problem. Its possible send script for my in normal Cod?

Sory about this

Cêñoßy†ê

Quote from: ?[-?Genius?-]? on 01 April, 2007, 23:17:32
Hi

Sory but script dont work- I think its my problem. Its possible send script for my in normal Cod?

Sory about this
meaned that i should post it this way ??
did small changes to it allso
Powered By Leviathan™ 2nd Generation v. 1.9

Genius

Hi Again

Sory Im noob in scripts :S

The script send this error

[22:48] Syntax ...+ [Extras]\Hub DvdRip Mar?o 2007\DvdRip\scripts\[DvdRip HUB] [Share].lua:51: '<eof>' expected near 'end'

Cêñoßy†ê

sorry.. my mistake.. .bug fixed  ;D
Powered By Leviathan™ 2nd Generation v. 1.9

Genius

Hi

The script dont Work. E join in the hub whit 1 slot open and bot dont block my downs :S

Cêñoßy†ê

Quote from: ?[-?Genius?-]? on 04 April, 2007, 00:25:46
Hi

The script dont Work. E join in the hub whit 1 slot open and bot dont block my downs :S


post above updated with option to choose what profiles it checks and detection is now from myinfoarrival
Powered By Leviathan™ 2nd Generation v. 1.9

Genius

Tankx C??o?y??

Script work 5 stars :)

ExtreeM

is it possible to edit the script so that i can set each profile ( reg,user,vip,owner etc) to have max slots/hubs for each??

SMF spam blocked by CleanTalk