En effet, impressionnant ...comtois a écrit :Un exemple de scrolling avec 2 plans , le perso passe devant ou derrière un arbre en fonction de sa position Y. (c'est l'exemple cité par blendman)
ftp://ftp-developpez.com/comtois/fichie ... P_ARKS.zip
!
Code : Tout sélectionner
Declare display()
Declare grid(l,h,s)
UsePNGImageDecoder()
InitSprite()
Structure tile
sprite.i
image.i
EndStructure
Global main=OpenWindow(#PB_Any,0,0,1024,768,"editor test",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
Global editor=OpenWindowedScreen(WindowID(main),0,0,512,512,0,0,0)
Global tileset=LoadImage(#PB_Any,"inq_-_medieval.png")
Global picker=CanvasGadget(#PB_Any,520,0,480,480,#PB_Canvas_Keyboard)
Global blocked=CanvasGadget(#PB_Any,0,520,128,128,#PB_Canvas_Keyboard)
Global Dim board(32,32)
Global Dim block(8,8)
Global curenttile
Global mode=1
For x=0 To 7
For y=0 To 7
block(x,y)=-1
Next
Next
blockmode=OptionGadget(#PB_Any,160,520,120,20,"block mode")
simplemode=OptionGadget(#PB_Any,160,540,120,20,"simple mode")
clearblock=ButtonGadget(#PB_Any,160,560,120,20,"clear block")
SetGadgetState(simplemode,1)
TransparentSpriteColor(#PB_Default,$ff00ff)
x=0
y=0
StartDrawing(ScreenOutput())
DrawImage(ImageID(tileset),0,0)
Global tilemax=(ImageWidth(tileset)/16)*(ImageHeight(tileset)/16)
Global Dim tiles.tile(tilemax)
StopDrawing()
For yd=0 To 31
For xd=0 To 31
board(xd,yd)=394 ; grass
Next
Next
Repeat
tiles(t)\sprite=GrabSprite(#PB_Any,x,y,16,16)
tiles(t)\image=GrabImage(tileset,#PB_Any,x,y,16,16)
x+16
If x>=ImageWidth(tileset)
x=0
y+16
EndIf
t+1
Until y>=ImageHeight(tileset)
Debug "done"
;-----------------------------------------
Repeat
ev=WaitWindowEvent()
If ev
If GetAsyncKeyState_(#VK_LBUTTON)
If WindowMouseX(main)<512 And WindowMouseY(main)<512
xs= WindowMouseX(main)/16
ys= WindowMouseY(main)/16
If mode=0
For x=0 To 7
For y=0 To 7
If block(x,y)>=0
If xs+x<32 And xs+x>=0 And ys+y<32 And ys+y>=0
board(xs+x,ys+y)=block(x,y)
EndIf
EndIf
Next
Next
Else
board(xs,ys)=curenttile
EndIf
EndIf
EndIf
Select ev
Case #PB_Event_Gadget
Select EventGadget()
Case clearblock
For x=0 To 7
For y=0 To 7
block(x,y)=-1
Next
Next
Case simplemode,blockmode
mode=GetGadgetState(simplemode)
Case picker
Select EventType()
Case #PB_EventType_LeftClick
x=GetGadgetAttribute(picker, #PB_Canvas_MouseX)
y=GetGadgetAttribute(picker, #PB_Canvas_MouseY)
oldtile=curenttile
curenttile=(x/16)+((y/16)*(ImageWidth(tileset)/16))
If curenttile>=tilemax
curenttile=oldtile
EndIf
EndSelect
Case blocked ;editeur de block
Select EventType()
Case #PB_EventType_LeftClick
x=GetGadgetAttribute(blocked, #PB_Canvas_MouseX)/16
y=GetGadgetAttribute(blocked, #PB_Canvas_MouseY)/16
block(x,y)=curenttile
EndSelect
EndSelect
EndSelect
EndIf
display()
FlipBuffers()
Until ev=#PB_Event_CloseWindow
End
Procedure display()
For yd=0 To 31
For xd=0 To 31
If IsSprite(tiles(board(xd,yd))\sprite)
DisplayTransparentSprite(tiles(394)\sprite,xd*16,yd*16)
DisplayTransparentSprite(tiles(board(xd,yd))\sprite,xd*16,yd*16)
EndIf
Next
Next
StartDrawing(ScreenOutput())
grid(512,512,16)
StopDrawing()
StartDrawing(CanvasOutput(picker))
px=0
py=0
For pick=0 To tilemax
If IsImage(tiles(pick)\image)
DrawImage(ImageID(tiles(pick)\image),px,py)
px+16
If px>=480
px=0
py+16
EndIf
EndIf
Next
grid(480,480,16)
StopDrawing()
StartDrawing(CanvasOutput(blocked))
Box(0,0,128,128,$444444)
For x=0 To 7
For y=0 To 7
If block(x,y)>=0
If IsImage(tiles(block(x,y))\image)
DrawImage(ImageID(tiles(block(x,y))\image),x*16,y*16)
EndIf
EndIf
Next
Next
grid(128,128,16)
StopDrawing()
If WindowMouseX(main)<512
If WindowMouseY(main)<512
Select mode
Case 1; sprites
DisplayTransparentSprite(tiles(curenttile)\sprite,(WindowMouseX(main)/16)*16,(WindowMouseY(main)/16)*16)
Case 0 ; block
For x=0 To 7
For y=0 To 7
If block(x,y)>=0
If IsSprite(tiles(block(x,y))\sprite)
DisplayTransparentSprite(tiles(block(x,y))\sprite,(WindowMouseX(main)/16)*16+x*16,(WindowMouseY(main)/16)*16+y*16)
EndIf
EndIf
Next
Next
EndSelect
EndIf
EndIf
EndProcedure
Procedure grid(l,h,s)
For x=0 To L/s
LineXY(x*s,0,x*s,h,0)
Next
For y=0 To h/s
LineXY(0,y*s,l,y*s,0)
Next
EndProcedure
Code : Tout sélectionner
; --- Initialisation ---
If InitSprite() = 0 Or InitKeyboard() = 0 Or InitMouse() = 0
MessageRequester("Erreur", "Impossible d'initialiser DirectX 7 Ou plus", 0)
End
EndIf
; --- Plein écran ---
#ScreenWidth = 1024
#ScreenHeight = 768
#ScreenDepth = 32
If OpenScreen(#ScreenWidth,#ScreenHeight,#ScreenDepth,"Editeur Map") = 0
MessageRequester("Erreur", "Impossible d'ouvrir l'écran ", 0)
End
EndIf
Declare ControleTile(x,y,AddTile)
; --- Variables Globales ---
Global SourisX,SourisY,ChoixTile
; --- La Map ---
#TailleTileX = 32
#TailleTileY = 32
#TailleMapX = #ScreenWidth / #TailleTileX
#TailleMapY = #ScreenHeight / #TailleTileY
; --- Tiles ---
Enumeration
#FondMap
#FinGauche
#FinDroit
#Horizontal
#FinHaut
#CoinHautGauche
#CoinHautDroit
#TeBas
#FinBas
#CoinBasGauche
#CoinBasDroit
#TeHaut
#Vertical
#TeDroit
#TeGauche
#Croix
#Souris
EndEnumeration
ChoixTile = #Croix
Global Dim Map(#TailleMapX,#TailleMapY)
; --- Charge les tiles ---
;Pour faciliter la diffusion sur un forum ici on dessine les sprites
Couleur = $987654
Fond = $654321
For i = #FondMap To #Croix
CreateSprite(i, 32, 32)
StartDrawing(SpriteOutput(i))
Box(0, 0, 32, 32, Fond)
If i = #FondMap
Box(0, 0, 32, 32, 0)
EndIf
If i = #Horizontal Or i = #FinGauche Or i = #FinDroit
Box(0, 0, 32, 4, Couleur)
Box(0, 28, 32, 4, Couleur)
EndIf
If i = #Vertical Or i = #FinBas Or i = #FinHaut
Box(0, 0, 4, 32, Couleur)
Box(28, 0, 4, 32, Couleur)
EndIf
If i = #FinGauche Or i = #CoinBasGauche Or i = #CoinHautGauche Or i = #TeDroit
Box(0, 0, 4, 32, Couleur)
EndIf
If i = #FinDroit Or i = #CoinBasDroit Or i = #CoinHautDroit Or i = #TeGauche
Box(28, 0, 4, 32, Couleur)
EndIf
If i = #FinBas Or i = #CoinBasGauche Or i = #CoinBasDroit Or i = #TeHaut
Box(0, 28, 32, 4, Couleur)
EndIf
If i = #FinHaut Or i = #CoinHautGauche Or i = #CoinHautDroit Or i = #TeBas
Box(0, 0, 32, 4, Couleur)
EndIf
If i <> #FondMap
Box(0, 0, 4, 4, Couleur)
Box(28, 0, 4, 4, Couleur)
Box(0, 28, 4, 4, Couleur)
Box(28, 28, 4, 4, Couleur)
EndIf
StopDrawing()
Next
CreateSprite(#Souris, 32, 32)
StartDrawing(SpriteOutput(#Souris))
Line(0, 0, 32, 32, $FFFFFF)
Line(32, 0, -32, 32, $FFFFFF)
StopDrawing()
; LoadSprite(#CoinHautGauche,"tiles\hautgauche.BMP")
; LoadSprite(#Horizontal,"tiles\horizontal.BMP")
; LoadSprite(#CoinHautDroit,"tiles\hautdroit.BMP")
; LoadSprite(#Vertical,"tiles\vertical.BMP")
; LoadSprite(#CoinBasDroit,"tiles\basdroit.BMP")
; LoadSprite(#CoinBasGauche,"tiles\basgauche.BMP")
; LoadSprite(#TeDroit,"tiles\Tedroit.BMP")
; LoadSprite(#TeGauche,"tiles\Tegauche.BMP")
; LoadSprite(#TeHaut,"tiles\Tehaut.BMP")
; LoadSprite(#TeBas,"tiles\Tebas.BMP")
; LoadSprite(#Croix,"tiles\Croix.BMP")
; LoadSprite(#FondMap,"tiles\fondmap.BMP")
; LoadSprite(#FinDroit,"tiles\findroit.BMP")
; LoadSprite(#FinGauche,"tiles\fingauche.BMP")
; LoadSprite(#FinHaut,"tiles\finhaut.BMP")
; LoadSprite(#FinBas,"tiles\finbas.BMP")
; ************************************************************************************
; *** LES PROCEDURES ***
; ************************************************************************************
Procedure Souris()
If ExamineMouse()
DisplayTransparentSprite(#Souris, MouseX() - #TailleTileX / 2,MouseY() - #TailleTileY / 2)
SourisX = MouseX() / #TailleTileX
SourisY = MouseY() / #TailleTileY
If SourisX <= #TailleMapX And SourisY <= #TailleMapY
If MouseButton(#PB_MouseButton_Right)
Map(SourisX, SourisY) = #FondMap
ControleTile(SourisX, SourisY, #FondMap)
EndIf
If MouseButton(#PB_MouseButton_Left)
Map(SourisX, SourisY) = #FinGauche
ControleTile(SourisX, SourisY, #True)
EndIf
EndIf
EndIf
EndProcedure
Procedure ControleTile(x, y, AddTile)
ChoixTile = #FondMap
If Map(x,y) > 0 : centre = #True : EndIf
If AddTile
If x < #TailleMapX
If Map(x + 1,y) > 0 : ChoixTile | #FinGauche : EndIf
EndIf
If x > 0
If Map(x - 1,y) > 0 : ChoixTile | #FinDroit : EndIf
EndIf
If y < #TailleMapY
If Map(x,y + 1) > 0 : ChoixTile | #FinHaut : EndIf
EndIf
If y > 0
If Map(x,y - 1) > 0 : ChoixTile | #FinBas : EndIf
EndIf
If centre = #True
If ChoixTile = #FondMap : ChoixTile = #Croix : EndIf
Else
ChoixTile = #FondMap
EndIf
Else
ChoixTile = #FondMap
EndIf
Change = ChoixTile <> Map(x,y)
Map(x,y) = ChoixTile
If Change = 1 Or AddTile = #FondMap
If x > 0 : ControleTile(x - 1, y, #True) : EndIf
If x < #TailleMapX : ControleTile(x + 1, y, #True) : EndIf
If y > 0 : ControleTile(x, y - 1, #True) : EndIf
If y < #TailleMapY : ControleTile(x, y + 1, #True) : EndIf
EndIf
EndProcedure
Repeat
ClearScreen(0)
; --- Affiche la map ---
For j = 0 To #TailleMapY
For i = 0 To #TailleMapX
DisplaySprite(Map(i, j), i * #TailleTileX, j * #TailleTileY)
Next
Next
; --- état du clavier ---
ExamineKeyboard()
; --- Gestion de la souris ---
Souris()
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
End
