this littleone gives certain IP ranges lower min share! read the instructions in script ;)
--- IPrange-minshare by enema (date 29.12.2004)
--- Lots and lots of thanks to Herodes!!!
--- Script Base is taken from Ipbot lua script by aMutex
--- --------------------------------------------------------
--- Script gives lower min share for certain IP ranges or IP's
--- --------------------------------------------------------
--- Here's how it works: you must rise min share in PtokaX to certain number...
--- That number will be min share for IP ranges you will fill in this script!
--- You must fill in this script (see below) the min Share for every other IP range!!!
--- --------------------------------------------------------
Bot = "share-man"
oAllow={}
function splittip(IP)
r,g,a,b,c,d = strfind(IP, "(%d*).(%d*).(%d*).(%d*)")
d=a.."."..b.."."..c.."."..d
c=a.."."..b.."."..c..".*"
b=a.."."..b..".*"
a=a..".*"
return a,b,c,d
end
function Main()
--- frmHub:RegBot(Bot)
oAllow["127.*"]=1
oAllow["130.239.103.*"]=1
oAllow["62.84.16.*"]=1
end
function NewUserConnected(curUser)
local s,e,share = strfind(curUser.sMyInfoString, "%$%s*(%d+)%$")
share = format("%0.2f", tonumber(share)/(1024*1024*1024))
local a,b,c,d=splittip(curUser.sIP)
if ((oAllow[a]==1)or(oAllow[b]==1)or(oAllow[c]==1)or(oAllow[d]==1)) then
else
if (tonumber(share) < 10) then --- PLACE YOUR NUMBER OF GB's FOR OTHER RANGES HERE
curUser:SendData(Bot, "You do not meet the minimum share for your IP range.")
curUser:Disconnect()
return 1
end
end
end