Corn-Sport

COMSPORT.BAS est un jeu à deux joueurs qui est à l'escrime ce que Pong est au tennis de table. Deux combattants s'affrontent pour « piquer » légèrement l'autre avec son (ou ses) « fleuret » électronique à pointe unique.

COMSPORT.BAS est codé de manière très similaire à TARGET.BAS.

Le bloc de code des lignes 590 à 740 gère les graphiques animés et les entrées utilisateur très simples à deux joueurs.

Des améliorations graphiques supplémentaires, ainsi que des options telles que des couleurs différentes pour les personnages et l'arrière-plan, une limite de temps et un système de notation désigné contribueraient à faire de COMSPORT.BAS un jeu plus riche et plus gratifiant.

COMSPORT.BAS

100 KEY OFF:SCREEN 7:COLOR 15,3:RANDOMIZE TIMER
140 CLS
145 PSET(0,191),15:DRAW"R320"
158 PSET(0,161),15:DRAW"R320"
160 PSET(0,170),8:DRAW"R320"
170 PSET(0,171),15:DRAW"R320"
180 PSET(0,180),8:DRAW"R320"
198 PSET(0,181),15:DRAW"R320"
200 PSET(0,190),8:DRAW"R320"
210 COLOR 15:PSET(60,30):DRAW"L60 050 R60 U10 L50 U30 R50 U10"
220 PSET(60,30),8:DRAW"D10 L50 D30"
230 PSET(60,70),8:DRAW"D10 L60"
240 PSET(130,30):DRAW"L60 D50 R60 U50"
250 PSET(120,40):DRAW"L40 D30 R40 U30"
260 PSET(70,30),8:DRAW"R60 D50"
270 PSET(80,40),8:DRAW"D30 R40"
280 PSET(140,80):DRAW"U50 R20 F20 E20 R20 D50 L10 U40 L10 G20 H20 L10 D40 L10"
290 PSET(150,40),8:DRAW"D40"
300 PSET(160,30),8:DRAW"F20"
310 PSET(200,40),8:DRAW"G20"
320 PSET(220,30),8:DRAW"D50"
330 PSET(230,50):DRAW"R30 D10 L30 U10"
340 PSET(230,50),8:DRAW"D10 R30"
350 FOR GDS=1 TO 9000:NEXT GDS
360 COLOR 15
370 PSET(60,100):DRAW"L40 D10 R40 D10 L40"
371 PSET(60,100),8:DRAW"L40"
372 PSET(60,110),8:DRAW"L40"
373 PSET(60,120),8:DRAW"L40"
374 FOR GH=1 TO 4000:NEXT GH
380 PSET(70,120):DRAW"U20 R40 D10 L40"
381 PSET(110,100),8:DRAW"L40"
382 PSET(110,110),8:DRAW"L40"
383 FOR GH=1 TO 4000:NEXT GH
390 PSET(160,100):DRAW"L40 D20 R40 U20"
391 PSET(160,100),8:DRAW"L40"
392 PSET(160,120),8:DRAW"L40"
393 FOR GH=1 TO 4000:NEXT GH
400 PSET(210,100):DRAW"L40 D10 R40 U10 D10 L40 D10 U10 F10"
401 PSET(210,100),8:DRAW"L40"
402 PSET(210,110),8:DRAW"L40"
403 PSET(180,120),8:DRAW"H10"
404 FOR GH=1 TO 4000:NEXT GH
410 PSET(260,100):DRAW"L40 R20 D20"
411 PSET(260,100),8:DRAW"L40"
412 FOR GH=1 TO 4000:NEXT GH
420 FOR FD=20 TO 260
421 PSET(FD,124),15
422 PSET(FD,125),8
423 FOR GT=1 TO 50:NEXT GT
424 NEXT FD
430 FOR TG=9 TO 3 STEP -1:COLOR ,TG:NEXT TG
440 FOR YR=1 TO 16000:NEXT YR
500 CLS:COLOR 14,3
510 LOCATE 10,2:PRINT" Frapper l'adversaire au point faible."
520 LOCATE 12,2:PRINT" Le point faible sera en bleu."
530 PSET(0,10),15:DRAW"R320 D1 L320"
540 PSET(0,20),8:DRAW"R328 D1 L320"
550 PSET(0,160),15:DRAW"R320 D1 L320 D1 R320"
560 PSET(0,190),8:DRAW"R320 D1 L320 D1 R320"
570 X=160:Y=140:A=110:B=130:FOR YT=1 TO 18000:NEXT YT
580 CLS:COLOR 14,0:PRINT:PRINT:PRINT:PRINT:PRINT:
581 PRINT:PRINT" START! !":SOUND 4000,1
582 FOR GH=1 TO 3000:NEXT GH:SOUND 4000,1
583 FOR GH=1 TO 3000:NEXT GH:SOUND 4000,1:
584 FOR GH=1 TO 3000:NEXT GH:CLS:COLOR 15
585 LOCATE 1,1:PRINT"Pour contrôler Jaune : 2,8,4, et 6."
587 LOCATE 2,1:PRINT"Pour contrôler Bleu :  T,V,F, et H."
590 I$=INKEY$
600 PSET(X,Y),14:DRAW"C14 U20 L9 C1 L1 C14 L10 U20 R20 D20"
605 FOR T=1 TO 200:NEXT T
610 PSET(X,Y),0:DRAW"U20 L20 U20 R20 D20"
620 PSET(A,B),11:DRAW"C11 D20 L9 C1 L1 C11 L10 D20 R20 U20"
625 FOR T=1 TO 200:NEXT T
630 PSET(A,B),0:DRAW"D20 L20 D20 R20 U20"
640 IF I$="2" THEN Y=Y+1
650 IF I$="8" THEN Y=Y-1
660 IF I$="4" THEN X=X-1
670 IF I$="6" THEN X=X+1
680 IF I$="T" THEN B=B-1
690 IF I$="V" THEN B=B+1
700 IF I$="F" THEN A=A-1
710 IF I$="H" THEN A=A+1
720 IF X=A-9 AND Y=B+20 THEN GOTO 750
730 IF B=Y-20 AND A=X-9 THEN GOTO 765
740 GOTO 590
750 FOR HG=15 TO 0 STEP -1:COLOR,HG:NEXT HG
760 CLS:SOUND 4000,5:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT" Voici le gagnant : JAUNE!!":GOTO 780
765 FOR HG=15 TO 0 STEP -1:COLOR,HG:NEXT HG
770 COLOR 11:CLS:SOUND 4000,5:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT" Voici le gagnant : BLEU!!"
780 FOR PAUSE=1 TO 10000:NEXT PAUSE
790 GOTO 100