Algoritmo de mi vida

Algoritmo de mi vida

Estaba estudiando AP y me he emparanoidao un poco. Ale post con un grado muy alto de Frikismo:

ALGORITMO Mi_Vida

CONST
....MAX_FELICIDAD=1000
FICONST

VAR
.... felicidad_actual, edad, esperanza: entero
.... muerte: booleana
FIVAR

Inicializar_Variables_Vida()
Nacer()

MIENTRAS (edad<5 style="font-weight: bold;">
FINMIENTRAS

MIENTRAS (edad<10 style="font-weight: bold;">
FINMIENTRAS

MIENTRAS (edad <15 style="font-weight: bold;">
FINMIENTRAS

MIENTRAS (edad <18 style="font-weight: bold;">
FINMIENTRAS

MIENTRAS (edad <40 style="font-weight: bold;">REPETIR
........Enamorarse()
........Disfrutar()
........Hacer_Jilipolleces_por_amor()
........SI (Amor_Correspondido()==TRUE) ENTONCES
............REPETIR
................SI (felicidad_actual <= MAX_FELICIDAD) ENTONCES
....................felicidad_actual++
................SINO
....................Soy_la_persona_mas_feliz_del_mundo()
................FINSI
................Disfrutar()
................Reir()
................Descubrir()
................Amar()
................//El amor rejuvenece...
................edad--
............MIENTRAS(Llama_del_amor()==TRUE)
........SINO
............felicidad_actual--
............Llorar()
............Sufrir()
............Olvidar()
............Valorar_otras_cosas(amistad,familia,estudios,...)
............Tener_Orzuelos() // ??????
............esperanza--
........FINSI
....MIENTRAS(esperanza>0)
....edad++
FINMIENTRAS

//A LOS 40 AÑOS SIGO...

FINALGORITMO