; AMAZING
; BY DAVID PLOTKIN
; ANTIC MAGAZINE
MODULE
CARD SCRLOC=88,HIMEM=$2E5,
PM_BASEADR,ADRES,ADRESB,SCORE=[0]
INT DIRX=[2],DIRY=[0],XDIR,YDIR
INT ARRAY PXDR=[0 0 0 0],
PYDR=[0 0 0 0]
BYTE T=$DA,VCOUNT=$D40B,
PMHITCLR=$D01E,DMACTL=$22F,
GRACTL=$D01D,PMBASE=$D407,
PRIORITY=$26F,X0,Y0,COUNT=[0],
LV=[5],FT=[150],CD=[20],
PCLRM=711,COLR0=708,LOUD=[0],
COLR1=709,COLR2=710,COLR4=712,
FATE=53770,CURSH=752,
TXTROW=656,TXTCOL=657,LVL=[1],
SND1=$D20F,SND2=$D208
BYTE ARRAY YLOCL(80),
YLOCH(80),RSH2(160),
PMHPOS(8)=$D000,
PX(4)=[0 0 0 0],PY(4)=[0 0 0 0],
BEGX(4)=[0 52 52 196],
BEGY(4)=[0 38 166 38],
PM_WIDTH(5)=$D008,PLPTR,
PM_MISMASK(4)=[$FC $F3 $CF $3F],
PCOLR(4)=704,PMTOPF(8)=$D000,
PMTOP(8)=$D008,PFCOL(8),PCOL(8)
BYTE ARRAY BM(0)=[$C0 $30 $C $3],
CM(0)=[$0 $55 $AA $FF],
CHMP1(0)=[0 0 129 129 66 66 36 36
24 24 24 24 36 36 66 66 129 129 0 0],
CHMP2(0)=[0 0 129 129 66 66 60 36
36 36 36 36 36 60 66 66 129 129 0 0],
CRT(0)=[0 0 129 129 129 195 90 126
126 165 165 126 126 90 195 129 129
129 0 0],
MSTATUS(0)=[0 0 0 0],ESTAT(4),
MX(0)=[0 0 0 0],MY(0)=[0 0 0 0],
BLK(0)=['U'U'U'U'Z'�'Y'e'Z'�'Y'e'U
'U'U'U];WIDTH=2,HEIGHT=8
BYTE ARRAY LINE,DUM
BYTE LOW=LINE,HIGH=LINE+1
PROC DLAY(CARD WAIT)
CARD COUNT
FOR COUNT=0 TO WAIT DO OD RETURN
PROC INIT7()
BYTE LOW1,HIGH1,I CARD SCREEN=LOW1
GRAPHICS(7) COLR0=44 COLR1=196
COLR2=106 COLR4=0 SCREEN=SCRLOC I=0
WHILE I<80 DO YLOCL(I)=LOW1
YLOCH(I)=HIGH1 SCREEN=SCREEN+40 I=I+1
OD
I=0 WHILE I<160 DO RSH2(I)=I RSH 2
I=I+1
OD
RETURN
INT FUNC HSTICK(BYTE PORT)
BYTE ARRAY PORTS(4)=$278
INT ARRAY VALUE(4)=[0 1 $FFFF 0]
RETURN (VALUE((PORTS(PORT)&$C) RSH 2))
INT FUNC VSTICK(BYTE PORT)
BYTE ARRAY PORTS(4)=$278
INT ARRAY VALUE(4)=[0 1 $FFFF 0]
RETURN (VALUE(PORTS(PORT)&3))
PROC UPDATE()
TXTROW=1 TXTCOL=12 PRINTC(SCORE)
RETURN
PROC UPDATESHIP()
BYTE LOOP5
TXTROW=1
FOR LOOP5=1 TO 5 DO TXTCOL=31+LOOP5
IF LV>=LOOP5 THEN PRINT("")
ELSE PRINT(" ")
FI OD RETURN
PROC DRAW7(BYTE X,Y,CLR)
BYTE X1=$A0,Y1=$A1,CLR1=$A2
LOW=YLOCL(Y1)
HIGH=YLOCH(Y1)
T=RSH2(X1)
LINE(T)=(((BM(X1&3)!$FF)&LINE(T))%
(BM(X1&3)&CM(CLR1)))
RETURN
PROC FASTDRAW(BYTE ARRAY PICTURE
BYTE WIDTH,HEIGHT,XX,YY)
BYTE LCTR1,LCTR2 CARD LCTR3
FOR LCTR1=0 TO HEIGHT-1
DO LOW=YLOCL(YY+LCTR1) HIGH=YLOCH(YY+LCTR1)
LCTR2=XX+WIDTH
LCTR3=(LCTR1+1)*WIDTH-1
DO
LINE(LCTR2)=PICTURE(LCTR3)
LCTR3==-1 LCTR2==-1
UNTIL LCTR2=XX
OD
OD RETURN
PROC PMGRAPHICS()
ZERO(PMHPOS,8)
ZERO(PM_WIDTH,5)
DMACTL=$3E PCOLR(0)=52
PM_BASEADR=(HIMEM-$800)&$F800
PMBASE=PM_BASEADR RSH 8
HIMEM=PM_BASEADR+768
PRIORITY==&$C0%17 GRACTL=3
RETURN
CARD FUNC PMADR(BYTE N)
IF N>=4 THEN N=0 ELSE N==+1 FI
RETURN(PM_BASEADR+768+(N*$100))
PROC PMCLEAR(BYTE N)
CARD CTR
BYTE ARRAY PLAYADR
PLAYADR=PMADR(N)
IF N<4 THEN ZERO(PLAYADR,$100)
ELSE N==-4
FOR CTR=0 TO $100-1
DO PLAYADR(CTR)==&PM_MISMASK(N) OD
FI
RETURN
PROC WINDOW()
BYTE LOOP5
TXTROW=0 TXTCOL=0 CURSH=1
PRINT
("")
FOR LOOP5=1 TO 2 DO
TXTROW=LOOP5 TXTCOL=0 PRINT("|")
TXTCOL=38 PRINT("|")
OD TXTROW=3 TXTCOL=0
PRINT
("")
TXTROW=1 TXTCOL=3 PRINT("SCORE: ")
UPDATE() TXTCOL=20 PRINT("MEN LEFT: ")
UPDATESHIP()
RETURN
PROC MOVEIT(BYTE ARRAY SHAPE BYTE
WHICH,NUM,XX,YY)
ADRES=PMADR(WHICH)+YY
MOVEBLOCK(ADRES,SHAPE,NUM)
PMHPOS(WHICH)=XX
RETURN
PROC PUTMAN()
BYTE LP
FOR LP=0 TO 3 DO
MSTATUS(LP)=0 ESTAT(LP)=0 OD
X0=120 Y0=102 MOVEIT(CHMP1,0,20,X0,Y0)
FOR LP=1 TO 3 DO
PX(LP)=BEGX(LP) PY(LP)=BEGY(LP)
MOVEIT(CRT,LP,20,PX(LP),PY(LP)) OD
RETURN
PROC BORDER()
BYTE L1,L2
FOR L1=0 TO 159 DO
FOR L2=0 TO 3 DO
DRAW7(L1,L2,1) DRAW7(L1,L2+76,1)
OD OD
FOR L1=0 TO 79 DO
FOR L2=0 TO 3 DO
DRAW7(L2,L1,1) DRAW7(L2+156,L1,1)
OD OD
RETURN
PROC DOTS()
BYTE L1,L2
FOR L2=8 TO 72 STEP 16 DO
FOR L1=8 TO 156 STEP 8 DO
DRAW7(L1,L2,3) OD OD
FOR L2=16 TO 72 STEP 16 DO
FOR L1=8 TO 156 STEP 16 DO
DRAW7(L1,L2,3) OD OD
RETURN
PROC BOARDDRAW()
BYTE L1,L2
BORDER()
FOR L1=2 TO 36 STEP 4 DO
FOR L2=12 TO 68 STEP 16 DO
FASTDRAW(BLK,2,8,L1,L2)OD OD
DOTS()
RETURN
PROC TESTCOL()
BYTE LL
FOR LL=0 TO 7 DO
PFCOL(LL)=0 PCOL(LL)=0 OD
DO UNTIL VCOUNT&128 OD
FOR LL=0 TO 7 DO
PFCOL(LL)=PMTOPF(LL)
PCOL(LL)=PMTOP(LL) OD
PMHITCLR=1
RETURN
BYTE FUNC PMHIT(BYTE N,CNUM)
IF N<4 THEN N==+4 ELSE N==-4 FI
IF CNUM<4 THEN
RETURN((PCOL(N) RSH CNUM)&1)
ELSE CNUM==&3
RETURN((PFCOL(N) RSH CNUM)&1)
FI RETURN(0)
BYTE FUNC LLOC(BYTE XX,YY,CLR)
BYTE X1=$A0,Y1=$A1,CLR1=$A2,L1,L2
LOW=YLOCL(Y1) HIGH=YLOCH(Y1)
T=RSH2(X1) L1=X1&3
L2=LINE(T)&BM(L1)
IF (L2&CM(CLR1))=(BM(L1)&CM(CLR1))THEN
RETURN(1) FI;SOMETHING THERE
RETURN(0)
BYTE FUNC LKAHD(INT XD,YD BYTE XX,YY)
BYTE XA,YA,XB,YB,RS1,RS2
XA=XX-48 YA=(YY-32) RSH 1
IF XD>0 THEN XA==+7+XD XB=XA
YA==+1 YB=YA+7
ELSEIF XD<0 THEN XA==+XD XB=XA
YA==+1 YB=YA+7
ELSEIF YD>0 THEN XB=XA+7
YA==+9 YB=YA
ELSEIF YD<0 THEN XB=XA+7 YB=YA
ELSE RETURN(0)
FI RS1=LLOC(XA,YA,1) RS2=LLOC(XB,YB,1)
IF RS1+RS2=0 THEN RETURN(1)
ELSE RETURN(0);OK
FI RETURN(0);BLOCKED
PROC NEWLEVEL()
BYTE LL
SNDRST() SCORE==+COUNT*LVL
UPDATE() COUNT=0 LVL==+1
FOR LL=0 TO 7 DO PMCLEAR(LL) OD
DOTS() PUTMAN()
DIRX=0 DIRY=0
IF LVL<11 THEN FT==-10 CD==+10 FI
RETURN
PROC MSLDROP(INT XD,YD)
BYTE TRIG=644,XA,YA,LP,MASK,LD=[0],TT=[0]
IF LD>1 THEN LD==-2 FI
SOUND(1,LD LSH 3,10,LD)
IF TRIG=1 THEN TT=0 FI
IF TRIG=1 OR (XD=0 AND YD=0) OR TT=1
THEN RETURN FI
FOR LP=0 TO 3 DO
IF MSTATUS(LP)=0 THEN MSTATUS(LP)=1
IF XD>0 THEN XA=X0 YA=Y0+9
ELSEIF XD<0 THEN XA=X0+7 YA=Y0+9
ELSEIF YD>0 THEN XA=X0+4 YA=Y0
ELSE XA=X0+4 YA=Y0+18
FI MASK=PM_MISMASK(LP)!$FF LD=12 TT=1
MY(LP)=YA MX(LP)=XA
PLPTR(MY(LP))==%MASK
PLPTR(MY(LP)+1)==%MASK
PMHPOS(LP+4)=MX(LP) EXIT
FI OD RETURN
PROC MSLGET()
BYTE LP,LD1=[0]
IF LD1>1 THEN LD1==-2 FI
SOUND(2,LD1 LSH 4,10,LD1)
FOR LP=0 TO 3 DO
IF PMHIT(LP+4,0)=1 THEN
MSTATUS(LP)=0 LD1=12
PLPTR(MY(LP))==&PM_MISMASK(LP)
PLPTR(MY(LP)+1)==&PM_MISMASK(LP)
PMHPOS(LP+4)=0 EXIT FI OD RETURN
PROC GOTBUMPED()
BYTE LQ,LD2=[0],LQ1
IF LD2>0 THEN LD2==-1 FI
SOUND(3,LD2 LSH 3,8,LD2)
FOR LQ=0 TO 3 DO FOR LQ1=1 TO 3 DO
IF PMHIT(LQ+4,LQ1)=1 THEN
LD2=14 ESTAT(LQ1)=1 MSTATUS(LQ)=0
PLPTR(MY(LQ))==&PM_MISMASK(LQ)
PLPTR(MY(LQ)+1)==&PM_MISMASK(LQ)
PMHPOS(LQ+4)=0
FI OD OD
FOR LQ=1 TO 3 DO
IF ESTAT(LQ)>0 THEN ESTAT(LQ)==+1
PCOLR(LQ)=FATE
FI
IF ESTAT(LQ)=FT THEN ESTAT(LQ)=0
PMCLEAR(LQ)
PCOLR(LQ)=(RAND(15) LSH 4)+6
PX(LQ)=BEGX(LQ) PY(LQ)=BEGY(LQ)
MOVEIT(CRT,LQ,20,PX(LQ),PY(LQ))
FI OD RETURN
PROC MUNCH()
BYTE TIME=20,X1,Y1
IF LOUD>1 THEN LOUD==-2 FI
SOUND(0,8,LOUD LSH 3,LOUD)
IF PMHIT(0,10)=0 THEN DLAY(1) RETURN FI
LOUD=12 X1=X0-48 Y1=(Y0-32) RSH 1
DRAW7(X1+3,Y1+4,0) DRAW7(X1+3,Y1+5,0)
DRAW7(X1+4,Y1+4,0) DRAW7(X1+4,Y1+5,0)
COUNT==+1
IF COUNT=135 THEN NEWLEVEL() FI
RETURN
PROC CHANGEDIR(BYTE WH)
BYTE F,LP
IF FATE<CD THEN F=RAND(4)
IF F=0 THEN PXDR(WH)=2 PYDR(WH)=0
ELSEIF F=1 THEN PXDR(WH)=-2
PYDR(WH)=0 ELSEIF F=2 THEN
PXDR(WH)=0 PYDR(WH)=2 ELSE
PXDR(WH)=0 PYDR(WH)=-2
FI
FI
IF LKAHD(PXDR(WH),PYDR(WH),PX(WH),
PY(WH))=0 THEN PXDR(WH)==-PXDR(WH)
PYDR(WH)==-PYDR(WH)
FI RETURN
PROC SMARTS(BYTE WHICH)
BYTE X,Y
X=PX(WHICH) Y=PY(WHICH)
IF (X=52 OR X=68 OR X=84 OR X=100
OR X=116 OR X=132 OR X=148 OR X=164
OR X=180 OR X=196) AND (Y=38 OR Y=70
OR Y=102 OR Y=134 OR Y=166) THEN
CHANGEDIR(WHICH)
FI RETURN
PROC ENDGAME()
BYTE TRIG=644,ST=755,TIME=20
SCORE==+COUNT*LVL PMHITCLR=0 UPDATE()
COUNT=0 LVL=1 TXTROW=2 TXTCOL=8
PRINT("GAME OVER ����Ӡ����")
DO ST=(TIME RSH 4)&1 UNTIL TRIG=0 OD
LV=5 UPDATESHIP()
SCORE=0 TXTROW=1 TXTCOL=12
PRINT(" ") TXTROW=2 TXTCOL=8
PRINT(" ")
UPDATE() DOTS() PUTMAN() FT=150 CD=20
XDIR=0 YDIR=0 DIRX=0 DIRY=0 ST=0
RETURN
PROC OUCH()
BYTE LC,LD
IF PCOL(4)=0 THEN RETURN FI
LC=Y0+10 LD=Y0+10
DO LD==+2 IF LD>200 THEN LD=200 FI
LC==-2 IF LC<30 THEN LC=30 FI
IF (LC=30 AND LD=200) THEN EXIT FI
SOUND(0,LC,8,8) SOUND(1,LD,8,8)
DUM(LC)=FATE DUM(LD)=FATE
DLAY(250) DLAY(250) DLAY(250)
OD SNDRST()
FOR LC=0 TO 7 DO PMCLEAR(LC) OD
LV==-1 UPDATESHIP()
IF LV=0 THEN ENDGAME() ELSE PUTMAN()
PMHITCLR=0 FI RETURN
PROC CHASE()
BYTE LP
FOR LP=1 TO 3 DO SMARTS(LP)
PX(LP)==+PXDR(LP) PY(LP)==+PYDR(LP)
IF ESTAT(LP)=0 THEN
MOVEIT(CRT,LP,20,PX(LP),PY(LP)) FI
OD RETURN
PROC MOVEMAN()
BYTE STCK=632,TIME=20
XDIR=HSTICK(0) LSH 1
YDIR=VSTICK(0) LSH 1
IF XDIR<>0 AND YDIR<>0 THEN YDIR=0 FI
IF STCK=15 THEN XDIR=DIRX YDIR=DIRY FI
IF LKAHD(XDIR,YDIR,X0,Y0)=1 THEN
X0==+XDIR
Y0==+YDIR DIRX=XDIR DIRY=YDIR ELSEIF
LKAHD(DIRX,DIRY,X0,Y0)=1 THEN
X0==+DIRX Y0==+DIRY
ELSE DIRX=0 DIRY=0
FI MOVEIT(CHMP1,0,20,X0,Y0)
RETURN
PROC MAIN()
BYTE XX,COUNT,TIMER=20,ATRACT=$4D
SND1=3 SND2=0
INIT7() PMGRAPHICS() PCLRM=50
PLPTR=PMADR(4) DUM=PMADR(0)
FOR XX=0 TO 7 DO PMCLEAR(XX) OD
FOR XX=1 TO 3 DO
PCOLR(XX)=(RAND(15) LSH 4)+6 OD
WINDOW() BOARDDRAW() PUTMAN() ENDGAME()
DO TESTCOL() MUNCH() MOVEMAN() OUCH()
MSLGET() CHASE() MSLDROP(DIRX,DIRY)
ATRACT=0 GOTBUMPED() OD
RETURN
Back to previous page