Sub Love

// Let's see what's love about.

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 ~