Vicclap.hu - viccek "" keresés eredménye, 839 . oldal

A lord és a lady egy este bálba készülnek, és mivel tudják, hogy egész éjjel nem jönnek haza, kimenőt adnak a lakájnak.
A bálban éjfél körül a lady elfárad, és haza szeretne menni. A férj még beszélgetni akar a barátaival, így az asszony egyedül megy haza. Benyitva a nappaliba, látja, hogy a lakáj a szofán fekszik. Az asszony odaül mellé, és a fülébe suttogja:
- Azt akarom, hogy vegye le a ruhámat!
A lakáj engedelmeskedik. Ezután a lady újra megszólal:
- És most, húzza le a harisnyámat!
A lakáj megteszi.
- És legyen szíves, vegye le a melltartómat is!
Azt is leveszi.
- És most, a bugyimat is!
Ezután a lady felpattan, és így szól:
- Jól jegyezze meg! Ha még egyszer meglátom, hogy felveszi a ruháimat, azonnal kirúgom!

- Papa, Feri megkérte a kezemet, de én mondtam neki, hogy képtelen vagyok a mamámat elhagyni!
- Rendben, kislányom, akkor vidd őt is magaddal!

/* 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.

- Barátom, maga igazán csak az erős szervezetének köszönheti, hogy meggyógyult.
- Jó, hogy mondani tetszik. Már éppen fizetni akartam a doktor úrnak!

- Mi van akkor,ha nem kell menni a sünöknek iskolába?
- Sünidő.

- Hogy hívják az ülő zselét?
- Üldögél.
- És Üldögél feleségét?
- Zselatina.

A vándorcirkusz tönkrement, az egész állatállományt is elárverezték. Végezetül a szegény kobra, ő volt, aki került dobra!

- Két deci bort kérek!
- Nem adhatok bort részegeknek!
- Ja, már azt hittem, hogy azért, mert 15 éves vagyok...

- Ezentúl Gordiusnak foglak hívni - mondtam Iksznek.
- Miért?
- Azért, mert egy CSOMÓ hülyeséget beszélsz.

Egy bírósági tárgyaláson mindenki izgatottan várja az ítélethirdetést egy apasági perben. A bíró hirtelen feláll, odamegy a vádlotthoz, cigarettával kínálja és így szól:
- Gratulálok, apa lett.