[BATCH][Aporte] Generador de 'apodos'

[Mudereded401]

  Hola chicos. Hace rato estaba intentando crearme un nickname en un juego, Pero no tengo casi nada de imaginación para ese tipo de cosas   Entonces "rápidamente" creé éste código (me tomó como 30 minutos xd), y creo que está un poco interesante aunque bastante simple.

 No lo hice en otro lenguaje porque ¿Para qué?   ya que lo quería hacer fast y simple pues así mismo fue como me salió y no se preocupen por la cantidad tan grande de if's, que Hot keyboard pro me aligeró el peso  

Código [Seleccionar] Expandir

@echo off
title  


:inicio
mode 60,20
cls
color 0f
echo.
echo  Escribe el largo que quieres que tenga tu nombre.
echo.
echo   Nota: El largo puede variar para que el nombre no
echo          quede de forma ilegible.
set/p largo= :
:inicio_
cls
echo.
echo  Escribe la cantidad de nombres que quieres generar.
echo.
echo   Nota: Entre mas nombres, Mas tardara.
echo.
set/p repeticiones= :
if %repeticiones%==0 (goto inicio_)

set "nombre="
set contador=0
set contador_=1

:bucle
set/a seleccionar=(%random%*141/32768)+1
set/a seleccionar=(%random%*141/32768)+1
if %seleccionar%==1 (set l=aa)
if %seleccionar%==2 (set l=ae)
if %seleccionar%==3 (set l=ai)
if %seleccionar%==4 (set l=ao)
if %seleccionar%==5 (set l=au)
if %seleccionar%==6 (set l=ba)
if %seleccionar%==7 (set l=be)
if %seleccionar%==8 (set l=bi)
if %seleccionar%==9 (set l=bo)
if %seleccionar%==10 (set l=bu)
if %seleccionar%==11 (set l=ca)
if %seleccionar%==12 (set l=ce)
if %seleccionar%==13 (set l=ci)
if %seleccionar%==14 (set l=co)
if %seleccionar%==15 (set l=cu)
if %seleccionar%==16 (set l=da)
if %seleccionar%==17 (set l=de)
if %seleccionar%==18 (set l=di)
if %seleccionar%==19 (set l=do)
if %seleccionar%==20 (set l=du)
if %seleccionar%==21 (set l=ea)
if %seleccionar%==22 (set l=ee)
if %seleccionar%==23 (set l=ei)
if %seleccionar%==24 (set l=eo)
if %seleccionar%==25 (set l=eu)
if %seleccionar%==26 (set l=fa)
if %seleccionar%==27 (set l=fe)
if %seleccionar%==28 (set l=fi)
if %seleccionar%==29 (set l=fo)
if %seleccionar%==30 (set l=fu)
if %seleccionar%==31 (set l=ga)
if %seleccionar%==32 (set l=ge)
if %seleccionar%==33 (set l=gi)
if %seleccionar%==34 (set l=go)
if %seleccionar%==35 (set l=gu)
if %seleccionar%==36 (set l=ha)
if %seleccionar%==37 (set l=he)
if %seleccionar%==38 (set l=hi)
if %seleccionar%==39 (set l=ho)
if %seleccionar%==40 (set l=hu)
if %seleccionar%==41 (set l=ia)
if %seleccionar%==42 (set l=ie)
if %seleccionar%==43 (set l=ii)
if %seleccionar%==44 (set l=io)
if %seleccionar%==45 (set l=iu)
if %seleccionar%==46 (set l=ja)
if %seleccionar%==47 (set l=je)
if %seleccionar%==48 (set l=ji)
if %seleccionar%==49 (set l=jo)
if %seleccionar%==50 (set l=ju)
if %seleccionar%==51 (set l=ka)
if %seleccionar%==52 (set l=que)
if %seleccionar%==53 (set l=ki)
if %seleccionar%==54 (set l=ko)
if %seleccionar%==55 (set l=ku)
if %seleccionar%==56 (set l=la)
if %seleccionar%==57 (set l=le)
if %seleccionar%==58 (set l=li)
if %seleccionar%==59 (set l=lo)
if %seleccionar%==60 (set l=lu)
if %seleccionar%==61 (set l=ma)
if %seleccionar%==62 (set l=me)
if %seleccionar%==63 (set l=mi)
if %seleccionar%==64 (set l=mo)
if %seleccionar%==65 (set l=mu)
if %seleccionar%==66 (set l=na)
if %seleccionar%==67 (set l=ne)
if %seleccionar%==68 (set l=ni)
if %seleccionar%==69 (set l=no)
if %seleccionar%==70 (set l=')
if %seleccionar%==71 (set l=oa)
if %seleccionar%==72 (set l=oe)
if %seleccionar%==73 (set l=oi)
if %seleccionar%==74 (set l=oo)
if %seleccionar%==75 (set l=ou)
if %seleccionar%==76 (set l=pa)
if %seleccionar%==77 (set l=pe)
if %seleccionar%==78 (set l=pi)
if %seleccionar%==79 (set l=po)
if %seleccionar%==80 (set l=pu)
if %seleccionar%==81 (set l=a)
if %seleccionar%==82 (set l=e)
if %seleccionar%==83 (set l=i)
if %seleccionar%==84 (set l=o)
if %seleccionar%==85 (set l=u)
if %seleccionar%==86 (set l=qa)
if %seleccionar%==87 (set l=qe)
if %seleccionar%==88 (set l=qi)
if %seleccionar%==89 (set l=qo)
if %seleccionar%==90 (set l=qu)
if %seleccionar%==91 (set l=ra)
if %seleccionar%==92 (set l=re)
if %seleccionar%==93 (set l=ri)
if %seleccionar%==94 (set l=ro)
if %seleccionar%==95 (set l=ru)
if %seleccionar%==96 (set l=sa)
if %seleccionar%==97 (set l=se)
if %seleccionar%==98 (set l=si)
if %seleccionar%==99 (set l=so)
if %seleccionar%==100 (set l=su)
if %seleccionar%==101 (set l=ta)
if %seleccionar%==102 (set l=te)
if %seleccionar%==103 (set l=ti)
if %seleccionar%==104 (set l=to)
if %seleccionar%==105 (set l=tu)
if %seleccionar%==106 (set l=ua)
if %seleccionar%==107 (set l=ue)
if %seleccionar%==108 (set l=ui)
if %seleccionar%==109 (set l=uo)
if %seleccionar%==110 (set l=uu)
if %seleccionar%==111 (set l=va)
if %seleccionar%==112 (set l=ve)
if %seleccionar%==113 (set l=vi)
if %seleccionar%==114 (set l=vo)
if %seleccionar%==115 (set l=vu)
if %seleccionar%==116 (set l=wa)
if %seleccionar%==117 (set l=we)
if %seleccionar%==118 (set l=wi)
if %seleccionar%==119 (set l=wo)
if %seleccionar%==120 (set l=wu)
if %seleccionar%==121 (set l=xa)
if %seleccionar%==122 (set l=xe)
if %seleccionar%==123 (set l=xi)
if %seleccionar%==124 (set l=xo)
if %seleccionar%==125 (set l=xu)
if %seleccionar%==126 (set l=ya)
if %seleccionar%==127 (set l=ye)
if %seleccionar%==128 (set l=yi)
if %seleccionar%==129 (set l=yo)
if %seleccionar%==130 (set l=yu)
if %seleccionar%==131 (set l=za)
if %seleccionar%==132 (set l=ze)
if %seleccionar%==133 (set l=zi)
if %seleccionar%==134 (set l=zo)
if %seleccionar%==135 (set l=zu)
if %seleccionar%==136 (set l=lla)
if %seleccionar%==137 (set l=lle)
if %seleccionar%==138 (set l=lli)
if %seleccionar%==139 (set l=llo)
if %seleccionar%==140 (set l=llu)
if %seleccionar%==141 (set l=nu)
set/a contador+=1

set nombre=%nombre%%l%

if %contador%==%largo% (goto end) else (goto bucle)

:end
echo  Nombre generado : %nombre%
if %contador_% NEQ %repeticiones% (
set/a contador_+=1
set contador=0
set "nombre="
goto bucle
)
echo.
echo terminado.
pause>nul
goto inicio

pd: A la final me quedé con el nickname "Atvees"

[Machacador]

Y si quiero uno con eñe... donde está la Ñ???...

[Mudereded401]

Y si quiero uno con eñe... donde está la Ñ???...

No la agregué porque no creí que fuese de utilidad jaja, nunca he oído a alguien que tenga una Ñ en su nombre, pero supongo que si deben haber personas así.

De todas formas, puedes simplemente agregar un IF, con la Ñ (o cualquier caracter raro extra que quieras) (ej:if %seleccionar%==142 (set l=ñ)) Y le agregas un 1 a el evento random:

set/a seleccionar=(%random%*141/32768)+1

Ahora:

set/a seleccionar=(%random%*142/32768)+1

Saludos 

[Serapis]

castaño, sureño, español, montaña, mañana, niño, piña, pequeño... haber, los hay... y no son nada raros.

Haciendo cosas en español quien se dedique a programar siempre debería considerar la ñ.

[Xyzed]

Haciendo cosas en español quien se dedique a programar siempre debería considerar la ñ.

Exacto, es parte de nuestro abecedario, no tiene porque no ser tomado en cuenta. No somos yanquis