-
Changing the colour Atributes at y,x (+3e BASIC)Hello there my fellow WoS'ers I am currently writing away on my +3e and I am wonder is there a way I can just effect the Paper / Ink attributes at Y…
... the Paper / Ink attributes at Y,X on the screen using BASIC ... change just the graphic at Y,X but not the attributes (ink ... -
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…
... /> 1220 INK 6: LET x=1: LET y=1: LET xo=1 ... : LET d=0: PRINT AT y,x;CHR$ (144+d)
1230 ... /> 2020 LET xo=x: LET yo=y
2030 LET x=x-(IN 65278 -
New Compo IdeaI've had this idea and would like to know what do you think about it. I think that most of us here know how to code in BASIC. The problem with Specc…
... with ATTR(y,x) for collission.
1 LET Y=10: LET X=10 ... UDG A
10 IF ATTR(y,X) 56 THEN GOTO 1000: REM ... /> 20 PRINT AT Y,X;"*": LET OY=Y: LET OX=X
30 PAUSE ... $="5" THEN X=X-(X>0)
50 IF K$="8" THEN X=X+(X -
New Compo IdeaI've had this idea and would like to know what do you think about it. I think that most of us here know how to code in BASIC. The problem with Specc…
... ATTR(y,x) for collission.
1 LET Y=10: LET X= ... A
10 IF ATTR(Y,X) 56 THEN GOTO 1000: ... 20 PRINT AT Y,X;"*": LET OY=Y: LET OX=X
30 ... 40 IF K$="5" THEN X=X-(X>0)
50 IF ... K$="8" THEN X=X+(XCHR$ 164 THEN LET A ... -
udg collision detectionhow do I detect a collision between udgs in basic?
... cannot test directly with SCREEN$ (Y,X). An UDG will return a ... color and then test with ATTR(Y,X)
or make your ... -
udg collision detectionhow do I detect a collision between udgs in basic?
Yeah I remember something about attr(y,x) from an old Input mag years ago - working example anyone? -
udg collision detectionhow do I detect a collision between udgs in basic?
... /> Yeah I remember something about attr(y,x) from an old Input mag ... -
Basic Programming Routine Needed . . . HELP!Hello there, I though i would try and redo an old classic (pacman) in basic . . . BUT . . . I can't remember how to write the code to see what chara…
... the character at screen location y,x, but it won't recognise ... SCREEN$ will work.
ATTR(y,x) will give you the attribute ... value at location y,x, encoded as (128 * flash setting ... -
CLEAR does not RESTORE the DATA pointer??According to the Spectrum manual, one of the things that a CLEAR command does RESTORE the DATA pointer. Either it doesn't actually do this, or some…
I compiled this list of ones that I had come across for css. However they are more an indication of last-minute changes than any poor standards. The book remains one of the best manuals ever.
The ZX81 manual had a minor error in the RND explanation ... -
Oh so BRIGHT!What is the SLOWEST way to change the attribute area to BRIGHT? It has to be legit! No meaningless instructions or doing stuff for the sake of it. …
[CODE]
10 FOR y = 0 TO 23
20 FOR x = 0 TO 31
30 LET b = ATTR (y,x)
40 IF b>127 THEN LET b=b-127
50 IF b>63 THEN GOTO 80
60 IF y>21 THEN PRINT #0; AT y-22,x; PAPER 8; INK 8; BRIGHT 1; OVER 1; " "
70 IF y -
Oh so BRIGHT!What is the SLOWEST way to change the attribute area to BRIGHT? It has to be legit! No meaningless instructions or doing stuff for the sake of it. …
... :
[CODE]10 FOR y = 0 TO 23
20 ... 31
30 LET b = ATTR (y,x)
40 IF b> ... ;21 THEN PRINT #0; AT y-22,x; PAPER 8; INK 8 ... ; OVER 1; " "
70 IF y -
Oh so BRIGHT!What is the SLOWEST way to change the attribute area to BRIGHT? It has to be legit! No meaningless instructions or doing stuff for the sake of it. …
... .
[code]
10 LET y=INT(RND*24)
20 ... LET x=INT(RND*32)
30 ... ;21 THEN PRINT #0;AT y-22,x; PAPER 8; INK 8 ... ;" ";
40 IF y64 OR (ATTR(y,x)>127 AND ATTR(y,x) -
Oh so BRIGHT!What is the SLOWEST way to change the attribute area to BRIGHT? It has to be legit! No meaningless instructions or doing stuff for the sake of it. …
... ]
10 INPUT "Enter Y Co-ordinate: "; y
20 IF y23 ...
30 INPUT "Enter X Co-ordinate: "; x
40 IF x31 ... 110
50 LET b = ATTR (y,x)
60 IF b> ... ;21 THEN PRINT #0; AT y-22,x; PAPER 8; INK 8 ... ; OVER 1; " "
90 IF y -
Oh so BRIGHT!What is the SLOWEST way to change the attribute area to BRIGHT? It has to be legit! No meaningless instructions or doing stuff for the sake of it. …
... OR (ATTR (y,x+1)>127 AND ATTR (y,x+1)64 OR (ATTR (y,x-1)> ... ;127 AND ATTR (y,x-1)64 OR (ATTR (y ... +1,x)>127 AND ATTR (y+1,x)64 OR (ATTR (y ... -
Ways to use double buffering in basicI was meddling with woody's print stream code where you can print characters at any pixel location on screen. I was playing with 12 sprites, very ann…
... pos= 16
1240 let y=-1
1250 let points ... goto 3300
3130 if attr(y,x)=48 then let points=points ... +10
3140 let y=-1:goto 3400
3200 ... rem ***********************
3310 print at y,x;"i";
3400 rem ***********************
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…
... /> [code]
10 LET x=16: LET y=10: LET u=1 ... AT 0,8;sc;" ";AT y,x; PAPER 2;" ": LET i$=INKEY ...I wonder why I started this....Hi I was bored today, and have for some time now been speculating about making a Spectrum game in Basic. As said today I was bored, and started on i…
... /> PRINT ATTR (y,x)
and
PRINT ATTR (y+1,x)
< ... br /> even though the character at y,x is ... white on black paper, and the character below at y ...
On posistion y+2,x which is a blank spot ...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…
... /> I could instead have used ATTR(y,x) to recover the colour information ... same as the previously read ATTR result, also the game cursor ... this method. (Unless of course ATTR(y,x) is taken at the same ... place as SCREEN$(y,x), but that would require yet ...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…
... br /> FOR y=1 TO 20:
FOR x=1 TO 25 ... +4*(y0)*(j"")*(j=0)*y:
LET i=i+(x+1-i)*(j ... =0):
LET c=ATTR (y,x+3)>41:
PRINT ...
a: FOR y=1 TO 20: FOR x=1 TO 25 ... -i)*(j=0): LET c=ATTR (y,x+3
)>41: ...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…
... c=0:
DIM x(m):
DIM y(m):
FOR ... h:
LET x(i)=15:
LET y(i)=15-i ... :
PRINT AT y(i),x(i); INK 6;"o@"(1 ... ,k,d,d,x,y:
IF (x>-1)*(x-1)*(y4)-(d0 ... ),y(h)+(d>2 ...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…
... c=0:
DIM x(m):
DIM y(m):
FOR ... h:
LET x(i)=15:
LET y(i)=15-i ... :
PRINT AT y(i),x(i); INK 6;"o@"(1 ... ,k,d,d,x,y:
IF (x>-1)*(x-1)*(y4)-(d0 ... ),y(h)+(d>2 ...Frank N SteinThis one > [url]http://www.worldofspectrum.org/infoseekid.cgi?id=0001849[/url] Always seems to crash about level 7 (maybe a bit more) or so with an …
... AT y,x;" /144"; AT y,x+1;" /145": LET r=1: LET y=y+1 ... : GOSUB 1200: GOSUB 1400: BEEP (1/500),50+(x*2 ... y+1,x;"/144"; AT y+1,x+1;"/145": LET r=1: LET y=y ... =2 THEN PRINT AT y,x;"/146/147"; AT y,x+1;"/148/149 ... /> 8420 IF (r=1 AND ATTR(x,y)Is there a limit to the numberof variables you can have in BASIC..... Reason I ask is I've got an idea....but using my "lowest common denominator" approach to code I fear that I'…
Let a=ATTR (Y,X) will do the same thing.
Set the walls and grass to different colours then you can use ATTR to determine what's at each screen position.Is there a limit to the numberof variables you can have in BASIC..... Reason I ask is I've got an idea....but using my "lowest common denominator" approach to code I fear that I'…
... a cause;598103]Let a=ATTR (Y,X) will do the same thing ... colours then you can use ATTR to determine what's at ...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…
... /> 1220 INK 6: LET x=1: LET y=1: LET xo=1 ... : LET d=0: PRINT AT y,x;CHR$ (144+d)
1230 ... /> 2020 LET xo=x: LET yo=y
2030 LET x=x-(IN 65278BLOG- 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…
... /> 1220 INK 6: LET x=1: LET y=1: LET xo=1 ... : LET d=0: PRINT AT y,x;CHR$ (144+d)
1230 ... /> 2020 LET xo=x: LET yo=y
2030 LET x=x-(IN 65278BLOG- 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…
... /> 1220 INK 6: LET x=3: LET y=3: LET xo=3 ... : LET d=0: PRINT AT y,x;CHR$ (144+d)
1230 ... /> 2020 LET xo=x: LET yo=y
2030 LET x=x-(IN 65278BLOG- 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…
... /> 1220 INK 6: LET x=3: LET y=3: LET xo=3 ... : LET d=0: PRINT AT y,x;CHR$ (144+d): REM character ... +nd)
2010 LET xo=x: LET yo=y: LET x=x-(IN 65278BLOG- 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…
... /> 1220 INK 6: LET x=3: LET y=3: LET xo=3 ... : LET d=0: PRINT AT y,x;CHR$ (144+d): REM character ... +nd)
2010 LET xo=x: LET yo=y: LET x=x-(IN 65278BLOG- 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…
... /> 1220 INK 6: LET x=3: LET y=3: LET xo=3 ... : LET hp=8: PRINT AT y,x;CHR$ (144+d): REM character ... AT y,x;CHR$ (144+d): LET xo=x: LET yo=y: LET x=x-(IN ...
