blob: 6a9fc54c43875d78c6965533b76377d078962a72 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
# 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"
|