Vicclap.hu - viccek archívum, 1176 . oldal

Az újdonsült apuka kirohan a szülőszobából, hogy elújságolja a hírt a kint várakozó családtagoknak:
- Ikreink születtek!
- Na és kire hasonlítanak? - kérdezi a nagymama.
A férfi elgondolkodik, majd felel:
- Hát egymásra!

/* Addig jar a korsó a kútra... */

while( state(Korso) != _BROKEN ) go( Korso, &Kut);

--------------------------------------------------------------------------------

/* Ki mint vet, úgy arat */

set_quality( Aratas, get_quality(Vetes) );

--------------------------------------------------------------------------------

/* Ajandék lónak... */

if( origin(Horse) == _SOUVENIR ) Allow_Look_At.Teeth=0;

--------------------------------------------------------------------------------

/* Soha ne a falu legszebb lányát vedd feleségül! */

if( bride_ID == most_beautiful( GetAllGirls(_THIS_VILLAGE))) exit(-1);

--------------------------------------------------------------------------------

{Ki korán kel, aranyat lel}

If TimeToInt(Wakeup.Time)<TimeToInt(StrToTime("06:00:00")) then
AddToList(UserLoggedIn.FoundItems,Gold);

--------------------------------------------------------------------------------

{Nezd meg az anyjat, vedd el a lanyat}

Function May_I_Marry_Her(Girl: TGirl):boolean;
begin
With Girl.Mother do
May_I_Marry_Her:=((Body.Qality="attractive") and
(face.Quality="beautiful"));
end;


--------------------------------------------------------------------------------

{Aki máasnak vermet ás az a sírásó}

type
TEmployed=class(THuman)
Job : String[30];
procedure OnGraveDigging( Sender: Tobject);
private
{ Private declarations }
public
{ Public declarations }
end;
Procedure TEmployed.OnGraveDigging( Sender: Tobject);
begin
Sender.Job:="GraveDigger";
end;

--------------------------------------------------------------------------------

{Egyszer volt Budán kutyavásár}

Const
Num_Of_Dog_Buying_In_Buda=1;

--------------------------------------------------------------------------------

/* Sok lúd disznót gyöz */

uses animals;
var lud, diszno: Tanimal;
Procedure Attack(A, B: Tanimal; NumA, NumB: Word);
begin
If NumA*A.Strength>NumB*B.Strength then write(A.Caption)
else if NumA*A.Strength<NumB*B.Strength then write(B.Caption)
else write('Nobody');
writeln(' Won');
end;
begin
Lud.Caption:='Lúd';
Lud.Strength:=10;
Diszno.Caption:='Disznó';
Diszno.Strength:=540;
Attack(Lud, Diszno, 1, 1 );
Attack(Lud, Diszno, 20, 1 );
Attack(Lud, Doszno, 60, 1 );
end.
F9 (Run)

Result:

Disznó Won.
Disznó Won.
Lúd Won.

- Anyu, fürödhetek a tengerben?
- Nem kisfiam, teli van cápákkal!
- De anyu, apu is fürdik!
- Igen kisfiam, de neki van életbiztosítása!

Tegnap este azt álmodtam, hogy gyár van a hasamban, mikor felkeltem már csak a kémény állt...

- Mikor ünnepelnek a kannibálok?
- ???
- Ha egy fiatal nő-sül.

Egy szőke New Yorkba megy nyaralni, megérkezik a reptérre, kiszáll, satöbbi, és hív egy taxit.
- Az XY szállodába, legyen szíves.
- Excuse me, I don't understand it.
- Ezt fura, pedig a filmekben mindig tudnak magyarul...

Kedves Mikulás!
Szeretnék egy hajós Barbit, egy autós Barbit, egy síelős Barbit, egy repülőgépes Barbit, egy motoros Barbit és egy diszkós Barbit! Mást nem.
Köszi: Kati

Kedves Kati!
Eszedbe jutott már, hogy diplomás Barbie miért nem létezik? Javaslom, inkább tanulj, ahelyett, hogy babázol, mert anyádat elnézve te nem leszel olyan szép, mint Barbie, és akkor cseszheted, hogy bárki is eltartson.
Üdvölettel: Mikulás

- Mit iszik a csöves?
- ???
- Kuka-kólát.

- Kérem, ebben a tyúklevesben nincs hús!
- Na és? A halászlében sincs halász!

Süllyed egy hajó a tengeren. A skót házaspár kétségbeesetten áll a korlátnál. Az asszony síránkozik:
- Ennél rosszabb már nem is történhetett volna velünk!
- Dehogynem. - szól a férj. - Hát még ha retúrjegyet vettünk volna!