ça marche chez moi pb est installé bien sur mais je ne vois pas en quoi cela devrais être gênant qu'il ne le soit pas.
quelques petites remarques concernant ton éditeur et ce afin d'en améliorer l'ergonomie...
je trouve l'interface un peu confuse... c'est assez mal-aisé de placer les tuiles, il faut vraiment être au centre pour la poser, un système de 'snap to grid' serait plus pratique avec un pointeur pour la souris au dessus par exemple. ça permettrait aussi de dessiner a main levée car actuellement lors du passage d'une case a l'autre la tuile ne se pose pas dans le nouveau si on est pas bien au centre, ça demande bien trop de précision pour une édition aisée.
un changement des tuiles avec la souris permettrait une meilleur ergonomie.
plusieurs pistes: click droit maintenu et la grande image apparait, on relâche et la sélection se fait sur la tuile sous le pointeur/molette souris fait défiler les tuiles
actuellement clic droit sélectionne une tuile vide, pour effacer ? si c'est le cas il serait mieux d'effacer directement avec le clic droit sans changer la sélection actuelle car ensuite il faut a nouveau aller dans l'image pour choisir la tuile...
....
je pense a quelque chose comme ca
Code : Tout sélectionner
InitSprite()
InitMouse()
InitKeyboard()
; fenetre pour une sortie...
Global main=OpenWindow(#PB_Any,0,0,640,480,"test")
OpenWindowedScreen(WindowID(main),0,0,640,480,0,0,0)
StartDrawing(ScreenOutput())
Box(32,0,32,32,$ff0000)
Box(64,0,32,32,$ffff00)
Box(96,0,32,32,$00ff00)
Box(128,0,32,32,$00ffff)
Box(160,0,32,32,$0000ff)
LineXY(0,64,0,74)
LineXY(0,64,10,69)
LineXY(10,69,0,74)
StopDrawing()
FlipBuffers()
sprite=GrabSprite(#PB_Any,0,0,192,32)
pointer=GrabSprite(#PB_Any,0,64,10,74)
Dim Map(50,50)
spritemax=SpriteWidth(sprite)/32
Repeat
ClearScreen(0)
For x=0 To 50
For y=0 To 50
ClipSprite(sprite,Map(x,y)*32,0,32,32)
DisplaySprite(sprite,x*32,y*32)
Next
Next
ExamineMouse()
ExamineKeyboard()
If MouseWheel()>0:selected +1:EndIf
If MouseWheel()<0:selected -1:EndIf
;
If MouseButton(#PB_MouseButton_Left)
Map(MouseX()/32,MouseY()/32)=selected
EndIf
;
If MouseButton(#PB_MouseButton_Right)
Map(MouseX()/32,MouseY()/32)=0
EndIf
;
If selected>spritemax
selected=0
EndIf
If selected<0
selected=spritemax
EndIf
;
ClipSprite(sprite,selected*32,0,32,32)
;
DisplaySprite(sprite,(MouseX()/32)*32,(MouseY()/32)*32) ; snap to grid
;DisplaySprite(sprite,MouseX(),MouseY()) ; no snap
DisplayTransparentSprite(pointer,MouseX(),MouseY())
ev=WaitWindowEvent(0)
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
quelle version de windows possedes tu ? et quelle verison de pure basic ? si tu as installé la version 64 bit c'est peutêtre la cause de tes problèmes tout le monde n'ayant pas une machine sous OS 64 bit...
