Keresés

Hirdetés

Aktív témák

  • FaBatka

    aktív tag

    Megtörtént eset!

    Tag vett Ramot a Hp gépébe. Hazavitte berakta. 10 perc múlva már hív is. Mivel a gép HP volt érzékelte, hogy több lett a memória mennyisége ki is írta, hogy nyomjon egy F1-t, hogy elmentse a dolgokat. Mondom a telefonbe, hogy akkor uzsgyi, nyomja meg. Két kattanás, mejd megkérdezi, hogy ''Most enter?'' Mondom, nem. Csak szimplán F1. Erre jön a kérdés:
    Nagy ''F''-fel?

    Jajj!

    Mindegy mit csinálsz a Windowsban, a Nagy Kék Halál úgyis ítélkezik feletted...

  • FaBatka

    aktív tag

    BKV ellenőr a buszon:

    - Jegyeket, bérleteket kérek!

    Már jön is a válasz:

    - Anyád tudja, hogy kéregetsz?

    Mindegy mit csinálsz a Windowsban, a Nagy Kék Halál úgyis ítélkezik feletted...

  • FaBatka

    aktív tag

    2 hangya be van lőve fentrengnek az uton a röhögéstől
    Arra megy az elefánt. A két hangya, röhögve:
    - Fogadjunk, hogy nem tudod ezt a morzsát feltenni a fejedre!
    Az elefánt felteszi a morzsát a fejére a két hangya, röhögve:
    - Fogadjunk nem tudsz ráállni erre a másik morzsára!
    Az elefánt rááll a morzsára ...
    A két hangya a földön fentereg, sikoltva röhög:
    - Bazzeg, ez egy kibaszott nagy szendvics!

    Mindegy mit csinálsz a Windowsban, a Nagy Kék Halál úgyis ítélkezik feletted...

  • FaBatka

    aktív tag


    Közmondások leprogramozva:

    while (state(Korso) != _BROKEN)
    go( Korso, &Kut);
    /* Addig jar a korso a kutra... */


    set_quality(Aratas, get_quality(Vetes));
    /* Ki mint vet, ugy arat */


    if(origin(Horse) == _SOUVENIR)
    Allow_Look_At.Teeth=0;
    /* Ajandek lonak... */


    if (bride_ID ==
    most_beautiful(GetAllGirls(_THIS_VILLAGE)))
    exit(-1);
    /* Soha ne a falu legszebb lanyat vedd
    felesegul! */


    If TimeToInt(Wakeup.Time) <
    TimeToInt(StrToTime(''06:00:00'')) then
    AddToList(UserLoggedIn.FoundItems,Gold);
    {Ki koran kel, aranyat lel}


    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;
    {Nezd meg az anyjat, vedd el a lanyat}


    type
    TEmployed=class(THuman)

    procedure OnGraveDigging(Sender:Tobject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    Procedure
    TEmployed.OnGraveDigging(Sender:Tobject);
    begin
    Sender.Job:=''GraveDigger'';
    end;
    {Aki masnak vermet as az a siraso}


    Const
    Num_Of_Dog_Buying_In_Buda=1;
    {Egyszer volt budan kutyavasar}


    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)
    If NumA*A.Strength <
    NumB*B.Strength then
    write(B.Caption)
    writeln(' Won');
    end;

    begin
    Lud.Caption:='Lud';
    Lud.Strength:=10;
    Diszno.Caption:='Diszno';
    Diszno.Strength:=540;
    Attack(Lud, Diszno, 1, 1);
    Attack(Lud, Diszno, 20, 1);
    Attack(Lud, Doszno, 60, 1);
    end.

    F9 (Run)

    Result:

    Diszno Won.
    Diszno Won.
    Lud Won.

    {Sok lud disznot gyoz}

    Mindegy mit csinálsz a Windowsban, a Nagy Kék Halál úgyis ítélkezik feletted...

  • FaBatka

    aktív tag

    válasz Kain #4130 üzenetére

    Ez iszonyat jóóó :R

    Mindegy mit csinálsz a Windowsban, a Nagy Kék Halál úgyis ítélkezik feletted...

Aktív témák