Anti Net-Limiter Script Conversion?

[QuikThinker]

Can sum1 convert this pls?

-- antinetlimiter for QuikThinker by bastya_elvtars
todo=2 -- 1 to disconnect, 2 to timeban, 3 to ban
timeban=30 -- in minutes

-- no edit below plz

OpConnected=NewUserConnected
function DataArrival(user,data)
	if strsub(data, 1, 7) == "$MyINFO" then
		if strfind(strlower(data),"netlimiter") then
			local what,doin=hasto(user)
			user:SendData("NoNetLimiter","You are using NetLimiter, now you are "..what)
			SendToOps("NoNetLimiter",user.sName.." is using netlimiter, he/she was "..what)
			return doin
		end
	end
end

function hasto(user)
	if todo==1 then
		return "disconnected.",user:Disconnect()
	elseif todo==2 then
		return "timebanned for "..timeban.." minutes.",user:TimeBan(timeban)
	elseif todo==3 then
		return "banned.",user:Ban()
	end
end

Thanx in advance.

[the_pest]

i can

-- antinetlimiter for QuikThinker by bastya_elvtars
-- to LUA 5 converted on Earth
todo=2 -- 1 to disconnect, 2 to timeban, 3 to ban
timeban=30 -- in minutes

-- no edit below plz

OpConnected=NewUserConnected
function MyINFOArrival(curUser,data)
	if curUser.sConnection then
		if string.find(string.lower(data),"netlimiter") then
			local what,doin=hasto(curUser)
			curUser:SendData("NoNetLimiter","You are using NetLimiter, now you are "..what)
			SendToOps("NoNetLimiter",curUser.sName.." is using netlimiter, he/she was "..what)
			return doin
		end
	end
end

function hasto(curUser)
	if todo == 1 then
		return "disconnected.",curUser:Disconnect()
	elseif todo == 2 then
		return "timebanned for "..timeban.." minutes.",curUser:TimeBan(timeban)
	elseif todo == 3 then
		return "banned.",curUser:Ban()
	end
end

[sander815]

is this to supposed tokick people who use netlimiter to limu upload?

[QuikThinker]

That's the idea anyway.

[Pothead]

Netlimiter in connection is some DC, not actual use of the program.  Ask yourself what's worse, people telling you they using it (what this script will catch) or peope using it, but not telling you. ?