DrunkUser

[Madman]

--//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*",
}