랜덤작명(이름길이:="", 앞고정이름:="", 뒷고정이름:="")

{

loop

{

if 이름길이=

Random, 이름길이, 8, 12 ; 이름길이가 지정안되면 8~12자리의 영숫자 이름을 만듭니다.

loop,% 이름길이

{

Random, 숫자, 0 , 1 ; 숫자변수, true/false

if 숫자

Random, 글자, 0, 9 ; 0~9까지의 숫자

else ; 영어

{

Random, 글자, 97 , 122 ; 알파벳 a~z까지의 아스키코드값

글자:=Chr(글자) ; 아스키코드값을 알파벳문자로 바꿉니다.

}

이름=% 이름 글자 ; 랜덤하게 얻은 각 글자를 1개씩 이름에 입력합니다.

}

if 이름 contains 0,1,2,3,4,5,6,7,8,9

{

if 이름 contains a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z

return % 앞고정이름 이름 뒷고정이름 ; 이름에 숫자,영어 모두 들어가 있으면 이름을 반환합니다.

}

이름:= ; 이름 초기화, 이름에 숫자와 영어가 모두 포함 안되있으면 다시 작명합니다.

}

return false

}

loop,3

MsgBox, % 랜덤작명(8,"중국인","아니에요")