Lab46 Wiki

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
<code perl>
 #!/usr/bin/perl
   use strict;
   use vars qw($VERSION %IRSSI);
   use LWP::Simple; 
   use Irssi qw(command_bind signal_add);
   use IO::File;

   $VERSION = '0.1';
   %IRSSI = (
   	authors		=> 'Jacob Pettie',
   	contact		=> 'jacob@adaptivelogicdesign.com',
   	name		=> 'die',
   	description	=> 'Roll a die.',
   	license		=> 'GPL',
   );

   my $lstate = '0';
   my $sleep = '0';

   sub own_question {
   	my ($server, $msg, $target) = @_;
   	question($server, $msg, "", $target);
   }
   
   sub public_question {
   	my ($server, $msg, $nick, $address, $target) = @_;
   	question($server, $msg, $nick, $target);
   }
   sub question($server, $msg, $nick, $target) {
   	my ($server, $msg, $nick, $target) = @_;
   	$_ = $msg;
   	#if (!/^roll:/i) { return 0; 
	#my $sleep = '';
  	if (/^sleep:$/i) {
		if ($nick eq 'Ocean'){
			$sleep = '1';
			$server->command('msg '.$target.' '.'casts Sleep on self.');
		}
	}
	if (/^wake:$/i) {
		if ($nick eq 'Ocean'){
			$sleep = '0';
			$server->command('msg '.$target.' '.'Oh, I see how it is, so now you want me to be around but not all the time....');
		}
	}
 	if ($sleep eq '0') {
	
   	if (/^roll:$/i) {
   		my $ia = int(rand(101));
		#if ($nick eq 'Saadybaby: '){
		#	$ia = 'is a big dork.';
		#}
   		$server->command('msg '.$target.' '.$nick.' rolled: '.$ia);
   		return 0;
   	}
	if(m/Tentacool/i) {
		$server->command('msg '.$target.' '.'Hi '.$nick);
	}
	if(m/\.com/i or m/\.net/i or m/\.org/i){
		my $file = Irssi::get_irssi_dir."/urls.txt";
		open (FILE, '>>', $file) or $server->command('msg '.$target.' '.'Could not open file.'); 
		print FILE time."\t".$nick."\t".$msg;
		print FILE "\n";
 		close (FILE);
	}
	if(/^light:$/i) {
		if ($nick eq 'Ocean' or $nick eq 'squirrel' or $nick eq 'wedge' or $nick eq 'asowers' or $nick eq 'polloloco'){
			if ($lstate eq '1'){
				$lstate = '0';
				$server->command('msg '.$target.' '.$nick.' turned the light off.');
			}else{
				$lstate = '1';
				$server->command('msg '.$target.' '.$nick.' turned the light on.');
			}
			my $res = get('http://admin:debian@10.80.1.245/Set.cmd?CMD=SetPower+P62='.$lstate);
		}
	}
	if (/^rick:$/i) {
		my $ia = int(rand(100));
		$ia = 'http://www.youtube.com/watch?v=oHg5SJYRHA0';
		$server->command('msg '.$target.' '.$nick.' rolled: '.$ia);
		return 0;
	}
	
	if (/^leek:$/i) {
		my $ia = 'http://www.youtube.com/watch?v=qs8pnY3BKn8';
		$server->command('msg '.$target.' '.$nick.' leeked: '.$ia);
		return 0;
	}
	
	if (/^nyan:$/i) {
		my $ia = 'http://www.nyan.cat';
		$server->command('msg '.$target.' '.$nick.' throws cat: '.$ia);
		return 0;
	}
	if (/^flip:$/i) {
		my $ia = '_|____|_\(`.´)/_|____|_';
		$server->command('msg '.$target.' '.$ia);
		return 0;
	}
	}	
	#if (!/^roll:/i) { return 0; }
} 
signal_add("message public", "public_question");
signal_add("message own_public", "own_question");
</code>
Lab46 Wiki

User Tools

Site Tools

Page Tools
