helloo, wasn't there a bot to play russian rollete?
like u do !roll
and if u get shoot u get a disconnect!
:D i remember the bot u mean, but the command is !fire i managed to find this one hope it helps you.
---------------------------------------------------------------------------------------
-- --
-- "Roulette-Bot 1.0 translated to LUA by MatrixX" --
-- --
---------------------------------------------------------------------------------------
botName="Russian_Roulette"
function Main()
sSek=60
frmHub:RegBot(botName)
OnOrOff="off"
SetTimer(1000*sSek)
A=0
end
function DataArrival(user, data)
if( strsub(data, 1, 1) == "<" ) then
data=strsub(data,1,strlen(data)-1)
s,e,cmd = strfind( data, "%b<>%s+(%S+)" )
if (cmd=="!fire") then
local Fire=random(1,7)
if Fire == 1 then
SendToAll(botName, "Phew " ..user.sName.. ", that was close...!")
elseif Fire == 2 then
SendToAll(botName, "\r\n ___________________________] \\ l /\r\n \\__////_(____)_______________0 ------BANG ------>\r\n ) @ ___9mm___________\\_/ / l \\\r\n / //\r\n / (?X?) //\r\n / //\r\n / _____//\r\n\r\n\t" ..user.sName.." got an Headshot!\r\n\tWe have lost one of our best users.\r\n")
SendPmToNick(user.sName, botName, "Sorry you lucked out, and shot yourself! You should've turned the gun around. Better luck next time")
StopTimer()
A = 0
OnOrOff="off"
user:Disconnect()
elseif Fire == 3 then
A = 0
SendToAll(botName, user.sName..", you missed and shot your own foot! HAHAHAAA...")
elseif Fire ==4 then
A = 0
SendToAll(botName, "Next!")
elseif Fire ==5 then
A = 0
SendToAll(botName, "BAM!!! *blanks popout* "..user.sName..".")
elseif Fire == 6 then
A = 0
SendToAll(botName, "close but no cigar " ..user.sName.." !")
elseif Fire == 7 then
A = 0
SendToAll(botName, "HaHa " ..user.sName..", hot!?! go squirl water over the 9 mm Automatic!")
end
end
end
if(strsub(data, 1, 4) == "$To:") then
data=strsub(data,1,strlen(data)-1)
s,e,whoTo = strfind(data,"$To:%s+(%S+)")
--SendToAll(botName, ""..data.."")
if (whoTo == botName) then
s,e,whoTo,from,cmd = strfind(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(%S+)")
--s,e,cmd = strfind( data, "%b<>%s+(%S+)" )
--SendToAll(botName, ""..cmd.."")
if (cmd=="!rr") and (OnOrOff=="off") then
OnOrOff="on"
StartTimer()
SendToAll(botName, "Russian Roulette has started, type !fire to play!")
elseif (cmd=="!rrstop") and (OnOrOff=="on") then
OnOrOff="off"
SendToAll(botName, "Russisch Roulette wurde ausgestellt!")
elseif (cmd=="!help") then
SendPmToNick(user.sName, botName, "Russisch Roulette:")
SendPmToNick(user.sName, botName, "START => PM to Bot =>!rr")
SendPmToNick(user.sName, botName, "STOP => PM to Bot => !rrstop")
SendPmToNick(user.sName, botName, "Shoot => main chat => !fire")
end
end
end
end
function OnTimer()
A=A+1
check()
end
function check()
if A==sSek then
A=0
OnOrOff="off"
SendToAll(botName, "Going off to get some more Whisky*")
StopTimer()
end
end
Many thanks :D
i will try it out :D