[elektro-etc] program :-)

[Erdos Zoltan]

Program buli2advanced;

Uses crt,fuck,drink;


Var Gere,Lemming,Fernandez : KiszáradtTorkúakKisEgyesülete;
2decis,3decis,félliteres : AlkoholTárolóEgyég;
Hubertus,Sör,Bor,Törköly : TorokNedvesítöAlkoholtartalmúItalok;



Begin
WriteLn('Haverok érkeztek, lehetséges végállomás> kocsma ');
Delay (5mp);
Goto Kocsma;
Repeat

WriteLn('Kocsma előtt');
LookIng for NyitvaTábla;
If kocsma nincs nyitva Then goto másikba;
If kocsma nyitva then Goto inside;
Until nincs valahol nyitva egy kocsma;

Goto pulthoz;
Get Hubertus,Sör,3decis;
Goto üres asztal;

Repeat
{Ide kell az Assembly rutin hisz ez jelentősen meggyorsítja az
eljárást}
asm
Mov 3decis,Sör {A Sör változót áttöltjük a 3decis váltózóba}
Mov hasba,Hubertus {A Hubertus változót betöltjük a Has változóba}
Mov hasba,3decis {A 3decis változó tartalmát áttöltjük a Has változóba}
end;
If 3decis = üres then Goto pulthoz;
Until Fernandez=kiütve,Gere=kiütve,Lemming=kiütve;
If kocsmáros say = "Takarodjatok innen" then Goto barátnőhöz;

Repeat
If a kapu be van zárva a barátnőnél then átmászni;
Until be nem jutsz;

Writeln ('Hol a picsába voltál eddig ... egész éjszaka vártalak ...
már megint be vagy baszva ... de büdös piaszagod van ... and so on ... ');
{ Összetalálkoztál a barátnőddel }

Repeat
If barátnő haragszik then kiengesztelni;
Until nem sikerül;

Repeat
{ Ujabb szélsebes rutin következik }
asm
Mov kéz, cippzárhoz
Mov kéz, aLeányzóNadrágjába
Mov nadrág, le
Push farok, leányba {a leány változónak 3 féle behatolási pontja van,
mindenki válassza ki a neki megfelelőt}
end;
Until meg nem unod;

If farok < 5cm then goto haza;

End.