Guru
Joined: 05/03/2018
Location: NetherlandsPosts: 5610
| Posted: 03:43pm 13 Mar 2025 |
@Peter,
Just as some extra info:
'uses tiles stored in library to build up playfield in layer N
Sub writeworld_n(xm,ym)
local xsn,xpn,spn
For xn=-xm To xm
xsn=xs+xn*24:xpn=xp+xn+1+lva
For yn=-ym To ym
'load tile from world map
spn=Peek(byte(yp+yn)*129+xpn) '<-----------this is where it goes wrong
Blit memory tile_index(spn),xsn,ys+yn*24
Next
Next
End Sub
Sub writeworld_n(xm,ym)
local xsn,xpn,spn
For xn=-xm To xm
xsn=xs+xn*24:xpn=xp+xn+1+lva
For yn=-ym To ym
'load tile from world map
spn=Peek(byte(yp+yn)*129+xpn) '<-----------this is where it goes wrong
Blit memory tile_index(spn),xsn,ys+yn*24
Next
Next
End Sub
The strange thing is that when I edit the line, to include a space between "byte" and the leading bracket, this is undone by the picomite. It changes
spn=Peek(byte (yp+yn)*129+xpn)
back to
spn=Peek(byte(yp+yn)*129+xpn)
Only when I change the code to
spn=Peek(byte 129*(yp+yn)+xpn)
it accepts the change, and the program runs.
If you can fix it, I need not fix the program...
Volhout
Edited 2025-03-14 01:44 by Volhout