영문이름 생성 스크립트

; ————————————————————

; | 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)