Sunblade/Xenia
1
0
Fork 0
mirror of https://tildegit.org/Sunblade/Xenia.git synced 2026-01-24 12:20:19 +00:00
Code Issues Packages Projects Releases Wiki Activity

Compare commits

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

4 Commits
6fe1ded6fa ... main

Author SHA1 Message Date
Sunblade
faa4ee5461 Update README.md 2025-11-26 19:11:57 +00:00
Sunblade
a2dbd0bfb4 Update xenia.pl 2025-10-22 18:41:16 +00:00
Sunblade
d54a896119 Update xenia.pl 2025-10-19 16:00:50 +00:00
Sunblade
db329dfa42 Update xenia.pl 2025-10-19 15:15:06 +00:00
2 changed files with 40 additions and 38 deletions
Expand all files Collapse all files

4
README.md
View File

@@ -2,4 +2,6 @@
Script for Irssi. Script for Irssi.
Functions for Xenia, my IRC bot on irc.newnet.net Functions for Xenia, my IRC bot on irc.newnet.net
At some point i plan port it to Limnoria or Eggdrop.

74
xenia.pl
View File

@@ -1,37 +1,37 @@
#!/usr/bin/perl use strict; #!/usr/bin/perl use strict;
use vars qw($VERSION %IRSSI); use vars qw($VERSION %IRSSI);
use Irssi;
use Irssi;
$VERSION = '1.00'; $VERSION = '1.00';
%IRSSI = ( %IRSSI = (
authors => 'Sunblade', authors => 'Sunblade',
contact => 'sunblade@tilde.club', contact => 'sunblade@tilde.club',
name => 'Xenia', name => 'Xenia',
description => 'Functions for Xenia, my IRC bot on irc.newnet.net', description => 'Functions for Xenia, my IRC bot on irc.newnet.net',
license => 'MIT', license => 'MIT',
); );
sub event_privmsg { sub event_privmsg {
# $data = "nick/#channel :text" # $data = "nick/#channel :text"
my ($server, $data, $nick, $address) = @_; my ($server, $data, $nick, $address) = @_;
my ($target, $text) = split(/ :/, $data, 2); my ($target, $text) = split(/ :/, $data, 2);
if ($target == '#Enigma') { if (lc($target) eq '#enigma') {
if ($text eq '!try') { if (lc($text) eq '!try') {
try($nick, $target, $data, $server, $text); try($nick, $target, $data, $server, $text);
} }
} }
} }
sub try { sub try {
my ($nick, $target, $data, $server, $text) = @_; my ($nick, $target, $data, $server, $text) = @_;
my $tr = int(rand(1000000)); my $tr = int(rand(1000000));
if ($tr != 738056) { if ($tr != 738056) {
$server->command("MSG $target $nick you have failed to find the awarded ticket - r: $tr"); $server->command("MSG $target $nick you have failed to find the awarded ticket - Found: #$tr");
} }
else { else {
$server->command("MSG $target $nick you have FOUND the awarded ticket...UNBELIEVABLE!"); $server->command("MSG $target $nick you have FOUND the awarded ticket #$tr ... UNBELIEVABLE!");
} }
# Irssi::print("Debug: $target $nick - $data / $server / $text"); # Irssi::print("Debug: $target $nick - $data / $server / $text");
} }
Irssi::signal_add("event privmsg", "event_privmsg") Irssi::signal_add("event privmsg", "event_privmsg")