From d6d3e5c3111ebcb6215687a57feee26c983c69ab Mon Sep 17 00:00:00 2001 From: Mike Rix Wolfe Date: Mon, 1 Dec 2014 13:04:58 -0600 Subject: Add rknockout Added rknockout function for colorful knockouts.--- scripts/rainbow.pl | 26 +++++++++++++++++++++++++- 1 file changed, 25 insertions(+), 1 deletion(-) diff --git a/scripts/rainbow.pl b/scripts/rainbow.pl index 4b0361b..0dd292d 100644 --- a/scripts/rainbow.pl +++ b/scripts/rainbow.pl @@ -13,6 +13,9 @@ # # /RKICK [reason] # - kicks nick from the current channel with coloured reason +# +# /RKNOCKOUT [time] [reason] +# - knockouts nicks from the current channel with coloured reason for time # Written by Jakub Jankowski # for Irssi 0.7.98.4 and newer @@ -20,7 +23,7 @@ use strict; use vars qw($VERSION %IRSSI); -$VERSION = "1.5"; +$VERSION = "1.6"; %IRSSI = ( authors => 'Jakub Jankowski', contact => 'shasta@atn.pl', @@ -133,10 +136,30 @@ sub rkick { } } +# void rknockout($text, $server, $destination) +# handles /rknockout +sub rknockout { + my ($text, $server, $dest) = @_; + + if (!$server || !$server->{connected}) { + Irssi::print("Not connected to server"); + return; + } + + if ($dest && $dest->{type} eq "CHANNEL") { + my ($time, $nick, $reason) = split(/ +/, $text, 3); + ($time, $nick, $reason) = (300, $time, $nick . " " . $reason) if ($time !~ m/^\d+$/); + return unless $nick; + $reason = "See you in " . $time . " seconds!" if ($reason =~ /^[\ ]*$/); + $dest->command("/knockout " . $time . " " . $nick . " " . make_colors($reason)); + } +} + Irssi::command_bind("rsay", "rsay"); Irssi::command_bind("rtopic", "rtopic"); Irssi::command_bind("rme", "rme"); Irssi::command_bind("rkick", "rkick"); +Irssi::command_bind("rknockout", "rknockout"); # changes: # @@ -146,3 +169,4 @@ Irssi::command_bind("rkick", "rkick"); # 02.02.2002: make_colors() doesn't assign any color to spaces (v1.3) # 23.02.2002: /rkick added # 26.11.2014: utf-8 support +# 01.12.2014: /rknockout added (v1.6) -- cgit v1.2.3 From b8013b4321e8a0cda5ca6c9b0070c21428b9dc3b Mon Sep 17 00:00:00 2001 From: Mike Rix Wolfe Date: Mon, 1 Dec 2014 13:40:59 -0600 Subject: Update scripts.yaml Updated rainbow.pl entry for v1.6--- _data/scripts.yaml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/_data/scripts.yaml b/_data/scripts.yaml index 271f5ad..76f6b91 100644 --- a/_data/scripts.yaml +++ b/_data/scripts.yaml @@ -3116,11 +3116,11 @@ contact: "shasta@atn.pl" description: "Prints colored text. Rather simple than sophisticated." filename: "rainbow.pl" - modified: "2008-05-17 17:39:09" + modified: "2014-12-01 13:04:09" license: "GNU GPLv2 or later" name: "rainbow" url: "http://irssi.atn.pl/" - version: "1.4" + version: "1.6" - authors: "Lasse Karstensen" contact: "lkarsten@stud.ntnu.no" -- cgit v1.2.3