ABOUT ME

-

Today
-
Yesterday
-
Total
-
  • 영문이름 생성 스크립트
    IRC-Script 2006. 5. 22. 08:49
    반응형

    ; ------------------------------------------------------------
    ; | Made by Xeriars                                                               |
    ; | (변경해서 쓰는건 니맘대로지만 이 부분은 지우지 말아주세요.)  |
    ; ------------------------------------------------------------

    alias engnick {
      var %i = 0
      var %englan = 3
      var %pron = $uiif(a,e,i,o,u)
      var %pron2 = $read(pron.txt)
      var %suc = $rand(1,3)
      while (%i < %englan) {
       inc %i
       if ((%suc == 1) || (%suc == 3)) {
         var %compnick = %compnick $+ %pron2 $+ %pron
       }
       if (%suc == 2) {
         var %compnick = %compnick $+ %pron2 $+ %pron2 $+ %pron
       }
       var %suc = $rand(1,3)
       var %pron = $uiif(a,e,i,o,u)
       var %pron2 = $read(pron.txt)
      }
      return %compnick
    }

    pron.txt 내용..

    $rand(a,z)
    sh
    $rand(a,z)
    th
    $rand(a,z)
    ch
    $rand(a,z)
    kn
    $rand(a,z)
    ph
    $rand(a,z)
    $rand(a,z)
    $rand(a,z)
    $rand(a,z)
    $rand(a,z)
    $rand(a,z)
    $rand(a,z)

    반응형

    댓글 0

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