ABOUT ME

-

Today
-
Yesterday
-
Total
-
  • 엉터리 단어 스크립트
    IRC-Script 2007. 4. 11. 15:36
    반응형

    ; --------------------------------------------------------------
    ; | 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로 컨버팅한것.

    반응형

    댓글 0

Copyright 2006-2021. Xeriars.com All rights reserved .