|
24/04/07, 00:49
|
#1
|
Tuðgeneral
Üyelik tarihi: Apr 2007
Bulunduðu yer: VAN
Yaş: 37
Mesajlar: 924
|
dama
UNIT DAMAPF;
INTERFACE
USES CRT,DOS;
CONST
ESC=#27;
ENTER=#13;
YUKARITUS=#72;
SOLTUS=#75;
SAGTUS=#77;
ASAGITUS=#80;
DELETETUS=#83;
CTRLY=#25;
F1=#59;
TYPE
SUTSAT=1..8;
PROCEDURE DISYAZI;
procedure curon;
procedure curoff;
PROCEDURE YARDIM;
PROCEDURE RENK(Y,Z:BYTE);
PROCEDURE CERCEVE(SEK : CHAR; X1,Y1,X2,Y2,R:BYTE);
PROCEDURE MASA;
PROCEDURE BEYAZTAS;
PROCEDURE GRITAS;
PROCEDURE CIFTKOY(A,B:BYTE);
IMPLEMENTATION
VAR
I,J:BYTE;
TSU:CHAR;
procedure curon;assembler;
asm
mov ah,01h
mov ch,06h
mov cl,07h
int 10h
end;
procedure curoff;assembler;
asm
mov ah,01h
mov ch,20h
int 10h
end;
PROCEDURE RENK;
BEGIN
TEXTCOLOR(Y);TEXTBACKGROUND(Z);
END;
PROCEDURE CERCEVE;
VAR
I:INTEGER;
CIZGI:STRING[80];
BEGIN
RENK(R,0);SEK:=UPCASE(SEK);
CASE SEK OF
'T':BEGIN
FILLCHAR(CIZGI,X2-X1,#196);
CIZGI[0]:=CHAR(X2-X1-1);
GOTOXY(X1,Y1);WRITE(CHR(218),CIZGI,CHR(191));
FOR I:=Y1+1 TO Y2-1 DO BEGIN
GOTOXY(X1,I);WRITELN(CHR(179));
GOTOXY(X2,I);WRITELN(CHR(179));
END;
GOTOXY(X1,Y2);WRITE(#192,CIZGI,#217);
END;
'C':BEGIN
FILLCHAR(CIZGI,X2-X1,#205);
CIZGI[0]:=CHAR(X2-X1-1);
GOTOXY(X1,Y1);WRITE(CHR(201),CIZGI,CHR(187));
FOR I:=Y1+1 TO Y2-1 DO BEGIN
GOTOXY(X1,I);WRITELN(CHR(186));
GOTOXY(X2,I);WRITELN(CHR(186));
END;
GOTOXY(X1,Y2);WRITE(CHR(200),CIZGI,CHR(188));
END;
END;
END;
PROCEDURE DISYAZI;
BEGIN
GOTOXY(6,22);WRITE('ENTER..> TAž OYNATMA');
GOTOXY(6,23);WRITE('F1.....> YARDIM');
GOTOXY(6,24);WRITE('ESC....> €IKIž');
CERCEVE('T',32,5,79,7,7);
CERCEVE('T',32,19,79,21,7);
END;
PROCEDURE YARDIM;
BEGIN CLRSCR;
CERCEVE('T',10,5,70,13,7);
GOTOXY(12,6);WRITE('DEL.....> BULUNULAN KAREN˜N ˜€˜N˜ TEM˜ZLER.');
GOTOXY(12,7);WRITE('1.......> BULUNULAN KAREYE BEYAZ TAž YERLEžT˜R˜R.');
GOTOXY(12,8);WRITE('2.......> BULUNULAN KAREYE MAV˜ TAž YERLEžT˜R˜R.');
GOTOXY(12,9);WRITE('CTLR+Y..> YEN˜ B˜R DAMA MASASI HAZIRLAR.');
GOTOXY(12,10);WRITE('ESC.....> DAMA OYUNUNDAN €IKAR.');
GOTOXY(12,12);WRITE('TAMAM ˜SE B˜R TUžA BASINIZ...');
TSU:=READKEY;
CLRSCR;
END;
PROCEDURE MASA;
BEGIN
GOTOXY(1,4);
WRITELN(' A B C D E F G H ');
WRITELN(' ÚÄÄÂÄÄÂÄÄÂÄÄÂÄÄÂÄÄÂÄÄÂÄÄ¿');
WRITELN(' 1 ³ ³ ³ ³ ³ ³ ³ ³ ³');
WRITELN(' ÃÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄ´');
WRITELN(' 2 ³ ³ ³ ³ ³ ³ ³ ³ ³');
WRITELN(' ÃÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄ´');
WRITELN(' 3 ³ ³ ³ ³ ³ ³ ³ ³ ³');
WRITELN(' ÃÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄ´');
WRITELN(' 4 ³ ³ ³ ³ ³ ³ ³ ³ ³');
WRITELN(' ÃÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄ´');
WRITELN(' 5 ³ ³ ³ ³ ³ ³ ³ ³ ³');
WRITELN(' ÃÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄ´');
WRITELN(' 6 ³ ³ ³ ³ ³ ³ ³ ³ ³');
WRITELN(' ÃÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄ´');
WRITELN(' 7 ³ ³ ³ ³ ³ ³ ³ ³ ³');
WRITELN(' ÃÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄ´');
WRITELN(' 8 ³ ³ ³ ³ ³ ³ ³ ³ ³');
WRITELN(' ÀÄÄÁÄÄÁÄÄÁÄÄÁÄÄÁÄÄÁÄÄÁÄÄÙ');
END;
PROCEDURE BEYAZTAS;
BEGIN
TEXTCOLOR(15);
WRITE('ÛÛ');
LOWVIDEO;
END;
PROCEDURE GRITAS;
BEGIN
TEXTCOLOR(LIGHTblue);
WRITE('ÛÛ');
TEXTCOLOR(15);
LOWVIDEO;
END;
PROCEDURE CIFTKOY;
BEGIN
GOTOXY(A,B); WRITE('ÉÍÍ»');
GOTOXY(A,B+1);WRITE('º');GOTOXY(A+3,B+1);WRITE('º' );
GOTOXY(A,B+2);WRITE('ÈÍͼ');
END;
END.
|
|
|
Konu Sayýsý: 187
20/06/08, 15:29
|
#2
|
Mareþal
Üyelik tarihi: Sep 2007
Mesajlar: 5.835
|
Paylaşım için tşkler…
__________________
|
|
|
Konu Sayýsý: 613
Takýmýnýz:
30/06/08, 01:47
|
#3
|
Cumhurbaþkaný
Üyelik tarihi: May 2008
Bulunduðu yer: van
Mesajlar: 7.027
|
teŞekkÜrler PaylaŞim İİÇİn
__________________
Düþmeden Bulutlarda Koþmam GereK !
|
|
|
Konu Sayýsý: 866
31/07/08, 15:51
|
#4
|
Yasaklý kullanýcý
Üyelik tarihi: Jan 2008
Bulunduðu yer: Ýstediðin yerden
Mesajlar: 1.883
|
paylaşım için tşkrlr
|
|
|
Konu Sayýsý: 316
Takýmýnýz:
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
|
|
Yetkileriniz
|
Yeni Mesaj yazma yetkiniz Aktif deðil dir.
Mesajlara Cevap verme yetkiniz aktif deðil dir.
Eklenti ekleme yetkiniz Aktif deðil dir.
Kendi Mesajýnýzý deðiþtirme yetkiniz Aktif deðildir dir.
HTML-KodlarıKapalı
|
|
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 06:20 .
| |