Searching for a bot....

[mOrrI]

helloo, wasn't there a bot to play russian rollete?

like u do !roll

and if u get shoot u get a disconnect!

[MusicMan?]

: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

[mOrrI]

Many thanks
i will try it out