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
*EDITED THE WRONG POST!!!*
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
Good script ;)
I'll try it in my hub...
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)
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 :)
Check these lines
if user.iProfile == 0 and (share > tb1Proper["MaxShare"]["MasterMaxShare"] * GB) then
The tables name is tblProper, not tb1Proper :)
:) i'm stupid :)
!!! Nice movie-nice script !!!
DorianG you are StUpId :):):):)
*^*SoRrY DorianG*^*