| |
DB1ZF > MSX 26.06.95 19:22l 152 Lines 4897 Bytes #-10554 (0) @ WW
BID : 26650DDB0GV
Read: OE5LPO OK1IKE DF2SKE GUEST
Subj: Fixball.bas
Path: DB0AAB<DB0LNA<DB0RGB<DB0ABH<DB0SRS<DB0FP<DB0GV
Sent: 950626/1455z @DB0GV.#HES.DEU.EU [Maintal-Frank4t JO40KD 438.025 SYSOP: DF
de DB1ZF @ DB0GV.#HES.DEU.EU (Kurt)
to MSX @ WW
10 REM FIXBALL by Lars Aschenbach
15 REM published im MSX-Contakt 2/95
20 WIDTH40:CLS:KEY OFF:DIM PX(16),PY(16):X=RND(-TIME):BL=19:PO=0
30 FOR A=1 TO 4:P$(A)="OOOO":NEXT
40 FOR A=1 TO 4:READ X,Y:LX(A)=X:LY(A)=Y:NEXT
50 FOR A=1 TO 16:READ X,Y:PX(A)=X:PY(A)=Y:NEXT
60 RESTORE 1360
70 READ L
80 IF L=250 THEN PRINT:GOTO 140
90 IF L=255 THEN PRINT:GOTO 70
100 PRINTCHR$(L);
110 GOTO 70
120 REM
130 REM
140 LOCATE 24,6,0
150 I$=INKEY$:IF I$="" THEN 150
160 IF I$=" " THEN 180
170 IF I$=CHR$(27) THEN CLS:END ELSE
180 PRINT"O";:LOCATE LY(1),LX(1)
190 FOR A=2 TO 4
200 LOCATE LY(A),LX(A)
210 PRINT"*";:LOCATE ,LX(A)
220 FOR P=1 TO 300
230 IF INKEY$=" " THEN 290
240 NEXT
250 LOCATE LY(A),LX(A)
260 PRINT"O";:LOCATE ,LX(A)
270 NEXT
280 GOTO 350
290 LOCATE LY(A),LX(A)
300 PRINT"O";
310 LOCATE LY(1),LX(1)
320 PRINT"*";
330 LOCATE 24,6
340 GOTO 150
350 FOR A=1 TO 4
360 FOR C=1 TO 3
370 AP=MP
380 MP=INT(RND(-TIME)*(A*4))+1
390 IF MP<((A-1)*4)+1 OR MP>A*4 THEN
400 IF MP>16 OR MP=AP THEN 380
410 LOCATE PY(MP),PX(MP)
420 PRINT"*";:LOCATE ,PX(MP)
430 FOR D=1 TO 150
435 REM Zahl in 430 erhoehen bedeutet >Spiel wird langsamer
440 IF INKEY$=" " THEN 560
450 NEXT
460 LOCATE PY(MP),PX(MP)
470 SP=MP MOD 4:IF SP=0 THEN SP=4
480 IF MID$(P$(A),SP,1)="*" THEN C$="*" ELSE C$="O"
490 PRINT C$;:LOCATE,PX(MP)
500 FOR D=1 TO 150
505 REM Zahl in 500 erhoehen bedeutet >Spiel wird langsamer
510 IF INKEY$=" " THEN 520
520 NEXT
530 NEXT
540 NEXT
550 GOTO 930
560 SP=MP MOD 4:IF SP=0 THEN SP=4
570 IF MID$(P$(A),SP,1)="*" THEN 930
580 MID$(P$(A),SP,1)="*"
590 LOCATE PY(MP),PX(MP):PRINT"*";:LOCATE ,PX(MP)
600 LOCATE 24,6:PRINT"*";:LOCATE 24,6
610 IF P$(A)=STRING$(4,"*") THEN PO=PO+1
620 FOR Z=1 TO 4
630 IF MID$(P$(Z),SP,1)="*" THEN PT=PT+1
640 NEXT
650 IF PT=4 THEN PO=PO+1
660 PT=0
670 IF D1=1 THEN 720
680 FOR Z=1 TO 4
690 IF MID$(P$(Z),Z,1)="*" THEN PT=PT+1
700 NEXT
710 IF PT=4 THEN PO=PO+1:D1=1
720 PT=0
730 IF D2=1 THEN 780
740 FOR Z=1 TO 4
750 IF MID$(P$(Z),5-Z,1)="*" THEN PT=PT+1
760 NEXT
770 IF PT=4 THEN PO=PO+1:D2=1
780 PT=0
790 IF Q1=1 THEN 850
800 IF MID$(P$(1),1,1)="*" THEN PT=PT+1
810 IF MID$(P$(1),4,1)="*" THEN PT=PT+1
820 IF MID$(P$(4),1,1)="*" THEN PT=PT+1
830 IF MID$(P$(4),4,1)="*" THEN PT=PT+1
840 IF PT=4 THEN PO=PO+3:Q1=1
850 PT=0
860 IF Q2=1 THEN 920
870 IF MID$(P$(2),2,1)="*" THEN PT=PT+1
880 IF MID$(P$(2),3,1)="*" THEN PT=PT+1
890 IF MID$(P$(3),2,1)="*" THEN PT=PT+1
900 IF MID$(P$(3),3,1)="*" THEN PT=PT+1
910 IF PT=4 THEN PO=PO+3:Q2=1
920 PT=0
930 BL=BL-1:OP=OP+PO:BL$=STR$(BL):PO$=STR$(OP)
940 IF LEN(BL$)=2 THEN BL$=" "+BL$
950 IF LEN(PO$)=3 THEN PO$=MID$(PO$,2,2)
960 LOCATE ,,0:LOCATE 35,0:PRINT BL$;
970 LOCATE 36,1:PRINT PO$;
980 PO=0:LOCATE 24,6:PRINT"*";:LOCATE 24,6
990 IF BL>0 AND OP<16 THEN 150
1000 CLS
1005 LOCATE 13,22:PRINT"D B 1 Z F"
1010 PO=VAL(PO$)
1020 IF PO>=0 AND PO<5 THEN RESTORE 1310
1030 IF PO>=5 AND PO<10 THEN RESTORE 1320
1040 IF PO>=10 AND PO<14 THEN RESTORE 1330
1050 IF PO=14 OR PO=15 THEN RESTORE 1340
1060 IF PO=16 THEN RESTORE 1350
1070 READ GS$,V
1080 LOCATE ,,0:LOCATE 0,0
1090 PRINT" ";CHR$(200);STRING$(36,195);CHR$(200)
1100 PRINT" ";CHR$(200);" IHRE PUNKTE: ";PO$;STRING$(40-33-LEN(PO$)," ");"MEINE WERTUNG: ";CHR$(200)
1110 PRINT" ";CHR$(200);GS$;CHR$(200)
1120 PRINT" ";CHR$(200);STRING$(36,192);CHR$(200)
1130 FOR A=1 TO V
1140 LOCATE 2,2
1150 FOR B=1 TO LEN(GS$)
1160 PRINT CHR$(ASC(MID$(GS$,B,1))-A);
1170 FOR P=1 TO 100:NEXT
1180 NEXT
1190 NEXT
1200 LOCATE 4,6
1210 PRINT"Wollen Sie noch einen Versuch"
1220 LOCATE 4,7
1230 PRINT" wagen (J/N) ? "
1240 I$=INKEY$:IF I$="" THEN 1240
1250 IF I$="j" OR I$="J" THEN RUN ELSE CLS:NEW
1260 DATA 6,24,4,24,2,24,0,22
1270 DATA 1,20,1,18,1,16,1,14
1280 DATA 3,20,3,18,3,16,3,14
1290 DATA 5,20,5,18,5,16,5,14
1300 DATA 7,20,7,18,7,16,7,14
1310 DATA XP!!CMFJCU!!JISF!!LPO[FOUSBUJPO!!@@@,1
1320 DATA GTUV"FKG""DWPI""OCEJV"FGP""OGKUVGT#,2
1330 DATA PDQ#PDXVHUW#VLFK#]XP#FKDPSLRQ#0#JXW$,3
1340 DATA QIMR$FIMPIMH$1$HEW$[EV$$WILV$$ORETT%,4
1350 DATA MJW_QNHMJS%L%Q%%M%X%Y%W%Z%R%U%K%&&&,5
1360 DATA 32,70,73,88,66,65,76,76,32,32,32,32,32,32,32,32,32,32,32,32,32,47,79,32,32,32,32,32,66,65,76,76,83,32,58,32,49,57,255
1370 DATA 32,45,45,45,45,45,45,45,32,32,32,32,32,32,79,45,79,45,79,45,79,32,32,92,32,32,32,32,80,79,73,78,84,83,58,32,32,48,255
1380 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,124,92,124,32,124,47,124,32,32,32,79,255
1390 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,79,45,79,45,79,45,79,32,32,32,124,255
1400 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,124,32,124,88,124,32,124,32,32,32,79,255
1410 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,79,45,79,45,79,45,79,32,32,32,124,32,32,32,32,80,82,69,83,83,255
1420 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,124,47,124,32,124,92,124,32,32,32,42,32,32,32,62,83,80,65,67,69,60,32,255
1430 DATA 32,32,32,32,32,32,32,32,32,32,32,32,32,32,79,45,79,45,79,45,79,250
Read previous mail | Read next mail
| |
