1 [$ if exists $udat{-id} and exists $udat{-game} $]
6 $aym = Aymargeddon->new($udat{-game},$udat{-id},$db);
7 $db->set_language($udat{-lang});
10 $open_earthling = $aym->is_open('CITY');
12 $open_god = $aym->is_open('MOUNTAIN');
15 ($open_observer) = $db->read_player($udat{-id},'SECURITY');
16 $open_observer = 0 if $open_observer eq 'USER';
18 ($gn) = $db->read_game($udat{-game},'NAME');
22 <form method="get" action="player.epl">
24 [+ $db->loc('PLAYER_CREATE_CHAR').' '.$gn +]:<p>
26 [+ $db->loc('NOM_CHARNAME') +]: <input type="text" name="charname" size="20" maxlength="20"><p>
28 [+ $db->loc('NOM_ROLE') +]:
29 [$ if $open_earthling $]
30 <input type="radio" name="role" value="EARTHLING">[+ $db->loc('ROLE_EARTHLING') +]
33 <input type="radio" name="role" value="GOD">[+ $db->loc('ROLE_GOD') +]
35 [$ if $open_observer $]
36 <input type="radio" name="role" value="OBSERVER">[+ $db->loc('ROLE_OBSERVER') +]
40 [+ $db->loc('NOM_GENDER') +]: <input type="radio" name="gender" value="MALE">[+ $db->loc('GEN_MALE') +]
41 <input type="radio" name="gender" value="FEMALE">[+ $db->loc('GEN_FEMALE') +]
42 <input type="radio" name="gender" value="PLURAL" checked>[+ $db->loc('GEN_PLURAL') +]<p>
43 [# [+ $db->loc('NOM_DESCRIPTION') +]: <input type="text" name="description"><p> #]
44 <input type="submit" value="[+ $db->loc('FORM_OK_BUTTON') +]">
50 [- print OUT $db->loc('ERROR_NO_LOGIN'); -]