--------------------------------------------------------------------------------------- 

-- -- 

-- "Roulette-Bot 1.0 translated to LUA by MatrixX" -- 

-- -- 

--------------------------------------------------------------------------------------- 

botName="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 user.\r\n") 

SendPmToNick(user.sName, botName, "Sorry you lucked out, and shot yourself! You shouldve 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 inyour 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