KOLLU CANAVAR 1.0 Las Vegas gazinolarındaki bildiğimiz kollu canavar sesli ve sesiz özellikleri de var (NOT: KODLARI DERLERKEN TURBO PASCAL 7.1'DE VE XP ÜZERİNDE DERLEYİN AKSİ TAKTİRDE OYUNDAKİ ZAMANLAMALAR ÇOK UZUN OLABİLİR)uses crt;
var
i,x,z,y,e,d,sec:byte;
x1,y1,z1,e1,d1:char;
o,opara,q,kpara,gpara,t,t1,t2,t3:longint;
procedure a;
begin
i:=0;
repeat
i:=i+1;
y:=random(5)+1;
z:=random(5)+1;
x:=random(5)+1;
clrscr;
gotoxy(30,10);
write(' ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(30,11);
write(' º º Î ');
gotoxy(30,12);
write(' º ',x1,' ',y1,' ',z1,' º º ');
gotoxy(30,13);
write(' º Ìͼ');
gotoxy(30,14);
write(' º º ');
gotoxy(30,15);
write(' º OrHuN SOFT º');
gotoxy(30,16);
write(' ÈÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(30,17);
write('DURDURMAK ICIN ENTER"A');
gotoxy(30,18);
write(' BAASS!!!');
sound(q);
delay(9000);delay(9000);delay(9000);delay(9000);delay(9000);delay(9000);
nosound;
case z of
1:z1:=' ';
2:z1:='X';
3:z1:=";
4:z1:='!';
5:z1:='&';
end;
case y of
1:y1:=' ';
2:y1:='X';
3:y1:=";
4:y1:='!';
5:y1:='&';
end;
case x of
1:x1:=' ';
2:x1:='X';
3:x1:=";
4:x1:='!';
5:x1:='&';
end;
until keypressed;
clrscr;
gotoxy(30,10);
write(' ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(30,11);
write(' º º ');
gotoxy(30,12);
write(' º ',x1,' ',y1,' ',z1,' º');
gotoxy(30,13);
write(' º ÌÍ»');
gotoxy(30,14);
write(' º º º ');
gotoxy(30,15);
write(' º OrHuN SOFT º Î');
gotoxy(30,16);
write(' ÈÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
end;
begin
clrscr;
randomize;
kpara:=1000;
gotoxy(20,10);
writeln(' OrHuN SOFTWARE');
gotoxy(20,11);
writeln(' ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(20,12);
writeln('TEK KOLLU ºSES A€IK (1)º CANAVAR ');
gotoxy(20,13);
writeln('ÉÍÍÍÍÍÍÍÍͼSES KAPALI (2)ÈÍÍÍÍÍÍÍÍÍ»');
gotoxy(20,14);
writeln('ºYanlis secenekte ses kapali olucakº');
gotoxy(20,15);
writeln('ÈÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍͼ');
gotoxy(20,16);
write(' ºsec::: º');
gotoxy(20,17);
write(' ÈÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(39,16);
read(sec);
clrscr;
if sec=1 then
begin
o:=9000; t1:=1111; t2:=3333; t3:=4444; t:=9000; q:=8765;
end;
if sec=2 then
begin
t3:=0; t1:=0; t:=0; t2:=0; o:=0; q:=0;
end;
repeat
clrscr;
gotoxy(30,10);
writeln(' ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(30,11);
writeln(' º º Î');
gotoxy(30,12);
writeln(' º * * * º º');
gotoxy(30,13);
writeln(' º Ìͼ');
gotoxy(30,14);
writeln(' º º');
gotoxy(30,15);
writeln(' º OrHuN SOFT º');
gotoxy(30,16);
writeln(' ÈÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');;
gotoxy(30,17);
writeln('PARANIZ:',kpara);
gotoxy(30,18);
write('Ne kadar yatircaksiniz:');readln(opara);
if opara>kpara then
opara:=kpara;
kpara:=kpara-opara;
a;
if (x1=y1) and (x1=z1) and (y1=z1) then
begin
gpara:=opara*100;
gotoxy(30,17);
writeln(gpara,' DOLAR KAZANDINIZ');
kpara:=kpara+gpara;
for i:=1 to 50 do
begin
sound(t);
delay(o);
nosound;
sound(t1);
delay(o);
nosound;
end;
end
else
begin
gotoxy(30,17);
writeln(' KAYIP ETTINIZ');
sound(t2);
delay(o);delay(o);delay(o);delay(o);delay(o);delay(o);delay(o);delay(o);
nosound;
sound(t3);
delay(o);delay(o);delay(o);delay(o);delay(o);delay(o);delay(o);delay(o);
nosound;
readln;
end;
if kpara<=0 then
begin
gotoxy(30,17);
writeln('šZGšNšZ PARANIZ BITTI');
readln;
exit;
end;
readln;
until kpara<=0;
end.
var
i,x,z,y,e,d,sec:byte;
x1,y1,z1,e1,d1:char;
o,opara,q,kpara,gpara,t,t1,t2,t3:longint;
procedure a;
begin
i:=0;
repeat
i:=i+1;
y:=random(5)+1;
z:=random(5)+1;
x:=random(5)+1;
clrscr;
gotoxy(30,10);
write(' ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(30,11);
write(' º º Î ');
gotoxy(30,12);
write(' º ',x1,' ',y1,' ',z1,' º º ');
gotoxy(30,13);
write(' º Ìͼ');
gotoxy(30,14);
write(' º º ');
gotoxy(30,15);
write(' º OrHuN SOFT º');
gotoxy(30,16);
write(' ÈÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(30,17);
write('DURDURMAK ICIN ENTER"A');
gotoxy(30,18);
write(' BAASS!!!');
sound(q);
delay(9000);delay(9000);delay(9000);delay(9000);delay(9000);delay(9000);
nosound;
case z of
1:z1:=' ';
2:z1:='X';
3:z1:=";
4:z1:='!';
5:z1:='&';
end;
case y of
1:y1:=' ';
2:y1:='X';
3:y1:=";
4:y1:='!';
5:y1:='&';
end;
case x of
1:x1:=' ';
2:x1:='X';
3:x1:=";
4:x1:='!';
5:x1:='&';
end;
until keypressed;
clrscr;
gotoxy(30,10);
write(' ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(30,11);
write(' º º ');
gotoxy(30,12);
write(' º ',x1,' ',y1,' ',z1,' º');
gotoxy(30,13);
write(' º ÌÍ»');
gotoxy(30,14);
write(' º º º ');
gotoxy(30,15);
write(' º OrHuN SOFT º Î');
gotoxy(30,16);
write(' ÈÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
end;
begin
clrscr;
randomize;
kpara:=1000;
gotoxy(20,10);
writeln(' OrHuN SOFTWARE');
gotoxy(20,11);
writeln(' ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(20,12);
writeln('TEK KOLLU ºSES A€IK (1)º CANAVAR ');
gotoxy(20,13);
writeln('ÉÍÍÍÍÍÍÍÍͼSES KAPALI (2)ÈÍÍÍÍÍÍÍÍÍ»');
gotoxy(20,14);
writeln('ºYanlis secenekte ses kapali olucakº');
gotoxy(20,15);
writeln('ÈÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍͼ');
gotoxy(20,16);
write(' ºsec::: º');
gotoxy(20,17);
write(' ÈÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy(39,16);
read(sec);
clrscr;
if sec=1 then
begin
o:=9000; t1:=1111; t2:=3333; t3:=4444; t:=9000; q:=8765;
end;
if sec=2 then
begin
t3:=0; t1:=0; t:=0; t2:=0; o:=0; q:=0;
end;
repeat
clrscr;
gotoxy(30,10);
writeln(' ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy(30,11);
writeln(' º º Î');
gotoxy(30,12);
writeln(' º * * * º º');
gotoxy(30,13);
writeln(' º Ìͼ');
gotoxy(30,14);
writeln(' º º');
gotoxy(30,15);
writeln(' º OrHuN SOFT º');
gotoxy(30,16);
writeln(' ÈÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');;
gotoxy(30,17);
writeln('PARANIZ:',kpara);
gotoxy(30,18);
write('Ne kadar yatircaksiniz:');readln(opara);
if opara>kpara then
opara:=kpara;
kpara:=kpara-opara;
a;
if (x1=y1) and (x1=z1) and (y1=z1) then
begin
gpara:=opara*100;
gotoxy(30,17);
writeln(gpara,' DOLAR KAZANDINIZ');
kpara:=kpara+gpara;
for i:=1 to 50 do
begin
sound(t);
delay(o);
nosound;
sound(t1);
delay(o);
nosound;
end;
end
else
begin
gotoxy(30,17);
writeln(' KAYIP ETTINIZ');
sound(t2);
delay(o);delay(o);delay(o);delay(o);delay(o);delay(o);delay(o);delay(o);
nosound;
sound(t3);
delay(o);delay(o);delay(o);delay(o);delay(o);delay(o);delay(o);delay(o);
nosound;
readln;
end;
if kpara<=0 then
begin
gotoxy(30,17);
writeln('šZGšNšZ PARANIZ BITTI');
readln;
exit;
end;
readln;
until kpara<=0;
end.
