add !pastebin command

1 files changed, 6 insertions, 0 deletions

diff --git a/wiki.tcl b/wiki.tcl
index 5135a92..6a9fc54 100644
--- a/wiki.tcl
+++ b/wiki.tcl
@@ -5,6 +5,8 @@ bind pub - !ewiki ewiki
 #bind pub - !say say
 bind pub - !mitsu mitsu
 bind pub - !google say
+bind pub - !pastebin pastebin
+bind pub - !ezcrypt pastebin
 
 proc say {nick host hand chan arg} {
 #   putserv "PRIVMSG $chan :$arg";
@@ -16,6 +18,10 @@ proc mitsu {nick host hand chan arg} {
 #   putserv "PRIVMSG $chan :das hier ist [string trimleft $chan #]";
 }
 
+proc pastebin {nick host hand chan arg} {
+  putserv "PRIVMSG $chan :Längere Texte bitte nicht in den Chat kopieren! Benutze stattdessen https://ezcrypt.it/ : kopiere den Text in das große Textfeld, klicke auf \"Submit\" und teile uns die URL mit, auf die du automatisch weitergeleitet wurdest.";
+}
+
 proc wiki {nick host hand chan arg} {
    global do_wiki
    if {[info exists do_wiki($nick:$chan)]} {