#Random code generator
proc(_codegen, @codelength, @codetype, @codetype2,
#version 1.1
#How to use:
# call _codegen(NUMBER, type 1, type 2)
# The number determines how long the code is, and the 2 types determine which types of characters you want. 
# Accepted types are lower (lowercase), upper (UPPERCASE), number (numbers), & full (lower, upper, and number)

#checks
	assign(@string, '')
	if(@codelength == '', 
		assign(@codelength, 7)
	)
	if(@codetype == '', 
		assign(@codetype, full)
	)

#the characters
	assign(@lower, array(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))
	assign(@upper, array(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))
	assign(@number, array(1,2,3,4,5,6,7,8,9))
	assign(@full, array(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,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,1,2,3,4,5,6,7,8,9))

#set 1
	switch(@codetype,
	'lower',
		assign(@chars, array_get(@lower)),
	'upper',
		assign(@chars, array_get(@upper)),
	'number',
		assign(@chars, array_get(@number)),
	'full',
		assign(@chars, array_get(@full)),
	die('Fail: Invalid code type given')
	)
#set 2	
	if(@codetype2 !== '',
		switch(@codetype2,
		'lower',
			assign(@chars2, array_get(@lower)),
		'upper',
			assign(@chars2, array_get(@upper)),
		'number',
			assign(@chars2, array_get(@number)),
		'full',
			assign(@chars2, array_get(@full)),
		die('Fail: Invalid code type given')
		)
		foreach(@chars2, @i,
			array_push(@chars, @i)
		)
	)
#generating code
	for(assign(@i, 0), @i < @codelength, @i++,
		assign(@string[@i], @chars[rand(array_size(@chars))])
	)
	assign(@string, array_implode(@string, ''))

	return(@string)
)