-
Oneliner contestHello to you all, I dare you to make a program on 1 BASIC line. Here is the place to sent your ONELINERS [url]http://www.zxspectrum.00freehost.co…
... t(4,5)=1:
LET t(5,4)=1:
LET t(5,5)=2:
2;b;AT a*2,0;a;AT a*2,b*2; PAPER ... a+a,b+b; PAPER 3;" " to clearly indicate the ... player p (either p=1 or p=2). This is what I ... LET d=i+INT (i/3)*6-10:
LET w ... :
IF t(w)=3-p THEN GO TO 20 ... -
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…
... =Digital Prawn;248886]Saved 3 spaces[/QUOTE]
... CODE]
FOR b=-1 TO 0:
FOR v ... gt;2),16*(q=2 OR q=4); OVER 1; BRIGHT ... -b,:
NEXT v:
BEEP -b/2,q*5-8-3 ... b=0 TO 1:
BEEP b/2,q*5-8-3*( ... gt;2),16*(q=2 OR q=4); OVER 1; BRIGHT 1- .… -
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…
... /> FOR b=0 TO 1:
BEEP b/2,q*5-8-3*(q=4 ... *(q>2),16*(q=2 OR q=4); OVER 1; BRIGHT 1-b,:
0 TO 7:
BEEP (v=4)/2,q*5-8-3*(q ... =4):
PRINT AT v+4*(v2),16*(q=2 OR ... q=4); OVER 1; BRIGHT v -
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…
... , so it is just over 5 and a half rows over ... view" of maze, save almost 3 rows.
I'm ... =1))*(1-2*(z>0))+(k$="7")*(18+2*(ABS z>1))*(1-2*(z=19 OR ... +(20-ABS z)*e*(1-2*(z=-1 OR z=19)))=0:
[/quote]
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=Digital Prawn;251621]Overall I'm very happy with this version, and now think it can be looked at further for the much needed optimisations.[/QUOTE]
Agreed!
Now we can save more positions as follows:
a) Replace ...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 m(RND*8+42)=1[/code]Saves 8, I think ... />
Calculated value will be 0,1,2 or 3 * 2 + 42 makes 42, 44, 46 ... ROUNDED by the ROM
0, 1, 2, 3, 4, 5 , 6, 7 and 8 ...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…
... tiles
uchar height; // +3 height of sprite in tiles ... 1-byte, bits 2:0 = current vertical rotation (0..7)
uchar hrot; // +5 ... not exceed 255 either vertically or horizontally.
This ...4 Matches, Round Robin, Chess Tournament - COMPLETED !!Soon, you'll read here, on Forum, about my work on making Database with rattings for Speccy games... while I work on that huge 'project', I encounter…
... expect 2 duels where old, inferior chess programs have little or no ... chess 3.5 :-)
Turk - clock'89 0.5:3.5
colossus 4.2 - Cyrus1 1.5:2.5 ...
Cyrus2 - Sup.ch.3.5 4:0 ...4 Matches, Round Robin, Chess Tournament - COMPLETED !!Soon, you'll read here, on Forum, about my work on making Database with rattings for Speccy games... while I work on that huge 'project', I encounter…
... -2-0
2. Clock Chess'89____ 17.5 : 6.5 _____ (11:1) ________ 5-1-0
3 ... . Colossus 4.2______ 14.5 : 9.5 _____ (9:3) _________ 2-1-3 ... '89 would win (6:4 or 5.5:4.5 ?) as we had clear ...4 Matches, Round Robin, Chess Tournament - COMPLETED !!Soon, you'll read here, on Forum, about my work on making Database with rattings for Speccy games... while I work on that huge 'project', I encounter…
... /> a) add 1 or even 2 programs to Tournament - Spectrum chess 2 or Chess Player ... score, it be 16 of 28 or 20 of 32!
3 min/move, we can play ... , and 'marathon' settings - more then 5 min/move! Both variants has ...tricks to simplify codingWhen i started with programming in assembler i had very simple approach to do things. Just shifting bytes around, doing simple tests and so... Later …
... call sprite_draw_function ; could be mask, or, xor, etc
[/code]< ... tiles
uchar height; // +3 height of sprite in tiles ... 1-byte, bits 2:0 = current vertical rotation (0..7)
uchar hrot; // +5 ...KING OF PONG: Pong revisitedHello everybody. I'm proud to announce you that my last personal project for the ZX Spectrum, "KING OF PONG" is available to download here at WOS si…
... 3.026 7'28% Flip raquetas + Rutina Swap()
+1.010 39.520 2 ... 2.142 5'15% Premultiplicados en PintaNumMarcador()
-1 39.393 2.143 5 ... 393 143 0'34% Rebotes en muro OK
-5 41.388 ... 148 0'35% Mejora DescomprimeRLE()
-2 41.386 150 0 ...102 colours or 120 colours on ZX?OK then, we're talkin'bout GigaScreen. Two 15-colours pictures set together. Flickering. Interlace thingie. We were counting today and theoretical…
... />
Black + bright white = rgb(0, 0, 0) + rgb(255, 255, 255) => ... />
0 and 7
1 and 6
2 and 5
3 and ... and green to get yellow or blue and green to get ... online:
"What color or colors do you see?"
Best chess game?Thought I'd ask which Spectrum chess program plays the best game? Never had chess on the speccy myself. Used to play a chess cartridge on the vic-2…
... -2-0
2. Clock Chess'89____ 17.5 : 6.5 _____ (11:1) ________ 5-1-0
3 ... . Colossus 4.2______ 14.5 : 9.5 _____ (9:3) _________ 2-1-3 ... '89 would win (6:4 or 5.5:4.5 ?) as we had clear ...Speeding up select processing...Hi Folks, I have the following code in my program and it works fine but is rather "sluggish". I have even moved it to the beginning of the program …
... SELECT
200 REM t(1)=Selected Row
210 ... REM t(2)=Key
220 REM ... t(3)=Row Count
230 ... /> 260 LET t(1)=2:
LET t(3)=t(3)*2:
OVER one ... AT t(1),0,,,,:
POKE 23560,0
280 LET t(2)=PEEK ...writing an emulator-newbie needs helpHi, this is my first post here. I decided to write a minimalistic emulator of ZX Spectrum-no emulation of advanced peripherals, no emulation of sound…
... [keyboard_state+keycode]
shl al, 1
.if CARRY?
... [keyboard_state+ebx]
shl al, 1
.if CARRY?
...Decimals!Quick couple of (probably very silly) questions, folks... If I have an input command in a program asking "How many potatoes do you want to buy from …
... how to use it here (or, indeed, if I can at ... :
2.1 + .5 = 2.6 => INT = 2
2.5 + .5 = 3.0 => INT = 3
2.9 + .5 = 3.4 ... => INT = 3
WibbleBibble's Basic threadHi in an attempt to keep my questions from spamming the forum. I think its better to put them all in one place. Thanks everyone so far, I feel I am …
... 8004
3440 IF P4=5 THEN PAPER P4P: INK P4I ... 6120: PRINT AT 12,1;: PAPER 0: INK 2: PRINT P4: LET P4 ... P4P: INK P4I: PRINT AT 2,28;: PRINT P4
4300 IF ... SUB 6120: PRINT AT 2,1;: PAPER 0: INK 2: PRINT P4: LET P4 ... FOR D=40 TO 1 STEP -3: BEEP 0.02,D: NEXT D ...CAT!RAM and PUTRAMLast year sometime I posted a couple of routines to: * catalogue the 128k RAMdisk in BASIC; * move RAMTOP and the stacks from BASIC. CAT!RAM and PUTR…
... details ((2+1)*3 bytes lo,mid,hi)
REM (page codes 0,1,2,3,4 ... 2=string array, 3=bytes
REM 2,3 file length - header; 4,5 saved ... from address
REM 6,7 program length, or ... LET d=5: FOR b=h+1 TO h+7 STEP 2:
Struggling with this routine... Any ideas?I'm trying to write a routine that plots 3 pixels to decrease the energy bar in the top right corner by 5 units, but it just wont have it! There mus…
... fit into 0,3->0,4 but 0,3->0,5; and they ...
djnz ROTATE
or (hl)
ld (hl), ... ld a,(51993)
or a
jr nz, ... :
[code]PRINT AT 0,2; BRIGHT 1; " ": RANDOMIZE USR 23296 ...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…
... takes another collision or two to crash< ... sprentry sprtbl[] = {
{0,1,0,0}, {0,0,1,0}, {0,1,2,0}, {0,2,1,0}, {0,1,3,0},
{0,3,
slenkar
November 2013
Development
SpecBAS 0.800 Released!Hi folks, it's that time again for another release. I was going to add a few more features, but I have other projects on the go at the moment, and it…
... (0,1): PRINT ATTR (0,2): PRINT ATTR (0,3): PRINT ATTR (0,4): PRINT ATTR (0,5): PRINT ... )=2 OR ATTR (x,y)=3 OR ATTR (x,y)=4 OR ATTR (x,y)=1 OR ... ATTR (x,y)=5 ... )=2 OR ATTR (x,y)=3 OR ATTR (x,y)=4 ORdumping protected BASIC loadersI wrote this a few weeks ago but forgot to post it. It will load & list from tape/TAP/TZX any BASIC program which has been saved with SAVE, including…
... "... DIM n(5)" to hold the 5-byte FP form.
or unary plus, for that ... =bytes: LET iv=0: LET bt=0: DIM n(5)
...
PRINT "[";: FOR d=1 TO 5: LET n(d)=PEEK ( ... 1): LET e$=CHR$ PEEK (d-2)
2001 IF c$>="0 ...How to get the current line position of a +3e's text window?Does anybody know how to get the current line position of a [url=http://www.worldofspectrum.org/zxplus3e/]ZX Spectrum +3e[/url]'s text window? I've r…
... .
The first 5 bytes are what you would ... /> ch_point ds.w 1 ; pointer routine in ROM 0 (or invalid I/O ... /> ; bit 1=over
; bit 2: 0=tokens, 1=extended udgs
; bit 3: true ... double width mode
; bit 5: double height mode
; bit ...Features that are still wanted in Spectrum emulation.Features that are still wanted in Spectrum emulation. 4 USB joystick/gamepad input for real multiplayer games - Yes, Bomb Munchies.... - Sinclair 12…
... official Kempston interfaces that do 3-bit (low) decoding, 000xxxxx
0” (or “5” for Sinclair 1) on your keyboard, then ... emulation together with either Sinclair 1 or Sinclair 2, and looking at the ...EmuZwin 128k banks in assembler Having looked at the assembler help file " ORG [{ RAMn | ROMn },] #target_address [, #dest_address ] Defines target assembling address and ta…
... any meaningful error messages or examples of syntax usage ... LD A,$02 ; Logical Bank 2
CALL L1C64 ; Page ... />
Default bank 0 (logical 5) $C000 to $FFFF will ... br /> Use Banks 1 and 3 (logical 0 and 1) (contended memory) ...Looking for any maze game where the map is different every timeHi folks, I'm looking to sharpen my game writing skiils (or lack thereof!) and I need an example of a simple maze game which creates a different map…
... are no empty neighbor crossings or your wall has reached a ... =5
20 INK 0: PAPER 0: BORDER 0: CLS
30 INK 1: PAPER 1 ... x(2)=-1: LET y(2)=0
90 LET x(3)=0: LET y(3)=1
