91
Main Forum / site problemleri...
« : 31.10.2008 09:50:00 »
spaz, hadi bak bir girişirsen 2-3 saatte biter.. başlamak bitirmenin yarısıdır. Sürünüyoruz yahu... Bir breakpoint09 başlığı bile açamıyoruz napıcaz böyle...
Bu özellik size üyenin attığı tüm iletileri gösterme olanağı sağlayacaktır . Not sadece size izin verilen bölümlerdeki iletilerini görebilirsiniz
1 REM MATRIS OYUNU
5 BORDER 1: PAPER 3: INK 7
10 PRINT AT 10,10;"MATRIS OYUNU"
11 PAUSE 50: CLS
13 PRINT AT 13,7;"ADINIZ ?"
14 INPUT N$
15 CLS
16 IF LEN N$<9 THEN GO TO 19
17 PRINT AT 13,3;"ADINIZ COK UZUN"
18 GO TO 14
19 PRINT AT 10,2;"LUTFEN BEKLEYINIZ"
20 REM MATRIS SAYILARININ OLUSTURULMASI
21 LET LP=0
22 LET MO=2
25 DIM B$(8,16)
30 LET A$="*15100909090808080707070608060505050404040303030202020101010000000000-1-1-1-2-2-2-3-3-3-4-4-4-5-5-5-6-6-6-7-7-7-8-8-8-9-9-9-900 "
40 FOR N=1 TO 8
50 FOR M=1 TO 8
60 LET A=INT ((RND*((LEN A$-1)/2))+1)*2
70 LET B$(N,M*2-1 TO M*2)=A$(A TO A+1)
80 IF a$(a TO a+1)=" " THEN GO SUB 1500
90 LET A$=A$(1 TO A-1)+A$(A+2 TO LEN A$)
100 NEXT M
110 NEXT N
120 REM DEGISKENLERIN DEGERI
130 LET S=0
140 LET T=0
160 GO SUB 700
170 REM HAMLELER
175 GO SUB 3000
180 PRINT AT 2*Y,1+(X-1)*3; INVERSE 1;"**"
190 PRINT AT 2*Y,1+(X-1)*3;B$(Y,2*X-1 TO 2*X)
200 IF INKEY$="" THEN GO TO 180
210 LET A$=INKEY$
213 IF A$="U" THEN GO TO 920
215 IF A$<>"8" AND A$<>"5" AND A$<>"0" THEN GO TO 180
219 IF A$="0" AND B$(Y,2*X-1 TO 2*X)=" " THEN GO TO 180
220 IF A$="0" THEN GO TO 270
230 LET X=X+(A$="8")-(A$="5")
240 IF X>8 THEN LET X=1
250 IF X<1 THEN LET X=8
260 IF B$(Y,2*X-1)=" " THEN GO TO 230
265 GO TO 180
270 LET LP=VAL B$(Y,2*X-1 TO 2*X)
275 PRINT AT 2*Y,1+(X-1)*3;" "
280 LET S=S+LP
290 LET MO=1
295 LET B$(Y,2*X-1 TO 2*X)=" "
297 GO SUB 765
300 REM BILGISAYARIN HAMLESI
301 GO SUB 4000
305 DIM R(8)
310 FOR N=1 TO 8
315 LET V=-100
325 IF N=Y THEN GO TO 430
330 IF B$(N,2*X-1 TO 2*X)<>" " THEN GO TO 360
340 LET W=-100
345 IF N=Y THEN GO TO 420
350 GO TO 370
360 LET W=VAL B$(N,2*X-1 TO 2*X)
370 FOR M=1 TO 8
380 IF M=X THEN GO TO 410
390 IF B$(N,M*2-1 TO M*2)=" " THEN GO TO 410
395 IF VAL B$(N,M*2-1 TO M*2)<V THEN GO TO 410
400 LET V=VAL B$(N,M*2-1 TO M*2)
410 NEXT M
420 LET R(N)=W-V
430 NEXT N
440 LET V=-100
450 FOR N=1 TO 8
460 IF B$(N,2*X-1 TO 2*X)=" " THEN GO TO 489
470 IF R(N)<V THEN GO TO 489
475 LET V=R(N)
480 LET Y=N
489 NEXT N
490 LET LP=VAL B$(Y,2*X-1 TO 2*X)
500 LET T=T+LP
505 PRINT AT Y*2,1+(X-1)*3;" "
510 LET B$(Y,2*X-1 TO 2*X)=" "
520 LET MO=2
530 GO SUB 765
540 GO TO 170
699 REM TABLONUN CIZIMI
700 CLS
701 PRINT AT 0,0; INVERSE 1;" MATRIS "
706 FOR N=1 TO 8
710 PRINT AT (2*N)-1,0; INVERSE 1;" "
720 FOR M=1 TO 8
730 PRINT AT 2*N,(M-1)*3; INVERSE 1;" "; INVERSE 0;B$(N,2*M-1 TO 2*M)
740 NEXT M
745 PRINT AT 2*N,24; INVERSE 1;" "
750 NEXT N
760 PRINT AT 17,0; INVERSE 1;" "
770 PRINT AT 19,2;N$;" : ";S;" "
780 PRINT AT 21,2;"ZXSP : ";T;" "
790 PRINT AT 19,14;"ALINAN SAYI : ";LP;" "
795 PRINT AT 21,14;" "
800 IF MO=1 THEN PRINT AT 21,14;"OYNUYORUM "
810 IF MO=2 THEN PRINT AT 21,14;"OYNA ";N$
820 RETURN
910 REM OYUN SONU
920 CLS
925 PRINT AT 4,8; INVERSE 1;"#############"
930 PRINT AT 5,8; INVERSE 1;"# oyun sonu #"
935 PRINT AT 6,8; INVERSE 1;"#############"
940 PRINT AT 9,7;"PUANIM ";T
950 IF S<>T THEN GO TO 1000
955 PRINT AT 13,7;"PUANINIZ"
970 PRINT AT 17,6;"CEK !"
990 IF INKEY$="" THEN GO TO 990
995 GO TO 1200
1000 IF S>T THEN GO TO 1050
1010 PRINT AT 17,9; INVERSE 1;"KAZANDIM"
1020 IF INKEY$="" THEN GO TO 1020
1030 GO TO 1200
1055 PRINT AT 17,6;"KAZANDIN ";N$
1070 IF INKEY$="" THEN GO TO 1070
1200 CLS
1210 PRINT AT 10,3;"YENI OYUN ?"
1220 INPUT U$
1230 CLS
1240 IF U$(1)="E" THEN RUN
1250 PRINT AT 10,11;"TESEKKURLER ";N$
1260 STOP
1500 LET Y=N
1510 LET X=M
1520 RETURN
2999 REM OYUNSONU TEST
3000 IF B$(Y)=" " THEN GO TO 920
3010 RETURN
4000 LET C$=""
4005 FOR N=1 TO 8
4010 LET C$=C$+B$(N,X*2-1 TO X*2)
4020 NEXT N
4030 IF C$=" " THEN GO TO 920
4040 RETURN
5000 REM KAYIT
5010 SAVE "MATRIS"
5020 RUN
tabloya gore;
arac kazasi 19
hastalik 16
intihar 11
bilinmiyor 4
bicaklanma/dovulerek 3
bilinmiyor 1
asiri doz 1
normal 1
Diablo 3 cikana kadar bu muhtesem eser ile idare edin:"bidaha vur ki iyice ölsün" lafında koptum.