@program FMLcg.muf
1 10000 d
i
$include $lib/rp
$include $lib/fml
$include $lib/alynna
$def AVATAR #21
lvar param
: chargen-init
param @ tolower

;
: help-me
{
"FML Chargen (C) 2001 Alynna, Foxtrot"
""
" +chargen <primary|secondary|tertiary>"
"  Select character type"
} atellme
;

: main
param !
command @ "{+cg|+chargen}" smatch if chargen-init then
help-me
;
.
c
q