62 lines
1.7 KiB
Tcl
62 lines
1.7 KiB
Tcl
# lastseen by xeno
|
|
|
|
bind pub - !wiki wiki
|
|
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";
|
|
# putserv "PRIVMSG $chan :das hier ist [string trimleft $chan #]";
|
|
}
|
|
|
|
proc mitsu {nick host hand chan arg} {
|
|
putserv "PRIVMSG $chan :www.mitsu-talk.de";
|
|
# 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)]} {
|
|
putserv "NOTICE $nick :no flooding!"
|
|
return 0;
|
|
}
|
|
set do_wiki($nick:$chan) 1
|
|
timer 1 "unset do_wiki($nick:$chan)"
|
|
set arg [string trim $arg]
|
|
if {$arg == ""} {
|
|
return 0
|
|
}
|
|
|
|
set output [split "[exec perl /home/eggdrop/eggdrop/scripts/wiki2.pl $arg de]" "\n"]
|
|
foreach out $output {
|
|
putserv "PRIVMSG $chan :$out";
|
|
}
|
|
}
|
|
|
|
proc ewiki {nick host hand chan arg} {
|
|
global do_wiki
|
|
if {[info exists do_wiki($nick:$chan)]} {
|
|
return 0;
|
|
}
|
|
set do_wiki($nick:$chan) 1
|
|
timer 1 "unset do_wiki($nick:$chan)"
|
|
set arg [string trim $arg]
|
|
if {$arg == ""} {
|
|
return 0
|
|
}
|
|
|
|
set output [split "[exec perl /home/eggdrop/eggdrop/scripts/wiki2.pl $arg en]" "\n"]
|
|
foreach out $output {
|
|
putserv "PRIVMSG $chan :$out";
|
|
}
|
|
}
|
|
|
|
putlog "wiki by lookshe loaded"
|