diff options
| author | David Leadbeater | 2014-12-01 20:48:53 +0000 |
|---|---|---|
| committer | David Leadbeater | 2014-12-01 20:48:53 +0000 |
| commit | 03534f10d9b760f4b119319e44fb4b7ee58ecf7f (patch) | |
| tree | 6dd92fd9910a14f3223bd4421cb8a4fe8e845b20 | |
| parent | 28765110c52116e35d36e50a01c4455578697b07 (diff) | |
| parent | b8013b4321e8a0cda5ca6c9b0070c21428b9dc3b (diff) | |
| download | scripts.irssi.org-03534f10d9b760f4b119319e44fb4b7ee58ecf7f.tar.bz2 | |
Merge pull request #95 from MikeRixWolfe/patch-1
Add rknockout
| -rw-r--r-- | _data/scripts.yaml | 4 | ||||
| -rw-r--r-- | scripts/rainbow.pl | 26 |
2 files changed, 27 insertions, 3 deletions
diff --git a/_data/scripts.yaml b/_data/scripts.yaml index 5c26130..6809d19 100644 --- a/_data/scripts.yaml +++ b/_data/scripts.yaml @@ -3126,11 +3126,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" 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 <nick> [reason] # - kicks nick from the current channel with coloured reason +# +# /RKNOCKOUT [time] <nicks> [reason] +# - knockouts nicks from the current channel with coloured reason for time # Written by Jakub Jankowski <shasta@atn.pl> # 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) |