Ok, a very basic map. I needed this to think about vis rather than anything else, and it needs work. But I thought it worth posting anyways...
First up, you need
*this* new file: gfx/tiles_small.png. I'm sure we could generate this on the fly (when loading the big tiles), but this ended up being simplest.
In engine.bb, where tiles are loaded, amend it to read as follows:
Global tiles = LoadAnimImage("gfx/tiles.png",32,32,0,maxtile)
Global tiles_small = LoadAnimImage("gfx/tiles_small.png",16,16,0,maxtile)
Global objects = LoadAnimImage("gfx/objects.png",32,32,0,maxobject)
MaskImage tiles,255,0,255
MaskImage tiles_small,255,0,255
MaskImage objects,255,0,255and in the same file, where the keyhit checks are at the end of the main loop, add this:
If KeyHit(50) Then showmap(1):time=MilliSecs()-period ; M
In intex.bb, in the Intex() function, amend the input code to look like this:
itemno = intexmenu("Testing|Testing|One|Two|Download Map|Exit",150,itemno,player)
If control(pfire1,player)
If itemno = 5 Then
;TODO: request password for map
; light up everything
For x=0 To 255
For y=0 To 255
map(x,y,LAYER_VISIBLE)=1
; TODO: Consider setting mapped but unexplored areas differently to show them as such on the map?
Next
Next
;TODO: ought to visibly confirm the map has been downloaded (or not)!
End If
If itemno = 6 Then Exit
EndIfOn the way, a little 'bugfix' that helped out: in players.bb add this line to the end of player_create()...
Player(id)=pl
In map.bb, replace drawmap with this:
Function drawmap(xpos,ypos,layer,zoom=1)
If zoom=1 Then
blocksize=32
max_x=20
max_y=15
mytiles=tiles
ElseIf zoom=2 Then
xpos=xpos/2
ypos=ypos/2
blocksize=16
max_x=40
max_y=30
mytiles=tiles_small ; need a 1/2 size set of tiles
EndIf
; for all "if ___ then Draw ___" lines, multiply the expression by map(x+xoff,y+yoff,LAYER_VISIBLE)
; sort out the block location based on pixel co-ord
xoff = Floor(xpos/blocksize)
yoff = Floor(ypos/blocksize)
; find the pixel offset
xpxoff = (xoff * blocksize) - xpos
ypxoff = (yoff * blocksize) - ypos
; draw base layer
; uses draw block so you don't need a cls and is quicker.
If layer = 1
Cls
For x = -1 To max_x
For y = -1 To max_y
If x+xoff>=0 And y+yoff>=0 And x+xoff<=255 And y+yoff<=255
If map(x+xoff,y+yoff,layer)*map(x+xoff,y+yoff,LAYER_VISIBLE)>0 Then DrawBlock mytiles,(x*blocksize)+xpxoff,(y*blocksize)+ypxoff,map(x+xoff,y+yoff,layer)-1
EndIf
Next
Next
EndIf
If layer = 2
For x = -1 To max_x
For y = -1 To max_y
If x+xoff>=0 And y+yoff>=0 And x+xoff<=255 And y+yoff<=255
If map(x+xoff,y+yoff,layer)*map(x+xoff,y+yoff,LAYER_VISIBLE)>0 Then DrawImage objects,(x*blocksize)+xpxoff,(y*blocksize)+ypxoff,map(x+xoff,y+yoff,layer)-1
EndIf
Next
Next
EndIf
; draw other layers
If layer = 3
For x = -1 To max_x
For y = -1 To max_y
If x+xoff>=0 And y+yoff>=0 And x+xoff<=255 And y+yoff<=255
If map(x+xoff,y+yoff,layer)*map(x+xoff,y+yoff,LAYER_VISIBLE)>0 Then DrawImage mytiles,(x*blocksize)+xpxoff,(y*blocksize)+ypxoff,map(x+xoff,y+yoff,layer)-1
EndIf
Next
Next
EndIf
; layer 4, block overlay no transparancy
If layer = 4
For x = -1 To max_x
For y = -1 To max_y
If x+xoff>=0 And y+yoff>=0 And x+xoff<=255 And y+yoff<=255
If map(x+xoff,y+yoff,layer)*map(x+xoff,y+yoff,LAYER_VISIBLE)>0 Then DrawBlock mytiles,(x*blocksize)+xpxoff,(y*blocksize)+ypxoff,map(x+xoff,y+yoff,layer)-1
EndIf
Next
Next
EndIf
End Function
And finally, also in map.bb, add the new showmap()
Function ShowMap(i)
; this is a very naff map, mainly intended for helping to test the vis functions
p.player=Player(i)
x=p\x/2:y=p\y/2
;TODO: Initial position is dodgy, should be centred on the player...
Repeat
Cls
drawmap(x,y,1,2)
; don't make it too easy, leave out the objects... ;-)
;TODO: trouble is, we need the doors...
drawmap(x,y,3,2)
drawmap(x,y,4,2)
;TODO: need to show players location!
If control(pup,i) Then y=y-8
If control(pdown,i) Then y=y+8
If control(pleft,i) Then x=x-8
If control(pright,i) Then x=x+8
Flip
Until KeyHit(1)
End Function
Which is kinda handy.
However, it has proven to me (along with several test maps*) that I don't think we can use dynamic vis - I think we need pre-calculated vis blocks as discussed above. I may be able to reuse my current code however to 'guess' those vis lines for you in the editor, so maybe all is not lost. Will try to fix this over the weekend, but am away at the in-laws...
*If you're interested in maps that screw the vis, create a large building in the middle of an empty map with thick internal walls. Divide it into 4 rooms with a big +, making sure the centre of the plus includes lots of internal walls. Play it. You'll be able to see the outline structure of the building *and* the internal walls. There are other problems too (put more structure around the outside and you'll see), but this was the one that broke the camels back for me...
