do
hide mouse
load bitmap " main.png",1
loadworld("main.png",1,1,1,1,0)
Dim CoucheHaute(100,100)
Dim CoucheBasse(100,100)
open to read 1,"map001.dat"
read byte 1,tx ; read byte 1,ty
for j= 1 to ty
for i= 1 to tx
read word, coucheBasse(i,j)
read word, coucheHaute(i,j)
next i
next j
close file 1
loop
function
loadworld(numerodumonde$,ligne,colone,tailleX,tail
leY,numerodebaseaprendre)
Load bitmap numerodumonde$,1
for L = 1 to ligne
for C = 1 to colone
Get image
(((L-1)*colone)+C+numerodebaseaprendre),(C-1)*tail
leX,(L-1)*tailleY,C*tailleX,L*tailleY,1
next C
next L
set current bitmap 0
endfunction
Ca donne un écran tout noir :´(