-
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
Cheers na_th_an, the quest to reduce initialisation time will continue!
- Now the npc ident gets printed at the bottom of the screen, and the ident and the graphic is colour-coded by the new variable npc, which gives me room for 5 different ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
- Added running hp totals for the pc and npc stats areas
[IMG]http://i1136.photobucket.com/albums/n498/bigjon1684/ZXSporgBASICv0pt023Screenshot.jpg[/IMG]
[CODE]10 REM zx sporg basic v0pt023 20130314 - next to do = stats system
20 REM ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
- have begun work on a simple map, which is initialised and displayed in the bottom right-hand corner by the cumbersome line 9220
[IMG]http://i1136.photobucket.com/albums/n498/bigjon1684/ZXSporgBASICv0pt024Screenshot.jpg[/IMG]
[ ... -
Mouse systems for ZX Spectrum[U][B]Mouse systems for ZX Spectrum[/B][/U] Okay, I have been reading the [URL="http://www.worldofspectrum.org/forums/showthread.php?p=688449#post68…
... Example:
previous X-AXIS position : 10 (variable B ... )
current X-AXIS position : 30 (variable ... -128 to 127. For X-AXIS - negative value sign ... )*0.686
20 PLOT X,Y:GOTO 10
... 686=175 = max limit for plot in ZX basic :-)
... -
Font hack that was used in a lot of early gamesThere was a little hack for changing the fonts on a spectrum and I remember it being used in a couple of old games on the 48k, it was a sort of ye od…
... TO 0 STEP -1: FOR x=6 TO 0 STEP -1 ...
60 IF POINT (x,y) THEN PLOT x+1,y
80 ... NEXT x: POKE a,PEEK (22432 ... -
RND cyclical behaviourGood evening. I'm playing with RND function to show its cyclical behaviour, i.e. after 65536 calls to it, the next one will return the same value of …
... (r/256)
21 LET x=r-256*y
40 ... PRINT n: STOP
50 PLOT x,y
60 NEXT i ... -
display file addressing; screen slicingWhile working on this Compendium I'm updating or rewriting a lot of stuff. One thing I eventually came to appreciate was the simple & clever way in w…
... 1100
100 LET x=-x1+xo: LET y=-y1 ... 1100
110 LET x=-y1+xo: LET y=-x1 ... 1100
120 LET x=x1+xo: LET y=-y1 ... 1050 RETURN
1100 REM Plot x,y
1105 REM ref ... xc=INT(x/8): REM Location of X character block< ... 1140 LET xp=x-xc*8: REM X pos on line ( ... -
display file addressing; screen slicingWhile working on this Compendium I'm updating or rewriting a lot of stuff. One thing I eventually came to appreciate was the simple & clever way in w…
... could be simply replaced with PLOT x,y which reduces the ... 5 LET c=INT ((255-x)/8)
6 LET hl ... /> LET p=8-255+x+c*8: LET w=PEEK ... starts
10 LET x=x1+xo: LET y=y1 ... 3
12 LET x=-x1+xo: GO SUB 5 ... /> LET x1=r: LET x=x1: LET y1=0: LET ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
First development in 8 months on this project - changed the mechanics of setting the colour of the walls in line 9720. Instead of one general ink 1 statement, it specifies the ink colour blue for each block printed. This is so I can print black (for a door ... -
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
Actually decided the doors need to be white as the that's the only colour the PC can walk over. Line 9720 is now a bit of a monster as the ink colour needs to be evaluated with [I]INK 1+6*(VAL t$(5)=1)*((j=7)+(j=8))[/I] or similar before each square of ... -
Code to test if a rectangle is in a rectangle[SIZE=3][FONT=Calibri]I am looking to write some code that will check if a rectangular shape is outside or overlapping a second rectangle. If the sma…
... 10 CLEAR 39999:
PLOT 64,44: DRAW 128,0 ... 170 STEP 6:
PLOT x,y: DRAW 5,0: ... br /> RANDOMIZE y*256+x: POKE 40000,PEEK 23670: ... 22 OVER 1:
PLOT x,y: DRAW 5,0: DRAW ... ,0: DRAW 0,-5: PLOT x,y:
OVER 0:< ... -
How to print logo onto screen at chosen coordinates?Hi, I've just got back into zx spectrum games after all these years and after seeing some of the great games on here I would like to start learning p…
... LET p=POINT (x,y): LET c$(x+1)=CHR$ 143 ... y,x+1) THEN PLOT x,y: PRINT x;",";y;" ";
80 NEXT x: ... />
Which calculates the PLOT coordinates for all of the ... bit to the routine to PLOT an enlarging character across ... 1 TO y1+s-1: PLOT p,q: NEXT q: ... -
So shooting 360 degrees?...[I]How do I go about having - for example - a cannon in the middle of the screen, that can shoot in any direction towards the player?[/I] Well, I do…
... as being a line plot between two points, you ... shl 1
plot(x0, y0)
...
for x from x0 + 1 to x1 ... y = y + 1
plot(x, y)
D = D + ... dy - dx
else
plot(x, y)
D = D + ... -
Drawing a dotted line...Hi Folks, I cannot be the first person to want this (?) so here goes! Does anyone have a MC routine that does the same as the BASIC DRAW command bu…
...
plot x,y
Calculate next pixel address
plot x,y
over 1
plot x,y
over ... -
Why no PLOT, etc. on bottom two lines?I was pondering if there was any way to get PLOT, etc. to address the full screen from BASIC without having to write a few lines of assembler to bypa…
... assembler route and write a PLOT *x,y command that called a ... modify the POKE *x,y command into a PLOT *x,y command.
BLOG- ZXSporgBasic RPG development thread- Inspired by the Spectrum 30 show, and after a six-month wait while I was busy playing loads of gigs, I have decided to do a spot of Spectrum coding…
... make it more straightforward to plot as INVERSE 0 or 1 ...Kempston mouseHas anyone got code to work with an emulated Kempston mouse? There seems to be some conflicting information in the internet on which bits are reset w…
... />
[code]
10 LET x=IN 64479
20 LET ... /> 25 PRINT AT 0,0;x;" ";y;" "
30 IF IN ... IF IN 64223=254 THEN PLOT x,y
50 GO TO ...Random object placementI'm looking for some advice on placing objects randomly in a game. I have a routine that reads a table and prints the corresponding object: 0 prints…
I just run a simple empirical test (plotting randomly on screen) to compare the random generator algorithms mentioned here:
[CODE]10 FOR f=0 TO 20000
20 LET y=USR 32768: IF yRandom object placementI'm looking for some advice on placing objects randomly in a game. I have a routine that reads a table and prints the corresponding object: 0 prints…
[QUOTE=Einar Saukas;817774]I just run a simple empirical test (plotting randomly on screen) to compare the random generator algorithms mentioned here:
[CODE]10 FOR f=0 TO 20000
20 LET y=USR 32768: IF yRandom object placementI'm looking for some advice on placing objects randomly in a game. I have a routine that reads a table and prints the corresponding object: 0 prints…
[QUOTE=Jerri;817782][QUOTE=Einar Saukas;817774]I just run a simple empirical test (plotting randomly on screen) to compare the random generator algorithms mentioned here:
[CODE]10 FOR f=0 TO 20000
20 LET y=USR 32768: IF yRandom object placementI'm looking for some advice on placing objects randomly in a game. I have a routine that reads a table and prints the corresponding object: 0 prints…
... y=RND*175:LET x=RND*255: PLOT x,y
30 NEXT ...Random object placementI'm looking for some advice on placing objects randomly in a game. I have a routine that reads a table and prints the corresponding object: 0 prints…
... y=RND*175:LET x=RND*255: PLOT x,y
30 NEXT ...Random object placementI'm looking for some advice on placing objects randomly in a game. I have a routine that reads a table and prints the corresponding object: 0 prints…
... simple. Pick pairs, but only plot them if it is possible ... LET y=USR 32768: LET x=USR 32768: IF yDisappearing/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…
... coordinates in c(). (The PLOT in line 40 is just ... 1
40 IF POINT (x,y) THEN
LET ... pc,1)=x: LET c(pc,2)=y:
PLOT x,y< ... br /> 50 NEXT x: NEXT y: OVER ... LET y=c(i,2): PLOT x,y
90 LET c ...Where does the BASIC program sit 48K Spectrum memory?Hi there First post so be gentle, I've had a spectrum since the 80's and have recently started programming it for fun again. I wrote the followin…
... INK 6
160 PLOT 0,113: DRAW 255,0 ...
170 PLOT 0,46: DRAW 255,0 ... 3)
340 LET x=128+118*SIN r
400 PLOT x,y+t: DRAW i,- ... l-k
410 PLOT x,y+t: DRAW j,-t ... ,k-l
420 PLOT x,y+t: DRAW -i ... ,l+k
430 PLOT x,y+t: DRAW -j ...Akalabeth gamei found now that someone ported an ansi-basic game (coded in 1979?) to msx-basic - what about a zx-spectrum basic version of it? ;) https://plus.goo…
... 380
170 READ X,Y
180 REM ... /> 230 REM F=0 - PLOT, X=+ve, Y=+ve
240 ... REM F=1 - DRAW, X=+ve, Y=+ve
250 ... REM F=2 - DRAW, X=-ve, Y=+ve
260 ... REM F=3 - DRAW, X=+ve, Y=-ve
... 270 REM F=4 - DRAW, X=-ve, Y=-ve
...Akalabeth gamei found now that someone ported an ansi-basic game (coded in 1979?) to msx-basic - what about a zx-spectrum basic version of it? ;) https://plus.goo…
... TO 380
170 READ X,Y
180 REM
230 REM F=0 - PLOT, X=+ve, Y=+ve
240 ... REM F=1 - DRAW, X=+ve, Y=+ve
250 ... REM F=2 - DRAW, X=-ve
260 REM F ... /> 270 REM F=4 - DRAW, X=-ve, Y=-ve
280 ... 330
310 IF XAkalabeth gamei found now that someone ported an ansi-basic game (coded in 1979?) to msx-basic - what about a zx-spectrum basic version of it? ;) https://plus.goo…
... TO 390
180 READ X,Y
190 REM
240 REM F=0 - PLOT, X=+ve, Y=+ve
250 ... REM F=1 - DRAW, X=+ve, Y=+ve
260 ... REM F=2 - DRAW, X=-ve
270 REM F ... /> 280 REM F=4 - DRAW, X=-ve, Y=-ve
290 ... 340
320 IF XBREAK key on 128k SpectrumWhat happens when BREAK is pressed on a 128k Spectrum? Why is it different from what happens on a 48k Spectrum. Is there a way to disable it or to …
... /> 20 FOR x=0 TO 255
30 PLOT x,87
40 ... NEXT x
50 GO ...
