qui peux me donner quelques cours pour la création de jeux

[jbernard13]

bonjour à tous

qui peux me donner quelques cours sur la crétion d'un simple casse brique .

j'aimerai beaucoup apprendre la creation de jeux en pb

[Cool Dji]

Hello JBernard13,

Commence déjà par un ping. Sur le forum t'as tout pour faire.

Cahier des charges en 4 étapes
1 - Une raquette à gauche de l'écran se dirigeant de haut en bas (déplacement à la souris ou au clavier, comme tu veux).
2 - Un mur à droite, en bas et en haut
3 - une balle qui se déplace toute seule, qui rebondit sur les murs et sur la raquette.
4- Si la balle touche le bord gauche de l'ecran la partie s'arrete.

Normalement, un truc comme ça sans graphisme juste avec carrés blancs peut se faire rapidement.
Poste ton code étape par étape et on verra bien.
Tu dois arriver tout seul à faire les étapes 1 et 2 en utilisant des sprites.

[Ar-S]

Je te conseils d'étudier les structures JB13

Pour un casse brique, tu n'as pas besoin de grand chose.

1 balle
1 raquette
1 brique (que tu cloneras)

Voilà comment j'ai structuré le miens (début de casse brique commencé en PB 4.40 je j'ai pas encore continué)

Code : Tout sélectionner

Structure Ball
  PosX.l
  PosY.l
  Rayon.l
  BougeX.l
  BougeY.l
  Vie.l
EndStructure
Dim ball.Ball(1)

Structure palette
  PosX.l
  PosY.l
  BougeX.l
  BougeY.l
EndStructure
Dim Palette.palette(1)

Structure brique
  PosX.l
  PosY.l
  Vie.l
EndStructure
Dim brique.brique(NbrBrique) ; NbrBrique te permettra de créer X briques identiques qu'on positionnera les unes à coté des autres

Je ne sais pas si on peut faire plus simple (probablement) mais ça devrait te "guider" dans une des voies à suivre.

[jbernard13]

Merci

vous auriez pas un petit exemple commenté pour commencer svp ?

merci beaucoup

[Cool Dji]

y'en a plein dans le répertoire examples livré avec PB.

Reprends un code d'exemple, commence par faire un code, après on peut corriger ensemble si ya des trucs qui ne fonctionnent pas ou que tu ne comprends pas.

[Fig]

Tu peux commencer par "Bonjour Monde" déja... Ensuite fait le défiler... Puis dirige le avec les flèches ou la souris...

[SPH]

Code : Tout sélectionner

If InitSprite() And InitMouse() And InitKeyboard() 
Else
MessageRequester("Erreur", "InitSprite() And InitMouse() And InitKeyboard() : impossible")
End
EndIf

OpenScreen(1024,768,32,"CasseBriques") 

;;;;;;;;;;;; dessins de la balle, de la raquette et des briques ;;;;;;;;;;;;;
GrabSprite(0,0,0,1,1) ; pas de brique

StartDrawing(ScreenOutput()) 
Circle(6,6,6,RGB(255,255,255)) 
StopDrawing() 
GrabSprite(254,0,0,12,12); notre balle

StartDrawing(ScreenOutput()) 
For i=0 To 20
  LineXY(0,i,100,i,RGB(i*8,100+i*5,255)) 
Next
StopDrawing() 
GrabSprite(255,0,0,100,20); notre raquette

StartDrawing(ScreenOutput()) 
For i=0 To 20
  LineXY(0,i,36,i,RGB(255-i*10,i*5,0)) 
Next
StopDrawing() 
GrabSprite(1,0,0,36,20); brique 1

StartDrawing(ScreenOutput()) 
For i=0 To 20
  LineXY(0,i,36,i,RGB(0,255-i*10,i*5)) 
Next
StopDrawing() 
GrabSprite(2,0,0,36,20); brique 2

StartDrawing(ScreenOutput()) 
For i=0 To 20
  LineXY(0,i,36,i,RGB(i*5,0,255-i*10)) 
Next
StopDrawing() 
GrabSprite(3,0,0,36,20); brique 3

StartDrawing(ScreenOutput()) 
For i=0 To 20
  LineXY(0,i,36,i,RGB(255-i*11,255-i*11,i*8)) 
Next
StopDrawing() 
GrabSprite(4,0,0,36,20); brique 4
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;; la map ;;;;;;;;;;;;;;;;
Dim briques(26,20)
For u=0 To 20
  For i=0 To 26
    briques(i,u)=Random(4)
  Next
Next
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

bx.f
by.f
bxf.f=-2.3
byf.f=-2

; ##########################
; ########Boucle du jeu #########
; ##########################
Repeat
  ClearScreen(0)
  For u=0 To 20
  For i=0 To 26
    DisplaySprite(briques(i,u),i*38,u*22)
  Next
Next

ExamineMouse()
Mb_Left=MouseButton(#PB_MouseButton_Left)
  mx=MouseX()-50
  DisplaySprite(255,mx,728)
  
If ok=0
  DisplaySprite(254,mx+25,716)
  If Mb_Left
    ok=1
    bx=mx+25
    by=716
  EndIf
Else
  bx+bxf
  by+byf
  If bx<0 Or bx>1012
    bxf*-1
    bx+bxf
  EndIf
  If by<0
    byf*-1
    by+byf
  EndIf
  DisplayTransparentSprite(254,bx,by)
EndIf

FlipBuffers()
  
  ExamineKeyboard() 
Until KeyboardPushed(#PB_Key_Escape) 

[jbernard13]

merci SPH pour ce code que je vais etudier

[G-Rom]

Inscription: Dim 18/Avr/2004

moi, j'ai arrêté... dans un an ou deux , il demandera qu'est ce une variable...

[Ar-S]

^^

SPH tu bosses pour hollywood chewing gum ?

Non je dis ça car là tu mâches le travail

[jbernard13]

Inscription: Dim 18/Avr/2004

moi, j'ai arrêté... dans un an ou deux , il demandera qu'est ce une variable...

je sais que c'est une variable et je programme pas souvent faute de temps

[SPH]

Inscription: Dim 18/Avr/2004

moi, j'ai arrêté... dans un an ou deux , il demandera qu'est ce une variable...

je sais que c'est une variable et je programme pas souvent faute de temps

De memoire, tu n'es pas du tout codeur en PB car tu n'as jamais proposé le moindre code. C'est pour ca que dobro se demande a quoi tu sert ici... (enfin, je peux me tromper)

[jbernard13]

Sph , je lutte pour apprendre pb , mon probleme c'est que j'essaye de faire plusieurs choses à la fois , ayant une maladie , je fais des blocage et j'ai perdu ma confiance en moi .

[Ar-S]

mon probleme c'est que j'essaye de faire plusieurs choses à la fois

On te l'a dit plus d'une fois, fais UNE chose à la fois, et tiens y toi, même si tu mets un mois ou un an ! peut importe.
En cas de soucis, pose du code ! on attend que ça de ta part.
Non seulement, tu auras de l'aide, quoi que tu puisses en penser, mais en plus tu seras super content d'arriver au bout de ton projet. C'est le genre de chose qui justement redonne confiance en soit.
Peut-être que ton/tes projets sont un peu trop complexe pour commencer, s'il le faut, repart de la base et fait un programme simple !

[SPH]

On te l'a dit plus d'une fois, fais UNE chose à la fois, et tiens y toi, même si tu mets un mois ou un an !

Et tiens toi y (j'aurais dis)