; ————————————————————–
; | Coded by PSG-01 (Perl) |
; | Converted by Xeriars (MSL) |
; | (변경해서 쓰는건 니맘대로지만 이 부분은 지우지 말아주세요.) |
; ————————————————————–
on *:text:*:#: {
if ($1 == @엉터리단어) {
if (!$2) { msg $chan Usage : @엉터리단어 단어명(영어만) | halt }
unset %jscript.*
set %jscript.chan $chan
set %jscript.word $2
set %jscript.error1 Your acronym must be composed only of letters. Call it a Y2K bug.
set %jscript.error2 Your acronym must have between 2 and 6 letters. Sorry about that, but TANSTAAFL.
sockclose junkword
sockopen junkword brunching.com 80
}
}
on *:sockopen:junkword*: {
sockwrite -nt $sockname GET /cgi/toy-acronymer.cgi?acronym= $+ %jscript.word HTTP/1.1
sockwrite -nt $sockname User-Agent: Kagebot Web Client
sockwrite -nt $sockname Host: brunching.com
sockwrite -nt $sockname Connection: Close
sockwrite -nt $sockname $crlf
}
on *:sockread:junkword: {
sockread %tmp
if (%jscript.temp == 1) {
set %jscript.result %tmp
unset %jscript.temp
if (%jscript.error1 == %jscript.result) { msg %jscript.chan Y2K 버그를 일으키고 싶지 않거든, 영어로만 입력하세요. | halt }
if (%jscript.error2 == %jscript.result) { msg %jscript.chan 단어는 2~6글자만 가능합니다. 다시 시도해주세요. | halt }
msg %jscript.chan $head %jscript.word : $+ %jscript.result
halt
}
if (<P><BIG><B> isin %tmp) {
set %jscript.temp 1
}
}
사용 예제 및 결과
[13:37:56] <@[Kage]> @엉터리단어 Kage
[13:37:57] <@[Kagebot^MKII]> KageBot – Kage : Kilo-Asymmetric Gateway Equipment
사실 예전에 만든건데.. 요즘 블로그가 썰렁해서.
한달전쯤인가 참진에 올렸던걸 고대로 올려주는 센스..;
원래 코딩은 푸성귀님이 펄로 하셨고. 그걸 다시 MSL로 컨버팅한것.