Slap Shot by Jim Gerrie
A downloadable game
REM 0 P$="ï":S$="":DIMX,Y,A,B,B(1),Q,R,K:A$="ÏÏÏÏÏÏÏÏÏϯÏÏÏ":B$="ÏÏÏ¿ÏÏÏÏÏÏÏÏÏÏ":C$="ÏϯÏÏÏÏÏÏÏÏÏÏÏ":D$="ÏÏÏÏÏÏÏÏÏÏÏ¿ÏÏ":E$="ÏÏÏÏÏÏÏÏÏÏÏÏÏÏ":A$(1)=A$:B$(1)=C$:C$(1)=A$:D$(1)=E$:E$(1)=E$:F$(1)=B$:G$(1)=D$:H$(1)=B$:I$(1)=E$:J$(1)=E$ 1 A$(2)=E$:B$(2)=A$:C$(2)=C$:D$(2)=A$:E$(2)=E$:F$(2)=E$:G$(2)=B$:H$(2)=D$:I$(2)=B$:J$(2)=E$:A$(3)=E$:B$(3)=E$:C$(3)=A$:D$(3)=C$:E$(3)=A$:F$(3)=E$:G$(3)=E$:H$(3)=B$:I$(3)=D$:J$(3)=B$:POKE16925,0:POKE16926,1 2 CLS7:FORZ=16384TO16864STEP32:POKEZ,143:POKEZ+31,143:NEXT:FORZ=0TO3:?:NEXT:Q=2:R=2:B(0)=1:B(1)=-1:X=28+RND(5):Y=14+RND(9):A=B(RND(2)-1):B=B(RND(2)-1):?@48,"LES ROUGES";RS;:?@32,"BLUE";QS;:?@64,"WINS"QW,"VICTOIRES"RW;:K$="Šƒ‚€"+CHR$(13) 3 PRINT@161,P$A$(Q)F$(R)P$S$S$P$A$(Q)F$(R)P$S$S$P$B$(Q)G$(R)P$S$S$S$B$(Q)G$(R)S$S$S$S$C$(Q)H$(R)S$S$S$S$C$(Q)H$(R)S$S$S$S$D$(Q)I$(R)S$S$S$P$D$(Q)I$(R)P$S$S$P$E$(Q)J$(R)P$S$S$P$E$(Q)J$(R)P$; 4 K=PEEK(2)ANDPEEK(383):A=A*B((POINT(X+A,Y)=5)+1):B=B*B((POINT(X,Y+B)=5)+1):IFPOINT(X+A,Y+B)<>5THENA=-A:B=-B 5 SET(X,Y,.):X=X+A:Y=Y+B:RESET(X,Y):IFKTHENQ=Q+(K=87ANDQ>1)-(K=83ANDQ<3):R=R+(K=73ANDR>1)-(K=75ANDR<3):GOTO3 6 IFPOINT(X+A,Y+B)>1THEN4 7 N$=CHR$(13):SET(X,Y,.):X=X+A:Y=Y+B:RESET(X,Y):IFX>59THENPRINT@5,"HE SHOOTS! HE SCORES!":SOUND150,20:QS=QS+1:?@32,"BLUE"QS;:?@0,"":ON-(QS<3ANDRS<3)GOTO2:QW=QW+1:RS=0:QS=0:?@0,"GAME OVER.";:?@64,"WINS"QW,"VICTOIRES"RW; 8 L$=+"†€‡"+N$+"Žƒƒ„"+N$+"ƒƒ‚…"+N$+"ƒƒ‚…":ON-(X>59)GOTO9:PRINT@6,"IL LANCE ET COMPTE!":SOUND100,20:RS=RS+1:?@48,"LES ROUGES"RS;:?@0,"":ON-(QS<3ANDRS<3)GOTO2:RW=RW+1:RS=0:QS=0:?@0,"GAME OVER.";:?@64,"WINS"QW,"VICTOIRES"RW; 9 FORZ=0TO1STEP0:?@16,"PLAY AGAIN?";:M$=INKEY$:Z=-(M$="Y"ORM$="N"):NEXT:ON-(M$="Y"ORRW=QW)GOTO2:CLS:?MID$("THE BLUES WIN THE STANLEY CUP! LES ROUGES GAGNE LA COUPE STANLEY!",40*-(RW>QW)+1,40):?K$L$N$"ƒƒ‚…"N$"Ž€€€€„":END 10 REM 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 11 REM 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 12 REM789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345 13 REM slapshot! JIM GERRIE 14 REM 2021 10-LINER CONTEST 15 REM USE: w i 16 REM BLUE s RED k 17 REM PROTECT YOUR NET 18 REM FIRST TEAM TO REACH 19 REM THREE POINTS WINS THE 20 REM MATCH. THE TEAM WITH 21 REM THE HIGHEST # OF WINS 23 REM WINS THE STANLEY CUP
Status | Released |
Author | BASIC 10Liner |
Genre | Sports |
Tags | 8-Bit, basic, basic10liner, mc10, tandy, trs-80 |
Leave a comment
Log in with itch.io to leave a comment.