' petscii_test.bas ' 120 8x8 tiles saved in F info area, 825 tiles in play area
' scratch variables
dim string a,b,c,ch,d,e,s
dim float f,g,h
dim integer i,j,k,l,m,n,x,y
dim integer clr(15)=(rgb(white),rgb(black),rgb(blue),rgb(green),rgb(cyan),rgb(red),rgb(magenta),0,0,0,0,0,0,0,0,0)
clr(7)=rgb(yellow):clr(8)=rgb(brown):clr(9)=rgb(white):clr(10)=rgb(orange):clr(11)=rgb(pink):clr(12)=rgb(gold)
clr(13)=rgb(salmon):clr(14)=rgb(beige):clr(15)=rgb(grey)
dim integer xRow,yCol,xFrom,yFrom,xFromRow,yFromCol
dim integer infostart=213, nPlayTiles=825, nPlayTilesPerRow=33, nPlayTilesPerCol=25
dim integer nHiddenTiles=120, nHiddenTilesPerRow=40, nHiddenTilesPerCol=3
y=infostart
FRAMEBUFFER create
FRAMEBUFFER write F
load image "b:/screen1.bmp"
FRAMEBUFFER COPY F,N
for i=1 to 24 ' rows of 8x8 tiles (random colors)
 for x=0 to mm.hres-1
   pixel x,y,clr(rnd()*15)
 next x
 inc y
next i
'pause 10000
FRAMEBUFFER COPY F,N
pause 3000
FRAMEBUFFER write N
load image "b:/screen1.bmp"
box 0,infostart,mm.hres-1,mm.vres-infostart,0,rgb(black),rgb(black)
' simulate play -- select tiles to change
n=nPlayTiles*.05 ' change 5% of tiles
timer=0
for i=1 to mm.hres ' 320 moves
 for j=1 to n ' changes to n tiles
   k=rnd()*(nPlayTiles-1)             ' which 8x8 target tile to change
   xRow=k MOD nPlayTilesPerRow        ' which of 25 rows: 0-24
   yCol=k MOD nPlayTilesPerCol        ' which of 33 columns
   x=xRow*8                           ' start of 8x8 to-tile
   y=yCol*8                           ' start of 8x8 to-tile
   l=rnd()*(nHiddenTiles-1)           ' which 8x8 from-tile to use
   xFromRow=l MOD nHiddenTilesPerRow  ' which of 3 rows
   yFromCol=l MOD nHiddenTilesPerCol  ' which of 40 columns
   xFrom=xFromRow*8                   ' start of 8x8 from-tile
   yFrom=yFromCol*8+infostart         ' start of 8x8 from-tile
'  a="From tile "+str$(l)+" ("+str$(xFrom)+","+str$(yFrom)+") to tile "+str$(k)+"("+str$(x)+","+str$(y)+")"
'  text mm.hres/2,infostart,a,C,7
'  ?a+" Row/Col: "+str$(xFromRow)+" "+str$(yFromCol)
'  do : loop until inkey$ <> ""
   FRAMEBUFFER BLIT F,N,xFrom,yFrom,x,y,8,8
 next j
next i
j=int(timer/1000)
i=int(mm.hres/j)
a=str$(mm.hres)+" iterations of "+str$(n)+" tile changes; "+str$(j)+" seconds, "+str$(i)+"fps"
print a
text mm.hres/2,infostart,a,C,7

// MAP FILES CONSIST OF EVERYTHING FROM THIS POINT ON
extern uint8_t MAP_DATA[8960];
#define UNIT_TYPE MAP_DATA  // Unit type 0=none (64 bytes)
#define UNIT_LOC_X (MAP_DATA + 1 * 64) // Unit X location (64 bytes)
#define UNIT_LOC_Y (MAP_DATA + 2 * 64) // Unit X location (64 bytes)
#define UNIT_A (MAP_DATA + 3 * 64)
#define UNIT_B (MAP_DATA + 4 * 64)
#define UNIT_C (MAP_DATA + 5 * 64)
#define UNIT_D (MAP_DATA + 6 * 64)
#define UNIT_HEALTH ((int8_t*)(MAP_DATA + 7 * 64)) // Unit health (0 to 11) (64 bytes)
#define MAP (MAP_DATA + 8 * 64 + 256)        // Location of MAP (8K)
// END OF MAP FILE

value = ASC(MIDS$(UNIT_x$(y),x+1,1))

MID$(UNIT_x$(y),x+1,1))=chr$(value)

value = UNIT%(x)>>n AND &hFF

UNIT%(x) = (UNIT%(x) AND mask%) + value <<n