this is quite funny but it also affects Ops.
i would like some help or some info of how to fix it so it
only affect users...
-- Open for all users.
-- by solian, 13.9.03 almost rewriten by c h i l l e r, why? to much time :).
-- I made it open for all users. Can be changed easily.
--Name of the script
scriptname = "Fun-Script-V.1.lua"
-- Name of the Script Bot
bot = "[bot]"
-- Name of the bot that handles the beer truck.
beerbot = "Brewer-Bot"
-- The Joke-Bot
tcbot = "Joker"
-- You need this Folder in your scripts Folder
Folder = "funscript"
-- This is the time in minutes a user is gagged, kennied etc.
Max1 = 1
-- To add Trigs simply add them to the files bellow in the txt folder.
assert(dofile(Folder.."/DrunkTriggs.txt"),Folder.."/DrunkTriggs.txt for "..scriptname.." not found")
assert(dofile(Folder.."/KennyTriggs.txt"),Folder.."/KennyTriggs.txt for "..scriptname.." not found")
assert(dofile(Folder.."/TcJokes.txt"),Folder.."/TcJokes.txt for "..scriptname.." not found")
assert(dofile(Folder.."/SlapTriggs.txt"),Folder.."/SlapTriggs.txt for "..scriptname.." not found")
-- This Command turns the script on and off, +funmode [on/off], only for Op's.
cmd1 = "+funmode"
cmd2 = "+funhelp"
cmd3 = "+tc"
cmd4 = "+kenny"
cmd5 = "+gag"
cmd6 = "+drunk"
cmd7 = "+slap"
cmd8 = "+beer"
FunnyMode = "on"
KennyUsers = {}
GaggedUsers = {}
DrunkUsers = {}
TaggedUsers = {}
sec = 1000
min = 60 * sec
function Main()
SetTimer( 1 * min)
StartTimer()
end
function OnTimer()
for i,v in TaggedUsers do
if v == Max1 then
if KennyUsers[i] then
KennyUsers[i] = nil
elseif GaggedUsers[i] then
GaggedUsers[i] = nil
elseif DrunkUsers[i] then
DrunkUsers[i] = nil
end
TaggedUsers[i] = nil
else
v = v + 1
end
end
end
function DataArrival(user,data)
if (strsub(data, 1, 1) == "<") then
data = strsub(data,1,strlen(data)-1)
_,_,cmd = strfind( data, "%b<>%s+(%S+)" )
if strlower(cmd) == strlower(cmd1) and user.bOperator then
onoff = Get1Arg(data)
if onoff then
if onoff == "on" then
FunnyMode = "on"
SendToAll(bot, "Yiepieeeee let the party begin. type "..cmd2.." for help.")
elseif onoff == "off" then
FunnyMode = "off"
KennyUsers = {}
GaggedUsers = {}
DrunkUsers = {}
TaggedUsers = {}
SendToAll(bot, "Parties over ! :(.")
else
user:SendData(bot, "To start/stop FunnyMode type "..cmd1.." [on/off].")
end
else
user:SendData(bot, "To start/stop FunnyMode type "..cmd1.." [on/off].")
end
return 1
end
if FunnyMode == "on" then
if strlower(cmd) == strlower(cmd2) then
user:SendData(bot," Fun Script Help!\r\n\r\n"..
"\t"..cmd3.."\tSends Jokes!\r\n"..
"\t"..cmd4.."\tSets the User in Kenny Mode. "..cmd4.." [on/off] [nick]\r\n"..
"\t"..cmd5.."\tGags the User. "..cmd5.." [on/off] [nick]\r\n"..
"\t"..cmd6.."\tSets the User in Drunk Mode. "..cmd6.." [on/off] [nick]\r\n"..
"\t"..cmd7.."\tSlaps the user. "..cmd7.." [nick]\r\n"..
"\t"..cmd8.."\tThe BeerTruck. "..cmd8.." [BEER]\r\n"..
"\t"..cmd2.."\tShows this text.\r\n")
return 1
elseif strlower(cmd) == strlower(cmd3) and TaggedUsers[user.sName]==nil then
if getn(TcJokes) == 1 then
SendToAll(tcbot,"\r\n"..
TcJokes[1])
dofile(Folder.."/TcJokes.txt")
else
num = random(1,getn(TcJokes))
SendToAll(tcbot,"\r\n"..
TcJokes[num])
tremove ( TcJokes, num)
end
return 1
elseif strlower(cmd) == strlower(cmd4) and TaggedUsers[user.sName]==nil then
onoff,nick = Get2Arg(data)
if onoff then
if onoff == "on" and GetItemByName(nick) and TaggedUsers[nick]==nil then
who = GetItemByName(nick)
KennyUsers[nick]=1
if not who.bOperator then
TaggedUsers[nick]=0
end
user:SendData(bot,"User "..nick.." is now in Kenny-Mode")
elseif onoff == "off" and KennyUsers[nick] then
KennyUsers[nick]=nil
TaggedUsers[nick]=nil
user:SendData(bot,"User "..nick.." is now removed from Kenny-Mode")
elseif onoff == "off" and strlower(nick) == "all" and user.bOperator then
for i,v in KennyUsers do
TaggedUsers[i]=nil
end
KennyUsers = {}
user:SendData(bot,"All Users have been removed from Kenny-Mode")
else
user:SendData(bot, "To set/remove a user in/from Kenny-Mode type "..cmd4.." [on/off] [nick].\r\n"..
"\tOr the user is already tagged, or wasn't in Kenny-Mode.")
end
else
user:SendData(bot, "To set/remove a user in/from Kenny-Mode type "..cmd4.." [on/off] [nick].")
end
return 1
elseif strlower(cmd) == strlower(cmd5) and TaggedUsers[user.sName]==nil then
onoff,nick = Get2Arg(data)
if onoff then
if onoff == "on" and GetItemByName(nick) and TaggedUsers[nick]==nil then
who = GetItemByName(nick)
GaggedUsers[nick]=1
if not who.bOperator then
TaggedUsers[nick]=0
end
user:SendData(bot,"User "..nick.." is now in Gagged.")
elseif onoff == "off" and GaggedUsers[nick] then
GaggedUsers[nick]=nil
TaggedUsers[nick]=nil
user:SendData(bot,"User "..nick.." has now been UnGagged.")
elseif noff == "off" and strlower(nick) == "all" and user.bOperator then
for i,v in GaggedUsers do
TaggedUsers[i]=nil
end
GaggedUsers = {}
user:SendData(bot,"All Users have been UnGagged")
else
user:SendData(bot, "To set/remove a user in/from beeing Gagged type "..cmd5.." [on/off] [nick].\r\n"..
"\tOr the user is already tagged, or wasn't gagged.")
end
else
user:SendData(bot, "To set/remove a user in/from beeing Gagged type "..cmd5.." [on/off] [nick].")
end
return 1
elseif strlower(cmd) == strlower(cmd6) and TaggedUsers[user.sName]==nil then
onoff,nick = Get2Arg(data)
if onoff then
if onoff == "on" and GetItemByName(nick) and TaggedUsers[nick]==nil then
who = GetItemByName(nick)
DrunkUsers[nick]=1
if not who.bOperator then
TaggedUsers[nick]=0
end
user:SendData(bot,"User "..nick.." is now in Drunk-Mode.")
elseif onoff == "off" and DrunkUsers[nick] then
DrunkUsers[nick]=nil
TaggedUsers[nick]=nil
user:SendData(bot,"User "..nick.." is now sober again.")
elseif noff == "off" and strlower(nick) == "all" and user.bOperator then
for i,v in DrunkUsers do
TaggedUsers[i]=nil
end
DrunkUsers = {}
user:SendData(bot,"All Users are sober again.")
else
user:SendData(bot, "To set/remove a user in/from beeing Drunk type "..cmd6.." [on/off] [nick].\r\n"..
"\tOr the user is already tagged, or wasn't in Drunk-Mode.")
end
else
user:SendData(bot, "To set/remove a user in/from beeing Drunk type "..cmd6.." [on/off] [nick].")
end
return 1
elseif strlower(cmd) == strlower(cmd7) and TaggedUsers[user.sName]==nil then
who = Get1Arg(data)
if GetItemByName(who) then
if getn(SlapTriggs) == 1 then
msg = gsub(SlapTriggs[1], "%b[]", who)
SendToAll(user.sName, msg)
dofile(Folder.."/SlapTriggs.txt")
else
num = random(1,getn(SlapTriggs))
msg = gsub(SlapTriggs[num], "%b[]", who)
SendToAll(user.sName, msg)
tremove ( SlapTriggs, num)
end
else
user:SendData(bot, "To slap a user type "..cmd7.." [nick]")
end
return 1
elseif strlower(cmd) == strlower(cmd8) and TaggedUsers[user.sName]==nil then
_,_,_,msg = strfind( data, "%b<>%s+(%S+)%s+(.*)")
if msg and strlen(msg) < 60 then
local line = strrep("_", strlen(msg))
local line2 = strrep(" ", strlen(msg))
SendToAll(beerbot, "\r\n"..
"\r\n"..
" ________________"..line.."\r\n"..
" _____ff\r\n"..
" ,_____] ?__l ' "..msg.."\r\n"..
" l __,__ --- '________________"..line.."\r\n"..
" =/( o )\=====----( o )-( o )\ "..line2.."( o )-( o )\ \r\n"..
"\r\n")
else
user:SendData(beerbot, "No Beer for you!")
end
return 1
elseif GaggedUsers[user.sName] then
user:SendData(bot, "You are Gagged, funny ha! ;)")
return 1
elseif KennyUsers[user.sName] then
_,_,msg= strfind(data,"%b<>%s(.+)")
t = {}
local msg2 = ""
gsub(msg, "(%S+)", function (w) tinsert (%t, "X") end)
for i = 1,getn(t) do
msg2 = msg2.." "..KennyTriggs[random(1,getn(KennyTriggs))]
end
SendToAll(user.sName,msg2)
t = {}
return 1
elseif DrunkUsers[user.sName] then
if getn(DrunkTriggs) == 1 then
SendToAll(user.sName, DrunkTriggs[1])
dofile(Folder.."/DrunkTriggs.txt")
else
num = random(1,getn(DrunkTriggs))
SendToAll(user.sName,DrunkTriggs[num])
tremove ( DrunkTriggs, num)
end
return 1
end
end
end
end
function Get2Arg(data)
_,_,_,onoff,nick= strfind(data,"%b<>%s(%S+)%s(%S+)%s(%S+)")
if onoff then
return strlower(onoff),nick
end
end
function Get1Arg(data)
_,_,_,onoff= strfind(data,"%b<>%s(%S+)%s(%S+)")
if onoff then
return strlower(onoff)
end
end
***Typhoon?