'read csv and write to MAP
cls
R=0:C=0
dim integer a(10)
open "intro.csv" for Input as #1
open "intro.MAP" For Output as #3
open "tmp.bin" for output as #2
nr$=""
do
n$=input$(1,1)
if n$<>"," and n$<>chr$(13) then
nr$=nr$+n$
else
inc c
print #2,chr$(val(nr$),2);
print hex$(val(nr$),2);:nr$="":if n$=chr$(13) then ?: Inc r
end if
loop until eof (#1)
close #2
close #1
C=C/R
print #3,"MAP"+CHR$(C);Chr$(R);
open "tmp.bin" for input as #2
do
print #3,input$(1,2);
loop until eof(#2)
close #2
close #3
kill "tmp.bin"

'--------------------
'Information of Source here
fn$="Tiles.png"
W=24
H=16
num=104
'--------------------
'
Dim Col(15):Restore colors:For f%=1 To 15:Read Col(f%):Next f%
cls
load png FN$
 x=0
 y=0
For TNR=0 to num-1

  tn$="GT"+hex$(tnr,3)+".SPR"
  open tn$ for output as #1
  print #1,str$(W);",1,";STR$(H)
  for y1=y to y+H-1
     WT$=""
       for x1=x to x+W-1
         C=Pixel(x1,y1):cl=0
         for n= 0 to 15:if C=col(n) then cl=n
         Next
         wt$=wt$+hex$(cl,1)
       Next
     ?#1, wt$
   next
   box x,y,w,h,,rgb (white)
 close #1
inc x,w:if x>311 then x=0:inc y,h
next TNR


colors:
'--Colorscheme accordung to Spritecolors
Data RGB(BLUE),RGB(GREEN),RGB(CYAN),RGB(RED)
Data RGB(MAGENTA),RGB(YELLOW),RGB(WHITE),RGB(MYRTLE)
Data RGB(COBALT) ,RGB(MIDGREEN),RGB(CERULEAN),RGB(RUST)
Data RGB(FUCHSIA),RGB(BROWN),RGB(LILAC)

'program to convert all the sprite files in a directory to a CSUB using compression where appropriate
Option explicit
Option default none
Const separatesubs% = 0
Dim offset%
Dim fname$=Dir$("*.spr",FILE)

Open "spr_csub.bas" For output As #2
Open "spr_index.txt" For output As #3


If separatesubs%=0 Then
Print #2,"CSUB SPRITES"
Print #2,"00000000"
offset%=0
EndIf
Do
If fname$<>"" Then code fname$
fname$=Dir$()
Loop Until fname$=""
If separatesubs%=0 Then Print #2,"END CSUB"

Close #2
Close #3


'convert the file f$ to a compressed CSUB
Sub code f$
Local i%,j%,h%,l%,w%,n%,s%,il%
Local a$,o$,oc$
Open f$ For input As #1
Line Input #1,a$ 'process the dimensions and count
w%=Val(Field$(a$,1,","))
n%=Val(Field$(a$,2,","))
h%=Val(Field$(a$,3,","))
If h%=0 Then h%=w%
i%=Instr(f$,".")
o$=Left$(f$,i%-1)
If separatesubs%=1 Then
  Print #2,"CSUB "+o$
  Print #2,"00000000"
  offset%=0
' Else
'    Print #2,"'"+o$
EndIf
Local obuff%(w%*h%\8+128),buff%(w%*h%\8+128)
For s%=1 To n% 'process all the sprites in a file
 Print #3,Str$(offset%)
 Print #2,"'Offset ";offset%
 For l%=1 To h%
   a$="'"
   Do While Left$(a$,1)="'" 'skip comments
     Line Input #1,a$
   Loop
   'make sure all lines are the correct length
   If Len(a$)<w% Then Inc a$,Space$(w%-Len(a$))
   If Len(a$)>w% Then a$=Left$(a$,w%)
   LongString append buff%(),a$ 'get all the file into a single longstring
 Next l%
 j%=0
 For i%=1 To LLen(buff%())
   LongString append obuff%(),mycol$(LGetStr$(buff%(),i%,1))
 Next i%
 LongString clear buff%()
 il%=(LLen(obuff%())+7)\8 * 8
 i%=0
 Do While i%<w%*h% 'compress the data
   j%=LGetByte(obuff%(),i%)
   l%=1
   Inc i%
   Do While LGetByte(obuff%(),i%)=j% And l%<15
     Inc l%
     Inc i%
   Loop
   LongString append buff%(), Hex$(l%)+Chr$(j%)
 Loop
 'the output must be a multiple of 8 nibbles
 LongString append buff%(),Left$("00000000",8-(LLen(buff%()) Mod 8))
 If LLen(buff%())<il% Then 'compressed version is smaller so use it
   Print #2,"'"+o$;
   Print #2," is compressed"
   Print #2,Hex$(h%+&H8000,4)+Hex$(w%,4)
   j%=0
   For i%=8 To LLen(buff%()) Step 8 'reverse the order
     o$=LGetStr$(buff%(),i%,1)
     Inc o$,LGetStr$(buff%(),i%-1,1)
     Inc o$,LGetStr$(buff%(),i%-2,1)
     Inc o$,LGetStr$(buff%(),i%-3,1)
     Inc o$,LGetStr$(buff%(),i%-4,1)
     Inc o$,LGetStr$(buff%(),i%-5,1)
     Inc o$,LGetStr$(buff%(),i%-6,1)
     Inc o$,LGetStr$(buff%(),i%-7,1)
     Inc j%
     If j%=8 Then
       Print #2,o$
       j%=0
     Else
       Print #2,o$+" ";
     EndIf
   Next i%
   If j%<>0 Then Print #2,""
   Inc offset%,4+LLen(buff%())\2
 Else
   Print #2,"'"+o$;
   Print #2," is uncompressed"
   Print #2,Hex$(h%,4)+Hex$(w%,4)
   LongString append obuff%(),Left$("00000000",8-(LLen(obuff%()) Mod 8))
   j%=0
   For i%=8 To LLen(obuff%()) Step 8 'reverse the order
     o$=LGetStr$(obuff%(),i%,1)
     Inc o$,LGetStr$(obuff%(),i%-1,1)
     Inc o$,LGetStr$(obuff%(),i%-2,1)
     Inc o$,LGetStr$(obuff%(),i%-3,1)
     Inc o$,LGetStr$(obuff%(),i%-4,1)
     Inc o$,LGetStr$(obuff%(),i%-5,1)
     Inc o$,LGetStr$(obuff%(),i%-6,1)
     Inc o$,LGetStr$(obuff%(),i%-7,1)
     Inc j%
     If j%=8 Then
       Print #2,o$
       j%=0
     Else
       Print #2,o$+" ";
     EndIf
   Next i%
   If j%<>0 Then Print #2,""
   Inc offset%,4+LLen(obuff%())\2
 EndIf
 LongString clear obuff%()
 LongString clear buff%()
Next s%
Close #1
If separatesubs%=1 Then Print #2,"END CSUB"
End Sub
'
'converts the Ascii colour from the Maximite standard to PicoMite standard
Function mycol$(c$)
Static cols%(15)=(0,1,6,7,8,9,14,15,2,3,4,5,10,11,12,13)
Local i%
If c$=" " Then c$="0"
i%=Val("&H"+c$)
mycol$=Hex$(cols%(i%))
End Function

Dim TLIX%(104),map$(12) length 128
Restore GSTIndex
spad%=Peek(cfunaddr GSTiles)
For F=0 To 103:Read ofs%:TLIX%(F)=spad%+ofs%:Next
load_map("intro.MAP")
Mode 2 'remove this on Game*Mite

Sub load_map(mp$)
 Open mp$ For input As #1
 a$=Input$(3,#1)
 If a$<>"MAP" Then Print "Wrong MAP-File Format in File ";mp$:End
 Map_W=Asc(Input$(1,#1))
 Map_H=Asc(Input$(1,#1))
 For f=0 To Map_H-1
   map$(f)=Input$(Map_W,#1)
 Next
 Close #1
End Sub

FRAMEBUFFER create
FRAMEBUFFER write f
p=95
CLS
Do
For ofs%=1 To p
t=Timer
CLS ':Box 0,16,320,48,,RGB(cyan),RGB(cyan)
'draw screen
tx=0:ty=64
n=0
'test: End
For n=0 To 9
 tx=0
 mp=Peek(varaddr map$(n))+1
For f=ofs% To ofs%+14
 Blit memory TLIX%(Peek(BYTE mp+(f Mod p))),tx,ty,7:Inc tx,24
 Next
 Inc ty,16
Next
Blit FRAMEBUFFER f,n,0,64,0,64,320,160
'FRAMEBUFFER WAIT
'FRAMEBUFFER copy f,n
Print @(0,0);Timer-t;"   "
Next ofs%
Loop