The-Kill-Bill script :O
 

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

The-Kill-Bill script :O

Started by kepp, 03 March, 2004, 21:41:41

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1
User actions

kepp

03 March, 2004, 21:41:41
A stand Alone share/slot checker
Slotratio aswell

-- Stand Alone the-kill-bill script... lol? (Share/slot/ratio) check
-- Made by kepp 04 / 03 / 03
-- Version 0.1
-- Enjoy

kb = 1024
GB = kb*kb*kb

sBot = "The-Kill-bill" --?? WTF

sEnableMinShare = 1
sEnableMaxShare = 1
sEnableMinSlots = 1
sEnableMaxSlots = 1
sEnableSlotRatio = 1

sMinShareAmount = 5
sMaxShareAmount = 1024
sMinSlotsAmount = 5
sMaxSlotsAmount = 10
sRatioAmount = 2


function Main()
	frmHub:RegBot(sBot)
end

function DataArrival(user, data)
	if (strsub(data,1,7)=="$MyINFO") then
	local s,e,share = strfind(data,"%$%s*(%d+)%$")
	local s,e,a,b,c,S = strfind(data,"H:(%d+)/(%d+)/(%d+),S:(%d+)")
	share = tonumber(share)
	a = tonumber(a)
	b = tonumber(b)
	c = tonumber(c)
	S = tonumber(S)
		if (sEnableMinShare == 1) then
			if (share < sMinShareAmount * GB) then
				user:SendData(sBot,"You haven't met the minimum share required for this hub. ("..sMinShareAmount.." GB)")
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()
			end
		end
		if (sEnableMaxShare == 1) then
			if (share > sMaxShareAmount * GB) then
				user:SendData(sBot,"You are sharing too much, Max share here is set to "..sMaxShareAmount.." GB")
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()
			end
		end
		if (sEnableMinSlots == 1) then
		user:SendData(sBot,"Debug")
			if (S < sMinSlotsAmount) then
				user:SendData(sBot,"You haven't met the minimum slots required for this hub. ("..sMinSlotsAmount..")")
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()
			end
		end
		if (sEnableMaxSlots == 1) then
			if (S > sMaxSlotsAmount) then
				user:SendData(sBot,"You have too many slots opened, Max slots is "..sMaxSlotsAmount)
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()
			end
		end
		if (sEnableSlotRatio == 1) then
			d = a + b + c
			d = d * sRatioAmount
			if (S < d) then
				user:SendData(sBot,"We require "..sRatioAmount.." slots per hub, you must have "..d.." Slots opened to be able to enter.")
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()
			end
		end
	end
end
Guarding    

kepp

#1
03 March, 2004, 23:15:36 Last Edit: 06 March, 2004, 12:47:31 by kepp
*EDITED THE WRONG POST!!!*
Guarding    

kepp

#2
06 March, 2004, 12:43:55 Last Edit: 06 March, 2004, 12:47:50 by kepp
Update.... :)
-- Stand Alone the-kill-bill script... lol? (Share/slot/ratio/hubs) check
-- Made by kepp 04 / 03 / 03
-- Version 0.2
-- Added: the posibility to change wether the user shall be disconnected or Redirected
-- Added: Max hubs check
-- Fixed: Now you can set minshare / minslot / maxslot for each profile
-- Removed: The posibility to change wether the user shall get disconnected or moved
-- Enjoy

kb = 1024
GB = kb*kb*kb


sBot = "The-Kill-bill" --?? WTF

-- On / Off
sEnableMinShare = 1
sEnableMaxShare = 1
sEnableMinSlots = 1
sEnableMaxSlots = 1
sEnableSlotRatio = 1

-- Values
sMaxShareAmount = 1024
sRatioAmount = 2

-- Chnage this for your needs
tblProper = {
	["MinShare"] = {["MasterShare"]=0,["OpShare"]=0,["VipShare"]=5,["RegShare"]=8,["UserShare"]=10},
	["MinSlots"] = {["MasterMinSlot"]=0,["OpMinSlot"]=0,["VipMinSlot"]=1,["RegMinSlot"]=2,["UserMinSlot"]=2},
	["MaxSlots"] = {["MasterMaxSlot"]=50,["OpMaxSlot"]=40,["VipMaxSlot"]=20,["RegMaxSlot"]=15,["UserMaxSlot"]=12}
}


function Main()
	frmHub:RegBot(sBot)
end

function DataArrival(user, data)
	if (strsub(data,1,7)=="$MyINFO") then
	local s,e,share = strfind(data,"%$%s*(%d+)%$")
	local s,e,a,b,c,S = strfind(data,"H:(%d+)/(%d+)/(%d+),S:(%d+)")
	share = tonumber(share)
	a = tonumber(a)
	b = tonumber(b)
	c = tonumber(c)
	S = tonumber(S)
		if (sEnableMinShare == 1) then
			if user.iProfile == 0 and (share < tblProper["MinShare"]["MasterShare"] * GB) then
				user:SendData(sBot,"You haven't met the minimum share required for this hub. ("..tblProper["MinShare"]["MasterShare"].." GB)")
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()

			elseif user.iProfile == 1 and (share < tblProper["MinShare"]["OpShare"] * GB) then
				user:SendData(sBot,"You haven't met the minimum share required for this hub. ("..tblProper["MinShare"]["OpShare"].." GB)")
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()

			elseif user.iProfile == 2 and (share < tblProper["MinShare"]["VipShare"] * GB) then
				user:SendData(sBot,"You haven't met the minimum share required for this hub. ("..tblProper["MinShare"]["VipShare"].." GB)")
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()

			elseif user.iProfile == 3 and (share < tblProper["MinShare"]["RegShare"] * GB) then
				user:SendData(sBot,"You haven't met the minimum share required for this hub. ("..tblProper["MinShare"]["RegShare"].." GB)")
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()

			elseif user.iProfile == -1 and (share < tblProper["MinShare"]["UserShare"] * GB) then
				user:SendData(sBot,"You haven't met the minimum share required for this hub. ("..tblProper["MinShare"]["UserShare"].." GB)")
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()
			end
		end
		if (sEnableMaxShare == 1) then
			if (share > sMaxShareAmount * GB) then
				user:SendData(sBot,"You are sharing too much, Max share here is set to "..sMaxShareAmount.." GB")
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()
			end
		end
		if (sEnableMinSlots == 1) then
			if user.iProfile == 0 and (S < tblProper["MinSlots"]["MasterMinSlot"]) then
				user:SendData(sBot,"You haven't met the minimum slots required for this hub. ("..tblProper["MinSlots"]["MasterMinSlot"]..")")
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()

			elseif user.iProfile == 1 and (S < tblProper["MinSlots"]["OpMinSlot"]) then
				user:SendData(sBot,"You haven't met the minimum slots required for this hub. ("..tblProper["MinSlots"]["OpMinSlot"]..")")
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()

			elseif user.iProfile == 2 and (S < tblProper["MinSlots"]["VipMinSlot"]) then
				user:SendData(sBot,"You haven't met the minimum slots required for this hub. ("..tblProper["MinSlots"]["VipMinSlot"]..")")
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()

			elseif user.iProfile == 3 and (S < tblProper["MinSlots"]["RegMinSlot"]) then
				user:SendData(sBot,"You haven't met the minimum slots required for this hub. ("..tblProper["MinSlots"]["RegMinSlot"]..")")
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()

			elseif user.iProfile == -1 and (S < tblProper["MinSlots"]["UserMinSlot"]) then
				user:SendData(sBot,"You haven't met the minimum slots required for this hub. ("..tblProper["MinSlots"]["UserMinSlot"]..")")
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()
			end
		end
		if (sEnableMaxSlots == 1) then
			if user.iProfile == 0 and (S > tblProper["MaxSlots"]["MasterMaxSlot"]) then
				user:SendData(sBot,"You have too many slots opened, Max slots is "..tblProper["MaxSlots"]["MasterMaxSlot"])
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()

			elseif user.iProfile == 1 and (S > tblProper["MaxSlots"]["OpMaxSlot"]) then
				user:SendData(sBot,"You have too many slots opened, Max slots is "..tblProper["MaxSlots"]["OpMaxSlot"])
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()

			elseif user.iProfile == 2 and (S > tblProper["MaxSlots"]["VipMaxSlot"]) then
				user:SendData(sBot,"You have too many slots opened, Max slots is "..tblProper["MaxSlots"]["VipMaxSlot"])
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()

			elseif user.iProfile == 3 and (S > tblProper["MaxSlots"]["RegMaxSlot"]) then
				user:SendData(sBot,"You have too many slots opened, Max slots is "..tblProper["MaxSlots"]["RegMaxSlot"])
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()

			elseif user.iProfile == -1 and (S > tblProper["MaxSlots"]["UserMaxSlot"]) then
				user:SendData(sBot,"You have too many slots opened, Max slots is "..tblProper["MaxSlots"]["UserMaxSlot"])
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()
			end
		end
		if (sEnableSlotRatio == 1) then
			d = a + b + c
			d = d * sRatioAmount
			if (S < d) then
				user:SendData(sBot,"We require "..sRatioAmount.." slots per hub, you must have "..d.." Slots opened to be able to enter.")
				user:SendData(sBot,"You are being disconnected..")
				user:Disconnect()
			end
		end
	end
end
Guarding    

DorianG

#3
06 March, 2004, 13:29:10
Good script ;)
I'll try it in my hub...

DorianG

#4
08 March, 2004, 12:30:38
Sorry Kepp,
I have adapted your script to my demands. But Ptokax give me this error:

Syntax error: attempt to index global `tb1Proper' (a nil value)



sBot = "The-Kill-Bill"

kb = 1024
GB = kb*kb*kb

-- On / Off, se metti 1 vuol dire On, se metti 0 vuol dire Off.
sEnableMinShare = 1				--//Abilita o disabilita controllo MinShare
sEnableMaxShare = 1				--//Abilita o disabilita controllo MaxShare
sEnableMinSlots = 1				--//Abilita o disabilita controllo MinSlots
sEnableMaxSlots = 1				--//Abilita o disabilita controllo MaxSlots
sEnableSlotRatio = 1				--//Abilita o disabilita controllo SlotRatio

-- Valori
sRatioAmount = 2				--//Setta il numero di Slot Ratio, solo per utenti non registrati.

--Settaggi per ogni categoria di utente 
tblProper = {
	["MaxShare"] = {["OwnerMaxShare"]=1024,["AdminMaxShare"]=1024,["MasterMaxShare"]=1024,["ModMaxShare"]=1024,["OpMaxShare"]=1024,["VipMaxShare"]=1024,["RegMaxShare"]=1024,["UserMaxShare"]=1024},
	["MinShare"] = {["OwnerMinShare"]=0,["AdminMinShare"]=0,["MasterMinShare"]=0,["ModMinShare"]=0,["OpMinShare"]=0,["VipMinShare"]=5,["RegMinShare"]=8,["UserMinShare"]=10},
	["MinSlots"] = {["OwnerMinSlot"]=0,["AdminMinSlot"]=0,["MasterMinSlot"]=0,["ModMinSlot"]=0,["OpMinSlot"]=0,["VipMinSlot"]=1,["RegMinSlot"]=2,["UserMinSlot"]=2},
	["MaxSlots"] = {["OwnerMaxSlot"]=50,["AdminMaxSlot"]=50,["MasterMaxSlot"]=50,["ModMaxSlot"]=50,["OpMaxSlot"]=50,["VipMaxSlot"]=20,["RegMaxSlot"]=15,["UserMaxSlot"]=12}
}

--//Redirects in base alle impostazioni dei settaggi sopra elencati
addminshare = "xxx.no-ip.com"			--//Indirizzo redirect nel caso in cui un utente non rispetta la regola dello share minimo
addmaxshare = "xxx2.no-ip.com"			--//Indirizzo redirect nel caso in cui un utente non rispetta la regola dello share massimo
addminslots = "xxx3.no-ip.com"			--//Indirizzo redirect nel caso in cui un utente non rispetta la regola dell'apertura minima di slots
addmaxslots = "xxx4.no-ip.com"			--//Indirizzo redirect nel caso in cui un utente non rispetta la regola dell'apertura massima di slots
addslotratio = "xxx5.no-ip.com"

function Main()
	frmHub:RegBot(sBot)
end

function DataArrival(user, data)
	if (strsub(data,1,7)=="$MyINFO") then
	local s,e,share = strfind(data,"%$%s*(%d+)%$")
	local s,e,a,b,c,S = strfind(data,"H:(%d+)/(%d+)/(%d+),S:(%d+)")
	share = tonumber(share)
	a = tonumber(a)
	b = tonumber(b)
	c = tonumber(c)
	S = tonumber(S)
		if (sEnableMinShare == 1) then
			if user.iProfile == 0 and (share < tblProper["MinShare"]["MasterMinShare"] * GB) then
				user:SendData(sBot,"Non hai il minimo share richiesto da questo hub. ("..tblProper["MinShare"]["MasterMinShare"].." GB)")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addminshare)

			elseif user.iProfile == 1 and (share < tblProper["MinShare"]["OpMinShare"] * GB) then
				user:SendData(sBot,"Non hai il minimo share richiesto da questo hub. ("..tblProper["MinShare"]["OpMinShare"].." GB)")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addminshare)

			elseif user.iProfile == 2 and (share < tblProper["MinShare"]["VipMinShare"] * GB) then
				user:SendData(sBot,"Non hai il minimo share richiesto da questo hub. ("..tblProper["MinShare"]["VipMinShare"].." GB)")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addminshare)

			elseif user.iProfile == 3 and (share < tblProper["MinShare"]["RegMinShare"] * GB) then
				user:SendData(sBot,"Non hai il minimo share richiesto da questo hub. ("..tblProper["MinShare"]["RegMinShare"].." GB)")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addminshare)

			elseif user.iProfile == 4 and (share < tblProper["MinShare"]["ModMinShare"] * GB) then
				user:SendData(sBot,"Non hai il minimo share richiesto da questo hub. ("..tblProper["MinShare"]["ModMinShare"].." GB)")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addminshare)

			elseif user.iProfile == 5 and (share < tblProper["MinShare"]["AdminMinShare"] * GB) then
				user:SendData(sBot,"Non hai il minimo share richiesto da questo hub. ("..tblProper["MinShare"]["AdminMinShare"].." GB)")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addminshare)

			elseif user.iProfile == 6 and (share < tblProper["MinShare"]["OwnerMinShare"] * GB) then
				user:SendData(sBot,"Non hai il minimo share richiesto da questo hub. ("..tblProper["MinShare"]["OwnerMinShare"].." GB)")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addminshare)

			elseif user.iProfile == -1 and (share < tblProper["MinShare"]["UserMinShare"] * GB) then
				user:SendData(sBot,"Non hai il minimo share richiesto da questo hub. ("..tblProper["MinShare"]["UserMinShare"].." GB)")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addminshare)
			end
		end
		if (sEnableMaxShare == 1) then
			if user.iProfile == 0 and (share > tb1Proper["MaxShare"]["MasterMaxShare"] * GB) then
				user:SendData(sBot,"Stai sharando troppo. Lo share massimo consentito in questo hub ? ("..tb1Proper["MaxShare"]["MasterMaxShare"].." GB)")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addmaxshare)

			elseif user.iProfile == 1 and (share > tb1Proper["MaxShare"]["OpMaxShare"] * GB) then
				user:SendData(sBot,"Stai sharando troppo. Lo share massimo consentito in questo hub ? ("..tb1Proper["MaxShare"]["OpMaxShare"].." GB)")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addmaxshare)

			elseif user.iProfile == 2 and (share > tb1Proper["MaxShare"]["VipMaxShare"] * GB) then
				user:SendData(sBot,"Stai sharando troppo. Lo share massimo consentito in questo hub ? ("..tb1Proper["MaxShare"]["VipMaxShare"].." GB)")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addmaxshare)

			elseif user.iProfile == 3 and (share > tb1Proper["MaxShare"]["RegMaxShare"] * GB) then
				user:SendData(sBot,"Stai sharando troppo. Lo share massimo consentito in questo hub ? ("..tb1Proper["MaxShare"]["RegMaxShare"].." GB)")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addmaxshare)

			elseif user.iProfile == 4 and (share > tb1Proper["MaxShare"]["ModMaxShare"] * GB) then
				user:SendData(sBot,"Stai sharando troppo. Lo share massimo consentito in questo hub ? ("..tb1Proper["MaxShare"]["ModMaxShare"].." GB)")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addmaxshare)

DorianG

#5
08 March, 2004, 12:34:33 
elseif user.iProfile == 5 and (share > tb1Proper["MaxShare"]["AdminMaxShare"] * GB) then
				user:SendData(sBot,"Stai sharando troppo. Lo share massimo consentito in questo hub ? ("..tb1Proper["MaxShare"]["AdminMaxShare"].." GB)")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addmaxshare)

			elseif user.iProfile == 6 and (share > tb1Proper["MaxShare"]["OwnerMaxShare"] * GB) then
				user:SendData(sBot,"Stai sharando troppo. Lo share massimo consentito in questo hub ? ("..tb1Proper["MaxShare"]["OwnerMaxShare"].." GB)")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addmaxshare)
			
			elseif user.iProfile == -1 and (share > tb1Proper["MaxShare"]["UserMaxShare"] * GB) then
				user:SendData(sBot,"Stai sharando troppo. Lo share massimo consentito in questo hub ? ("..tb1Proper["MaxShare"]["UserMaxShare"].." GB)")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addmaxshare)
			end
		end
		if (sEnableMinSlots == 1) then
			if user.iProfile == 0 and (S < tblProper["MinSlots"]["MasterMinSlot"]) then
				user:SendData(sBot,"Non hai abbastanza slots aperti per rimanere in questo hub. Come minimo devi aprire ("..tblProper["MinSlots"]["MasterMinSlot"]..") slots")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addminslots)

			elseif user.iProfile == 1 and (S < tblProper["MinSlots"]["OpMinSlot"]) then
				user:SendData(sBot,"Non hai abbastanza slots aperti per rimanere in questo hub. Come minimo devi aprire ("..tblProper["MinSlots"]["OpMinSlot"]..") slots")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addminslots)

			elseif user.iProfile == 2 and (S < tblProper["MinSlots"]["VipMinSlot"]) then
				user:SendData(sBot,"Non hai abbastanza slots aperti per rimanere in questo hub. Come minimo devi aprire ("..tblProper["MinSlots"]["VipMinSlot"]..") slots")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addminslots)

			elseif user.iProfile == 3 and (S < tblProper["MinSlots"]["RegMinSlot"]) then
				user:SendData(sBot,"Non hai abbastanza slots aperti per rimanere in questo hub. Come minimo devi aprire ("..tblProper["MinSlots"]["RegMinSlot"]..") slots")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addminslots)

			elseif user.iProfile == 4 and (S < tblProper["MinSlots"]["ModMinSlot"]) then
				user:SendData(sBot,"Non hai abbastanza slots aperti per rimanere in questo hub. Come minimo devi aprire ("..tblProper["MinSlots"]["ModMinSlot"]..") slots")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addminslots)

			elseif user.iProfile == 5 and (S < tblProper["MinSlots"]["AdminMinSlot"]) then
				user:SendData(sBot,"Non hai abbastanza slots aperti per rimanere in questo hub. Come minimo devi aprire ("..tblProper["MinSlots"]["AdminMinSlot"]..")slots")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addminslots)

			elseif user.iProfile == 6 and (S < tblProper["MinSlots"]["OwnerMinSlot"]) then
				user:SendData(sBot,"Non hai abbastanza slots aperti per rimanere in questo hub. Come minimo devi aprire ("..tblProper["MinSlots"]["OwnerMinSlot"]..") slots")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addminslots)

			elseif user.iProfile == -1 and (S < tblProper["MinSlots"]["UserMinSlot"]) then
				user:SendData(sBot,"Non hai abbastanza slots aperti per rimanere in questo hub. Come minimo devi aprire ("..tblProper["MinSlots"]["UserMinSlot"]..") slots")
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addminslots)
			end
		end
		if (sEnableMaxSlots == 1) then
			if user.iProfile == 0 and (S > tblProper["MaxSlots"]["MasterMaxSlot"]) then
				user:SendData(sBot,"Hai troppi slots aperti, il massimo numero di slots che puoi tenere aperti in questo hub ? "..tblProper["MaxSlots"]["MasterMaxSlot"])
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addmaxslots)

			elseif user.iProfile == 1 and (S > tblProper["MaxSlots"]["OpMaxSlot"]) then
				user:SendData(sBot,"Hai troppi slots aperti, il massimo numero di slots che puoi tenere aperti in questo hub ? "..tblProper["MaxSlots"]["OpMaxSlot"])
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addmaxslots)

			elseif user.iProfile == 2 and (S > tblProper["MaxSlots"]["VipMaxSlot"]) then
				user:SendData(sBot,"Hai troppi slots aperti, il massimo numero di slots che puoi tenere aperti in questo hub ? "..tblProper["MaxSlots"]["VipMaxSlot"])
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addmaxslots)

			elseif user.iProfile == 3 and (S > tblProper["MaxSlots"]["RegMaxSlot"]) then
				user:SendData(sBot,"Hai troppi slots aperti, il massimo numero di slots che puoi tenere aperti in questo hub ? "..tblProper["MaxSlots"]["RegMaxSlot"])
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addmaxslots)

			elseif user.iProfile == 4 and (S > tblProper["MaxSlots"]["ModMaxSlot"]) then
				user:SendData(sBot,"Hai troppi slots aperti, il massimo numero di slots che puoi tenere aperti in questo hub ? "..tblProper["MaxSlots"]["ModMaxSlot"])
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addmaxslots)

			elseif user.iProfile == 5 and (S > tblProper["MaxSlots"]["AdminMaxSlot"]) then
				user:SendData(sBot,"Hai troppi slots aperti, il massimo numero di slots che puoi tenere aperti in questo hub ? "..tblProper["MaxSlots"]["AdminMaxSlot"])
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addmaxslots)

			elseif user.iProfile == 6 and (S > tblProper["MaxSlots"]["OwnerMaxSlot"]) then
				user:SendData(sBot,"Hai troppi slots aperti, il massimo numero di slots che puoi tenere aperti in questo hub ? "..tblProper["MaxSlots"]["OwnerMaxSlot"])
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addmaxslots)

			elseif user.iProfile == -1 and (S > tblProper["MaxSlots"]["UserMaxSlot"]) then
				user:SendData(sBot,"Hai troppi slots aperti, il massimo numero di slots che puoi tenere aperti in questo hub ? "..tblProper["MaxSlots"]["UserMaxSlot"])
				user:SendData(sBot,"Sei stato redirettato..")
				user:SendData("$ForceMove" ..addmaxslots)
			end
		end
		if (sEnableSlotRatio == 1) then
			if user.iProfile == -1 then
				d = a + b + c
				d = d * sRatioAmount
				if (S < d) then
					user:SendData(sBot,"Vorremmo che settassi "..sRatioAmount.." slots per hub, devi avere "..d.." Slots aperti per poter entrare nell'hub.")
					user:SendData(sBot,"Sei stato redirettato..")
					user:SendData("$ForceMove" ..addslotratio)
				end
			end
		end
	end
end

Sorry if i havent traslate in english the bot masseges :)

kepp

#6
08 March, 2004, 16:23:57
Check these lines

if user.iProfile == 0 and (share > tb1Proper["MaxShare"]["MasterMaxShare"] * GB) then

The tables name is tblProper, not tb1Proper :)
Guarding    

DorianG

#7
08 March, 2004, 19:42:16
:) i'm stupid :)

Cp6uja

#8
07 June, 2004, 10:51:50
!!! Nice movie-nice script !!!

DorianG you are StUpId :):):):)
*^*SoRrY DorianG*^*
Print
Go Up Pages1
User actions
SMF spam blocked by CleanTalk