-
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
It may help if I post the current version of "Maze 2", now called [B]"3D Maze"[/B]:
[CODE]
1 DIM m(735):
FOR f=-149 TO 0*USR 7766:
RESTORE :
READ n,m(608),p,z:
POKE n,3+3*(m(p)=0)*m(p+z+z):
... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
[QUOTE=Dr BEEP;255356]in LABYRIN3D I have managed to delete the 'double' calculation of the sideway-check.[/QUOTE]
I managed to apply the same idea to 3D Maze, but I had to use a couple dirty tricks to make it work in this case:
[ ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
[QUOTE=Dr BEEP;255404]When you set J with the K-loop to 1 it will work too.
only first key 6 or 7 will give false rotation, but it is solved as soon as any other key is pressed.[/QUOTE]
Good catch!
This idea would ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
Here's a new release candidate for [B]3D Maze[/B], now incorporating improvement #384 that makes it run 2x faster:
[CODE]
1 DIM m(735):
FOR f=-149 TO 0*USR 7766:
RESTORE :
READ n,m(608),p,j,z:
... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
This is the latest version of [B]3D Maze[/B] after incorporating optimization #470 (now 4 positions under the limit):
[CODE]
1 DIM m(735):
FOR f=-149 TO 0*USR 7766:
RESTORE :
READ n,m(608),p,j,z:
POKE ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... (3e3):
LET m(INT (RND*5)*2+1430)=USR 7766 ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... (3e3):
LET m(INT (RND*5)*2+1430)=USR 7766 ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
[code]
1 CLS :
DIM m(3e3):
LET m(INT (RND*5)*2+1430)=USR 7766^0:
FOR r=1 TO 31:
FOR s=1 TO 23:
READ p,z,j,i,w,m(i+i-z*(1r/16)),m(i+i+(s -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... (3e3):
LET m(INT (RND*5)*2+1430)=USR 7766 ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... (3e3):
LET m(INT (RND*5)*2+1430)=USR 7766 ... -e*2*j)*o:
PLOT 128+a*e,88-d ... -
Disappearing/appearing effectI remember doing a small routine in BASIC which could be used to cover the attributes section randomly, until all 704 characters were filled with the…
... program I did is "Random Plot" - also on that page ... That could be modified to "plot" attribute squares instead. It ... about following the "Random plot not so random" thread ... d)
10 PLOT FN r(RND*255,255,PEEK ... area and the slow PLOT command wouldn't be ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... (3e3):
LET m(INT (RND*5)*2+1430)=USR 7766 ... -e*2*j))*o:
PLOT 128+a*e,88-d ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... j=68-CODE "d$CE"(RND*3+1):
LET z ... p=64*INT (RND*12)+2*INT (RND*15)+66:
POKE ... -
St. Michael Micromasters: Computer GamesHi, The [URL="http://www.worldofspectrum.org/infoseekid.cgi?id=2000988"]St. Michael Micromasters: Computer Games[/URL] book doesn't currently have a…
... ink 7:draw 255,175:plot 128,0
180 draw ... 0,175:plot 255,0:draw -255,175 ... def fn r(n)=int(rnd*n)+1
2010 randomize ... -
BASIC Keyword ReferenceHi. I do most of my ZX work on a grey-case +2 which, as we all know, is devoid of most of the 48k BASIC keywords (it has LOAD and stuff, but not much…
... +Symbol Shift, then 'M'
PLOT 'Q' at the flashing K ... the flashing K Cursor.
RND Caps Shift+Symbol Shift, then ... -
BASIC Keyword ReferenceHi. I do most of my ZX work on a grey-case +2 which, as we all know, is devoid of most of the 48k BASIC keywords (it has LOAD and stuff, but not much…
...
PI : E : M
PLOT : K : Q
POINT : E ...
RETURN : K : Y
RND : E : T
RUN : K ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... (3e3):
LET m(INT (RND*5)*2+1430)=USR 7766 ... -
Computer BattlegamesBook Title: [B][URL="http://www.worldofspectrum.org/infoseekid.cgi?id=2000080"]Computer Battlegames[/URL][/B] Authors: [B]Daniel Isaaman & Jenny Tyle…
... let m$=m$+chr$(int(rnd*26+65))
... /> 20 let t=int(rnd*181)-90
30 ... /> 50 let t=int(rnd*9+1)
60 ... /> 70 let d=int(rnd*15)
80 let ... p$=chr$(int(rnd*58+33))
90 ... /> 30 let v=int(rnd*11-5)
40 ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... (3e3):
LET m(INT (RND*5)*2+1430)=USR 7766 ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... (3e3):
LET m(INT (RND*5)*2+1430)=USR 7766 ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
... (3e3):
LET m(INT (RND*5)*2+1430)=USR 7766 ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
Not needed, but 3D Maze can be shortened further
[code]
1 RANDOMIZE :
DIM m(862):
READ p,z,n,g:
FOR g=g-1 TO g:
LET p=p-z:
LET m(p)=1:
POKE 22463+p,48-(g=429):
NEXT g:
POKE (g=430 ... -
New oneliners for 2008[INDENT][INDENT][INDENT]Here's my attempt at a first-person-perspective 3d game in one line of BASIC. It's called 'wormhole', and you've got to get t…
The plot:
You were captured ... p=328*INT (RND*3)+2*INT (RND*3)+325+2*s ... ,6:
LET d=163*(RND -
Sudoku on ZX Spectrum 48KZX Spectrum 48К Sudoku game 25 years Spectrum and 300 years Leonhard Euler anniversary. 6000 (and more) puzzles, 8 levels. [url]http://www.t…
... and, most beautiful things of this are SOURCE CODE, not STEREOGRAMS :)
[CODE]
100 CLS : LOAD ""SCREEN$
110 LET e=100: LET m=0.4: RANDOMIZE
120 INPUT ': PRINT #0;" LONG TIME CALC. PLEASE WAIT! "
130 LET q$="": LET t$="": ... -
Draw (x1,y1) to (x2, y2)?I was never very good at math. :( Given the above variables, what should I do to draw a line between the two pixels? How do I calculate the values fo…
... BASIC:
[code]PLOT x1, y1
DRAW x2 ... the magic:
30 PLOT x1, y1: DRAW OVER ... x1 = INT (RND*256): LET x2 = INT (RND*256)
110 ... LET y1 = INT (RND*176): LEY ... y2 = INT (RND*176)
120 ... -
Rainbow Generator for 48K Spectrum using PUSHThis is what I came up with from [B]gasman[/B]'s suggestions. It's stable in ZXSpin and ZX32 simulating a 48K Speccy. Anyone like to try it on the …
... IM 2
PRINT USR plot, y, x, colour :
REM ... plot= 4x4 plotmc, y=ycoord, x= ... 61000,Y,X,INT(RND*8 ) : REM PLOT Y,X RANDOM COLOUR ... -
Obtuse One-LinerFollowing a request in another thread, this could almost be crammed into one line. It uses a simple ON ERR CONTINUE to give a continuous display. [c…
[code]
1 POKE 23618,1:
INK RND*6:
POKE 23620,5-(RND -
Obtuse One-LinerFollowing a request in another thread, this could almost be crammed into one line. It uses a simple ON ERR CONTINUE to give a continuous display. [c…
[QUOTE=Digital Prawn;440795][code]
1 POKE 23618,1:
INK RND*6:
POKE 23620,5-(RND
