-
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…
... (862):
READ n,d,q,p:
FOR f=1 ... q=q+d:
LET m(q)=1:
POKE 22464+q,48-(p=q ... *m(q+d+d):
POKE (m(q+d+d)=0)*(q+d ... >64)*(q+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…
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…
[quote=Dr BEEP;255612]Labyrin3D:
now 18 under
All W*F replaced by W and
LET W=F*(M(......)=0)[/quote]
20 under with
LET W=F-F*m(q+e..)*m(q) -
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;255612]All W*F replaced by W and[/QUOTE]
[QUOTE=Dr BEEP;255618]LET W=F-F*m(q+e..)*m(q)[/QUOTE]
Good catch!!! -
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…
[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…
... READ p,z,j,i,w,m(i+i-z*(1r ... d):
LET o=m(q):
FOR e=-.5 ... 1:
LET w=f-f*m(q-e*2*j)*o ... 128+a*e,88-d-w:
LET t=(2 ... a)*e:
DRAW t,w*o:
DRAW 0, ... -o):
DRAW -t,w*o:
POKE n-o ... /> NEXT e:
LET q=q+z:
POKE (p -
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…
... READ p,z,j,i,w,m(i+i-z*(1r ... )):
LET o=m(q):
LET a=c:< ... TO 1:
LET w=INT (.35*a-d)*(1 ... -m(q-e*2*j))*o:
w:
DRAW (c-a ... )*e,w:
DRAW 0,d+ ... a-c)*e,w:
NEXT e:
LET q=q+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…
... ]
LET w=INT (.35*a-d)*(1-m(q-e*2 ... ]
LET w=INT (.35*a-d)*(m(q-e*2*j ...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 latest optimizations discussed here (and a couple new ones) finally made it possible to reimplemented [B]3D Maze[/B] using an improved version of the perfect maze generator originally described in #404. Here's the new version:
[CODE]
...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…
... (8):dim p(8):dim q(8)
170 ink ... let p(n)=v:let q(n)=h:next n:for ... v=p(m):let h=q(m):gosub 5000:let s ... /> 240 let d=c:print q$(c):input a$:print
420 print a$:print:let q$(k)=a$
430 print ... (1-6) ";w:gosub 3000
210 let w=w+2:for n ...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…
... :if nlw then let nl=w-g
240 if ... 4000:print c$(m(q))
530 let q=q+1:next c ... next j
820 for w=1 to d:gosub 600 ... :next w
830 for j= ... 3000:if rc>w then let rc=w
240 input ... r(2)=1 then let w=1:goto 400
...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…
... )*(w=1)-(1w))-(w=2)*(x>1)+(w=3)*(xy)*(w=1)-(1w))-(w ... =2)*(x>2)+(w=3)*(xy)*(w ... =1)-(1w))-(w ... =2)*(x>2)+(w=3 ...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…
... Shift, then Symbol Shift and 'Q'
AT Symbol Shift and ... Caps Shift+Symbol Shift, then 'W'
DATA Caps Shift+Symbol ... Caps Shift+Symbol Shift, then 'Q'
SQR Caps Shift+Symbol ...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…
... K : Z
COS : E : W
DATA : E : D
DRAW : K : W
ERASE : E : SYM + 7 ... E : F
SIN : E : Q
SQR : E : H
Weird Computer GamesBook Title: [B][URL="http://www.worldofspectrum.org/infoseekid.cgi?id=2000411"]Weird Computer Games[/URL][/B] Page: 3, Program: Tower of Terror - [U…
... *3+1)
430 let w$=g$(ty)
440 let ... :print "ahead you see a ";w$
460 let gf=1 ... and y0.8 then let w=1
570 let c ...Weird Computer GamesBook Title: [B][URL="http://www.worldofspectrum.org/infoseekid.cgi?id=2000411"]Weird Computer Games[/URL][/B] Page: 3, Program: Tower of Terror - [U…
... )" " and v$"" then let w$=q$(i+i to ):let i ...
230 if w$="" then let v$=q$
235 if ... /> 900 if (ob=8 or w$="on "+o$(8)+" ") then ... return
1260 let w$="":print "point it at what ... br /> 1270 input w$
1280 if w$>"" then gosub ...Computer BattlegamesBook Title: [B][URL="http://www.worldofspectrum.org/infoseekid.cgi?id=2000080"]Computer Battlegames[/URL][/B] Authors: [B]Daniel Isaaman & Jenny Tyle…
... 8
490 print chr$(w(x,y));
500 next ... gosub 650
550 let w(e(h)-1,h)=0 ... (a)>50 then let w(e(h)-2,h)=0 ... ;.5 and h1 then let w(e(1),1)=29
Decoding of speccy keyboardHello everyone. I face following problem with spectrum keys decoding and need some explanation. I know how to decode a single key press by reading po…
... 0's being CS,A,Q,1,0,P,EN,SP ... ]
T R E W [color=red]Q[/color]
5 4 ...
