Geek mese

const int KiralylanySzepseg = 1; // A legszebb
const int KiralylanySexehseg = 2; // Meg epp nem fuvel-vaval...
const int KiralyPenz = 0xFFFFFFFFFFFFFFFF;
const int KiralysagNagysag = 0xFFFF;

mese()
{
 Szereplok sárkány, királyfi, királylány, király;

 while(sárkány.él)
 if(királyfi.ero>sárkány.ero)
 {
  sárkány-=feje;
 }
 else
 {
  királyfi.meghal();
 }

 if(sárkány.fejek==0)
 {
  sárkány.meghal();
  királyfi+=királylány+királyság/2;

  if(kiralylany.SzexEhseg>   0)
  {
    kiralyfi.event(MagaveTesz(kiralylany));
  }
  else
  {
    kiralyfi.event(Kinyir(kiralylany));
    kiralyfi.event(Kinyir(kiraly));

    if(kiraly != null)
    {
      delete kiraly;
      kiraly = null;
    }

    kiraly = new Kiraly(kiralyfi);

    while(kiraly.Boldogsag < Kiraly.MaxBoldogsag)
    {
      import(tancosqrvak);

      kiraly.event(MagaveTesz(tancosqrvak);
      if(kiraly.Boldogsag < Kiraly.MinBoldogsag)
      {
        kiraly.event(Kinyir(tancosqrvak);
      }
    }
}