Need conversion of OpSecurity 0.1 to the new API
 

Need conversion of OpSecurity 0.1 to the new API

Started by ThugLife, 25 January, 2008, 21:10:49

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

ThugLife

Code: lua
-- OpSecurity 0.1 Lua5
-- Small Op Account Protection script
-- by ']['yphoon?
-- thx to Mutor for helping me when being blind/stupid
-- write dynip to disable the check on the user

tSetup={}
tSetup.Bot = "botname"
tSetup.Email = "secured@net.nl"
tSetup.OpSecurity = {
	["nick"] = "IP",
	["nick"] = "IP",
	} 


function OpConnected(user)
	if tSetup.OpSecurity[user.sName] then
		local Name = user.sName
		if ((tSetup.OpSecurity[Name] == user.sIP) or (tSetup.OpSecurity[Name] == "dynip")) then
			user:SendPM(tSetup.Bot,"You have passed the IP-Check !")
		else
			local msg = ""
			msg = msg.."\r\n\t\tВие бяхте банн'ат защото се правите на голям 'Haker'(opitai toq nomer v nqkoi dr hub)"
			msg = msg.."\r\n\t\tНямате право да използвате този ник,за това"
			msg = msg.."\r\n\t\tYOU HAVE BEEN BANNED BITCH!!! "..tSetup.Email
			user:SendData(tSetup.Bot,msg)
			user:Ban()
			Unban(Name)
		end
	end
end
Skype: galin93

speedX

Try this:
-- OpSecurity 0.1 Lua5
-- Small Op Account Protection script
-- by ']['yphoon?
-- thx to Mutor for helping me when being blind/stupid
-- write dynip to disable the check on the user

tSetup={}
tSetup.Bot = "botname"
tSetup.Email = "secured@net.nl"
tSetup.OpSecurity = {
	["nick"] = "IP",
	["nick"] = "IP",
	} 

function OnStartup()
  Core.RegBot(tSetup.Bot,"","",true)
end

function OpConnected(user)
	if tSetup.OpSecurity[user.sNick] then
		local Name = user.sNick
		if ((tSetup.OpSecurity[Name] == user.sIP) or (tSetup.OpSecurity[Name] == "dynip")) then
			Core.SendPmToNick(user.sNick,tSetup.Bot,"You have passed the IP-Check !")
		else
			local msg = ""
			msg = msg.."\r\n\t\t??? ????? ????'?? ?????? ?? ??????? ?? ????? 'Haker'(opitai toq nomer v nqkoi dr hub)"
			msg = msg.."\r\n\t\t?????? ????? ?? ?????????? ???? ???,?? ????"
			msg = msg.."\r\n\t\tYOU HAVE BEEN BANNED BITCH!!! "..tSetup.Email
			Core.SendToNick(user.sNick,"<"..tSetup.Bot.."> "..msg)
			BanMan.Ban(user,"","",true)
			BanMan.Unban(Name)
		end
	end
end
Thanking You,

speedX

SMF spam blocked by CleanTalk