Function ShowMap(i) For n=1 To 2 Cls Color 255,255,255 For x=0 To 255 For y=0 To 255 If map(x,y,LayerCollision)>0 If map(x,y,LayerCollision)=czVisDynamic ; dynamic Color 0,100,0 Else ; static Color 0,0,0 EndIf Else Color 100,100,100 EndIf If map(x,y,layer_visible)=0 Then Color 100,0,0 Rect x*2,y*2,2,2 Next Next Flip Next c=255 Repeat For p.player=Each player If p = First player Then Color c,0,0 Else Color 0,0,c Rect Floor(p\x/32)*2,Floor(p\y/32)*2,2,2 c=c-1 If c=150 Then c=255 Next Flip Until KeyHit(1) FlushKeys End Function