#!/usr/bin/perl -w
use Irssi;
use Irssi::Irc;


$VERSION = "0.2";
%IRSSI = (
	authors     => 'johnny',
	contact     => 'johnny@netvor.sk',
	name        => 'rr',
	description => 'RUSSIAN ROULETTE, idea by ulo@IRCnet',
	license     => 'BSD',
	url         => 'http://netvor.sk/~johnny/',
);

sub on_msg {
	my ($server, $msg, $nick, $addr, $target) = @_;

	$target = $nick if ( ! $target );
	$nick = $server->{'nick'} if ($nick =~ /^#/);
	$target = lc($target);

	if ($msg =~ /^!spin/) {
		my $luck = int (rand(6));

		if ($luck <= 1) {
			$server->command ("MODE $target -v $nick"); 
			$server->command ("MSG $target <rr> $nick sold his tongue to devil!"); 
		} elsif ($luck == 2 || $luck == 3) {
			$server->command ("MSG $target <rr> $nick is a winner. You, get to stay.");
		} elsif ($luck == 4) {
			$server->command ("KICK $target $nick <rr> better luck next time");
		} elsif ($luck == 5) {
			$server->command ("MODE $target +v $nick");
			$server->command ("MSG $target <rr> $nick is a lucker.");
		} else {
			# wtf!
		}
	}


	if ($msg =~ /^!rr/) {
		$server->command ("MSG $target RUSSIAN ROULETTE - Take your chances. 2:1 odds. Type !spin to see if you win or lose.");
	}

}

Irssi::signal_add_last("message public", "on_msg");
Irssi::signal_add_last("message own_public", "on_msg");