Posted By
George
on 2011-09-07
07:08:06
 |  Re: Great Giana Sisters
A little faster.
10 SCNCLR
20 COLOR1,1:COLOR0,2:COLOR3,3,4:COLOR2,8,5
30 PX=30: PY=32
40 GRAPHIC3,1
50 SSHAPE S$,30,32,40,42
60 DRAW3,30,32 TO 36,32 TO 34,34 TO 40,40 TO 38,42 TO 32,36
70 DRAW3,32,36 TO 30,38 TO 30,32
80 SSHAPE E$,30,32,40,42
90 GOSUB 500: REM DRAW TEST PATTERN
150 REM LETISZTAZAS
160 GSHAPE S$,30,32,0
170 GSHAPE E$,PX,PY,0
175 XO=PX: YO=PY:
180 DO
190 GETKey I$
210 IF I$="A" AND PX>5 THEN PX=PX-5: GOSUB 280
220 IF I$="W" AND PY>5 THEN PY=PY-5: GOSUB 280
230 IF I$="D" AND PX<155 THEN PX=PX+5: GOSUB 280
240 IF I$="S" AND PY<195 THEN PY=PY+5: GOSUB 280
250 If I$="E" then GRAPHIC0: END
260 LOOP
280 REM SPRITE POSITIONING
290 GSHAPES$,XO,YO
300 SSHAPES$,PX,PY,PX+10,PY+10
310 GSHAPEE$,PX,PY,2 : XO=PX: YO=PY: goto 260
320 RETURN
500 REM TEST PATTERN
510 CIRCLE 3,100,100,35,70
520 CIRCLE 1,100,100,20,20
530 CIRCLE 2,110,110,20,50,35
540 DRAW 1,110,110 TO 125,125 TO 90,90
550 DRAW 1,120,125 TO 115,111 TO 80,75
560 RETURN
|
