anda, traviesa
róbalo todo...
que de todas formas me voy quedando así:
vacío
ajeno
extraño...
hijo del viento y de las olas
de la travesía sin final
soy un barco que va
¿a la deriva?
No, no...
pero en contra de vientos y corrientes
con muchos riachuelos paralelos por recorrer
de los cuales no se puede retornar.
Dim PointLimit as RandomInt(200);
Public Class Pain {
Val as Int;
Over as Boolean;
StillHurt as Boolean;
}
// Everything is declared, let's BEGIN!
Foreach(Love as Mistake) { // Do it as many times as you fell in love wrongly.
Pain.Over = False;
Do Hurt(Itself);
While (Pain.Over = False); // Some pain. =]
For (Pain.Val = 0; Pain.Val = PointLimit) {
If Not (Pain.Over = True) Hurt(Itself);
Else Break For;
} // More pain? =P
Function Hurt (Person as Being) { // ... And here lies the pain.
Foreach (Wound as PastMark) {
CausePain;
}
If (PersonRecovers) {
Pain.Over = True;
Pain.Hurt = False;
}
}
// End. Wanna another try? =]
-----
Otro trabajo mezclando programación con poesía. Esta vez tratando de codificar un algoritmo imposible: el amor.
Aquí tienen el trabajo con una mejor vista. Perdonen, pero aquí no coge los códigos muy bien.
Espero les guste.
Meryovi De Dios ~
Cuando los brazos protectores de la misericordia
Se abren
Y dejan caer tal como a flor marchita a quienes firmemente sujetaban...
...Despacio cae, esa alma.
...Despacio se levanta, ese cuerpo.
...Mas rápido olvida la caída.
A la hora de perder el corazón, el cuchillo
Se acobarda
Y deja un murmullo romperse con un llanto desesperado...
...Con el que abandona toda frustración.
...Con el que se pierde entre sus sollozos.
...Mas rápido olvida que hubo algún temor.
Él está, entre la furia catastrófica del océano,
Pidiendo perdón.
Y se hinca, y se sume, dando señales de arrepentimiento eterno...
...Pero una eternidad no es basta para una furia desmesurada.
...Pero un simple perdón no justifica las acciones de un ser.
...Mas sus disculpas son tan vacías como la nada.
----- ~
Meryovi De Dios ~
Program Life
Uses
LifeLib;
Var
Food, Sleep, Water As Needs;
Happiness As LifeStrength;
Love As SomethingNeeded(4);
Age, Death As Integer;
Junction Person
Begin
Health As Status;
End;
Const
GotoSchool;
Work;
StayInHome;
Begin
Death := Random(100);
Happiness := 2 + Random(5);
Do
If (Age < Death) Read(Love);
Select Case (Love)
0 : Happiness := Happiness - 20; Break;
1 : Happiness := Happiness - 10; Break;
2 : Break;
3 : Happiness := Happiness + 10; Break;
4 : Happiness := Happiness + 15; Break;
End Case;
If (Happiness < -10) Then Death = 0 Else If (Happiness <> 80) Then
Death := Death + 1
Happiness := Happiness - 20
End;
If Not Person.Health Then
Hospital
End;
Age := Age + 1
While (Age <= Death); Write('Memento Mori...');
Readkey;
Write('Game Over');
End.
Procedure Hospital
Var
Methods As GoodOrBad;
Begin
If (Methods = Good) Then
Happiness = Happiness + 2
Death = Death - 1
Else If (Methods = Bad) Then
Happiness = Happiness - 2
Death = Death - 5
End;
End;
----~
Quizás para los programadores sea una broma.
Tal vez para las personas que no entienden mucho de esto sea un pequeño tormento lógico... :)
Nota Programadores: Si cambiamos los tipos de variables con tipos compatibles y eliminamos el uso de Junction en las declaraciones, estoy casi seguro que ha de funcionar en Turbo Pascal. ;)
-- Que pena que no sepa darle tabulaciones... pero si aprendo a dárselas se las pongo :)
Tabulado: Program Life Basics @ Deviantart, que es también una versión más desarrollada del mismo.
Meryovi De Dios~
