Author Topic: need a upload limiter script for new ptokax a working one  (Read 2189 times)

0 Members and 1 Guest are viewing this topic.

Offline ?StIfFLEr??

  • Triple Ace
  • **
  • Posts: 241
  • Karma: +17/-63
need a upload limiter script for new ptokax a working one
« on: 26 October, 2008, 07:44:34 »
i have a script of upload limiter for old ptokax can sum1 plz give me a script for new ptokax a working script so tat i can switch to new ptokax again
Code: [Select]
--[[

LimitCheck 1.0 LUA 5.0/5.1

By Mutor 04/18/07

Requested by vrnutz

Disconnects users with less than 'X' KB/s limit set

]]
--Set your profiles permissions here.
--profile_idx, Check Profile's Limit? [0=no 1=yes], "Profile Name"
local Profiles = {
[-1] = {1,"Unregistered User"},
[0] = {1,"Master"},
[1] = {1,"Operator"},
[2] = {1,"Vip"},
[3] = {1,"Registered User"},
[4] = {1,"Moderator"},
[5] = {1,"NetFounder"},
[6] = {1,"Owner"},
}
--Least permissible bandwidth limit [In KB/s]
local Limit = 1024


Main = function()
local msg = "was removed for setting a limit < "..Limit.." KB/s"
for i,user in ipairs(frmHub:GetOnlineUsers()) do
CheckLimit(user,user.sName.." "..msg)
end
end

MyINFOArrival = function(user,data)
if user.bConnected then
local msg = user.sName.." was removed for setting to limit < "..Limit.." KB/s"
CheckLimit(user,msg)
end
end

CheckLimit = function(user,msg)
if not Profiles[user.iProfile] or Profiles[user.iProfile][1] == 1 then
local a,b = math.max(0,user.iBlimit),math.max(0,user.iLlimit)
local c = math.max(a,b)
if c > 0 and c < Limit then
local usrmsg = user.sName.." you may not limit less than "..Limit..
" KB/s. Please increase your limit by "..(Limit - c ).."  KB/s before you return."
msg = msg..". Your limit of "..c.." KB/s is "..(Limit - c ).."  KB/s short of acceptable"
return user:SendData(frmHub:GetHubName(),usrmsg),
user:Disconnect(),SendToOps(frmHub:GetHubName(),msg),1
end
end
end


and
Code: [Select]
userlevels={
 [-1]=1,
 [0]=5,
 [1]=4,
 [2]=3,
 [3]=2
}

checklevel = 6
upload_limit = 1024

function NewUserConnected(user)
-- user:SendPM("[SECURITY?]","Welcome to THANE CENTRAL")
investigate(user)
end

function MyINFOArrival(user, data)
if user.sMyInfoString and string.len (user.sMyInfoString) > (string.len(user.sName)+13) then
investigate(user)
end
end

function checklimit(user)
if string.find(user.sMyInfoString,"[BLU]") then
local upstream
local _,_,Slots = string.find(user.sMyInfoString, "H:[^,]+,S:(%d+).*>")
local _,_,limit1 = string.find(user.sMyInfoString,"[BLU]:(%d+)")
local _,_,limit2 = string.find(user.sMyInfoString,"F:%d+/(%d+)")
if Slots and Slots~="0" then
if limit1 then
upstream=calclimit(user,limit1,Slots)
elseif limit2 then
upstream=calclimit(user,limit2,Slots)
end
else
user:SendPM("?GiGaByTe?","Please Use Strong dc ,CZDC++ & Xion to limit your upload speed. Settings/Limits/Select Upload limit, Set value 1024.")
user:Disconnect()
end
return upstream
end
end

function calclimit(user,limit,s)
if string.find(user.sMyInfoString,"<DCGUI") then
return tonumber(limit)*tonumber(s)
else
return tonumber(limit)
end
end

function investigate(user)
if checklevel > userlevels[user.iProfile] then
local limit = checklimit(user)
if not limit or limit ~= upload_limit then
user:SendPM("?GiGaByTe?","Set your upload limit to a maximum of "..upload_limit..".Strongdc, CZDC++ & Xion settings are Settings/Limits/Select Upload limit, Set value 1024 EnjoY.")
                        user:Disconnect()
end

end
end
can sum1 get it converted it wil be great  ;D

PtokaX forum

need a upload limiter script for new ptokax a working one
« on: 26 October, 2008, 07:44:34 »

Offline bastya_elvtars

  • Forum God
  • ****
  • Posts: 3 753
  • Karma: +173/-7
  • The rock n' roll doctor
    • The FreshStuff3 Site
Re: need a upload limiter script for new ptokax a working one
« Reply #1 on: 26 October, 2008, 11:15:48 »
Could you please post to the right forum next time? Thanks.
(You know, it's easier to convert a script than to write one from scratch, hence this forum.)
Everything could have been anything else and it would have just as much meaning.

PtokaX forum

Re: need a upload limiter script for new ptokax a working one
« Reply #1 on: 26 October, 2008, 11:15:48 »