랜덤작명(이름길이:="", 앞고정이름:="", 뒷고정이름:="")
{
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,"중국인","아니에요")