nomainwin
 
    WindowWidth = 880
    WindowHeight = 540
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)
 
    Global ncx, ncy, lc, SpriteCourant
    lc = 15
 
    open "Le Donjon De Sheidra Map N°1" for graphics_nsb_nf as #3b
    #3b "trapclose Quit"
    #3b "font Comic_Sans_MS 8"
    #3b "home; posxy CenterX CenterY"
    Gwidth = CenterX * 2
    Gheight = CenterY * 2
    ncx = int(Gwidth/lc)
    ncy = int(Gheight/lc)
 
    dim cas(ncx,ncy)
    cas(0,0)=0:cas(0,1)=0:cas(0,2)=0:cas(0,3)=0:cas(0,4)=0:cas(0,5)=0:cas(0,6)=0:cas(0,7)=0:cas(0,8)=0:cas(0,9)=0
    cas(1,0)=0:cas(1,1)=0:cas(1,2)=0:cas(1,3)=0:cas(1,4)=0:cas(1,5)=0:cas(1,6)=0:cas(1,7)=1:cas(1,8)=0:cas(1,9)=0
    cas(2,0)=0:cas(2,1)=0:cas(2,2)=0:cas(2,3)=0:cas(2,4)=0:cas(2,5)=0:cas(2,6)=0:cas(2,7)=0:cas(2,8)=0:cas(2,9)=0
    cas(3,0)=0:cas(3,1)=0:cas(3,2)=0:cas(3,3)=0:cas(3,4)=0:cas(3,5)=0:cas(3,6)=0:cas(3,7)=0:cas(3,8)=0:cas(3,9)=0
    cas(4,0)=0:cas(4,1)=0:cas(4,2)=0:cas(4,3)=0:cas(4,4)=0:cas(4,5)=0:cas(4,6)=0:cas(4,7)=0:cas(4,8)=0:cas(4,9)=0
    cas(5,0)=0:cas(5,1)=0:cas(5,2)=0:cas(5,3)=0:cas(5,4)=0:cas(5,5)=0:cas(5,6)=0:cas(5,7)=0:cas(5,8)=0:cas(5,9)=0
    cas(6,0)=0:cas(6,1)=0:cas(6,2)=0:cas(6,3)=0:cas(6,4)=0:cas(6,5)=0:cas(6,6)=0:cas(6,7)=0:cas(6,8)=0:cas(6,9)=0
    cas(7,0)=0:cas(7,1)=0:cas(7,2)=0:cas(7,3)=0:cas(7,4)=0:cas(7,5)=0:cas(7,6)=0:cas(7,7)=0:cas(7,8)=0:cas(7,9)=0
    cas(8,0)=0:cas(8,1)=0:cas(8,2)=0:cas(8,3)=0:cas(8,4)=0:cas(8,5)=0:cas(8,6)=0:cas(8,7)=0:cas(8,8)=0:cas(8,9)=0
    cas(9,0)=0:cas(9,1)=0:cas(9,2)=0:cas(9,3)=0:cas(9,4)=0:cas(9,5)=0:cas(9,6)=0:cas(9,7)=0:cas(9,8)=0:cas(9,9)=0
 
    loadbmp "JB", "bmp\maphum2.bmp"
    sprites$ = "perso1d perso2d perso4d perso1s perso2s perso4s "+_
               "perso1q perso2q perso4q perso1z perso2z perso4z"
    for s = 1 to 12
        loadbmp word$(sprites$,s), "bmp\"+word$(sprites$,s)+".bmp"
    next
    #3b "addsprite perso1 perso1z perso2z perso1z perso4z"
    #3b "addsprite perso2 perso1d perso2d perso1d perso4d"
    #3b "addsprite perso3 perso1s perso2s perso1s perso4s"
    #3b "addsprite perso4 perso1q perso2q perso1q perso4q"
 
    #3b "down"
    #3b "drawbmp JB 0 0"
    #3b "color darkgray"
    for x = 1 to ncx
        #3b "place ";x*lc;" 0"
        #3b "goto ";x*lc;" ";ncy*lc  'traits verticaux de la grille
    next
    for y = 1 to ncy
        #3b "place 0 ";y*lc
        #3b "goto ";ncx*lc;" ";y*lc  'traits horizontaux de la grille
    next
 
    #3b "getbmp bckgrd1 0 0 ";Gwidth;" ";Gheight   'mémorise la grille pour servir de background au sprite "curs"
    #3b "background bckgrd1"
 
    for SpriteCourant = 1 to 4
        #3b "spritexy perso";SpriteCourant;" ";12*lc;" ";24*lc   'place tous les sprites là.
        #3b "cyclesprite perso";SpriteCourant;" 1"
        #3b "spritevisible perso";SpriteCourant;" off"
    next
    SpriteCourant = 3
    #3b "spritevisible perso";SpriteCourant;" on"
    #3b "drawsprites"                      'affiche le sprite courant.
 
    #3b "when leftButtonDouble DoubleClick"    'pour déplacer le personnage...
 
wait
 
sub DoubleClick handle$, MouseX, MouseY    'double clic sur un point de destination...
    #3b "when leftButtonMove"
    dpx(1) = 0  :dpx(2) = 1 :dpx(3) = 0 :dpx(4) = -1
    dpy(1) = -1 :dpy(2) = 0 :dpy(3) = 1 :dpy(4) = 0    ' incrément en case, de la variables tableau
    icp = 6   'incrément de déplacement en pixels.
    #3b "spritexy? perso";SpriteCourant;" cursX cursY"   'coordonnées actuelles du personnage   <------
    dirX = MouseX - cursX   'comparaison avec celle du clic de souris
    dirY = MouseY - cursY
    if abs(dirX) < abs(dirY) then sens = 1 else sens = 2   '1 = vertical  2 = horizontal
    select case
    case sens = 1
        if dirY > 0 then dir = 3 else dir = 1   'direction à prendre: 1 = HAUT
    case sens = 2                               '                     2 = DROITE
        if dirX > 0 then dir = 2 else dir = 4   '                     3 = BAS
    end select                                  '                     4 = GAUCHE
    for s=1 to 4
        #3b "spritevisible perso";s;" off"
    next
    SpriteCourant = dir
    #3b "spritexy perso";SpriteCourant;" ";cursX;" ";cursY
    #3b "spritevisible perso";SpriteCourant;" on"  'ne montre QUE le sprite concerné par la direction choisie.
    do
        #3b "spritexy? perso";SpriteCourant;" cursX cursY"
        cx = int(cursX/lc)+1             'position du sprite exprimé en n° de case pour la variable tableau
        cy = int(cursY/lc)+1
        if cx+dpx(dir)>0 and cx+dpx(dir)<ncx and cy+dpy(dir)>0 and cy+dpy(dir)<ncy and cas(cx+dpx(dir),cy+dpy(dir)) = 0 and cas(cx+dpx(dir),cy+1+dpy(dir)) = 0 then  'reste dans la map et pas de mur...
            nx = cursX + dpx(dir)*icp
            ny = cursY + dpy(dir)*icp
            #3b "spritexy perso";SpriteCourant;" ";nx;" ";ny      'cheminement du sprite... tranquilou...
            #3b "drawsprites"
            call pause 90
        else
            sortir = 1
        end if
        if (dir = 2 and nx >= MouseX) or (dir = 4 and nx <= MouseX) or (dir = 1 and ny <= MouseY) or (dir = 3 and ny >= MouseY) then sortir = 1
    loop until sortir
    #3b "when leftButtonMove SimpleClick"
end sub
 
sub pause temp
    timer temp, [suit]
    wait
    [suit]
    timer 0
end sub
 
sub Quit handle$
    unloadbmp "JB"
    sprites$ = "perso1d perso2d perso4d perso1s perso2s perso4s "+_
               "perso1q perso2q perso4q perso1z perso2z perso4z"
    for s = 1 to 12
        unloadbmp word$(sprites$,s)
    next
    close #3b
    END
end sub