From 6fe1ded6fa46ac98d5b2643945ec5a0f1622c13e Mon Sep 17 00:00:00 2001
From: Sunblade <sunblade@noreply.tildegit.org>
Date: Wed, 8 Oct 2025 14:11:04 +0000
Subject: [PATCH] Delete Xenia.pl

---
 Xenia.pl | 38 --------------------------------------
 1 file changed, 38 deletions(-)
 delete mode 100644 Xenia.pl

diff --git a/Xenia.pl b/Xenia.pl
deleted file mode 100644
index 4b62999..0000000
--- a/Xenia.pl
+++ /dev/null
@@ -1,38 +0,0 @@
-#!/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")