PureBasic

Forums PureBasic - Français
http://forums.purebasic.com/french/

RectangleArrondi3D(...) + exemples

http://forums.purebasic.com/french/viewtopic.php?t=1567

Page 1 sur 2

RectangleArrondi3D(...) + exemples

Publié : dim. 03/oct./2004 14:11
par erix14
Bonjour,
je viens de réécrire la procédure RectangleArrondi3D, que j'avais déjà créé pour le jeu Puissance4. Cette fois-ci, c'est de la vraie 3D. Je fournis deux exemples, le premier est très simple, le deuxième est un jeu : le Solitaire.

Code : Tout sélectionner

;/
;/                     RectangleArrondi3D  - Programme Eric Ducoulombier ( Erix14 )
;/                             Windows XP SP2 - PureBasic 3.91 - jaPBe 2.4.9.25
;/                                                          02/10/2004
;/
#Longueur = 500
#Largeur = 500
#Window = 0
Global hWnd
Structure UnPoint
          Epaisseur.f
          NormalX.f
          NormalY.f
          NormalZ.f
EndStructure
Dim Buffet3D.UnPoint(#Longueur,#Largeur)
Procedure EffaceBuffet3D()
          For y=0 To #Largeur-1
                    For x=0 To #Longueur-1
                              Buffet3D(x,y)\Epaisseur = 0
                              Buffet3D(x,y)\NormalX = 0
                              Buffet3D(x,y)\NormalY = 0
                              Buffet3D(x,y)\NormalZ = 0
                    Next
          Next
EndProcedure
Procedure RectangleArrondi3D(PositionX,PositionY,longueur,largeur,rayon,Epaisseur)
          Zone = rayon-Epaisseur
          For j = 0 To rayon : JJ = j + PositionY;          coin supérieur gauche
                    For i = 0 To rayon : II = i + PositionX
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance >= Zone
                                        D.l = Distance-Zone
                                        Buffet3D(II,JJ)\NormalX = (x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = (y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              ElseIf Distance < Zone
                                        Buffet3D(II,JJ)\Epaisseur = Epaisseur
                                        Buffet3D(II,JJ)\NormalX = 0
                                        Buffet3D(II,JJ)\NormalY = 0
                                        Buffet3D(II,JJ)\NormalZ = 1
                              EndIf
                    Next
          Next
          For j = rayon To rayon*2 : JJ = PositionY + j + largeur - 2*rayon;    coin inférieur droit
                    For i = rayon To rayon*2 : II = PositionX + i + longueur - 2*rayon
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance >= Zone
                                        D.l = Distance-Zone
                                        Buffet3D(II,JJ)\NormalX = (x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = (y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              ElseIf Distance < Zone
                                        Buffet3D(II,JJ)\Epaisseur = Epaisseur
                                        Buffet3D(II,JJ)\NormalX = 0
                                        Buffet3D(II,JJ)\NormalY = 0
                                        Buffet3D(II,JJ)\NormalZ = 1
                              EndIf
                    Next
          Next
          For j = 0 To rayon : JJ = PositionY + j;          coin supérieur droit
                    For i = rayon To rayon*2 : II = PositionX + i + longueur - 2*rayon
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance >= Zone
                                        D.l = Distance-Zone
                                        Buffet3D(II,JJ)\NormalX = (x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = (y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              ElseIf Distance < Zone
                                        Buffet3D(II,JJ)\Epaisseur = Epaisseur
                                        Buffet3D(II,JJ)\NormalX = 0
                                        Buffet3D(II,JJ)\NormalY = 0
                                        Buffet3D(II,JJ)\NormalZ = 1
                              EndIf
                    Next
          Next
          For j = rayon To rayon*2 : JJ = PositionY + j + largeur - 2*rayon;    coin inférieur gauche
                    For i = 0 To rayon : II = PositionX + i
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance >= Zone
                                        D.l = Distance-Zone
                                        Buffet3D(II,JJ)\NormalX = (x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = (y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              ElseIf Distance < Zone
                                        Buffet3D(II,JJ)\Epaisseur = Epaisseur
                                        Buffet3D(II,JJ)\NormalX = 0
                                        Buffet3D(II,JJ)\NormalY = 0
                                        Buffet3D(II,JJ)\NormalZ = 1
                              EndIf
                    Next
          Next
          RR = PositionY + rayon
          For y=rayon To largeur-rayon
                    JJ = PositionY + y
                    For x=0 To Epaisseur
                              II = PositionX + x
                              Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,RR)\Epaisseur;    côté gauche
                              Buffet3D(II,JJ)\NormalX = Buffet3D(II,RR)\NormalX
                              Buffet3D(II,JJ)\NormalY = Buffet3D(II,RR)\NormalY
                              Buffet3D(II,JJ)\NormalZ = Buffet3D(II,RR)\NormalZ
                              x1 = II + longueur - Epaisseur
                              Buffet3D(x1,JJ)\Epaisseur = Buffet3D(x1,RR)\Epaisseur;    côté droit
                              Buffet3D(x1,JJ)\NormalX = Buffet3D(x1,RR)\NormalX
                              Buffet3D(x1,JJ)\NormalY = Buffet3D(x1,RR)\NormalY
                              Buffet3D(x1,JJ)\NormalZ = Buffet3D(x1,RR)\NormalZ
                    Next
                    For x=Epaisseur To longueur-Epaisseur;  centre
                              II = PositionX + x
                              Buffet3D(II,JJ)\Epaisseur = Epaisseur
                              Buffet3D(II,JJ)\NormalX = 0
                              Buffet3D(II,JJ)\NormalY = 0
                              Buffet3D(II,JJ)\NormalZ = 1
                    Next
          Next
          RR = PositionX + rayon
          For x=rayon To longueur-rayon
                    II = PositionX + x
                    For y=0 To Epaisseur
                              JJ = PositionY + y
                              Buffet3D(II,JJ)\Epaisseur = Buffet3D(RR,JJ)\Epaisseur;    côté supérieur
                              Buffet3D(II,JJ)\NormalX = Buffet3D(RR,JJ)\NormalX
                              Buffet3D(II,JJ)\NormalY = Buffet3D(RR,JJ)\NormalY
                              Buffet3D(II,JJ)\NormalZ = Buffet3D(RR,JJ)\NormalZ
                              y1 = JJ + largeur - Epaisseur
                              Buffet3D(II,y1)\Epaisseur = Buffet3D(RR,y1)\Epaisseur;    côté inférieur
                              Buffet3D(II,y1)\NormalX = Buffet3D(RR,y1)\NormalX
                              Buffet3D(II,y1)\NormalY = Buffet3D(RR,y1)\NormalY
                              Buffet3D(II,y1)\NormalZ = Buffet3D(RR,y1)\NormalZ
                    Next
          Next
          For x=rayon To longueur-rayon
                    II = PositionX + x
                    For y=Epaisseur To rayon
                              JJ = PositionY + y
                              Buffet3D(II,JJ)\Epaisseur = Epaisseur; centre supérieur
                              Buffet3D(II,JJ)\NormalX = 0
                              Buffet3D(II,JJ)\NormalY = 0
                              Buffet3D(II,JJ)\NormalZ = 1
                    Next
                    For y=largeur-rayon To largeur-Epaisseur
                              JJ = PositionY + y
                              Buffet3D(II,JJ)\Epaisseur = Epaisseur; centre inférieur
                              Buffet3D(II,JJ)\NormalX = 0
                              Buffet3D(II,JJ)\NormalY = 0
                              Buffet3D(II,JJ)\NormalZ = 1
                    Next
          Next
EndProcedure
Procedure CaviteArrondi3D(PositionX,PositionY,longueur,largeur,rayon,Epaisseur)
          Zone = rayon-Epaisseur
          For j = 0 To rayon : JJ = j + PositionY;          coin supérieur gauche
                    For i = 0 To rayon : II = i + PositionX
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance > Zone
                                        D.l = rayon-Distance
                                        Buffet3D(II,JJ)\NormalX = -(x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = -(y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              EndIf
                    Next
          Next
          For j = rayon To rayon*2 : JJ = PositionY + j + largeur - 2*rayon;    coin inférieur droit
                    For i = rayon To rayon*2 : II = PositionX + i + longueur - 2*rayon
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance > Zone
                                        D.l = rayon-Distance
                                        Buffet3D(II,JJ)\NormalX = -(x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = -(y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              EndIf
                    Next
          Next
          For j = 0 To rayon : JJ = j + PositionY;          coin supérieur droit
                    For i = rayon To rayon*2 : II = PositionX + i + longueur - 2*rayon
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance > Zone
                                        D.l = rayon-Distance
                                        Buffet3D(II,JJ)\NormalX = -(x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = -(y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              EndIf
                    Next
          Next
          For j = rayon To rayon*2 : JJ = PositionY + j + largeur - 2*rayon;    coin inférieur gauche
                    For i = 0 To rayon : II = i + PositionX
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance > Zone
                                        D.l = rayon-Distance
                                        Buffet3D(II,JJ)\NormalX = -(x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = -(y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              EndIf
                    Next
          Next
          RR = PositionY + rayon
          For y=rayon To largeur-rayon : JJ = PositionY + y
                    For x=0 To Epaisseur : II = PositionX + x
                              Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,RR)\Epaisseur;      côté gauche
                              Buffet3D(II,JJ)\NormalX = Buffet3D(II,RR)\NormalX
                              Buffet3D(II,JJ)\NormalY = Buffet3D(II,RR)\NormalY
                              Buffet3D(II,JJ)\NormalZ = Buffet3D(II,RR)\NormalZ
                              x1 = II + longueur - Epaisseur
                              Buffet3D(x1,JJ)\Epaisseur = Buffet3D(x1,RR)\Epaisseur;      côté droit
                              Buffet3D(x1,JJ)\NormalX = Buffet3D(x1,RR)\NormalX
                              Buffet3D(x1,JJ)\NormalY = Buffet3D(x1,RR)\NormalY
                              Buffet3D(x1,JJ)\NormalZ = Buffet3D(x1,RR)\NormalZ
                    Next
          Next
          RR = PositionX + rayon
          For x=rayon To longueur-rayon : II = PositionX + x
                    For y=0 To Epaisseur : JJ = PositionY + y
                              Buffet3D(II,JJ)\Epaisseur = Buffet3D(RR,JJ)\Epaisseur;      côté supérieur
                              Buffet3D(II,JJ)\NormalX = Buffet3D(RR,JJ)\NormalX
                              Buffet3D(II,JJ)\NormalY = Buffet3D(RR,JJ)\NormalY
                              Buffet3D(II,JJ)\NormalZ = Buffet3D(RR,JJ)\NormalZ
                              y1 = JJ + largeur - Epaisseur
                              Buffet3D(II,y1)\Epaisseur = Buffet3D(RR,y1)\Epaisseur;      côté inférieur
                              Buffet3D(II,y1)\NormalX = Buffet3D(RR,y1)\NormalX
                              Buffet3D(II,y1)\NormalY = Buffet3D(RR,y1)\NormalY
                              Buffet3D(II,y1)\NormalZ = Buffet3D(RR,y1)\NormalZ
                    Next
          Next
EndProcedure
Procedure Rendu3D(longueur,largeur,couleur)
          LR = Red(couleur) : LG = Green(couleur) : LB = Blue(couleur); Couleur du rendu
          LX.f = 0 : LY.f = 0 : LZ.f = 50; Position de la lampe ponctuel
          PR = 128 : PG = 128 : PB = 128; Lumière de la lampe ponctuel
          AR = 32 : AG = 32 : AB = 32; Lumière d'ambiance
          For y=0 To largeur
                    For x=0 To longueur
                              If Buffet3D(x,y)\Epaisseur = 0 : Continue : EndIf
                              Distance.f = Sqr(Pow(x-LX,2)+Pow(y-LY,2)+Pow(Buffet3D(x,y)\Epaisseur-LZ,2))
                              DirX.f = (x-LX)/Distance
                              DirY.f = (y-LY)/Distance
                              DirZ.f = (Buffet3D(x,y)\Epaisseur-LZ)/Distance
                              K.f = -(Buffet3D(x,y)\NormalX*DirX + Buffet3D(x,y)\NormalY*DirY + Buffet3D(x,y)\NormalZ*DirZ)
                              r = LR + AR + K*PR : If r > 255 : r = 255 : EndIf : If r < 0 : r = 0 : EndIf
                              g = LG + AG + K*PG : If g > 255 : g = 255 : EndIf : If g < 0 : g = 0 : EndIf
                              b = LB + AB + K*PB : If b > 255 : b = 255 : EndIf : If b < 0 : b = 0 : EndIf
                              Plot(x,y,RGB(r,g,b))
                    Next
          Next
EndProcedure
Procedure mycallback(WindowID, Message, lParam, wParam)
          Result = #PB_ProcessPureBasicEvents
          Select Message
                    Case #WM_PAINT
                              hRgn = CreateRoundRectRgn_(1,1,#Longueur-1,#Largeur-1,200,200)
                              SetWindowRgn_(hWnd, hRgn, #True)
                              DeleteObject_(hRgn)
          EndSelect
          ProcedureReturn Result
EndProcedure
;- Debut du programme
hWnd = OpenWindow(#Window, 0, 0, #Longueur, #Largeur, #PB_Window_BorderLess | #PB_Window_Invisible | #PB_Window_ScreenCentered, "RectangleArrondi3D")
CreateGadgetList(WindowID()) 
;{/ Image de fond
CreateImage(0, #Longueur, #Largeur) 
StartDrawing(ImageOutput())
          RectangleArrondi3D(0,0,#Longueur-1,#Largeur-1,100,20)
          CaviteArrondi3D(80,80,320,60,30,10)
          RectangleArrondi3D(90,90,300,40,20,10)
          CaviteArrondi3D(80,150,320,60,30,10)
          RectangleArrondi3D(90,160,300,40,20,10)
          CaviteArrondi3D(100,300,84,84,42,12)
          CaviteArrondi3D(200,300,84,84,42,12)
          CaviteArrondi3D(300,300,84,84,42,12)
          CaviteArrondi3D(90,400,320,60,30,10)
          Rendu3D(#Longueur-1,#Largeur-1,RGB(128,128,0))

          EffaceBuffet3D()
          RectangleArrondi3D(111,311,62,62,31,10)
          Rendu3D(#Longueur-1,#Largeur-1,RGB(0,0,128))
          
          EffaceBuffet3D()
          RectangleArrondi3D(211,311,62,62,31,10)
          Rendu3D(#Longueur-1,#Largeur-1,RGB(128,128,128))
          
          EffaceBuffet3D()
          RectangleArrondi3D(311,311,62,62,31,10)
          Rendu3D(#Longueur-1,#Largeur-1,RGB(128,0,0))
          
          EffaceBuffet3D()
          RectangleArrondi3D(90,230,300,40,20,10)
          Rendu3D(#Longueur-1,#Largeur-1,RGB(128,128,32))
          
          DrawingMode(1)
          DrawingFont(LoadFont(0,"Times New Roman",24))
          FrontColor(50,50,50)
          Locate(110,92) : DrawText("RectangleArrondi3D")
          Locate(130,162) : DrawText("CaviteArrondi3D")
          DrawingFont(LoadFont(0,"Times New Roman",20,#PB_Font_Bold))
          Locate(115,230) : DrawText("[Echap] pour quitter")
          Locate(130,412) : DrawText("Programme Erix14")
StopDrawing();}
ImageGadget(0, 0, 0, 0, 0, ImageID()) 
SetWindowCallback(@mycallback())
HideWindow(#Window,0)
Repeat
          Select WaitWindowEvent()
                    Case #WM_LBUTTONDOWN;{ Déplacement de la fenêtre
                              SendMessage_(hWnd, #WM_NCLBUTTONDOWN, #HTCAPTION, #Null);}
                    Case #WM_KEYDOWN;{  Commande clavier
                              Key = EventwParam()
                              If Key = 27 : End : EndIf;}
          EndSelect
ForEver
deuxième exemple :

Code : Tout sélectionner

;/
;/                     Le Solitaire  - Programme Eric Ducoulombier ( Erix14 )
;/                         Windows XP SP2 - PureBasic 3.91 - jaPBe 2.4.9.25
;/                                                          03/10/2004
;/
#Longueur = 500
#Largeur = 500
#Window = 0
Global m_hMidiOut,m_MIDIOpen.b,hWnd,hBmp,DeplaceBille,PosX,PosY,AncienX,AncienY,NbCoup
Structure UnPoint
          Epaisseur.f
          NormalX.f
          NormalY.f
          NormalZ.f
EndStructure
Dim Buffet3D.UnPoint(#Longueur,#Largeur)
Dim PlateauBille.b(7,7)
Procedure SendMIDIMessage(nStatus.l,nCanal.l,nData1.l,nData2.l)
          dwFlags.l = nStatus | nCanal | (nData1 << 8) | (nData2 << 16)
          temp.l = midiOutShortMsg_(m_hMidiOut,dwFlags);
          If temp<>0 
                    MessageRequester("Problème", "Erreur dans l'envoi du message MIDI",0)
          EndIf
EndProcedure
Procedure MIDIOpen()
          If m_MIDIOpen = 0
                    If midiOutOpen_(@m_hMidiOut,MIDIMAPPER,0,0,0) <> 0 
                              MessageRequester("Problème", "Impossible d'ouvrir le périphérique MIDI",0)
                    Else
                              SendMIDIMessage($C0,0,0,0)
                              m_MIDIOpen = 1
                    EndIf
          EndIf
EndProcedure
Procedure PlayNoteMIDI(Canal.b,Note.b,VelociteDown.b,VelociteUp.b)
          If m_MIDIOpen
                    SendMIDIMessage($80 | Canal,0,Note,VelociteDown)
                    SendMIDIMessage($90 | Canal,0,Note,VelociteUp)
          EndIf          
EndProcedure
Procedure ChargeInstrument(Canal.b,Instrument.b)
          If m_MIDIOpen
                    SendMIDIMessage($C0 | Canal,0,Instrument,0)
          EndIf          
EndProcedure
Procedure EffaceBuffet3D()
          For y=0 To #Largeur-1
                    For x=0 To #Longueur-1
                              Buffet3D(x,y)\Epaisseur = 0
                              Buffet3D(x,y)\NormalX = 0
                              Buffet3D(x,y)\NormalY = 0
                              Buffet3D(x,y)\NormalZ = 0
                    Next
          Next
EndProcedure
Procedure RectangleArrondi3D(PositionX,PositionY,longueur,largeur,rayon,Epaisseur)
          Zone = rayon-Epaisseur
          For j = 0 To rayon : JJ = j + PositionY;          coin supérieur gauche
                    For i = 0 To rayon : II = i + PositionX
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance >= Zone
                                        D.l = Distance-Zone
                                        Buffet3D(II,JJ)\NormalX = (x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = (y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              ElseIf Distance < Zone
                                        Buffet3D(II,JJ)\Epaisseur = Epaisseur
                                        Buffet3D(II,JJ)\NormalX = 0
                                        Buffet3D(II,JJ)\NormalY = 0
                                        Buffet3D(II,JJ)\NormalZ = 1
                              EndIf
                    Next
          Next
          For j = rayon To rayon*2 : JJ = PositionY + j + largeur - 2*rayon;    coin inférieur droit
                    For i = rayon To rayon*2 : II = PositionX + i + longueur - 2*rayon
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance >= Zone
                                        D.l = Distance-Zone
                                        Buffet3D(II,JJ)\NormalX = (x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = (y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              ElseIf Distance < Zone
                                        Buffet3D(II,JJ)\Epaisseur = Epaisseur
                                        Buffet3D(II,JJ)\NormalX = 0
                                        Buffet3D(II,JJ)\NormalY = 0
                                        Buffet3D(II,JJ)\NormalZ = 1
                              EndIf
                    Next
          Next
          For j = 0 To rayon : JJ = PositionY + j;          coin supérieur droit
                    For i = rayon To rayon*2 : II = PositionX + i + longueur - 2*rayon
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance >= Zone
                                        D.l = Distance-Zone
                                        Buffet3D(II,JJ)\NormalX = (x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = (y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              ElseIf Distance < Zone
                                        Buffet3D(II,JJ)\Epaisseur = Epaisseur
                                        Buffet3D(II,JJ)\NormalX = 0
                                        Buffet3D(II,JJ)\NormalY = 0
                                        Buffet3D(II,JJ)\NormalZ = 1
                              EndIf
                    Next
          Next
          For j = rayon To rayon*2 : JJ = PositionY + j + largeur - 2*rayon;    coin inférieur gauche
                    For i = 0 To rayon : II = PositionX + i
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance >= Zone
                                        D.l = Distance-Zone
                                        Buffet3D(II,JJ)\NormalX = (x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = (y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              ElseIf Distance < Zone
                                        Buffet3D(II,JJ)\Epaisseur = Epaisseur
                                        Buffet3D(II,JJ)\NormalX = 0
                                        Buffet3D(II,JJ)\NormalY = 0
                                        Buffet3D(II,JJ)\NormalZ = 1
                              EndIf
                    Next
          Next
          RR = PositionY + rayon
          For y=rayon To largeur-rayon
                    JJ = PositionY + y
                    For x=0 To Epaisseur
                              II = PositionX + x
                              Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,RR)\Epaisseur;    côté gauche
                              Buffet3D(II,JJ)\NormalX = Buffet3D(II,RR)\NormalX
                              Buffet3D(II,JJ)\NormalY = Buffet3D(II,RR)\NormalY
                              Buffet3D(II,JJ)\NormalZ = Buffet3D(II,RR)\NormalZ
                              x1 = II + longueur - Epaisseur
                              Buffet3D(x1,JJ)\Epaisseur = Buffet3D(x1,RR)\Epaisseur;    côté droit
                              Buffet3D(x1,JJ)\NormalX = Buffet3D(x1,RR)\NormalX
                              Buffet3D(x1,JJ)\NormalY = Buffet3D(x1,RR)\NormalY
                              Buffet3D(x1,JJ)\NormalZ = Buffet3D(x1,RR)\NormalZ
                    Next
                    For x=Epaisseur To longueur-Epaisseur;  centre
                              II = PositionX + x
                              Buffet3D(II,JJ)\Epaisseur = Epaisseur
                              Buffet3D(II,JJ)\NormalX = 0
                              Buffet3D(II,JJ)\NormalY = 0
                              Buffet3D(II,JJ)\NormalZ = 1
                    Next
          Next
          RR = PositionX + rayon
          For x=rayon To longueur-rayon
                    II = PositionX + x
                    For y=0 To Epaisseur
                              JJ = PositionY + y
                              Buffet3D(II,JJ)\Epaisseur = Buffet3D(RR,JJ)\Epaisseur;    côté supérieur
                              Buffet3D(II,JJ)\NormalX = Buffet3D(RR,JJ)\NormalX
                              Buffet3D(II,JJ)\NormalY = Buffet3D(RR,JJ)\NormalY
                              Buffet3D(II,JJ)\NormalZ = Buffet3D(RR,JJ)\NormalZ
                              y1 = JJ + largeur - Epaisseur
                              Buffet3D(II,y1)\Epaisseur = Buffet3D(RR,y1)\Epaisseur;    côté inférieur
                              Buffet3D(II,y1)\NormalX = Buffet3D(RR,y1)\NormalX
                              Buffet3D(II,y1)\NormalY = Buffet3D(RR,y1)\NormalY
                              Buffet3D(II,y1)\NormalZ = Buffet3D(RR,y1)\NormalZ
                    Next
          Next
          For x=rayon To longueur-rayon
                    II = PositionX + x
                    For y=Epaisseur To rayon
                              JJ = PositionY + y
                              Buffet3D(II,JJ)\Epaisseur = Epaisseur; centre supérieur
                              Buffet3D(II,JJ)\NormalX = 0
                              Buffet3D(II,JJ)\NormalY = 0
                              Buffet3D(II,JJ)\NormalZ = 1
                    Next
                    For y=largeur-rayon To largeur-Epaisseur
                              JJ = PositionY + y
                              Buffet3D(II,JJ)\Epaisseur = Epaisseur; centre inférieur
                              Buffet3D(II,JJ)\NormalX = 0
                              Buffet3D(II,JJ)\NormalY = 0
                              Buffet3D(II,JJ)\NormalZ = 1
                    Next
          Next
EndProcedure
Procedure CaviteArrondi3D(PositionX,PositionY,longueur,largeur,rayon,Epaisseur)
          Zone = rayon-Epaisseur
          For j = 0 To rayon : JJ = j + PositionY;          coin supérieur gauche
                    For i = 0 To rayon : II = i + PositionX
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance > Zone
                                        D.l = rayon-Distance
                                        Buffet3D(II,JJ)\NormalX = -(x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = -(y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              EndIf
                    Next
          Next
          For j = rayon To rayon*2 : JJ = PositionY + j + largeur - 2*rayon;    coin inférieur droit
                    For i = rayon To rayon*2 : II = PositionX + i + longueur - 2*rayon
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance > Zone
                                        D.l = rayon-Distance
                                        Buffet3D(II,JJ)\NormalX = -(x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = -(y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              EndIf
                    Next
          Next
          For j = 0 To rayon : JJ = j + PositionY;          coin supérieur droit
                    For i = rayon To rayon*2 : II = PositionX + i + longueur - 2*rayon
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance > Zone
                                        D.l = rayon-Distance
                                        Buffet3D(II,JJ)\NormalX = -(x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = -(y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              EndIf
                    Next
          Next
          For j = rayon To rayon*2 : JJ = PositionY + j + largeur - 2*rayon;    coin inférieur gauche
                    For i = 0 To rayon : II = i + PositionX
                              x = i - rayon : y = j - rayon : Distance.f = Sqr(x*x + y*y)
                              If Distance <= rayon And Distance > Zone
                                        D.l = rayon-Distance
                                        Buffet3D(II,JJ)\NormalX = -(x*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalY = -(y*D)/(Epaisseur*Distance)
                                        Buffet3D(II,JJ)\NormalZ = Sqr(Epaisseur*Epaisseur-D*D)/Epaisseur
                                        Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,JJ)\NormalZ*Epaisseur
                              EndIf
                    Next
          Next
          RR = PositionY + rayon
          For y=rayon To largeur-rayon : JJ = PositionY + y
                    For x=0 To Epaisseur : II = PositionX + x
                              Buffet3D(II,JJ)\Epaisseur = Buffet3D(II,RR)\Epaisseur;      côté gauche
                              Buffet3D(II,JJ)\NormalX = Buffet3D(II,RR)\NormalX
                              Buffet3D(II,JJ)\NormalY = Buffet3D(II,RR)\NormalY
                              Buffet3D(II,JJ)\NormalZ = Buffet3D(II,RR)\NormalZ
                              x1 = II + longueur - Epaisseur
                              Buffet3D(x1,JJ)\Epaisseur = Buffet3D(x1,RR)\Epaisseur;      côté droit
                              Buffet3D(x1,JJ)\NormalX = Buffet3D(x1,RR)\NormalX
                              Buffet3D(x1,JJ)\NormalY = Buffet3D(x1,RR)\NormalY
                              Buffet3D(x1,JJ)\NormalZ = Buffet3D(x1,RR)\NormalZ
                    Next
          Next
          RR = PositionX + rayon
          For x=rayon To longueur-rayon : II = PositionX + x
                    For y=0 To Epaisseur : JJ = PositionY + y
                              Buffet3D(II,JJ)\Epaisseur = Buffet3D(RR,JJ)\Epaisseur;      côté supérieur
                              Buffet3D(II,JJ)\NormalX = Buffet3D(RR,JJ)\NormalX
                              Buffet3D(II,JJ)\NormalY = Buffet3D(RR,JJ)\NormalY
                              Buffet3D(II,JJ)\NormalZ = Buffet3D(RR,JJ)\NormalZ
                              y1 = JJ + largeur - Epaisseur
                              Buffet3D(II,y1)\Epaisseur = Buffet3D(RR,y1)\Epaisseur;      côté inférieur
                              Buffet3D(II,y1)\NormalX = Buffet3D(RR,y1)\NormalX
                              Buffet3D(II,y1)\NormalY = Buffet3D(RR,y1)\NormalY
                              Buffet3D(II,y1)\NormalZ = Buffet3D(RR,y1)\NormalZ
                    Next
          Next
EndProcedure
Procedure Rendu3D(longueur,largeur,couleur)
          LR = Red(couleur) : LG = Green(couleur) : LB = Blue(couleur); Couleur du rendu
          LX.f = 0 : LY.f = 0 : LZ.f = 50; Position de la lampe ponctuel
          PR = 128 : PG = 128 : PB = 128; Lumière de la lampe ponctuel
          AR = 32 : AG = 32 : AB = 32; Lumière d'ambiance
          For y=0 To largeur
                    For x=0 To longueur
                              If Buffet3D(x,y)\Epaisseur = 0 : Continue : EndIf
                              Distance.f = Sqr(Pow(x-LX,2)+Pow(y-LY,2)+Pow(Buffet3D(x,y)\Epaisseur-LZ,2))
                              DirX.f = (x-LX)/Distance
                              DirY.f = (y-LY)/Distance
                              DirZ.f = (Buffet3D(x,y)\Epaisseur-LZ)/Distance
                              K.f = -(Buffet3D(x,y)\NormalX*DirX + Buffet3D(x,y)\NormalY*DirY + Buffet3D(x,y)\NormalZ*DirZ)
                              r = LR + AR + K*PR : If r > 255 : r = 255 : EndIf : If r < 0 : r = 0 : EndIf
                              g = LG + AG + K*PG : If g > 255 : g = 255 : EndIf : If g < 0 : g = 0 : EndIf
                              b = LB + AB + K*PB : If b > 255 : b = 255 : EndIf : If b < 0 : b = 0 : EndIf
                              Plot(x,y,RGB(r,g,b))
                    Next
          Next
EndProcedure
Procedure AffichePlateauBille()
          For y=0 To 6
                    For x=0 To 6
                              If PlateauBille(x,y) = 1 : DisplayTransparentSprite(2,50+x*60,50+y*60) : EndIf
                    Next
          Next
          StartDrawing(ScreenOutput())
          DrawingMode(1)
          DrawingFont(LoadFont(0,"Times New Roman",34,#PB_Font_Bold))
          FrontColor(250,250,250)
          Locate(368,363) : DrawText(RSet(Str(NbCoup),2,"0"))
          StopDrawing()
EndProcedure
Procedure NouvellePartie()
          DeplaceBille = #False : NbCoup = 0
          For x=0 To 6
                    For y=0 To 6
                              If PlateauBille(x,y)<>10 : PlateauBille(x,y)=1 : EndIf
                    Next
          Next
          Cherche = #True
          While Cherche
                    x = Random(6) : y = Random(6)
                    If PlateauBille(x,y) = 1
                              Cherche = #False
                              PlateauBille(x,y) = 0
                    EndIf
          Wend
          DisplaySprite(1,0,0)
          AffichePlateauBille()
          FlipBuffers()
          PlayNoteMIDI(0,54,127,127)
EndProcedure
Procedure mycallback(WindowID, Message, lParam, wParam)
          Result = #PB_ProcessPureBasicEvents
          Select Message
                    Case #WM_PAINT
                              hRgn = CreateRoundRectRgn_(1,1,#Longueur-1,#Largeur-1,300,300)
                              hBrush = CreatePatternBrush_(hBmp)
                              SetClassLong_(hWnd, #GCL_HBRBACKGROUND, hBrush)
                              InvalidateRect_(hWnd, #Null, #True)
                              SetWindowRgn_(hWnd, hRgn, #True)
                              DeleteObject_(hRgn)
                              DeleteObject_(hBrush) 
                              DisplaySprite(1,0,0)
                              AffichePlateauBille()
                              FlipBuffers()
          EndSelect
          ProcedureReturn Result
EndProcedure
;- Debut du programme
If InitSprite() = 0 : End : EndIf
hWnd = OpenWindow(#Window, 0, 0, #Longueur, #Largeur, #PB_Window_BorderLess | #PB_Window_Invisible | #PB_Window_ScreenCentered, "Le Solitaire")
OpenWindowedScreen(hWnd, 0,0,#Longueur,#Largeur,0,0,0)
MIDIOpen() : ChargeInstrument(0,9)
;{/ Image de fond
hBmp = CreateSprite(1, #Longueur, #Largeur) 
StartDrawing(SpriteOutput(1))
RectangleArrondi3D(0,0,#Longueur-1,#Largeur-1,150,40)
For t=0 To 6
          CaviteArrondi3D(160,40+t*60,60,60,30,10)
          CaviteArrondi3D(220,40+t*60,60,60,30,10)
          CaviteArrondi3D(280,40+t*60,60,60,30,10)
Next
For t=2 To 4
          CaviteArrondi3D(40,40+t*60,60,60,30,10)
          CaviteArrondi3D(100,40+t*60,60,60,30,10)
          CaviteArrondi3D(340,40+t*60,60,60,30,10)
          CaviteArrondi3D(400,40+t*60,60,60,30,10)
Next
CaviteArrondi3D(340,340,100,100,50,11)
CaviteArrondi3D(60,340,100,100,50,11)
Rendu3D(#Longueur-1,#Largeur-1,RGB(128,64,0))
EffaceBuffet3D()
RectangleArrondi3D(350,350,80,80,40,10)
RectangleArrondi3D(70,350,80,80,40,10)
Rendu3D(#Longueur-1,#Largeur-1,RGB(0,0,64))
DrawingMode(1)
DrawingFont(LoadFont(0,"Times New Roman",20,#PB_Font_Bold))
FrontColor(50,50,50)
Locate(180,5) : DrawText("Le Solitaire")
DrawingFont(LoadFont(0,"Times New Roman",14))
FrontColor(250,250,250)
Locate(88,380) : DrawText("Erix14")
FrontColor(64,32,0)
Locate(70,80) : DrawText("[Espace]")
Locate(70,100) : DrawText("Nouvelle")
Locate(70,120) : DrawText("partie")
Locate(360,80) : DrawText("[Echap]")
Locate(360,100) : DrawText("Quitter")
StopDrawing();}
;{/ Image bille
CreateSprite(2,40,40) 
StartDrawing(SpriteOutput(2))
          EffaceBuffet3D()
          RectangleArrondi3D(0,0,40,40,20,20)
          Rendu3D(40,40,RGB(110,110,110))
StopDrawing();}
;{/ Image bille2
CreateSprite(4,40,40) 
StartDrawing(SpriteOutput(4))
          EffaceBuffet3D()
          RectangleArrondi3D(0,0,40,40,20,20)
          Rendu3D(40,40,RGB(50,150,50))
StopDrawing();}
PlateauBille(0,0) = 10 : PlateauBille(0,1) = 10 : PlateauBille(1,0) = 10 :PlateauBille(1,1) = 10          
PlateauBille(0,5) = 10 : PlateauBille(0,6) = 10 : PlateauBille(1,5) = 10 :PlateauBille(1,6) = 10          
PlateauBille(5,0) = 10 : PlateauBille(5,1) = 10 : PlateauBille(6,0) = 10 :PlateauBille(6,1) = 10          
PlateauBille(5,5) = 10 : PlateauBille(5,6) = 10 : PlateauBille(6,5) = 10 :PlateauBille(6,6) = 10          
SetWindowCallback(@mycallback())
HideWindow(#Window,0)
NouvellePartie()
Repeat
          Select WaitWindowEvent()
                    Case #WM_MOUSEMOVE;{ Déplacement de la souris
                              If DeplaceBille
                                        mx = WindowMouseX() : my = WindowMouseY()
                                        If mx<50 Or mx>450 Or my<50 Or my>450
                                                  PlateauBille(PosX,PosY) = 1
                                                  DisplaySprite(1,0,0)
                                                  AffichePlateauBille()
                                                  FlipBuffers()
                                                  DeplaceBille = #False
                                        Else
                                                  mx - 20 : my -20
                                                  DisplaySprite(3,AncienX,AncienY)
                                                  GrabSprite(3,mx,my,40,40)
                                                  DisplayTransparentSprite(4,mx,my)
                                                  AncienX = mx : AncienY = my
                                                  FlipBuffers()
                                        EndIf
                              EndIf;}
                    Case #WM_LBUTTONDOWN;{
                              mx = WindowMouseX() : my = WindowMouseY()
                              If mx>50 And mx<450 And my>50 And my<450
                                        i = (mx-50)/60 : j = (my-50)/60
                                        If PlateauBille(i,j) = 1
                                                  DeplaceBille = #True
                                                  PlateauBille(i,j) = 0
                                                  PosX = i : PosY = j
                                                  UseBuffer(1)
                                                  AncienX = 50+i*60 : AncienY = 50+j*60
                                                  GrabSprite(3,AncienX,AncienY,40,40)
                                                  UseBuffer(-1)
                                                  DisplayTransparentSprite(4,AncienX,AncienY)
                                                  FlipBuffers()
                                        EndIf
                              Else : SendMessage_(hWnd, #WM_NCLBUTTONDOWN, #HTCAPTION, #Null)
                              EndIf;}
                    Case #WM_LBUTTONUP;{
                              mx = WindowMouseX() : my = WindowMouseY()
                              If DeplaceBille : PlateauBille(PosX,PosY) = 1 : EndIf
                              DeplaceBille = #False
                              If mx>50 And mx<450 And my>50 And my<450
                                        i = (mx-50)/60 : j = (my-50)/60
                                        If PlateauBille(i,j) = 0
                                                  If PosX-2 >= 0
                                                            If i=PosX-2 And j=PosY And PlateauBille(PosX-1,PosY)=1
                                                                      PlateauBille(i,j) = 1
                                                                      PlateauBille(PosX-1,PosY) = 0
                                                                      PlateauBille(PosX,PosY) = 0
                                                                      PlayNoteMIDI(0,74,127,127) : NbCoup + 1
                                                            EndIf
                                                  EndIf
                                                  If PosX+2 <= 6
                                                            If i=PosX+2 And j=PosY And PlateauBille(PosX+1,PosY)=1
                                                                      PlateauBille(i,j) = 1
                                                                      PlateauBille(PosX+1,PosY) = 0
                                                                      PlateauBille(PosX,PosY) = 0
                                                                      PlayNoteMIDI(0,74,127,127) : NbCoup + 1
                                                            EndIf
                                                  EndIf
                                                  If PosY-2 >= 0
                                                            If i=PosX And j=PosY-2 And PlateauBille(PosX,PosY-1)=1
                                                                      PlateauBille(i,j) = 1
                                                                      PlateauBille(PosX,PosY-1) = 0
                                                                      PlateauBille(PosX,PosY) = 0
                                                                      PlayNoteMIDI(0,74,127,127) : NbCoup + 1
                                                            EndIf
                                                  EndIf
                                                  If PosY+2 <= 6
                                                            If i=PosX And j=PosY+2 And PlateauBille(PosX,PosY+1)=1
                                                                      PlateauBille(i,j) = 1
                                                                      PlateauBille(PosX,PosY+1) = 0
                                                                      PlateauBille(PosX,PosY) = 0
                                                                      PlayNoteMIDI(0,74,127,127) : NbCoup + 1
                                                            EndIf
                                                  EndIf
                                        EndIf
                                        DisplaySprite(1,0,0)
                                        AffichePlateauBille()
                                        FlipBuffers()
                              EndIf;}
                    Case #WM_KEYDOWN;{  Commandes clavier
                              Key = EventwParam()
                              If Key = 32 : NouvellePartie() : EndIf
                              If Key = 27 : End : EndIf;}
          EndSelect
ForEver

Publié : dim. 03/oct./2004 14:18
par comtois
quel bosseur !

Bravo , c'est encore une fois très réussi .

A quand l'IA pour suggérer le meilleur coup ? :)

Un site intéressant sur le sujet

http://eternitygames.free.fr/Solitaire. ... 20français

Publié : dim. 03/oct./2004 14:30
par Chris
Bravo!

Juste une question:
Pourquoi tu crée toujours toutes tes images en les codant dans le programme?

En tout cas, c'est réussi! :wink:

Publié : dim. 03/oct./2004 17:04
par erix14
Merci comtois pour le site, c'est très instructif, mais je ne compte pas développer une IA. C'était juste histoire de faire un joli exemple.
C'est justement pour cela, Chris, que je code mes images, c'est pour faire des exemples faciles à mettre sur le forum et à exécuter. De plus, ça m'entraîne aux techniques de conception graphique. J'ai pour projet de concevoir un éditeur de sprites,icons,boutons,logos... Avec un aspect très convivial est très intuitif. :D

Publié : dim. 03/oct./2004 17:22
par Le Soldat Inconnu
Encore et toujours très réussi :D

Publié : dim. 03/oct./2004 18:00
par Fred
Excellent..

Publié : dim. 03/oct./2004 18:32
par Guimauve
Je viens de regarder et encore une fois rien à dire. C'est du travaille de pro, rien de moins.

Moi je vais aller m'entrainer encore un peu. :roll:

A+
Guimauve

Publié : dim. 03/oct./2004 21:36
par garzul
8O Vraiment Erix14 la tu es un boss du windowed 8) Rien a redire , je vais essayer de faire comme toi ( Attention au résultat ^^ )

Publié : dim. 03/oct./2004 21:57
par Oliv
encore épatant :D ,bravo :D :D
(Et marcus qui soutien que l'on ne peux pas faire du fluide en mode fenêtre.....tu nous prouves tout le temps le contraire)

Publié : dim. 03/oct./2004 22:06
par Le Soldat Inconnu
Et hop, une seule boule au centre :D

Image

Publié : lun. 04/oct./2004 18:56
par erix14
Bravo!!! :D

Publié : lun. 04/oct./2004 19:53
par Le Soldat Inconnu
Bien franchement, tu devrais faire un site pour y exposer tes jeux :D
Je suis sure que pas mal de gens seraient ravis de pouvoir les télécharger :wink:

Publié : lun. 04/oct./2004 20:04
par nico
Tu pourrais même faire une compile dans un EXE avec une belle interface comme tu sais le faire pour choisir le Jeux à jouer.

:)

Publié : lun. 04/oct./2004 23:38
par Backup
Et hop, une seule boule au centre Very Happy
dit donc t'a modifié le code pour avoir ce resultat !! :lol: :lol:

Publié : mar. 05/oct./2004 10:45
par Le Soldat Inconnu
non, j'ai fait du copier coller de la case vide de départ sous Paint :mrgreen: (ah ben non, ça marche pas pour le score, zut)

Tu ne peux accepter que je suis meilleur que toi tout simplement ? :lol:

Si vous voulez, je vous explique comment faire :wink: mais ça ne présente pas un grand intérêt d'avoir direct la solution
Fuseau horaire sur UTC+01:00
Page 1 sur 2

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

Traduction française officielle © Qiaeru