From 4795eac439380f8c1cd1229bef87c926de971621 Mon Sep 17 00:00:00 2001
From: Sunblade <sunblade@noreply.tildegit.org>
Date: Wed, 8 Oct 2025 14:10:51 +0000
Subject: [PATCH] Upload files to "/"

---
 xenia.pl | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 xenia.pl

diff --git a/xenia.pl b/xenia.pl
new file mode 100644
index 0000000..4d73c3f
--- /dev/null
+++ b/xenia.pl
@@ -0,0 +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 == '#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")