Sunblade
/
Xenia
mirror of https://tildegit.org/Sunblade/Xenia.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Compare commits

base: Sunblade:d54a896119f769dc49b94ffc4fbde3cd01efa39e
Branches Tags
Sunblade:main
..
compare: Sunblade:6fe1ded6fa46ac98d5b2643945ec5a0f1622c13e
Branches Tags
Sunblade:main

No commits in common. "d54a896119f769dc49b94ffc4fbde3cd01efa39e" and "6fe1ded6fa46ac98d5b2643945ec5a0f1622c13e" have entirely different histories.
d54a896119 ... 6fe1ded6fa

1 changed files with 37 additions and 37 deletions
Show Stats Expand all files Collapse all files

74
xenia.pl
View File

@ -1,37 +1,37 @@
#!/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 Xenia, my IRC bot on irc.newnet.net',
license => 'MIT',
);
sub event_privmsg {
# $data = "nick/#channel :text"
my ($server, $data, $nick, $address) = @_;
my ($target, $text) = split(/ :/, $data, 2);
if ($target eq '#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 - Found: #$tr");
}
else {
$server->command("MSG $target $nick you have FOUND the awarded ticket #$tr ... UNBELIEVABLE!");
}
# Irssi::print("Debug: $target $nick - $data / $server / $text");
}
Irssi::signal_add("event privmsg", "event_privmsg")
#!/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 Xenia, my IRC bot on irc.newnet.net',
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")