PtokaX forum

Archive => Archived 5.1 boards => Conversion Requests => Topic started by: ThugLife on 25 January, 2008, 21:10:49

Title: Need conversion of OpSecurity 0.1 to the new API
Post by: ThugLife on 25 January, 2008, 21:10:49
Code (lua) Select
-- 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
Title: Re: Need conversion of OpSecurity 0.1 to the new API
Post by: speedX on 26 January, 2008, 05:22:59
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