-
my tiny intros[IMG]http://pouet.net/screenshots/60493.png[/IMG] [url]http://pouet.net/prod.php?which=60493[/url] the following work will appear behind Demosplash…
...
pixel color or attribute 5 on ZX'screen is ... four surrounding positions (1-4):
[PHP] 1
253 ... lp0:
ld e, (ix-1)
push de
... inc hl * 2
ld bc, # 20: sbc hl, bc ... de
; 3 bytes ld hl, 0,but HL is more ... -
Bugs in Rocky Horror ShowI've been converting this game to disk, and I've found a bug in the game. If you run the 128k version and select "Sinclair joystick" as joysticks, t…
... [/CODE]
Or use the following if you ... HORROR SHOW 128
20 REM SINCLAIR JOYSTICK FIX
0: PAPER 0: INK 0: CLS : PRINT #0; INK 2; BRIGHT 1;AT 0,1;"Play ... DATA 255,55,205,86,5,48,241,33
... ,33,54,150,62,1,6,3
140 DATA ... -
Keyboard TrickI know how to use the multi key in BASIC with IN you can get the keys [QUOTE]IN 254+256*(255-2^K)[/QUOTE] K is the keyboard's half row, comes from …
... byte represents the key state (1=pressed; 0=unpressed). It is then ... OP):
[code]
; +0 +1 +2 +3 +4
; +0 CS Z X C ... R T
; +15 1 2 3 4 5
; +20 0 9 8 7 6 ... CLS
20 LET a=USR 49152:REM or wherever the code ... -
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…
... combat, then stats system
20 REM changes this version:npc ...
1060 DATA 0,0,1,25,63,254,188,0: DATA 96,32 ... =3: LET ny=5: LET nxo=3: LET nyo=5: LET nd=0: LET nhp=2 ... : LET nw=0 ... -
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…
... stats system
20 REM changes this version: ... 1060 DATA 0,0,1,25,63,254,188,0: DATA 96 ... 3: LET y=3: LET xo=3: LET yo=3: LET d=0 ... 3: LET ny=5: LET nxo=3: LET nyo=5: LET nd=0: LET nhp=20 ... : LET nw=0 ... ,nx; INK 5+2*(nhp -
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…
... to do = stats system
20 REM changes this version:move ... /> 1020 IF (PEEK 65369)>0 THEN GO SUB 9000
5+2*(nhp -
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…
... npc name, stats system
20 REM changes this version:sleep ... /> 1020 IF (PEEK 65369)>0 THEN GO SUB 9000
5+2*(nhp -
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…
... npc name, stats system
20 REM changes this version: moved ... /> 1020 IF (PEEK 65369)>0 THEN GO SUB 9900
5+2*(nhp -
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…
... , which gives me room for 5 different types of npc.
20 REM changes this version: moved ... /> 1060 IF (PEEK 65369)>0 THEN GO SUB 9900
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…
... to do = stats system
20 REM changes this version: prints ... /> 1060 IF (PEEK 65369)>0 THEN GO SUB 9900
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…
... based on map grid
20 REM changes this version: prints ...Best game ever?Not sure the best way to do this, thinking top 10s with a sliding scale of 10 points awarded to the game you vote 'best' down to 1 point for your 10t…
... (mentioned on page 3 here), so this ... I stop working 2 years ago (completed ... combination...) with its resolution of 0.5% in marks :)
19. Commando, 20. WS Basketball, 21. Arcadia ... (best) favorite games?", or am I wrong? < ... Chuckie Egg (and 1 pt goes to) ...IZX: a new standard format and driver for ZX-Spectrum icons[B]IZX[/B] is a very compact and efficient standard format to create icons for the ZX-Spectrum. You can download it from here: [LIST] [*][URL="http:…
... ] 5 LET end=55200
10 FOR g=0 TO 4
20 ... LET b=0
30 FOR n=0 TO 3 ...
40 FOR s=0 TO 1 ... FOR n=0 TO 3
120 FOR s=0 TO 1
130 ...Full 16*16-digit BASIC multiplicationI liked Andre Adrian's 32-bit long multiplication routine so much that I decided to a decimal version. After all, 2^63 is only 9223372036854775808, a…
... 1: ";C$'
"Number 2: ";E$
102 PRINT STR$ USR (LMUL10+3 ... byte
or a
... /> ld bc,5
add ... equ WORKSP+20
LL ... 1 (1 byte, 0-9)
I2: equ WORKSP+41 ;Carry flag#2 (1 byte, 0 ...20-column multicolour: a half-baked ideaI was writing an email reply to one Mr Jowett about multicolour routines, and in that way that explaining something to someone else makes you think "…
... line this: 6,5,4,3,2,1,0,0,6,5,4,3,2,1,0,0,6,5,...
... this: 7,6,5,4,3,2,1,0,7,6,5,4,3,2,1,0,7,6,...
Books that you just can't quit.Much as parts of the presentation,writing style infurates me, there is a book I just keep comming back to again and again. Its like the Yang to the …
... /> 1040 LET SCORE=0: LET WORMS=3: LET LEVEL=1
1048 REM ... /> 1050 LET S=5: LET P=1: LET R=0: LET C=INT ... .
1090 CLS : PRINT AT 0,0; PAPER 6;,,: PRINT AT 21 ... 0.06,18,0.06,19,0.06,21,0.15,27,0.06,21,0.2 ... IF R>20 OR R31 OR CS THEN LET P=1
3090 ...GAC Tutorial Started!Hi all. I have a Youtube channel where I play old games and such. I also do a few programming tutorials. I have recently added a Graphic Adventure Cr…
... end
IF ((verb 20) and (no1 > 0) ) mess 138 wait ... /> 3 // too dark to do things here
IF ((VERB 18)or ... /> *desc "milk"
*weight 5
*room 5
*end
if ((room = 2) and ((rand 3) = 1)) LF MESS 180 end ...Copying data between memory banks in USR0 modeI am experimenting with Funky Fungus to load the majority of its data (levels, screens, music etc.) into memory banks 1, 3, 4, 6 and (partly) 7 by sw…
... one given bank (1, 3, 4, 6 or 7) to bank 5:
[CODE ... [routine address]+2,X
DI
LD D,1 ;selects bank ... : REM loads decompressing routine
20 LOAD "copy"CODE 28100: REM ... the same from bank 5 to bank 0 and finally decompress the ...SE Basic IV Buffy v4.1 source (WIP)I've been doing a major refactor on the SE Basic source and I'd appreciate a code review from anyone who has time to look at it. I've almost certainl…
... bc, 5 ; 5 bytes
0 to 3
0 ; 2 * z mem-0 holds 2 * z
fdel ; -
fstk0 ; 0
fst 2 ; 0 ... 1)
fst 1 ; mem-1 holds b(r - 1)
fsub ; b(r), 2 ... UDGs 0 to 20
or (hl) ; OR<…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…
... . Instead of one general ink 1 statement, it specifies the ink ... print black (for a door) or blue for wall depending on ... based on map grid
20 REM changes this version: sets ...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…
... ]INK 1+6*(VAL t$(5)=1)*((j=7)+(j=8))[/I] or similar ... sporg basic v0pt026 20131205
20 REM changes this version: doors ...really dumb questionbut can I use the following line to create a udg and if so how do I call it or use it via the graphics mode? Do I need to READ something somewhere? …
... used the CLEAR keyword correctly or if I even have ... suitable.
[code]5 CLEAR 60000
10 DATA7 ... 40,199,0,192,32,0,128,64,162,28,0,-2
20 LET ... 1 STEP -1:POKE 23676,p-i:BORDER 5:PAUSE 10:BORDER ... i=3 TO 1 STEP -1:POKE 23676,p-i:PRINT AT 0,0;"{A ...hash function permutation tableI'm using a simple Pearson hash function to generate keys for a $(103,6) array using a 256-byte permutation table. How do I arrange the entries in th…
... .
[code]
3 LOAD "k$()" DATA k$()
5 DIM x$(6): DIM h ... 0,34,20,0,0,0,1,0,0,47,4,0,0
,0,70,0,47,47,34,76,0,32,0,0,0 ...
c = opcode = 0(OR), 1(AND),Python script to scrape Amazon.com book reviewsI've been meaning to read the Gollancz Fantasy Masterworks (roughly 40 books) and Sci-Fi Masterworks (roughly 100+ books) lists for a while now, but …
... (5, 2, 0, 0, 0, 33)
Time and the Gods Lord Dunsany (3, 3, 1, 0, 0, ... (4, 0, 0, 0, 0, 20)
The Complete Roderick John Sladek (2, 2, 0, 0, 1, 19)
0, , , , , )
Elric Michael Moorcock (
BigBadMick
April 2014
Chit chat
C64 for the PiSomeone is writing the C64 natively for the Rasberry Pi and it looks amazing. I hope this will make someone do a ZX Spectrum too. Take a look its a…
... 5.16
FOURIER : 2081.3 : 2.37 : 1.33
ASSIGNMENT : 2 ... .5655 : 9.76 : 2.53
IDEA : 704.32 : 10.77 : 3.20 ... compiler 10.0
... buggy or if ...Fast and easy read/write of attributes?What are the fastest or easiest ways to check the attributes of tiles on the screen, in BASIC? It seems to be a great way of storing object info. …
... /> 3 BORDER 1: PAPER 5: CLS: PAPER 7:
FOR y=1 TO 20: PRINT ... $ 18+CHR$ 1+CHR$ 17+CHR$ 0+CHR$ 16+CHR$ 2+"AB":
LET b$=CHR$ 19+CHR$ 1 ... +CHR$ 17+CHR$ 5 ...Popular Computing WeeklyHope someone can help me, I've been typing in a whole heap of early Type-ins for the Amstrad CPC 464 and have typed in a program, though it's not wor…
... '84, a month or so after the launch ... 1,0:PAPER #1,1:CLS #1
160 WINDOW #2,22,40,1,8:PEN#2,1:PAPER #2,2 ... :CLS#2
170 WINDOW #3,10,30,10,13:PEN #3,2:PAPER #3,3 ... (20)=0
1970 IF INKEY(0)=…
