Azar sin repetir

Quiero escribir este código porque tuve opiniones diversas entre los profesores que lo evaluaron. Uno me dijo que era "lo obvio" y otro me dijo que era "un garabato" escrito en código.

En fin, funciona, pero si alguien quiere puede compartir otras formas u opiniones, ya saben...

Proceso azarSinRepetir

definir i, j, num Como Entero;
dimension num[20];

para i=0 hasta 19 Hacer
num[i] = azar(30)+1;
//Print sólo para ver el funcionamiento
Escribir "N°",i+1," = ", num[i];
para j=0 hasta i Hacer
si j != i && num[j] == num[i] Entonces
i = i - 1;
FinSi
FinPara
FinPara

FinProceso

Pacman vs Zombies

~~ primer intento de juego ~~

Esta es una variación de un 'algo incomprendido trabajo' de algoritmos, en donde nos pidieron un juego (con el mismo nombre) pero con muy pocas opciones.
No habíamos visto arreglos todavía, lo que abrió puertas a algunas modificaciones que de seguro surgirán una vez terminado los exámenes xD.

Saludos... y cualquier comentario es bienvenido

Proceso zombiesVsPacman

Definir opcion, victimas, puntos, nivel, zombies, pacmans, ataque, jugar, suerte Como Entero;
opcion = 0;
nivel = 20;
zombies = 0;
pacmans = 0;
ataque = 0;
puntos = 0;

mientras opcion != 2 hacer
Limpiar Pantalla;
Escribir "~~~~~  Zombies vs Pacman  ~~~~~";
Escribir "";
Escribir "1. Jugar.";
Escribir "2. Salir.";
leer opcion;

mientras opcion == 1 Hacer
Escribir "";
Escribir "1. Jugar como ZOMBIE.";
Escribir "   ( 5p por víctima, 40% posibilidades de ser atacado )";
Escribir "2. Jugar como PACMAN.";
Escribir "   ( 3p por víctima, 25% posibilidades de ser atacado )";

leer opcion;

mientras opcion != 1 && opcion != 2 Hacer
Escribir "Sólo puede elegir ZOMBIE (1) o PACMAN (2)";
leer opcion;
FinMientras

Escribir "";
Escribir "Cuántas víctimas quiere atacar:";
leer victimas;

mientras victimas < 1 || victimas > 100 Hacer
Escribir "Sólo puede comer entre 1 y 100 victimas.";
Escribir "Cuántas víctimas quiere atacar:";
leer victimas;
FinMientras

Si opcion == 1 Entonces
zombies = zombies + 1;
puntos = 5;
ataque = 40;
sino
pacmans = pacmans + 1;
puntos = 3;
ataque = 25;
FinSi

para jugar<-0 hasta victimas con paso 1 Hacer
suerte = azar(100)+1;
Escribir "";
Escribir "Atacando a víctima ", jugar;
si suerte <= ataque Entonces
Escribir "Has sido atacado!!";
Esperar 0.3 Segundos;
nivel = nivel - 10;
Si nivel < 1 Entonces
Escribir "Lo sentimos, usted ha muerto!!";
jugar = victimas;
Sino
Escribir "Tus puntos de vida son: ", nivel;
FinSi
Sino
nivel = nivel + puntos;
Escribir "Ataque exitoso!!";
Esperar 0.3 Segundos;
Escribir "Tus puntos de vida son: ", nivel;
FinSi
Esperar 1 Segundos;
FinPara


si nivel >=5 Entonces
Escribir "";
Escribir "GANASTEEE !!";
FinSi

Escribir "";
Escribir "Presiona una tecla para continuar...";
Esperar Tecla;
opcion = 0;
FinMientras

si opcion == 2 entonces
Escribir "";
Escribir "Jugadores como Zombie: ", zombies;
Escribir "Jugadores como Pacman: ", pacmans;
FinSi
Esperar 2 Segundos;
FinMientras

FinProceso

Para empezar...

     En primer lugar, a modo de anticipada defensa, quisiera argumentar que al momento de escribir esto en mis venas solo corre un semestre de estudios de programación, por lo que no encontrarán en este blog cosas muy avanzadas ni soluciones a los problemas existenciales de la vida en código...

     Entonces, ¿por qué hacer un blog y publicar código que a mi propia visión es "defectuoso"? Justamente por eso, porque aunque soy nuevo en la programación tengo ya varios años en la vida y la completa claridad de que los errores son nuestro mejor maestro. En clases, lo que más me ha ayudado a mejorar es tratar de ayudar a otros compañeros, enfrentarme a formas de pensamiento distintas y tratar de ver si hay alguna inconsistencia en el planteamiento lógico (sólo para no decir "errores" :P). 

     En fin, son absolutamente bienvenidos a este blog, tienen mi agradecimiento desde ya las personas que leyeron hasta aquí y también la completa libertad de copiar, utilizar, despedazar y comentar cualquier código que esté publicado. 

Saludos.

Francisco Valdés

~ecodisonante~