--//Stripped from FunScript v7 made by Madman
--//Script orginally based on Hawk's Kenny Script
Bot = "DrunkBot"
DrunkNicks = {} --//Saves drunk user
MinTimer = 10 --//Min the users will be drunk
function OnTimer()
DrunkNicks = {} --//Empty table
SendToAll(Bot, "All drunks users are now sober")
StopTimer() --//Kill the timer
end
function ChatArrival(curUser, data)
data = string.sub(data,1,string.len(data)-1)
s,e,cmd = string.find(data,"%b<>%s+(%S+)")
if curUser.bOperator then
local s,e,Drunked = string.find(data, "%b<>%s+%S+%s+(%S+)")
if cmd == "!makedrunk" then
StopTimer()
SetTimer(1000*60*MinTimer)
StartTimer()
if Drunked == nil then
curUser:SendData(Bot, "Syntax: "..cmd.." nick")
return 1
end
Drunk(curUser, data)
return 1
elseif cmd == "!undrunk" then
if Drunked == nil then
curUser:SendData(Bot, "Syntax: "..cmd.." nick")
return 1
end
UnDrunk(curUser, data)
return 1
elseif cmd == "!showdrunk" then
ShowDrunk(curUser)
return 1
elseif cmd == "!undrunkall" then
DrunkNicks = {}
SendToAll(Bot, "All drunk users are now sober")
return 1
end
end
if string.sub(data,1,1) == "<" then
if DrunkNicks[curUser.sName] == 1 then
text = DrunkText[math.random(1, table.getn(DrunkText))]
SendToAll(curUser.sName, text)
return 1
end
end
end
function Drunk(curUser, data)
local s,e,cmd,DrunkUser = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
local Drunked = GetItemByName(DrunkUser)
if Drunked == nil then
curUser:SendData(Bot, "The User "..DrunkUser.." is not in the hub...")
else
DrunkNicks[Drunked.sName] = 1
SendToAll(Bot,Drunked.sName.." is drunk now beacuse of " ..curUser.sName)
end
end
function UnDrunk(curUser, data)
local s,e,cmd,DrunkUser = string.find(data,"%b<>%s+(%S+)%s+(%S+)")
local Drunked = GetItemByName(DrunkUser)
if Drunked == nil then
curUser:SendData(Bot,"The User "..DrunkUser.." is not in the hub....")
else
if DrunkNicks[Drunked.sName] == 1 then
DrunkNicks[Drunked.sName] = nil;
SendToAll(Bot, Drunked.sName.." is now sober...")
end
end
end
function ShowDrunk(curUser)
local names = ""
for index, value in DrunkNicks do
local line = index
names = names.." "..line.."\r\n"
end
curUser:SendData(Bot,"\r\n\r\nDrunk Users..\r\n\r\n"..names)
end
DrunkText = { --//Text users in drunkmode will say ;)
"geee thanks a beer *hick* *drool*",
"Wow.. *hick*... *cough*... you're.... *cough*... hot... *hick*",
"Crap, I have to pee.... *drinking*... oh wait.. too late",
"*cough* hey guys!!!! IT'S PARTY TIME!!!!",
"*hick* look at me, I'm dancinggggg...",
"I WANT TUBORG",
"*cough* damn people in here look hot... wanna get it on ?",
"I WANT BUDWEISER!!!!",
"I feel so good *puking*",
"HEY WHO STOLE MY BEER ?!?!?!",
"Look I'm drunk lol",
"Carslberg, is that a swedish town ? *hick*",
"shit.. I'm *hick* drunk",
"anybody got a bucket ? *barfing*",
"Why is everything upside down?",
"are you saying mushrooms are better than BEER ????",
"I do get horny when I'm drunk...",
"me dRunk? -*- hik -*-",
"pftftt paff the boffle bartender pfffttttttt",
"I just drank a little...",
"I am not drunk!!",
"I am not dddddddddddddrunk.....",
"drunk?",
"pfftt!",
"pour me another",
"*spew*",
"oohhh my head",
"I think I'm gonna hurl",
"*BLAH*",
"*BURP*",
"me not drunk *HICK*",
}