35791
-
#39
+fav, Szomszédoson szakadtam :D -
#38
istenem, ez a kép megvolt nekem is régen, húúú, 13éve? kb. :P és ma újra láttam hehe :D -
#37
:DD
+fav -
geo91 #36 Ez a kedvencem! 
-
![[HUN]FaTaL](https://media.sg.hu/forum/avatars/10557508481320070594.gif "[HUN]FaTaL")
#35
![]()
-
#34
![]()
-
#33
![]()
-
#32
Nagyon jóóóók :D +fav -
#31
![]()
-
#30
![]()
-
#29
asdASDASDASD:S::ASDAS: sírok :)) -
#28
lol, upgrading to xp. és egyből gyorsabb lesz.
meg a végén a send error report to Microsoft.
+fav topik -
G_ArchAngel #27 -
#26
-
G_ArchAngel #25 ![]()
-
G_ArchAngel #24 ![]()
-
G_ArchAngel #23 ![]()
-
G_ArchAngel #22 Mac-hez repulokabel van 
-
ba32107 #21 <fav> -
#20
:DDDDDDDDDDDDD -
#19
Hoppá! Kis Vindóz visszaütés? XD
-
#18
jooooootpoik, /+fav 
-
#17
![]()
-
#16
+fav -
#15
kocka topik :D
<+fav> -
G_ArchAngel #14 ![]()
-
G_ArchAngel #13 ![]()
-
G_ArchAngel #12 ![]()
-
G_ArchAngel #11 ![]()
-
geo91 #10 Az első címhez nem ezt a videót akartam, de nem baj ez is vicces.
-
geo91 #9 Örök klasszikusok:
Lefagy a gép
Win 95
-
#8
:DDDDDDDD -
geo91 #7 ![]()
-
#6
![]()
-
#5
fav :DDDDD -
ldavid #4 jóak :D
![]()
![]()
![]()
-
geo91 #3 ![]()
-
#2
"/* Ki mint vet, úgy arat */
set_quality( Aratas, get_quality(Vetes) );"
Ez tetszik
+fav :)
-
geo91 #1 Szerintem ez megérdemel egy külön topic-ot.
Kezdjük is:
Közmondások programnyelven
/* 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.
