mirror of https://tildegit.org/Sunblade/Xenia.git
39 lines
1.0 KiB
Perl
39 lines
1.0 KiB
Perl
#!/usr/bin/perl
|
|
use strict;
|
|
use vars qw($VERSION %IRSSI);
|
|
|
|
use Irssi;
|
|
$VERSION = '1.00';
|
|
%IRSSI = (
|
|
authors => 'Sunblade',
|
|
contact => 'sunblade@tilde.club',
|
|
name => 'Xenia',
|
|
description => 'Functions for the #Enigma IRC Bot on Newnet.',
|
|
license => 'MIT',
|
|
);
|
|
|
|
sub event_privmsg {
|
|
# $data = "nick/#channel :text"
|
|
my ($server, $data, $nick, $address) = @_;
|
|
my ($target, $text) = split(/ :/, $data, 2);
|
|
if ($target == '#Enigma') {
|
|
if ($text eq '!try') {
|
|
try($nick, $target, $data, $server, $text);
|
|
}
|
|
}
|
|
}
|
|
|
|
sub try {
|
|
my ($nick, $target, $data, $server, $text) = @_;
|
|
my $tr = int(rand(1000000));
|
|
if ($tr != 738056) {
|
|
$server->command("MSG $target $nick you have failed to find the awarded ticket - r: $tr");
|
|
}
|
|
else {
|
|
$server->command("MSG $target $nick you have FOUND the awarded ticket...UNBELIEVABLE!");
|
|
}
|
|
# Irssi::print("Debug: $target $nick - $data / $server / $text");
|
|
}
|
|
|
|
Irssi::signal_add("event privmsg", "event_privmsg")
|