wormhole16k ( aka space terror) WIP

[Crayon21]

so this is the listing for now. I need a run through of what works and what doesn't. Hopefully this will shape up to be used in the competition but i'm taking a month to work on this in particular. anyway, could use some help testing it out for now.

this is still a raw wip but i wanted to show what i have for now.

I updated the game. Hope you like it. Taking a break from it for now. Let me know what you think

If anyone wants to make a title screen then please do so. I want the community's help when it comes to this

[bola_dor]

is it a kind of Star Trek?

[Crayon21]

no, the idea is to go to certain planets, investigate them (there's an overarching plot of an alien invasion) due to distress calls then move around (p and o) to find the reason. You will find logs (*) and computer terminals (T) that will give more info. eventually, you will need to self destruct all four installations and kill the alien mothership.

still working on it

[Crayon21]

no, the idea is to go to certain planets, investigate them (there's an overarching plot of an alien invasion) due to distress calls then move around (p and o) to find the reason. You will find logs (*) and computer terminals (T) that will give more info. eventually, you will need to self destruct all four installations and kill the alien mothership.

still working on it

for now I need a playtest, tell me what works and what doesn't

[XavSnap]

[Crayon21]

I want to add a feeling that you're actually moving through space, kind of like the scrolling used in Monster maze. I don't want to resort to ML if I don't have to but, could anyone give me any tips on how to accomplish this?

[XavSnap]

Have a look to Greg's work on this thread:
https://www.sinclairzxworld.com/viewtopic.php?t=4714

(Greg have trimmed the ASM code in another thread, but can't retrieve it on the forum, it was single floating REMs to easy patch your BASIC programs...)

Or on the Fred Nachbaur in the SyncWare News v2n4.
Screen-clear demo.
https://archive.org/details/SyncWareNew ... 8/mode/2up

CLEAR-SCREEN.P

(3.32 KiB) Downloaded 4 times

The STARWARS is cool to get a space warp...

(It's a fast OCRed capture, not checked! but Starwars is ok... prefer the Greg's release.)

1 REM [DEC:\
042,012,064,006,024,\
126,254,118,040,005,\
054,000,035,024,246,\
016,251,201,061,042,\
012,064,035,229,017,\
033,000,025,209,001,\
181,002,237,176,213,\
017,033,000,025,001,\
032,000,209,237,176,\
001,000,021,205,245,\
008,201,000,062,022,\
245,205,149,064,241,\
061,040,002,024,246,\
001,000,000,205,245,\
008,201,061,042,012,\
064,035,229,017,179,\
002,025,229,017,033,\
000,025,229,209,225,\
001,181,002,237,184,\
225,006,032,054,000,\
035,016,251,014,000,\
205,245,008,201,061,\
062,022,245,205,203,\
064,241,061,200,024,\
247,061,042,012,064,\
017,248,002,025,062,\
024,245,054,000,001,\
031,000,084,093,019,\
237,176,062,003,006,\
255,016,254,061,032,\
249,017,064,000,237,\
082,241,061,040,002,\
024,225,001,000,000,\
205,245,008,201,000,\
001,000,016,017,131,\
000,042,012,064,175,\
237,082,017,033,000,\
120,128,245,120,254,\
013,048,001,113,241,\
061,040,003,035,024,\
242,062,017,144,087,\
120,198,016,254,029,\
048,005,254,005,056,\
001,113,061,186,040,\
007,213,022,000,025,\
209,024,236,120,128,\
245,120,254,014,048,\
001,113,241,061,040,\
003,043,024,242,062,\
017,144,087,120,198,\
016,254,030,048,005,\
254,006,056,001,113,\
061,186,040,011,245,\
175,213,022,000,237,\
082,209,241,024,232,\
017,034,000,025,016,\
157,001,000,000,205 ]

5 SLOW
10 PRINT AT 0,0;"«««clear‘screen«demonstration«««"
20 PRINT ,,,,"1. ZAP",,"2. FLASH ZAP",,"3. UP SCROLL",,"4. DOWN SCROLL",,"5. UP WIPE",,"6. DOWN WIPE",,"7. CENTER WIPE",,"8. FLASH WIPE",,"9. STAR WARS",,,,"0. STOP"
30 LET E$= " "
35 LET Z$=INKEY$
40 IF Z$="0" THEN STOP
45 IF Z$<"1" OR Z$>"9" THEN GOTO 35
60 GOSUB 1000
80 GOSUB 100*VAL Z$
90 RUN
100 REM zap = USR 16514
105 REM FILL CHAR. = POKE 16525
110 REM NO.LINES+1 = POKE 16518
120 POKE 16525,0
130 LET L=USR 16514
140 RETURN
200 REM flash‘zap
210 POKE 15525,128
220 LET L=USR 16514
230 GOTO 120
300 REM up‘scroll
310 REM SCROLL COMAND=USR 16532
320 REM UP SCROLL CLS=USR 16557
330 POKE 16418,0
340 PRINT AT 23,0;"not«copyright«by«frednachbaur«"
345 LET L=USR 16567
350 PRINT AT 23,0;E$
355 IF INKEY$="" THEN GOTO 355
360 PRINT AT 22,0;E$
370 POKE 16418,2
380 LET L=USR 16567
390 RETURN
400 REM down«scroll
405 REM DN SCROLL COMMAND=16587
406 REM FILL CHAR. = POKE 16613
407 REM DN SCROLL CLS=USR 16624
410 LET L=USR 16624
500 REM up‘wipe =USR 16636
505 REM FILL CHAR. = POKE 16647
510 LET L=USR 16636
520 RETURN
600 REM down‘wipe (NORMAL CLS)
610 CLS
620 RETURN
700 REM center‘wipe =USR 16684
705 REM FILL CHAR. = POKE 16685
710 POKE 16685,0
720 LET L=USR 16684
730 RETURN
800 REM flash«wipe
810 POKE 16585,123
820 LET L=USR 16534
830 GOTO 710
900 REM starwars
905 LET A$="«–»´’*."
906 REM INV.SPACE:INV.PERIOD GR.ON T:GR.ON G:INV.ASTERISK-ASTERISK:PERIOD - OR ANY OTHER PRINTABLE CHARACTERS
910 FOR A=1 TO LEN A$
920 POKE 16685,CODE A$(A)
930 LET L=USR 16684
940 POKE 16525,CODE A$(LEN A$-A+1)
950 LET L=USR 16514
960 POKE 16685,0
970 LET L=USR 16684
980 NEXT A
985 GOSUB 300
990 RETURN
1000 PRINT AT 0,0;
1010 LET F$="SCREEN FILL****screenfill’’’ "
1020 FOR A=1 TO 23
1030 PRINT F$;
1040 NEXT A
1045 POKE 16418,0
1050 PRINT F$( TO 14);TAB 5;"ANY KEY TO CLEAR SCREEN"
1055 POKE 16418,2
1060 IF INKEY$="" THEN GOTO 1060
1070 RETURN
9000 REM «decimal«loader«
9005 FAST
9010 FOR A=16514 TO 16802
9020 IF A<>16690 THEN GOTO 9090
9030 POKE 16418,0
9040 PRINT AT 23,0;"any«key•enter«    «to«continue–"
9050 POKE 16418,2
9055 PAUSE 4E4
9060 INPUT C
9070 IF C<>9999 THEN GOTO 9030
9080 CLS
9090 INPUT B
9100 POKE A,B
9110 PRINT (STR$ (1000+PEEK A)) (2 TO);":";
9120 NEXT A
9999 SAVE"CLEAR-SCREEN"

[Crayon21]

I only have 16k as the goal. Is there a truncated version that I could put in an rem/usr statement?