-
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…
... size from 19x19 to 21x31 (or at least 19x31) should help ... improvement:
[CODE]
1 RANDOMIZE :
DIM m(3e3 ... +1306)=1:
FOR r=1 TO 31:
FOR s=1 TO ... -
Collision Detection in SP1Hi, Does anyone have a well-documented example of using collision detection in spritelib. I've search WoS and Z88DK forums but no joy. Something wi…
... /> uchar height; // +3 height of sprite in tiles ... else 1-byte, bits 2:0 = current vertical rotation (0..7 ... />
ld a,(iy+3) ; height (in chars)
or horizontally.
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…
... suggested:
[CODE]
1 DIM m(3e3):
LET ... )*2+1430)=USR 7766^0:
FOR r=1 TO 31:
FOR s=1 TO 23:
READ 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…
... yours:
[CODE]
1 CLS :
DIM m(3e3 ... 7766^0:
FOR r=1 TO 31:
FOR s=1 TO ... :
LET d=INT (d-.3*o*d):
FOR e ... =-.5 TO 1:
LET w=INT (.35 ... a)*e,w:
DRAW 0,d+d:
DRAW (a ...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…
... =16:let w=1:let t=0:let x=0.01
150 ... /> 190 let r=j-1:let c=0:gosub 4000
200 ... -3 then let g=g+3*p-9
430 if g=0 or ... g=2*k-1 ... br /> 140 let p=0:for n=1 to 4:read d ... ) then let f=f+1:beep 0.2,0
540 if fSt. 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…
... blocks
110 border 0:paper 0:ink 7:cls
... br /> 290 input"flash (0 to 1) ";f(j)
300 ... 120 cls:let v=0:let h=0:inverse 0
130 for ... 220 data 10,7,3,9,1,16,3,23,10,25,17 ... /> 260 if s=9 or q(9)4 and q ... /> 410 if s=9 or q(9)p+2 then ...Computer SpacegamesBook Title: [B][URL="http://www.worldofspectrum.org/infoseekid.cgi?id=2000089"]Computer Spacegames[/URL][/B] Authors: [B]Daniel Isaaman & Jenny Tyler…
... "
80 for c=1 to 10
90 ... /> 240 if v1>1 and v16)
250 ...
260 if w=3 then goto 320
... let m=m-1
370 if m=1 or v50 then ... "
20 let s=0
30 let m= ... 100 let d=int(rnd*3-1)
110 if l+d20 ...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…
...
230 print:print "retreat or go on (r/g)"
1 then let rm=0
290 let m=m+int(rnd*3+1 ... /> 420 let ty=int(rnd*3+1)
430 let w$=g ... /> 10 let ts=0:let i$="0":let sp=3
20 let ... "
280 let x=0:let y=0:gosub 560
290 ...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…
... if r=7 and f(3)=0 then let m$="an ... br /> 900 if (ob=8 or w$="on "+o$(8)+" ") then ... done!":let f(15)=1:let l(1)=r
910 ... let f(11)=1:let f(3)=0:let l(3)=0:let m$="a ...
1250 if ob6 or l(6)25 then return ... /> 1340 if (ob=19 or ob=17) and r=24 ...Computer BattlegamesBook Title: [B][URL="http://www.worldofspectrum.org/infoseekid.cgi?id=2000080"]Computer Battlegames[/URL][/B] Authors: [B]Daniel Isaaman & Jenny Tyle…
... d1=sin(2*(b/180*3.1416))
100 if ... 40 let s=-int(rnd*3+1)
50 if abs( ... /> 190 for i=1 to g*3
200 let ... )=1: let n=n+1
170 for j=1 to 3< ... br /> 180 let c=1 : gosub 350 ...
190 if f(j)=0 or y ...JSW... how does the game "finish" in assembly?It seems the ZX and C64 versions of Jet Set Willy suffer from the same "unfinishable" problem. Thankfully the ZX version has been patched with pokes …
... the following values:
0 => Normal
1 => All items ... running to the right
3 => Willy's head is ... to keyboard control (if bit 1 of that byte is set ... that sets STATUS to 2 or 3. There doesn't seem to ...Announce: BASin r14b availableHere's the fix mentioned earlier for those of you that either are too lazy to update your OS (XP SP2 has been out aaaaages, Arjun!) or even junk that…
... Basin r14b :
[code]1 CLS : DIM r$(32): LET ... $(p+8)="I": POKE 23692,0: LET f=PEEK 23688: LET ... g=PEEK 23689: FOR a=0 TO 255: POKE 23688,f ... ): READ f,g: PRINT OVER 1;AT 0,s;" W ": READ r ... 23688,PEEK 23689,"","",p-1*(p>1)+RND*3-1*(p>21 ...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…
... ! Is the code publicly available, or do we still need to ... +8)="I": POKE a+4,0: POKE a+5,5: LET ... : LET g=PEEK (a+1): FOR c=0 TO 255: POKE a ... f,g: PRINT OVER 1; INK 6;AT 0,s;" W ": READ ... >=p)*(s1)+INT (RND*3)-1*(p>21),"I","I ...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…
... only for the last month or so. Although we still have ... b=0: LET c=14: LET x=3
20 FOR f=1 ... it doesn't look empty? Or perhaps something else at the ... print the current level instead. Or you can print both (perhaps ...Project: M.u.l.e.Wokani came up with a great idea about trying an open-development approach for spectrum games, and I thought why not try with a game I have under dev…
... 1 char sprites will be required and they may have 2 or 3 ... g_textBuffer, score);
d_Print(0, 0, INK_BLACK | PAPER_WHITE, 0, g_textBuffer);
[/code]
d_Print(0, 0, INK_BLACK | PAPER_WHITE, 0, g_textBuffer);
[/code]< ...Project: M.u.l.e.Wokani came up with a great idea about trying an open-development approach for spectrum games, and I thought why not try with a game I have under dev…
... = g_players[0].score + g_players[1].score + g_players[2].score + g_players[3].score;
u_AppendLong(colonyScore);
d_Print(0, 0, INK_YELLOW | PAPER_BLACK, 2, g_textBuffer);
or if there are colony shortages ...CRASHing into crapness, Part 2Following on from [url=http://groups.google.co.uk/group/comp.sys.sinclair/browse_frm/thread/5541add8fe6b5218/e629555e12c5f3e8?lnk=st&q=crashing+into+…
[QUOTE=NickH;267434]Oooh, I'll take any scans of those - I already have Issue Zero (Superman).[/QUOTE]
I've put scans of Issue 0, 2 and 3 up at:
[url]http://www.crashonline.org.uk/misc/lm.htm[/url]
Anyone have issue 1 or 4?CRASHing into crapness, Part 2Following on from [url=http://groups.google.co.uk/group/comp.sys.sinclair/browse_frm/thread/5541add8fe6b5218/e629555e12c5f3e8?lnk=st&q=crashing+into+…
[QUOTE=mjwilson;267637]I've put scans of Issue 0, 2 and 3 up at:
[url]http://www.crashonline.org.uk/misc/lm.htm[/url]
Anyone have issue 1 or 4?[/QUOTE]
That's perfect and enough for me - ta.Porting 8k Adventure to SpectrumSomeone has tried to help me port 8k Adventure over to the spectrum. Here is the code thus far. It doesn't seem to work with the verbs, however. I tr…
... N$(2)="SOUTH": LET N$(3)="EAST": LET
N$(4 ... /> 50 LET RM=1: LET IC=0: LET LZ=0: LET HP=200 ... $(1)="": LET W$(2)="": LET SI=0: LET YI=0: IF LEN (A$)=1 ... ": PRINT "TYPE ";
INVERSE 1;"HELP"; INVERSE 0;" FOR CLUES": GO TO ...Porting 8k Adventure to SpectrumSomeone has tried to help me port 8k Adventure over to the spectrum. Here is the code thus far. It doesn't seem to work with the verbs, however. I tr…
... N$(2)="SOUTH": LET N$(3)="EAST": LET N$(4)="WEST ... /> 50 LET RM=1: LET IC=0: LET LZ=0: LET HP=200 ... W$(1)=A$( TO X-1): LET SI=X+1: LET YI=1
1;"HELP"; INVERSE 0;" FOR CLUES": GO TO ...Another file format description pageDear Forum readers, I'm hosting another description site of ZX-Spectrum emulator file format descriptions, where you may find several file formats i…
... bits 0..2 of the BYTE, or 0..2 of the ULA, or ... both? Are bits 7-3 of ... the ULA provided somewhere else, or default to 1 or 0? ... reserved bytes being 0x00 or should also be made.< ... get the PC value, or the consequences of that.
Porting 8k Adventure to SpectrumSomeone has tried to help me port 8k Adventure over to the spectrum. Here is the code thus far. It doesn't seem to work with the verbs, however. I tr…
... N$(2)="SOUTH": LET N$(3)="EAST": LET N$(4)="WEST ... /> 50 LET RM=1: LET IC=0: LET LZ=0: LET HP=200 ... W$(1)=A$( TO X-1): LET SI=X+1: LET YI=1
1;"HELP"; INVERSE 0;" FOR CLUES": GO TO ...A BASIC compiler projectHi, I started my own BASIC compiler for the ZX Spectrum (and Z80 machines) 3 months ago. It's still in ALPHA stage (when it is mature, I will write …
... default base is 0 (like in C), not 1 like in ... array:
DIM A(1, 3) => {{0, 1, 2, 3}, {4, 5, 6, ... Unsigned byte
FOR b = 0 to 10: ...
NEXT ... br /> FOR c = 0 to 10 step 0.1
NEXT c< ... place. So if two (or three) contiguous blocks are freed ...Joysticks on Amstrad boardsNever mind the oddly wired connectors for this post... as we all know, the joystick ports on the +2 and +3 are Sinclair Interface II equivalents. Is…
... /9 for up/down, and 0 for fire.
By ... /7 for up/down and 0 for fire, i.e. the ... - 6,7,8,9,0 by default, or Cursor if you fire ... right port was always simultaneous 1,2,3,4,5 and Kempston ... if you did FORMAT "j";1 - so I had to include ...post your preferred 'up-down-left-right-fire' keys redefinefor me, and for some reason it was Emlyn hughes back in the day that got me attatched to this, from then on and to this day I will always redefine my…
... , M (space) or 6,7,8,9,0 (1,2,3,4,5)
since I had a +3 I think I enjoyed more ... botton instead of the M or SPACE... I tried it a ...post your preferred 'up-down-left-right-fire' keys redefinefor me, and for some reason it was Emlyn hughes back in the day that got me attatched to this, from then on and to this day I will always redefine my…
... , M (space) or 6,7,8,9,0 (1,2,3,4,5)
since I had a +3 I think I enjoyed more ... botton instead of the M or SPACE... I tried it a ... -P-Z and/or 5-6-7-8-0
FREECELL ... and 5-6-7-8-0
SOKOB-ONE : Q-A ...VIC 20 emulation on the SpectrumI'm sure most people are aware of the my attempt at bringing the full Commodore experience to Sinclair users with the "Twenty Commodes" program. It e…
... .
Avoid the walls or colliding with yourself.
3. If anyone ever scored more ... /256
STA PTR2+1
LDY #0
SPRITECOPY
ANN: ColorPRINTColorPRINT gives you 256 fully programmable Timex mode 2 characters (maximum 16 colours per character if you have bright black) to use in your 48 BAS…
Is it color or colour?
Anyway, I' ... by changing all instances of 0,1 and 3 to NOT PI, SGN ... saving more space :
1) Remove UDG creation part - line ... /> 2) Convert the rows of * or + characters to a STR() type ...New Functions for Sinclair BasicA total of 52 new functions can be added to Sinclair BASIC; 26 numeric functions (A-Z) and 26 string functions (A$-Z$). Owing to the internal structu…
... recursion. Valid values are (0-255) in binary, as ... code]
Takes binary value (0-255) in x$ and y ... value (0-255) in a$
Bitwise OR
... OR VAL y$(2)=1)+STR$ (VAL x$(3) OR VAL y$(3)=1)+ ... OR VAL y$(8)=1)
[/code]
Takes binary value (0 ...
