![]() |
Alıntı:
sorun değil af Allaha mahsustur..haddımize değil af etmek.. |
Şİmdilik labirent oyunumun girişini yanı inrosunu atmak istiyorum buraya:11:
uses crt,graph; var gm,gd:integer; i,j:byte; begin clrscr; initgraph(gd,gm,''); if graphresult<>0 then halt; randomize; repeat for i:=1 to 200 do begin for j:=1 to 100 do setcolor(green); bar3d(i+1,j+1,i+j,300,i,true); cleardevice; rectangle(10+i,10+j,20+j,200); line(100,100,i+40,j+300); setcolor(yellow); settextstyle(10,0,8); settextjustify(10,10); outtext('LABIRENT'); setcolor(5); settextstyle(4,1,3); outtext('.........copright(c)....Gokhan Aygun..2007........'); SetTextJustify(3,1); settextstyle(6,0,2); outtext('GAMES'); circle(200,100+i,j+1); bar(100,10+i,i,j); end; until keypressed; readln; closegraph; end. şimdilik inrosu yeter..:11: |
Paylaşım için tşkler…
|
teşekkürler Paylaşim Iiçin
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 06:53 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.