//Made by Rastrero for everyone
//love 4 all.
//namesystem is a mod of a "name changer scroll.." or something like.
//dont remember more.
[DIALOG d_menu_personaje_1]
0,0
page 0
noclose
nomove
gumppic 389 12 9
resizepic 258 99 9270 400 470
if (<src.body>==c_woman)
    gumppic 451 96 1888 <eval <src.color>>
else
    gumppic 451 96 1889 <eval <src.color>>
endif
resizepic 287 399 3000 226 124
resizepic 346 192 3000 106 179
if (<src.body>==c_man)
    gumppic 451 102 1848 <eval <src.findlayer.4.color>>
    dtext 381 271 0 Barba
    button 355 274 2223 2223 1 0 3
    button 425 274 2224 2224 1 0 4
else
    gumppic 451 102 1892 <eval <src.findlayer.23.color>>
endif
if (<src.body>==c_woman)
    //gumppic 450 94 1842 <eval <src.findlayer.11.color>-1>
else
    //gumppic 450 94 1846 <eval <src.findlayer.11.color>-1>
endif
dtext 386 231 0 Pelo
button 355 234 2223 2223 1 0 1
button 425 234 2224 2224 1 0 2
dtext 382 291 0 Torso
button 355 294 2223 2223 1 0 5
button 425 294 2224 2224 1 0 6
if (<src.body>==c_man)
    gumppic 450 97 1849 <eval <src.findlayer.5.color>>
else
    gumppic 450 97 1812 <eval <src.findlayer.5.color>>
endif
if (<src.body>==c_man)    
    gumppic 451 97 1890 
endif
dtext 376 311 0 Piernas
button 355 314 2223 2223 1 0 7
button 425 314 2224 2224 1 0 8
button 355 214 2223 2223 1 0 9
dtext 384 211 0 Sexo
button 425 214 2224 2224 1 0 10
button 355 254 2223 2223 1 0 11
dtext 384 251 0 Color
button 425 254 2224 2224 1 0 12
button 355 334 2223 2223 1 0 13
button 425 334 2224 2224 1 0 14
dtext 386 331 0 Piel
dtext 332 425 0 Fuerza
dtext 325 445 0 Destreza
dtext 321 465 0 Inteligencia
button 293 430 2223 2223 1 0 15
button 402 430 2224 2224 1 0 16
button 293 450 2223 2223 1 0 17
button 402 450 2224 2224 1 0 18
button 293 470 2223 2223 1 0 19
button 402 470 2224 2224 1 0 20
dtext 432 425 0 <src.str>
dtext 431 445 0 <src.dex>
dtext 431 465 0 <src.int>
button 566 489 247 248 1 0 21
local.totalstat=<src.str>+<src.dex>+<src.int>
dtext 296 496 0 Total: <eval <local.totalstat>>  /  200
dtext 569 510 1152 Finalizar
dtext 361 193 0 APARIENCIA
dtext 352 404 0 CAPACIDADES
dtext 380 115 1152 CREADOR DE PERSONAJE
//HAIR MATCHES
if (<tag0.hair1>==i_hair_short)
    gumppic 451 94 1875 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_long)
    gumppic 451 95 1876 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_buns)
    gumppic 451 95 1873 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_afro)
    gumppic 451 95 1873 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_ponytail)
    gumppic 451 95 1845 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_2_pigtails)
    gumppic 451 95 1870 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_krisna)
    gumppic 451 95 1874 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_pageboy)
    gumppic 451 95 1871 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_mohawk)
    gumppic 451 95 1877 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_LF)
    gumppic 451 95 1842 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_short1)
    gumppic 451 95 1842 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_elven_ML)
    gumppic 451 95 1842 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_elven_mullet)
    gumppic 451 95 1842 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_elven_flower)
    gumppic 451 95 1842 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_elven_long2)
    gumppic 451 95 1842 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_elven_long3)
    gumppic 451 95 1842 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_elven_braid)
    gumppic 451 95 1842 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_elven_long4)
    gumppic 451 95 1842 <eval <src.findlayer.11.color>-1>
elif (<src.findlayer.11.baseid>==i_hair_elven_spike)
    gumppic 451 95 1842 <eval <src.findlayer.11.color>-1>
endif
if (<src.findlayer.16.baseid>==i_beard_goatee))
    gumppic 451 96 1881 <eval <src.findlayer.16.color>-1>
elif (<src.findlayer.16.baseid>==i_beard_long)
    gumppic 451 96 1882 <eval <src.findlayer.16.color>-1>
elif (<src.findlayer.16.baseid>==i_beard_mustache)
    gumppic 451 96 1884 <eval <src.findlayer.16.color>-1>
elif (<src.findlayer.16.baseid>==i_beard_short)
    gumppic 451 96 1885 <eval <src.findlayer.16.color>-1>
elif (<src.findlayer.16.baseid>==i_beard_short_med)
    gumppic 451 96 1886 <eval <src.findlayer.16.color>-1>
elif (<src.findlayer.16.baseid>==i_beard_vandyke)
    gumppic 451 96 1887 <eval <src.findlayer.16.color>-1>
elif (<src.findlayer.16.baseid>==i_beard_long_med)
    gumppic 451 96 1883 <eval <src.findlayer.16.color>-1>
endif
dtext 281 157 1152 NOMBRE:
if !(<tag0.nombre>)
    resizepic 344 150 3000 202 33
    dtextentry 350 157 187 20 0 0
else
    resizepic 344 150 3000 202 33
    dtext 350 157 0 <name>
else
endif
src.resend
[DIALOG d_menu_personaje_1 button]
//ON=0
ON=1
src.findlayer.11.remove
src.sdialog d_menu_personaje_1
on=2
if (<src.body>==c_man)
serv.newitem=random_male_hair
else
serv.newitem=random_female_hair
endif
new.color=colors_hair
src.findlayer.11.remove
src.equip=<new>
src.sdialog d_menu_personaje_1
ON=3
src.findlayer.16.remove
src.sdialog d_menu_personaje_1
ON=4
serv.newitem=random_facial_hair
new.color=<src.findlayer.11.color>
src.findlayer.16.remove
src.equip=<new>
src.sdialog d_menu_personaje_1
ON=5
if (<src.findlayer.5.color><=6)
    src.findlayer.5.color=91
endif
src.findlayer.5.color -=5
src.sdialog d_menu_personaje_1
ON=6
if (<src.findlayer.5.color>>=91)
    src.findlayer.5.color=2
else
    src.findlayer.5.color +=5
endif
src.sdialog d_menu_personaje_1
ON=7
if (<src.body>==c_man)
    if (<src.findlayer.4.color><=4)
        src.findlayer.4.color=91
    endif
    src.findlayer.4.color -=3
else
    if (<src.findlayer.23.color><=4)
        src.findlayer.23.color=91
    endif
    src.findlayer.23.color -=3
endif
src.sdialog d_menu_personaje_1
ON=8
if (<src.body>==c_man)
    if (<src.findlayer.4.color>>=91)
        src.findlayer.4.color=2
    else
        src.findlayer.4.color +=5
    endif
else
    if (<src.findlayer.23.color>>=91)
        src.findlayer.23.color=2
    else
        src.findlayer.23.color +=5
    endif
endif
src.sdialog d_menu_personaje_1
ON=9 10
if (<src.body>==c_man)
    src.body=c_woman
    src.obody=c_woman
    serv.newitem=random_female_hair
    new.color=<src.findlayer.11.color>
    src.findlayer.11.remove
    src.equip=<new>
    serv.newitem=i_skirt_long
    new.color=<src.findlayer.4.color>
    src.findlayer.16.remove
    src.findlayer.4.remove
    src.equip=<new>
else
    src.body=c_man
    src.obody=c_man
    serv.newitem=random_male_hair
    new.color=<src.findlayer.11.color>
    src.findlayer.11.remove
    src.equip=<new>
    serv.newitem=random_facial_hair
    new.color=<src.findlayer.11.color>
    src.equip=<new>
    serv.newitem=i_pants_short
    new.color=<src.findlayer.23.color>
    src.findlayer.23.remove
    src.equip=<new>
endif
src.sdialog d_menu_personaje_1
on=11
if (<src.findlayer.11.color><=1102) || (<src.findlayer.16.color><=1102)
    src.findlayer.11.color=1148
    src.findlayer.16.color=1148
else
    src.findlayer.11.color -=1
    src.findlayer.16.color -=1
endif
src.sdialog d_menu_personaje_1
ON=12
if (<src.findlayer.11.color>>=1148) || (<src.findlayer.16.color>>=1148)
    src.findlayer.11.color=1102
    src.findlayer.16.color=1102
else
    src.findlayer.11.color +=1
    src.findlayer.16.color +=1
endif
src.sdialog d_menu_personaje_1
ON=13
if (<src.color><=1002)
    src.color=1057
else
    src.color -=1
endif
src.sdialog d_menu_personaje_1
ON=14
if <src.color>>=1057
    src.color=1002
else
    src.color +=1
endif
src.sdialog d_menu_personaje_1
ON=15
if (<src.str><=50)
    src.sysmessage Minimo de fuerza alcanzado.
    src.sdialog d_menu_personaje_1
    return 1
endif
str -=1
src.sdialog d_menu_personaje_1
ON=16
local.ii=<dex>+<str>+<int>
if (<src.str>>=110)
    src.sysmessage Maximo de fuerza alcanzado.
    src.sdialog d_menu_personaje_1
    return 1
endif
if (<local.ii>>=200)
    src.sysmessage Maximo total alcanzado.
    src.sdialog d_menu_personaje_1
    return 1
endif
src.str +=5
src.sdialog d_menu_personaje_1
ON=17
if (<src.dex><=10)
    src.sysmessage Minimo de destreza alcanzado.
    src.sdialog d_menu_personaje_1
    return 1
endif
src.dex -=5
src.sdialog d_menu_personaje_1
ON=18
local.ii=<dex>+<str>+<int>
if (<src.dex>>=110)
    src.sysmessage Maximo de destreza alcanzado.
    src.sdialog d_menu_personaje_1
    return 1
endif
if (<local.ii>>=200)
    src.sysmessage Maximo total alcanzado.
    src.sdialog d_menu_personaje_1
    return 1
endif
src.dex +=5
src.sdialog d_menu_personaje_1
ON=19
if (<src.int><=10)
    src.sysmessage Minimo de inteligencia alcanzado.
    src.sdialog d_menu_personaje_1
    return 1
endif
src.int -=5
src.sdialog d_menu_personaje_1
ON=20
local.ii=<dex>+<str>+<int>
if (<src.int>>=80)
    src.sysmessage Maximo de inteligencia alcanzado.
    src.sdialog d_menu_personaje_1
    return 1
endif
if (<local.ii>>=200)
    src.sdialog d_menu_personaje_1
    src.sysmessage Maximo total alcanzado.
    return 1
endif
src.int +=5
src.sdialog d_menu_personaje_1
ON=21
local.ii=<dex>+<str>+<int>
if !(<tag0.nombre>)
    if STRMATCH("[a-z]*","<argtxt[0]>") //strregex(^[a-z]+$,<argtxt[0]>) || strregex(^[A-Z]+$,<argtxt[0]>)
    IF (STRMATCH( *=*, <ARGTXT[0]> ))
        src.dialog d_menu_personaje_1
        RETURN 1
     elif !(STRCMPI("","<ARGTXT[0]>"))  // thanks to Acratia for 
        src.sysmessage Es necesario que pongas un nombre
        src.dialog d_menu_personaje_1
        return 1
     elif (STRMATCH(*eof*,<ARGTXT[0]> ))
        src.sysmessage no puedes utilizar eof en el nombre.
        src.dialog d_menu_personaje_1
        return 1
     elif (STRMATCH(*\n*,<ARGTXT[0]> ))
        src.sysmessage No puedes usar \ en el nombre.
        src.dialog d_menu_personaje_1
        return 1
     elif (STRMATCH(*plevel*,<ARGTXT[0]> ))
        src.sysmessage No puedes utilizar plevel en el nombre.
        src.dialog d_menu_personaje_1
        return 1
     elif (STRLEN(<ARGTXT[0]> ) > 16))
        src.sysmessage El nombre no puede contener mas de 16 caracteres.
        src.dialog d_menu_personaje_1
        return 1
     elif (STRLEN(<ARGTXT[0]> ) < 4))
        src.sysmessage El nombre no puede contener menos de 4 caracteres.
        src.dialog d_menu_personaje_1
        return 1
    endif
        local.length=<argtxt[0]>
        if (<eval strlen(<local.length>)> < 3) || (<eval strlen(<local.length>)> > 16)
            src.sysmessage Nombre Invalido
            src.sysmessage El nombre debe tener de 3 a 16 letras.
            src.sdialog d_menu_personaje_1
            return 1
        else
                //serv.LIST.player_names.ADD <argtxt[0]>
            src.name <argtxt[0]>
            src.sysmessage #@Tu nombre ahora es <src.name>
            tag0.nombre=1
        endif
    else
        src.sysmessage Nombre Invalido
        src.sysmessage Escribe solo con letras (a - z)
        src.dialog d_menu_personaje_1
        return 1
    endif
endif
if (<local.ii>!=200)
    src.sysmessage @,,1 Asignate minimo 200 puntos en total, en fuerza, inteligencia y destreza.
    src.sdialog d_menu_personaje_1
else
    src.sdialog d_siguiente_paso
endif