PureBasic

Forums PureBasic - Français
https://www.purebasic.fr/french/

éditeur de niveaux, résultat en decimal please

https://www.purebasic.fr/french/viewtopic.php?t=11649

Page 1 sur 1

éditeur de niveaux, résultat en decimal please

Publié : lun. 21/mars/2011 23:26
par beauregard
Bonsoir,

J'ai dépoussiéré avec peine mon vieil éditeur de niveaux, et lorsque je visionne avec Notepad++ le fichier obtenu, je vois une série incompréhensible de NULSOH ect... il est possible de convertir ce résultat avec TextFxConvert en Hex 128, mais c'est pas top.

Je souhaite donc obtenir, sur le fichier p1niv01.dat, le résultat en décimal (10 au lieu de 0A par exemple).

De plus, je souhaite que chaque valeur soit séparé par une virgule.

Une mission difficile, alors merci d'avance ;)

ps: le fichier .dat en question sera créé, là où vous aurez sauvegardé votre programme.

Il faut d'abord choisir le plan, puis le niveau où travailler, en appuyant sur la touche flèche Haut pour sélectionner. Puis appuyez sur la touche Entrée pour valider.

Dans l'éditeur: touche 1 pour le choix des tiles (pour enlever l'image, touche espace) ; pour sélectionner une tile: clic gauche souris.

Code : Tout sélectionner

; ------------------------------------------------------------
; editeur de niveau 64 tiles - 2011 - source PureBasic 4.41 x86
; France - Toulouse - H. Philippe - pseudo: beauregard
; ------------------------------------------------------------
If InitMouse ()=0 Or InitKeyboard ()=0 Or InitSprite ()=0  Or InitSprite3D ()=0 
     MessageRequester ( "Error" , "Can't open DirectX 7 or later" , 0)
     End
EndIf
If InitSound()=0 Or InitMovie()=0
  MessageRequester("Error", "Can't open DirectX 7 Or Sound Card is not present", 0)
  End
EndIf

UsePNGImageDecoder()

Enumeration ; ici, on donne un petit nom à nos sprites:
  #CARO ; cadre se plaçant sur la grande image, afin de signifier le tile qu'il est possible de sélectionner.
  #TILE_IMAGE ; la grande image regroupant toute les tiles.
EndEnumeration

Declare choixniv()
Declare ecriture()
Declare Fin()

Global fermefen.b, EcranX.w, EcranY.w
;- Choix résolution de la fenêtre
EcranX = 1024
EcranY = 768

Global NUM_X_TILE_SCREENS=8 ; largeur du niveau en nbre d'écran (exemple: 8 -> 8*1024=8192 colonnes).
Global NUM_Y_TILE_SCREENS=8 ; hauteur du niveau en nbre d'écran (exemple: 8 -> 8*768=6144 lignes).
Global limitXarray ;limite X du niveau en cours: limitXarray=(NUM_X_TILE_SCREENS*16)-8-8 
Global limitYarray ;limite Y du niveau en cours: limitYarray=(NUM_Y_TILE_SCREENS*12)-8-8 

; largeur et hauteur des tiles ( 64*64).
Global TILE_WIDTH=64
Global TILE_HEIGHT=64
; 1024*768 semble être le bon choix du moment.
;Global NUM_X_TILES= 1024 / TILE_WIDTH ; 1024/64=16
;Global NUM_Y_TILES= 768 / TILE_HEIGHT ; 768/64=12
Global NUM_X_TILES= EcranX / TILE_WIDTH ; 1024/64=16
Global NUM_Y_TILES= EcranY / TILE_HEIGHT ; 768/64=12

; ** The total number of tiles on X & Y axes ** Taille du terrain, X et Y ** 
Global TOTAL_NUM_X_TILES= NUM_X_TILES * NUM_X_TILE_SCREENS ; 16*8= 128 tiles en largeur.
Global TOTAL_NUM_Y_TILES= NUM_Y_TILES * NUM_Y_TILE_SCREENS ; 12*8= 96 tiles en hauteur.







If OpenWindow ( 0 , 0, 0, EcranX, EcranY, "editeur de niveau 64" , #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar| #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_ScreenCentered | #PB_Window_ScreenCentered  )
 OpenWindowedScreen ( WindowID ( 0 ), 0, 0, EcranX, EcranY, 0, 1, 1) ; un ecran graphique dans la fenêtre.
EndIf






; et maintenant, voici un défilé de variables:

Global choixplan.l,choixniveau.l,Tempo1.l
Global Cauteur.l,visibl.l
; Cauteur -> choix de l'auteur. ; visibl -> grande image visible on non.


Global TILE_IMAGE ; pas besoin de commentaire là, si ? 

Global MapSpeed.w=8; vitesse de défilement ( appui sur touche 1, 2, ou 3 pavé num)


Global MapDataFile$ ; utilisé pour vos fichier de sauvegarde pour vous niveau finement ciselé.

; le plus compliqué: un tableau à 2 dimensions ( coordonnée X et Y)
Global Dim ArrayGrid.w(TOTAL_NUM_X_TILES+9,TOTAL_NUM_Y_TILES+9)
; ne tremblez pas, ça va bien se passer.

Global SCROLL_X_PIXEL, SCROLL_Y_PIXEL ; bouger les tiles avec grâce

Global POS_Y_ARRAY, POS_X_ARRAY ; position par rapport au terrain

; pointeurI -> n°tile sélectionné librement par vos soins, avec le pointeur de la souris.
Global pointeurI.w, pointeurX.w, pointeurY.w

; image servant de repère, en se plaçant sur le tile de votre choix
; ( au dessus de la grande image en fonction de la position du curseur de votre souris):
CreateSprite ( #CARO , 64, 64, 0 ) 
 StartDrawing ( SpriteOutput ( #CARO ))
  BackColor ( RGB (0,0,0))
  Box (0,0, 64, 64, RGB ( 255, 0, 0)):Box (1,1, 62, 62, RGB ( 255, 255, 255))
  Box (2,2, 60, 60, RGB ( 0, 0, 0))
 StopDrawing ()


Global	steptileX
Global 	steptileY

; Et voici la grande image rassemblant toute les Tiles:
; gitiles -> taille de l'image: 512*512, le premier tile, en haut à gauche, étant le tiles 0 ( quasiment vide ( avec un léger cadre)).
;g comme grande ; i comme image; tiles comme vous voulez, c'est vous qui voyez.
;LoadSprite(#TILE_IMAGE, "Data\gitiles.png",0) ; là je l'ai désactivé, dans la cas où vous n'auriez pas d'image sous la main, alors...
; j'en fabrique une, rien que pour vos petits yeux fatigués:
CreateSprite ( #TILE_IMAGE , 512, 512, 0 ) 
 StartDrawing ( SpriteOutput ( #TILE_IMAGE ))
  BackColor ( RGB (0,0,0))
  
  Box (0,0, 64, 64, RGB (19,5,210)):Box (1,1, 62, 62, RGB ( 0, 0, 0)); le fameux tile 0
  For i=0 To 6
    Box (64+(i*64),0, 64, 64, RGB ( 255-(i*10) , 255-(i*10) , 255-(i*10)))
  Next
 
  For i=0 To 7
    Box (0+(i*64),64, 64, 64, RGB ( 255-(i*10) , 200-(i*10) , 0))
  Next
  For i=0 To 7
    Box (0+(i*64),128, 64, 64, RGB ( 200-(i*10) , 255-(i*10) , 0))
  Next
  For i=0 To 7
    Box (0+(i*64),192, 64, 64, RGB ( 255-(i*10) , 0, 255-(i*10)))
  Next
  For i=0 To 7
    Box (0+(i*64),256, 64, 64, RGB ( 0, 255-(i*10) , 255-(i*10)))
  Next
  For i=0 To 7
    Box (0+(i*64),320, 64, 64, RGB ( 0, 255-(i*10) , 0))
  Next
  For i=0 To 7
    Box (0+(i*64),384, 64, 64, RGB ( 255-(i*10) , 255-(i*10) , 0))
  Next
  For i=0 To 7
    Box (0+(i*64),448, 64, 64, RGB ( 0, 0, 255-(i*10) ))
  Next  
  
  
        DrawingMode(#PB_2DDrawing_Transparent)
 ;     Box(0, 0, 200, 200, RGB(255, 255, 255))
 ;     For i = 1 To 30
 ;       DrawText(Random(200), Random(200), "Hello World!", RGB(Random(255), Random(255), Random(255)))
 ;     Next i

  
  
  FrontColor ( RGB (40, 40, 40))
  ; oui, ça commence en haut à gauche. 
  DrawText (28, 24, "0"):DrawText (92, 24, "1"):DrawText (156, 24, "2"):DrawText (220, 24, "3"):DrawText (284, 24, "4"):DrawText (348, 24, "5"):DrawText (412, 24, "6"):DrawText (476, 24, "7")
  DrawText (28, 88, "8"):DrawText (92, 88, "9"):DrawText (156, 88, "10"):DrawText (220, 88, "11"):DrawText (284, 88, "12"):DrawText (348, 88, "13"):DrawText (412, 88, "14"):DrawText (476, 88, "15")

 StopDrawing ()



MouseLocate(512-32,384-32)



; ******************************************************************************************************
Repeat ;- Boucle principale
; ******************************************************************************************************
If FullScreen = #False 
  Event= WindowEvent ()
EndIf 


        
  ExamineMouse():ExamineKeyboard ()

	
	
 If Cauteur<2; pour que les choses sérieuses commencent, il faut d'abord choisir le niveau et le plan.
   choixniv()
   If Cauteur<2:Goto bouclepaschoix:EndIf ; un goto, même si ce n'est pas bo. 
 EndIf
	
 If KeyboardPushed(#PB_Key_Back) And Cauteur=2 And lacheK32=0
   Cauteur=0:choixniveau=0:Goto bouclepaschoix
 EndIf

;- ------- limite X du niveau -------
  limitXarray=(NUM_X_TILE_SCREENS* 8 )-16
;- ------- limite Y du niveau ------- 
  limitYarray=(NUM_Y_TILE_SCREENS* 8 )-12

;- dans le cas où vous voudriez un terrain de jeu plus grand, n'oubliez pas de changer les deux chiffres ( ici 8). 

; ----------------------------------------------------------------------------------------------------------------------------------------------

; ***************** SCROLLING UP OR DOWN - défilement haut ou bas *********************

; ** Scroll Map 'Down' to go 'Up' ** de bas en haut

    If KeyboardPushed(#PB_Key_Up) Or pointeurY<8 		
			Speed=MapSpeed
			SCROLL_Y_PIXEL=SCROLL_Y_PIXEL+Speed
			If SCROLL_Y_PIXEL>=TILE_HEIGHT
				SCROLL_Y_PIXEL=0  
				POS_Y_ARRAY=POS_Y_ARRAY-1 
			EndIf 
		EndIf 
; ** Scroll Map 'Up' to go 'Down' ** de haut en bas

    If KeyboardPushed(#PB_Key_Down) Or pointeurY>760 		
			Speed=-MapSpeed
			SCROLL_Y_PIXEL=SCROLL_Y_PIXEL+Speed
			If SCROLL_Y_PIXEL<=0
				SCROLL_Y_PIXEL=TILE_HEIGHT
				POS_Y_ARRAY=POS_Y_ARRAY+1
			EndIf 
		EndIf 

; ***************** SCROLLING LEFT OR RIGHT - défilement gauche ou droite  *******************

; ** Scroll Map 'Right' to go 'Left' ** de droite à gauche

    If KeyboardPushed(#PB_Key_Left) Or pointeurX<8
			Speed=MapSpeed
			SCROLL_X_PIXEL=SCROLL_X_PIXEL+Speed
			If SCROLL_X_PIXEL>=TILE_WIDTH
				SCROLL_X_PIXEL=0  
				POS_X_ARRAY=POS_X_ARRAY-1 
			EndIf 
		EndIf 
; ** Scroll Map 'Left' to go 'Right' ** de gauche à droite
    If KeyboardPushed(#PB_Key_Right) Or pointeurX>1016

			Speed=-MapSpeed
			SCROLL_X_PIXEL=SCROLL_X_PIXEL+Speed
			If SCROLL_X_PIXEL<=0
				SCROLL_X_PIXEL=TILE_WIDTH
				POS_X_ARRAY=POS_X_ARRAY+1
			EndIf 
		EndIf 


; ***********************  STAY WITHIN ARRAY and DRAWING LIMITS  **************************
; limite du terrain ( gauche, droite, haut et bas).
; *** Beginning X coordinates ***
		If POS_X_ARRAY<1
			POS_X_ARRAY=1
			SCROLL_X_PIXEL=TILE_WIDTH
		EndIf  
; *** Ending X coordinates ***
		If POS_X_ARRAY>(TOTAL_NUM_X_TILES-NUM_X_TILES)
			POS_X_ARRAY=(TOTAL_NUM_X_TILES-NUM_X_TILES)
			SCROLL_X_PIXEL=0
		EndIf 

; *** Beginning Y coordinates ***
		If POS_Y_ARRAY<1
			POS_Y_ARRAY=1
			SCROLL_Y_PIXEL=TILE_HEIGHT
		EndIf  
; *** Ending Y coordinates ***
		If POS_Y_ARRAY>(TOTAL_NUM_Y_TILES-NUM_Y_TILES)
			POS_Y_ARRAY=(TOTAL_NUM_Y_TILES-NUM_Y_TILES)
			SCROLL_Y_PIXEL=0
		EndIf 


; ************************************************ Début de la double boucle ************************************************
	steptileX=-2
 	steptileY=-2
	steparrayX=-1
	steparrayY=-1
; ** Ok, this is an odd way of looping, remake the way you like **
tile44X=0:tile44Y=0
; ** Loops 17 times gets y0 and lasty+1 coordinates
	While steptileY<(NUM_Y_TILES)
		steptileY=steptileY+1
		steparrayY=steparrayY+1
		
		
; ** Loops 22 times ** gets x0 and lastx+1 coordinates
		While steptileX<(NUM_X_TILES)
			steptileX=steptileX+1
			steparrayX=steparrayX+1
			

;For cl=0 To 448 Step 64
;Next
;- un choix de 64 tiles( d'une taille de 64*64):
; là, on passe de 190 lignes à 39 lignes, c'est mieux !
For numtx=0 To 7 ; 1er ligne
  If ArrayGrid(steparrayX+POS_X_ARRAY,steparrayY+POS_Y_ARRAY)=numtx      
	  ClipSprite(#TILE_IMAGE, numtx*64, 0,  64, 64)
	EndIf  	
Next
For numtx=8 To 15  ; 2eme ligne
  If ArrayGrid(steparrayX+POS_X_ARRAY,steparrayY+POS_Y_ARRAY)=numtx      
	  ClipSprite(#TILE_IMAGE, (numtx-8)*64, 64,  64, 64)
	EndIf  	
Next
For numtx=16 To 23  ; 3eme ligne
  If ArrayGrid(steparrayX+POS_X_ARRAY,steparrayY+POS_Y_ARRAY)=numtx      
	  ClipSprite(#TILE_IMAGE, (numtx-16)*64, 128,  64, 64)
	EndIf  	
Next
For numtx=24 To 31  ; 4eme ligne
  If ArrayGrid(steparrayX+POS_X_ARRAY,steparrayY+POS_Y_ARRAY)=numtx      
	  ClipSprite(#TILE_IMAGE, (numtx-24)*64, 192,  64, 64)
	EndIf  	
Next
For numtx=32 To 39  ; 5eme ligne
  If ArrayGrid(steparrayX+POS_X_ARRAY,steparrayY+POS_Y_ARRAY)=numtx      
	  ClipSprite(#TILE_IMAGE, (numtx-32)*64, 256,  64, 64)
	EndIf  	
Next
For numtx=40 To 47  ; 6eme ligne
  If ArrayGrid(steparrayX+POS_X_ARRAY,steparrayY+POS_Y_ARRAY)=numtx      
	  ClipSprite(#TILE_IMAGE, (numtx-40)*64, 320,  64, 64)
	EndIf  	
Next
For numtx=48 To 55  ; 7eme ligne
  If ArrayGrid(steparrayX+POS_X_ARRAY,steparrayY+POS_Y_ARRAY)=numtx      
	  ClipSprite(#TILE_IMAGE, (numtx-48)*64, 384,  64, 64)
	EndIf  	
Next
For numtx=56 To 63  ; 8eme ligne
  If ArrayGrid(steparrayX+POS_X_ARRAY,steparrayY+POS_Y_ARRAY)=numtx      
	  ClipSprite(#TILE_IMAGE, (numtx-56)*64, 448,  64, 64)
	EndIf  	
Next      


If ArrayGrid(steparrayX+POS_X_ARRAY,steparrayY+POS_Y_ARRAY)<65
 DisplayTransparentSprite(#TILE_IMAGE, (steptileX*TILE_WIDTH)+SCROLL_X_PIXEL, (steptileY*TILE_HEIGHT)+SCROLL_Y_PIXEL) 
EndIf  
  


nbretiles+1; utilisé pour connaître le nombre de tiles affichées.

;- coller le tile de votre choix sur le terrain ( avec une marge de 24 pixels):
If pointeurX>((steptileX*TILE_WIDTH)+SCROLL_X_PIXEL)-12 And pointeurX<((steptileX*TILE_WIDTH)+SCROLL_X_PIXEL)+12
	XOK=1
 If pointeurY>((steptileY*TILE_HEIGHT)+SCROLL_Y_PIXEL)-12 And pointeurY<((steptileY*TILE_HEIGHT)+SCROLL_Y_PIXEL)+12
	YOK=1

  If MouseButton(1) And lachmb1=0 And visibl=0
	lachmb1=1

	XT=steparrayX+POS_X_ARRAY ; 
	YT=steparrayY+POS_Y_ARRAY ;
	
	XTT=(steptileX*TILE_HEIGHT)+SCROLL_X_PIXEL
	YTT=(steptileY*TILE_HEIGHT)+SCROLL_Y_PIXEL 
	
	ArrayGrid(XT,YT)=pointeurI ; pointeurI en voilà une variable qu'il est bien difficile de mettre à la bonne valeur, importante donc.
  ; XT comme colonne X du Tile.
  ; YT comme ligne Y du Tile.
  ; T comme Tile que vous avez choisi, voir plus bas. non pas là, plus bas.
  
  EndIf
 EndIf
EndIf





		Wend
		steparrayX=-1
		steptileX=-2
	Wend
; ************************************************ FIN de la double boucle ************************************************	

; défile à la vitesse de votre choix:
If KeyboardPushed(#PB_Key_Pad1) And MapSpeed>8
 MapSpeed=8
EndIf 
If KeyboardPushed(#PB_Key_Pad2) And (MapSpeed<16 Or MapSpeed>16)
 MapSpeed=16
EndIf 
If KeyboardPushed(#PB_Key_Pad3) And MapSpeed<32
 MapSpeed=32
EndIf 

pointeurX=MouseX() 
pointeurY=MouseY() 


If MouseButton(2) Or KeyboardPushed(#PB_Key_0) 
	pointeurI=0 ; image 0 (transparent ou rien ) -> touche 0 ou bouton droit de la souris.
EndIf	
If choixplan=1 And KeyboardPushed(#PB_Key_1):visibl=1:EndIf ; touche 1 -> tiles du plan 1.
If choixplan=2 And KeyboardPushed(#PB_Key_2):visibl=1:EndIf ; touche 2 -> tiles du plan 2.
If choixplan=3 And KeyboardPushed(#PB_Key_3):visibl=1:EndIf ; touche 3 -> tiles du plan 3.

If KeyboardPushed(#PB_Key_Space)
  visibl=0 ; ne plus rendre visible la grande image.
EndIf 
 
If visibl=1
	ttileX=0:ttileY=0
EndIf

 
carreau=0:Csoi=0

If visibl>0 ; si l'ordre est donné d'afficher la grande image, alors... 
  
  ClipSprite(#TILE_IMAGE, 0, 0, 8*64, 8*64);
  DisplayTransparentSprite(#TILE_IMAGE, 0, 0) ; ...ben on l'affiche. voilà. c'est fait.  
 ; ici, on va joyeusement tester la position du curseur sur la grande image, voyez: 
 If pointeurX>ttileX And pointeurX<ttileX+512 And pointeurY>ttileY And pointeurY<ttileY+512
  ; tC: tiles Colonne ; tL: tiles Ligne 
	For tC=1 To 8 ;colonne de l'image TTILE ( 8*64=512).
	 For tL=1 To 8 ;ligne de l'image TTILE ( 8*64=512).
	  If pointeurX>ttileX+Csoi And pointeurX<ttileX+64+Csoi
	   caroX=ttileX+Csoi:carreau=1
	  EndIf
	
	  If pointeurY>ttileY+Csoi And pointeurY<ttileY+64+Csoi
	   caroY=ttileY+Csoi:carreau=1
	  EndIf
	  Csoi+64 ; pas toujours facile de choisir un ptit nom pour ses variables, et je le prouve ;) .
	 Next
	Next

	If MouseButton(1) And lachmb2=0
		lachmb2=1
		If caroY=0+ttileY ; 1er ligne.
			If caroX=0+ttileX:pointeurI=0:EndIf 
			If caroX=64+ttileX:pointeurI=1:EndIf 
			If caroX=128+ttileX:pointeurI=2:EndIf
      If caroX=192+ttileX:pointeurI=3:EndIf
      If caroX=256+ttileX:pointeurI=4:EndIf
      If caroX=320+ttileX:pointeurI=5:EndIf
      If caroX=384+ttileX:pointeurI=6:EndIf
      If caroX=448+ttileX:pointeurI=7:EndIf
    EndIf
		If caroY=64+ttileY ; 2eme ligne.
			If caroX=0+ttileX:pointeurI=8:EndIf 
			If caroX=64+ttileX:pointeurI=9:EndIf 
			If caroX=128+ttileX:pointeurI=10:EndIf
      If caroX=192+ttileX:pointeurI=11:EndIf
      If caroX=256+ttileX:pointeurI=12:EndIf
      If caroX=320+ttileX:pointeurI=13:EndIf
      If caroX=384+ttileX:pointeurI=14:EndIf
      If caroX=448+ttileX:pointeurI=15:EndIf
    EndIf	
		If caroY=128+ttileY ; 3eme ligne.
			If caroX=0+ttileX:pointeurI=16:EndIf 
			If caroX=64+ttileX:pointeurI=17:EndIf 
			If caroX=128+ttileX:pointeurI=18:EndIf
      If caroX=192+ttileX:pointeurI=19:EndIf
      If caroX=256+ttileX:pointeurI=20:EndIf
      If caroX=320+ttileX:pointeurI=21:EndIf
      If caroX=384+ttileX:pointeurI=22:EndIf
      If caroX=448+ttileX:pointeurI=23:EndIf
    EndIf	
		If caroY=192+ttileY ; 4eme ligne.
			If caroX=0+ttileX:pointeurI=24:EndIf 
			If caroX=64+ttileX:pointeurI=25:EndIf 
			If caroX=128+ttileX:pointeurI=26:EndIf
      If caroX=192+ttileX:pointeurI=27:EndIf
      If caroX=256+ttileX:pointeurI=28:EndIf
      If caroX=320+ttileX:pointeurI=29:EndIf
      If caroX=384+ttileX:pointeurI=30:EndIf
      If caroX=448+ttileX:pointeurI=31:EndIf
    EndIf	
		If caroY=256+ttileY ; 5eme ligne.
			If caroX=0+ttileX:pointeurI=32:EndIf 
			If caroX=64+ttileX:pointeurI=33:EndIf 
			If caroX=128+ttileX:pointeurI=34:EndIf
      If caroX=192+ttileX:pointeurI=35:EndIf
      If caroX=256+ttileX:pointeurI=36:EndIf
      If caroX=320+ttileX:pointeurI=37:EndIf
      If caroX=384+ttileX:pointeurI=38:EndIf
      If caroX=448+ttileX:pointeurI=39:EndIf
    EndIf	
		If caroY=320+ttileY ; 6eme ligne.
			If caroX=0+ttileX:pointeurI=40:EndIf 
			If caroX=64+ttileX:pointeurI=41:EndIf 
			If caroX=128+ttileX:pointeurI=42:EndIf
      If caroX=192+ttileX:pointeurI=43:EndIf
      If caroX=256+ttileX:pointeurI=44:EndIf
      If caroX=320+ttileX:pointeurI=45:EndIf
      If caroX=384+ttileX:pointeurI=46:EndIf
      If caroX=448+ttileX:pointeurI=47:EndIf
    EndIf	
		If caroY=384+ttileY ; 7eme ligne.
			If caroX=0+ttileX:pointeurI=48:EndIf 
			If caroX=64+ttileX:pointeurI=49:EndIf 
			If caroX=128+ttileX:pointeurI=50:EndIf
      If caroX=192+ttileX:pointeurI=51:EndIf
      If caroX=256+ttileX:pointeurI=52:EndIf
      If caroX=320+ttileX:pointeurI=53:EndIf
      If caroX=384+ttileX:pointeurI=54:EndIf
      If caroX=448+ttileX:pointeurI=55:EndIf
    EndIf	
		If caroY=448+ttileY ; 8eme ligne.
			If caroX=0+ttileX:pointeurI=56:EndIf 
			If caroX=64+ttileX:pointeurI=57:EndIf 
			If caroX=128+ttileX:pointeurI=58:EndIf
      If caroX=192+ttileX:pointeurI=59:EndIf
      If caroX=256+ttileX:pointeurI=60:EndIf
      If caroX=320+ttileX:pointeurI=61:EndIf
      If caroX=384+ttileX:pointeurI=62:EndIf
      If caroX=448+ttileX:pointeurI=63:EndIf ; pfiouuu.
    EndIf	
   EndIf

			                              DisplayTransparentSprite(#CARO, caroX, caroY) 
                               
 EndIf
EndIf; If visibl>0

; par bonté d'âme, je laisse ici les premiers examples:
; If pointeurI=0
;   ClipSprite(#TILE_IMAGE, 0, 0, 64, 64); tile en haut à gauche
; EndIf
; If pointeurI=1
;  ClipSprite(#TILE_IMAGE, 64, 0, 64, 64)
;EndIf
; 1ere ligne de Tile:
If pointeurI>-1 And pointeurI<8:ClipSprite(#TILE_IMAGE, pointeurI*64, 0, 64, 64):EndIf
; 2eme ligne de Tile:
If pointeurI>7 And pointeurI<16:ClipSprite(#TILE_IMAGE, (pointeurI-8)*64, 64, 64, 64):EndIf
; 3eme ligne de Tile:
If pointeurI>15 And pointeurI<24:ClipSprite(#TILE_IMAGE, (pointeurI-16)*64, 128, 64, 64):EndIf
; 4eme ligne de Tile:
If pointeurI>23 And pointeurI<32:ClipSprite(#TILE_IMAGE, (pointeurI-24)*64, 192, 64, 64):EndIf
; 5eme ligne de Tile:
If pointeurI>31 And pointeurI<40:ClipSprite(#TILE_IMAGE, (pointeurI-32)*64, 256, 64, 64):EndIf
; 6eme ligne de Tile:
If pointeurI>39 And pointeurI<48:ClipSprite(#TILE_IMAGE, (pointeurI-40)*64, 320, 64, 64):EndIf
; 7eme ligne de Tile:
If pointeurI>47 And pointeurI<56:ClipSprite(#TILE_IMAGE, (pointeurI-48)*64, 384, 64, 64):EndIf
; 8eme ligne de Tile:
If pointeurI>55 And pointeurI<64:ClipSprite(#TILE_IMAGE, (pointeurI-56)*64, 448, 64, 64):EndIf
; l'image du pointeur doit correspondre au choix de l'auteur.
 DisplayTransparentSprite(#TILE_IMAGE, pointeurX, pointeurY) 


;- ordre ecriture .dat 
If KeyboardPushed(#PB_Key_D) And lacheK32=0 ; enregistrer données du niveau dans le fichier .dat   
  lacheK32=1:ecriture()
EndIf 
If KeyboardPushed(#PB_Key_D)=0 And lacheK32=1:lacheK32=0:EndIf
; .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat

bouclepaschoix:
	
    Cauteur$= Str(Cauteur)
    choixplan$= Str(choixplan)
    choixniveau$= Str(choixniveau)
    pointeurI$= Str(pointeurI)
    visibl$= Str(visibl)
    pointeurX$= Str(pointeurX)
    pointeurY$= Str(pointeurY)    
    
    MapSpeed$= Str(MapSpeed)
    POS_X_ARRAY$= Str(POS_X_ARRAY)    
    POS_Y_ARRAY$= Str(POS_Y_ARRAY)     
    caroX$= Str(caroX)   
    caroY$= Str(caroY) 
    nbretiles$= Str( nbretiles) 
    
    If StartDrawing(ScreenOutput())
       DrawingMode(1)
    
      If Cauteur<2
        FrontColor ( RGB (255,255,255))
        DrawText (1,80, "Choix de l'auteur( touches flechées haut ou bas): "); +Cauteur$)   
        FrontColor ( RGB (235,235,235))
        If Cauteur=0:FrontColor ( RGB (240,50,50)):EndIf
        DrawText (1,120, "choisissez le plan pour travailler( entre 1 et 3): " +choixplan$)
        FrontColor ( RGB (235,235,235))
        If Cauteur=1:FrontColor ( RGB (240,50,50)):EndIf
        DrawText (1,150, "choisissez le niveau pour travailler( entre 1 et 4): " +choixniveau$)
      Else
        FrontColor ( RGB (255,255,255))
        FrontColor ( RGB (154,154,154)):DrawText (1+1,120+1, "n°tile sélectionné: " +pointeurI$)
        FrontColor ( RGB (234,234,234)):DrawText (1,120, "n°tile sélectionné: " +pointeurI$)        
        FrontColor ( RGB (154,154,154)):DrawText (1+1,240+1, "POS_X_ARRAY: " +POS_X_ARRAY$)
        FrontColor ( RGB (234,234,234)):DrawText (1,240, "POS_X_ARRAY: " +POS_X_ARRAY$)
        FrontColor ( RGB (154,154,154)):DrawText (1+1,260+1, "POS_Y_ARRAY: " +POS_Y_ARRAY$)
        FrontColor ( RGB (234,234,234)):DrawText (1,260, "POS_Y_ARRAY: " +POS_Y_ARRAY$)
        
        DrawText (1,300, "nbretiles: " +nbretiles$)
      
        DrawText (1,360, "caroX: " +caroX$)
        DrawText (1,380, "caroY: " +caroY$)      
        DrawText (1,400, "visibl: " +visibl$)
        
        DrawText (1,440, "pointeurX: " +pointeurX$)
        DrawText (1,460, "pointeurY: " +pointeurY$)
                
        If visibl=1
          FrontColor ( RGB (154,154,154)):DrawText (5+1,550+1, "Vous pouvez prendre une Tile, en appuyant sur le bouton gauche de la souris.")
          FrontColor ( RGB (234,234,234)):DrawText (5,550, "Vous pouvez prendre une Tile, en appuyant sur le bouton gauche de la souris.")            
        EndIf 

        DrawText (1,640, "Affichage grande image regroupant toutes les tiles: Touche 1 2 ou 3")      
        DrawText (1,660, "Enlever grande image: barre espace")   
        DrawText (1,680, "MapSpeed( touche 1, 2 ou 3 du p.n.): " +MapSpeed$)
        DrawText (1,720, "pour remise à 0, appuyez sur la touche Key_Back")
        
        FrontColor ( RGB (154,154,154)):DrawText (330+1,740+1, "Sauvegarder sur le fichier .dat: Touche D") 
        FrontColor ( RGB (234,234,234)):DrawText (330,740, "Sauvegarder sur le fichier .dat: Touche D")         
      EndIf   
      StopDrawing()
    EndIf
    
    
    lachmb1=0:lachmb2=0
    nbretiles=0; remise à 0 indispensable, rapport aux tableaux Dim afin de connaître le nombre de tiles qu'on affiche.
    
    Gosub fps ; nombre d'image par seconde ( à placer dans tout vos jolis programmes, jeune étourdis !)








 ;- là 
 FlipBuffers()
 Delay(1) 
 ClearScreen ( RGB (0,0,0))


  If KeyboardPushed ( #PB_Key_Escape ):fermefen=1:EndIf 
  If FullScreen = #False 
    If Event= #PB_Event_CloseWindow:fermefen=1:EndIf
  EndIf

  If fermefen=1:Fin():EndIf




ForEver



; *********************************************************************
; ******************** FIN DE LA BOUCLE PRINCIPALE ********************
; *********************************************************************

Procedure.i Fin()

 If IsSprite(#CARO):FreeSprite(#CARO):EndIf 

 If IsSprite(#TILE_IMAGE):FreeSprite(#TILE_IMAGE):EndIf
  
 End
EndProcedure 

Procedure.i choixniv()



; choix plan 1, 2 ou 3, enfonction de vos ambitions, c'est qui voyez.
	If Cauteur=0

	  If KeyboardPushed(#PB_Key_Up) And Tempo1=0 And choixplan<3
	    choixplan=choixplan+1
	    Tempo1=10
	  EndIf
	  If KeyboardPushed(#PB_Key_Down) And Tempo1=0 And choixplan>1
	    choixplan=choixplan-1
	    Tempo1=10
	  EndIf
	  If Tempo1>0
	   Tempo1=Tempo1-1
	  EndIf
	  If choixplan>0 And KeyboardPushed(#PB_Key_Return)
	   Cauteur=1
	  EndIf 
	EndIf
		
; choix niveau 1 à 4 ( déjà, si vous arrivez à pondre 4 niveaux amusant, c'est le bout de monde).
	If Cauteur=1

	  If KeyboardPushed(#PB_Key_Up) And Tempo1=0 And choixniveau<4
	    choixniveau=choixniveau+1
	    Tempo1=10
	  EndIf
	  If KeyboardPushed(#PB_Key_Down) And Tempo1=0 And choixniveau>1
	    choixniveau=choixniveau-1
	    Tempo1=10
	  EndIf
	  If Tempo1>0
	   Tempo1=Tempo1-1
	  EndIf
	  If choixniveau>0 And KeyboardPushed(#PB_Key_Return)
	   Cauteur=2
	  EndIf 
	EndIf

; heu..., oui, là, nous allons utiliser de modeste fichiers .dat
If choixplan=1 And Cauteur=2
	If choixniveau=1
    MapDataFile$="p1niv01.dat"
  EndIf
	If choixniveau=2
    MapDataFile$="p1niv02.dat"
  EndIf
	If choixniveau=3
    MapDataFile$="p1niv03.dat"
  EndIf
	If choixniveau=4
    MapDataFile$="p1niv04.dat"
  EndIf  
EndIf

If choixplan=2 And Cauteur=2
	If choixniveau=1
    MapDataFile$="p2niv01.dat"
  EndIf
	If choixniveau=2
    MapDataFile$="p2niv02.dat"
  EndIf
	If choixniveau=3
    MapDataFile$="p2niv03.dat"
  EndIf
	If choixniveau=4
    MapDataFile$="p2niv04.dat"
  EndIf  
EndIf

If choixplan=3 And Cauteur=2
	If choixniveau=1
    MapDataFile$="p3niv01.dat"
  EndIf
	If choixniveau=2
    MapDataFile$="p3niv02.dat"
  EndIf
	If choixniveau=3
    MapDataFile$="p3niv03.dat"
  EndIf
	If choixniveau=4
    MapDataFile$="p3niv04.dat"
  EndIf  
EndIf

; .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat
;- lecture .dat 
If ReadFile(0,MapDataFile$) ; lecture données du niveau du fichier .dat ( correspondant au plan et niveau précedement choisi). 
  For y=1 To TOTAL_NUM_Y_TILES 
    For x=1 To TOTAL_NUM_X_TILES
      ArrayGrid(x,y)=ReadByte(0)

    Next
  Next
  CloseFile(0)
EndIf
; .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat .dat
	
 SCROLL_X_PIXEL=0
 SCROLL_Y_PIXEL=0

 ; placement au millieu du terrain:
 ;POS_X_ARRAY=4*16:POS_Y_ARRAY=4*12
 
 POS_X_ARRAY=2*16:POS_Y_ARRAY=2*12 ; ou plus près du coin haut gauche, c'est comme on veut.
 
; si vous utilisez plusieurs plan pour votre jeu, vous allez vous arrachez les cheveux.
; alors en démarrant tout au milieu, c'est bien mieux. 


EndProcedure

Procedure.i ecriture()
  
  If CreateFile(0,MapDataFile$)
    For y=1 To TOTAL_NUM_Y_TILES 
      For x=1 To TOTAL_NUM_X_TILES
        WriteByte(0, ArrayGrid(x,y))

      Next
    Next
    CloseFile(0)
  EndIf  
EndProcedure

  fps:
If Val ( FormatDate ( "%ss" , Date ()))=sek 
    fps+1
Else
    FPS$= Str (fps)
    fps=0
EndIf
sek= Val ( FormatDate ( "%ss" , Date ()))
 
StartDrawing ( ScreenOutput ())
DrawingMode (1)
FrontColor ( RGB (255,255,255))
DrawText (1,1, "FPS: " +FPS$)
StopDrawing ()
Return 
; IDE Options = PureBasic v4.02 (Windows - x86)

Re: éditeur de niveaux, résultat en decimal please

Publié : lun. 21/mars/2011 23:34
par G-Rom
au lieu de WriteByte() utilise WriteString() , tu rajoutes une virgule entre chaque "data"


Pseudo code:
for i = 0 to nbelement
Line$ + str( MyLevelData(i) ) + "," ; On convertit le tout en string
next

Line$ = left( Line$, len( Line$ ) -1) ; on supprime la virgule superflue en fin de ligne.


; on ecrit dans le fichier :

WriteString(File , Line$ )

si tu veut rajouté un saut de ligne , utilise chr(10)

@+

Re: éditeur de niveaux, résultat en decimal please

Publié : lun. 21/mars/2011 23:44
par case
tu peux essayer comme ca peut être, non testé mais ca devrais fonctionner

lecture

Code : Tout sélectionner

If ReadFile(0,MapDataFile$) ; lecture données du niveau du fichier .dat ( correspondant au plan et niveau précedement choisi).
  For y=1 To TOTAL_NUM_Y_TILES
    line$=ReadString(0)
    For x=1 To TOTAL_NUM_X_TILES
      ArrayGrid(x,y)=Val(StringField(line$,x,","))
    Next
  Next
  CloseFile(0)
EndIf
écriture ...

Code : Tout sélectionner

Procedure.i ecriture() 
  If CreateFile(0,MapDataFile$)
    For y=1 To TOTAL_NUM_Y_TILES
      line$=""                                    ;vide la chaine
      For x=1 To TOTAL_NUM_X_TILES
        line$+Str(ArrayGrid(x,y))+","        ; stock les valeurs dans la chaine
      Next
      WriteStringN(0,Left(line$,Len(line$)-1)) ; -1 pour supprimer la dernière virgule de chaque ligne
    Next
    CloseFile(0)
  EndIf 
EndProcedure
edit : grilled par g-rom

Re: éditeur de niveaux, résultat en decimal please

Publié : mar. 22/mars/2011 1:35
par beauregard
case a écrit :tu peux essayer comme ca peut être, non testé mais ca devrais fonctionner
Merci ça fonctionne à merveille :D

En fait, j'aimerai obtenir le résultat suivant:

Code : Tout sélectionner

    {1,0,1,0,1},
    {1,1,1,1,1},
    {1,0,1,0,1},
    {1,1,1,1,1},
    {0,1,1,1,0}
Donc avant chaque ligne, il faut écrire dans le fichier un { mais sans que la lecture n'en sois altéré.
Puis même chose à la fin de chaque ligne avec },
Comment faire ?

Re: éditeur de niveaux, résultat en decimal please

Publié : mar. 22/mars/2011 1:56
par case
je ne comprend pas l'intérêt de ce formatage.

mais tu peux ajouter ce que tu veux en début et fin de ligne , puis les enlever a la lecture ...

ecriture...

Code : Tout sélectionner

Procedure.i ecriture()
  If CreateFile(0,MapDataFile$)
    For y=1 To TOTAL_NUM_Y_TILES
      line$=""                                    ;vide la chaine
      For x=1 To TOTAL_NUM_X_TILES
        line$+Str(ArrayGrid(x,y))+","        ; stock les valeurs dans la chaine
      Next
      WriteStringN(0,"{"+Left(line$,Len(line$)-1)+"}") ; -1 pour supprimer la dernière virgule de chaque ligne
    Next
    CloseFile(0)
  EndIf
EndProcedure
lecture ...

Code : Tout sélectionner

If ReadFile(0,MapDataFile$) ; lecture données du niveau du fichier .dat ( correspondant au plan et niveau précedement choisi).
  For y=1 To TOTAL_NUM_Y_TILES
    line$=trim(Trim(ReadString(0),"{"),"}")
    For x=1 To TOTAL_NUM_X_TILES
      ArrayGrid(x,y)=Val(StringField(line$,x,","))
    Next
  Next
  CloseFile(0)
EndIf
mais franchement pour moi aucun intérêt a formater ainsi ton niveau...

Re: éditeur de niveaux, résultat en decimal please

Publié : mar. 22/mars/2011 8:46
par djes
Il y a aussi la bibliothèque préférences qui est un vrai bonheur à utiliser!

Re: éditeur de niveaux, résultat en decimal please

Publié : mar. 22/mars/2011 16:41
par beauregard
case a écrit :je ne comprend pas l'intérêt de ce formatage.

mais tu peux ajouter ce que tu veux en début et fin de ligne , puis les enlever a la lecture ...
ça marche comme je le souhaite, grand merci pour ton aide :mrgreen:

Re: éditeur de niveaux, résultat en decimal please

Publié : mer. 23/mars/2011 13:51
par Mindphazer
djes a écrit :Il y a aussi la bibliothèque préférences qui est un vrai bonheur à utiliser!
+1
Je m'en sert pour stocker des infos, c'est ultra simple pour, justement, écrire et lire ces infos.....

Re: éditeur de niveaux, résultat en decimal please

Publié : jeu. 24/mars/2011 5:00
par beauregard
Mindphazer a écrit :
djes a écrit :Il y a aussi la bibliothèque préférences qui est un vrai bonheur à utiliser!
+1
Je m'en sert pour stocker des infos, c'est ultra simple pour, justement, écrire et lire ces infos.....
Vos messages suscitent mon intérêt :mrgreen:
Vous pouvez peut-être apporter les modifications à mon code, et ainsi en faire profiter la communauté.

Re: éditeur de niveaux, résultat en decimal please

Publié : lun. 23/mai/2011 14:38
par beauregard
Bonjour,

J'ai maintenant besoin d'avoir le résultat en hexadécimal :mrgreen: afin d'obtenir par exemple ceci:

Code : Tout sélectionner

{0x00,0x01,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0x0A,0x0B,0x0C,0x0D,0x0E,0x0F},
Les 2 procédures qui doivent être modifiées:

lecture:

Code : Tout sélectionner

;- lecture .dat 
If ReadFile(0,MapDataFile$) ; lecture données du niveau du fichier .dat ( correspondant au plan et niveau précedement choisi). 
  For y=1 To TOTAL_NUM_Y_TILES 
    line$=Trim(Trim(Trim(ReadString(0),"{"),"}"),",")
    For x=1 To TOTAL_NUM_X_TILES
      ArrayGrid(x,y)=Val(StringField(line$,x,","))
    Next
  Next
  CloseFile(0)
EndIf
écriture (je crois qu'il faut remplacer la commande Str par Hex):

Code : Tout sélectionner

Procedure.i ecriture()
  
  If CreateFile(0,MapDataFile$)
    For y=1 To TOTAL_NUM_Y_TILES 
    line$="" ; vide la chaine
      For x=1 To TOTAL_NUM_X_TILES
        line$+Str(ArrayGrid(x,y))+"," ; stock les valeurs dans la chaine
      Next
      WriteStringN(0,"{"+Left(line$,Len(line$)-1)+"},") ; -1 pour supprimer la dernière virgule de chaque ligne      
    Next
    CloseFile(0)
  EndIf  
EndProcedure

Re: éditeur de niveaux, résultat en decimal please

Publié : lun. 23/mai/2011 15:26
par boddhi
En écriture, remplace

Code : Tout sélectionner

line$+Str(ArrayGrid(x,y))+","
par

Code : Tout sélectionner

line$+"0x"+Rset(hex(ArrayGrid(x,y))),2,"0")+","
Pour la lecture, il faudra que tu fasses appel à une procédure de conversion d'hexa en décimal:
Vois ici, par exemple : http://purebasic.fr/french/viewtopic.ph ... lit=hexval

Re: éditeur de niveaux, résultat en decimal please

Publié : jeu. 02/juin/2011 7:56
par beauregard
Merci infiniment boddhi :D
Fuseau horaire sur UTC+01:00
Page 1 sur 1

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru