Panoramic

Un peu de cas concret: avec ce casse brique nous allons voir un cas concret d'utilisation :
Bon aller, assez de blabla, bonne lecture et j'espère qu'il y a assez de commentaires
toutefois, si tel n'est pas le cas, demandez et nous complétterons avec ce qu'il vous manque :)
Code source du casse brique en 3D
(dernière modification Lundi 29 Octobre à 01:40)
' Panorabrique V3 par Jean-Charles (V3 - Octobre 2012)
' Version refaite pour les tutos en mode pas à pas

' Déclaration des étiquettes pour le traitement des événements
LABEL sortir,start, tick, restart, key, Fin , stopit
LABEL aide, close_aide, apropos, close_apropos

' Programme principal
Init()               : ' Initialisation du programme
Dessine_briques()    : ' On trace le jeu
active no_start%     : ' On active la possibilité de lancer le jeu

End

SUB Init()
DATA   0,  0,  0, 255,255,255, 155,155, 55,  180,180,80,   80, 80, 80,  80, 80,215
DATA 215, 80, 80,  80,215, 80, 155,133,155,  100,215,100, 215, 80,215, 215,215, 80
DATA  80,215,215, 100,100,215,  55,215,133,  133, 55,215, 215,133, 55,  55, 55,133

  DIM Nb_briques_restantes%
  DIM Nb_lignes%  : Nb_lignes% = 6    : ' Définit le nombre de lignes de briques à afficher
  DIM Nb_b_ligne% : Nb_b_ligne% = 7   : ' Définit le nombre de briques dans chacune des lignes
  DIM t_br%(Nb_lignes%*Nb_b_ligne%,5) : ' la première valeur est le numéro de briques
  ' la seconde a 5 emplacements, le premier est l'état de la brique
  ' les 3 suivantes correspondent aux composantes Rouge, Vert, Bleue
  ' la dernière valeur correspond au nombre de points que vaut la brique
  DIM largeur_b  : largeur_b=1.55     : ' Définit la largeur d'une brique
  DIM hauteur_b : hauteur_b=0.75    : ' Définit la hauteur d'une brique
  DIM Nb_couleur%: Nb_couleur% = 18   : ' Définit le nombre de couleur (18 couleurs composées de 3 composantes)
  DIM t_c%(Nb_couleur%,3)             : ' Déclare le tableau des couleurs

  DIM version$  : version$ = "V3.0"        : ' Définit une variable texte contenant le numéro de version
  DIM date_cre$ : date_cre$ = "26/10/2012" : ' Définit une chaine avec la date de création
  DIM speed% : speed% = 2                  : ' Nombre de milli-secondes entre chaque tour
  DIM M1% : M1% = 0 - 1               : ' Définit une constante valant -1
  DIM no_timer%,no_apropos%,no_aide%  : ' Numéro des objets importants utilisés
  DIM no_stop%,no_play%,no_start%
  DIM xpad         : ' Position de la souris
  DIM s, vies      : ' Score et nombre de balles restantes
  DIM xball,zball  : ' position de la balle
  DIM dx,dz        : ' direction de la balle
  DIM vx,vz,v      : ' vitesse de la balle
  DIM largeur_r    : ' Largeur de la raquette
  DIM Pause%       : ' Bascule pour mettre le jeu en pause ou reprendre
  DIM Niveau%      : ' Niveau en cours
  DIM Attente%     : ' Pour lisser le mouvement attendre si on ne joue pas de son
  DIM i%,j%,k%     : ' Variables temporaires

  DIM_LOCAL i%,j%,k%,s$ : ' Déclare 4 variables locales temporaires
  
  ' Charge le tableau des couleurs
  For i% = 1 to Nb_couleur%: For j% = 1 to 3 : Read t_c%(i%,j%) : Next j% : Next i%

  ' Paramètrage de la fenêtre principale du jeu
  left 0,0 : top 0,0          : ' Fixe la fenêtre 0 en haut à gauche
  width 0, 690 : height 0,450 : ' Règle la fenêtre 0 à 690 de large et 450 de haut
  caption 0,"PANORABRIQUE 3D" : ' Change le titre de la fenêtre pour afficher le nom du jeu
  scene3d 1 : full_space 1    : ' Créé la scene 3D (notre espace de jeu en 3D) et l'agrandit à toute la fenêtre 0
  color 1,170, 170, 255       : ' Remplir la scene 3D avec un fond bleu clair
  cam_position 0,7,13         : ' Positionne la camera
  point_position 0,0,-0.5     : ' Objectif dirigé vers le centre
  light_position -5,15,-50    : ' Positionne la lumiere de notre scene 3D en X=-5, Y=15, Z=-50

  ' Initialise le menu et les sous menu en passant par un compeur i% et 2 variables temporaires j% et k%

  ' Partie Menu principal
  i% = 2 : main_menu i% : j% = i%  : ' On créé un menu principal et on garde son numéro dans j% pour la construction du menu

  ' Sous menu 1: Partie
  i% = i% + 1 : sub_menu i% : parent i%,j% : k% = i% : caption i%,"Partie" : ' On créé un premier niveau de sous menu (Partie)
  ' que l'on rattache au menu (j%) et our pouvoir rattacher les commandes à ce sous menu, on garde la valeur du compteur i% dans k%
  i% = i% + 1 : sub_menu i% : parent i%,k% : no_start% = i%: caption i%,"Nouveau jeu" : inactive no_start% : on_click i%,start
  ' Dans la ligne au dessus, on créer une commande (Nouveau jeu) du sous-menu, on garde le n° de cette commande dans une variable globale: "no_start%"
  ' On définit l'action quand on clic sur cette commande. Ici, on exécutera le sous programme "start" => Il faut donc que cette étiquette soit définit
  ' avec un LABEL START et que le sous programme soit écrit (Cherchez la ligne "Start:" correspondant à ce sous programme dans ce code source
  ' On inactive la commande de démarrage tant que tout n'est pas prêt
  i% = i% + 1 : sub_menu i% : parent i%,k% : no_stop% = i% : caption i%,"Stop" : inactive i% : on_click i%,stopit
  ' On fait pareil pour la commande "stop" dont on garde le numéro d'objet dans no_stop%, mais on l'inactive comme le jeu n'est pas lancé
  i% = i% + 1 : sub_menu i% : parent i%,k% : caption i%,"-"
  ' Dans la ligne au dessus, un fait juste une séparation dans le menu
  i% = i% + 1 : sub_menu i% : parent i%,k% : caption i%,"Sortir" : on_click i%,sortir
  ' On créé la commande sortir et pas besoin de mémoriser son numéro, car on n'y touchera pas pendant le jeu.
  ' Seul l'utilisateur sera ammené éventuellement à cliquer dessus pour sortir du jeu.

  ' Sous menu 2: Aide
  i% = i% + 1 : sub_menu i% : parent i%,j% : k% = i% : caption i%,"Aide"
  ' On créé un autre sous menu: "Aide"
  i% = i% + 1 : sub_menu i% : parent i%,k% : caption i%,"Mode d'emploi" : on_click i%,aide
  ' Si on clic sur mode d'emploi, on affiche la fenêtre d'aide par l'intermédiaire du sous-programme aide
  i% = i% + 1 : sub_menu i% : parent i%,k% : caption i%,"A-propos" : on_click i%,apropos
  ' Pareil pour la fenêtre a propos affichée par le sous programme apropos... quelle imagination, quand même !!  ;)
  
  ' Création des objets (balle, murs, raquette...)
  ' Numéro des objets 3D: 1=ball; 2= back wall; 3= left wall;  4 = rigth wall; 5=pad; 6=score

  3d_sphere 1, 0.3 : 3d_color 1,0,0,0 : 3d_collision_as_sphere 1       : ' Balle: Sphere de rayon 0.3
  3d_box 2,  15.5, 0.4, 0.5 : 3d_color 2,155,155,55                    : ' Mur du fond
  3d_x_position 2, 0 : 3d_y_position 2, 0 : 3d_z_position 2, -7.75
  3d_box 3, 0.5, 0.5, 15  : 3d_color 3,155,155,55                      : ' Mur gauche
  3d_x_position 3, -7.5 : 3d_y_position 3, 0 : 3d_z_position 3, 0.25
  3d_box 4, 0.5, 0.5, 15  : 3d_color 4,155,155,55                      : ' Mur droit
  3d_x_position 4, 7.5 : 3d_y_position 4, 0 : 3d_z_position 4, 0.25
  3D_text 6,"Score: 0" : 3d_color 6,250,250,0: 3d_position 6, -6,5.5,5 : ' Score
  3d_x_scale 6, 1.2  : 3d_y_scale 6, 1.2  : 3d_z_scale 6, 1.2

  ' Définir le timer principal du jeu
  i% = i% + 1 : timer i% : no_timer% = i% : ' Definit le timer principal du jeu (N° mémorise dans no_timer%)
  timer_interval no_timer%,speed% : on_timer i%,tick : timer_off i% : ' Quand le timer arrive à échéance, il execute "Tick"
  ' On arrète le timer, le temps que tout soit pret et que l'utilisateur lance le jeu

  ' Construire a fenêtre A propos
  i% = i% + 1 : form i% : hide i% : no_apropos% = i% : ' Définit la fenêtre "A propos"
  top i%,200 : left i%,200 : caption i%,"A-propos": on_close i%,close_apropos
  i% = i% + 1 : alpha i% : parent i%,no_apropos% : top i%,20 : left i%,20 : font_size i%,12
    s$ = "Jeu PANORABRIQUE 3D"+chr$(13)+chr$(10)+chr$(10)
    s$ = s$ + "Version: "+version$+chr$(13)+chr$(10)
    s$ = s$ + "Du: "+date_cre$+chr$(13)+chr$(10)+chr$(10)
    s$ = s$ + "Auteur: Jean-Charles"+chr$(13)+chr$(10)+chr$(10)
    caption i%,s$


  ' Construire la fenêtre d'Aide
  i% = i% + 1 : form i% : hide i% : no_aide% = i% : width i%,450 : ' Définit la fenêtre du Mode d'emploi
  caption i%,"Mode d'emploi" : on_close i%,close_aide
  i% = i% + 1 : alpha i% : parent i%,no_aide% : top i%,20 : left i%,20 : font_size no_aide%,10 : k% = 2
    s$ = "Bienvenu dans PANORABRIQUE 3D !" + chr$(13)+chr$(10)+chr$(10) : k%=k%+1
    s$ = s$ + "Vous dirigez la raquette (rectangle gris) à l'aide de " + chr$(13)+chr$(10): k%=k%+1
    s$ = s$ + "la souris. (Si vous déplacez la souris à droite, " + chr$(13)+chr$(10): k%=k%+1
    s$ = s$ + "la raquette va à droite et réciproquement)." + chr$(13)+chr$(10): k%=k%+1
    s$ = s$ + "Vous devez faire rebondir la balle sur la raquette pour" + chr$(13)+chr$(10): k%=k%+1
    s$ = s$ + " éviter qu'elle ne tombe" + chr$(13)+chr$(10): k%=k%+1
    s$ = s$ + "La balle rebondit sur la raquette et les murs." + chr$(13)+chr$(10): k%=k%+1
    s$ = s$ + "La balle brise les briques et rebondit."  + chr$(13)+chr$(10): k%=k%+1
    s$ = s$ + "Vous marquez des points en brisant les briques." + chr$(13)+chr$(10): k%=k%+1
    s$ = s$ + "Quand il ne reste plus de briques, vous passez au" + chr$(13)+chr$(10): k%=k%+1
    s$ = s$ + "niveau suivant..." + chr$(13)+chr$(10)+ chr$(13)+chr$(10): k%=k%+2
    s$ = s$ + "Cliquez pour lancer la balle" + chr$(13)+chr$(10)+ chr$(13)+chr$(10): k%=k%+2
    s$ = s$ + "Appuyez sur une touche quelconque pour mettre le jeu en pause": k%=k%+2
    top i%-1,150 : left i%-1,200 : height i%-1,20*k%
    caption i%,s$
    on_key_down 0,key
END_SUB

' Procédure pour initialiser le tableau des briques du niveau
SUB Dessine_briques()
  DIM_LOCAL i%,j%,k%
  k%=0 : Nb_briques_restantes% = 0  : ' Initialisation des compteurs de briques à 0
  For i%= 1 to Nb_lignes%           : ' Compteur de lignes de briques
    For j% = 1 to Nb_b_ligne%       : ' Compteur de briques sur chaque lignes
      k%=k%+1                       : ' Une brique de plus
      t_br%(k%,1) = 1               : ' On remplit le tableau des briques pour dire qu'elle est présente
      t_br%(k%,2) = t_c%(5+i%,1)    : ' On indique la valeur de rouge pour cette brique
      t_br%(k%,3) = t_c%(5+i%,2)    : ' On charge la valeur de vert dans le tableau
      t_br%(k%,4) = t_c%(5+i%,3)    : ' On range en 4ème position la valeur bleue de la brique
      t_br%(k%,5) = 100             : ' Enfin en 5, on stocke la valeur en points de la brique
      Trace_brique(i%,j%,k%)        : ' On trace la brique k% en ligne i%, colonne j%
    Next j%
  Next i%
  Nb_briques_restantes% = k%        : ' On stocke le nombres de briques créées dans Nb_briques_restantes%
END_SUB

SUB Trace_brique(i%,j%,k%)
  If O3D_OBJECT_EXISTS(50+k%)=0 Then 3d_box 50+k%, largeur_b, hauteur_b, hauteur_b
  ' Les briques sont des objets 3D numéroté à partir de 50
  ' Si l'objet n'existe pas déjà, on créé une boite 3D de largeur: largeur_b (longueur sur l'axe x), de hauteur: hauteur_b (axe y et z)
  3d_color 50+k%,t_br%(k%,2),t_br%(k%,3),t_br%(k%,4)  : ' Colorie la brique avec les 3 composantes R,V et B
  3d_x_position 50+k%, -7.43 + j%*(largeur_b + 0.33)  : ' On place la brique sur l'axe des X (Colonne)
  3d_z_position 50+k%, i% - 7 + (i%-1)*0.33           : ' On place la brique sur l'axe Z (ligne)
  3d_collision_as_cube 50+k%                          : ' Indique le type de collision géré pour la brique
END_SUB


SUB Lance_balle()
  zball=7 : xball= xpad : 3d_position 1,xball,0,zball
  while pause% = 0
      if (mouse_left_up(1)=1 and mouse_left_down(1)=0) then exit_while
  end_while
  dx=1.5-rnd(1):dz=-1
END_SUB

tick:
  timer_off no_timer%
    ' lecture position souris en X et positionne la raquette
    xpad=(mouse_x_position(1)-340)/15
    if xpad>6.5 then xpad=6.5
    if xpad<-6.5 then xpad=-6.5
    3d_x_position 5,xpad

  ' Teste le rebond sur les bords
  xball=xball+dx*vx
  if xball > 7      : ' Rebond à droite
    xball=7 : dx=-1.5 + rnd (1)
    beep_information
  else
    if xball < -7  : ' Rebond à gauche
      xball=-7: dx= 1.5 - rnd(1)
      beep_information
    else
      Attente% = 1
    end_if
  end_if
  3d_x_position 1,xball

  zball=zball+dz*vz
  if zball < -7 then zball=-7:dz=1 : beep_information : ' Rebond sur le fond

  ' Teste si la balle touche la raquette
  if (zball>=7)and((xpad-(largeur_r/2))<xball)and(xball<(xpad+(largeur_r/2)))
    zball=7:dz=-1.5+rnd(1):s=s+1:3D_text_change 6,"Score: " + str$(s)
    beep
  end_if

  ' Teste si la balle touche une brique
  k%=1
  For i%= 1 to Nb_lignes%
    For j% = 1 to Nb_b_ligne%
      If O3D_OBJECT_EXISTS(50+k%) = 1
        If O3D_collision (1,50+k%) = 1
          3D_Delete 50+k%
          Attente% = 0
          Midi_Instrument 127 : Midi_play 60,10
          Nb_briques_restantes% = Nb_briques_restantes% - 1
          s = s + t_br%(k%,5)
          dz = dz*M1% : ' on inverse la direction en Z
        End_if
      End_if
      k%=k%+1
    Next j%
  Next i%

  if vies > -1
  if vies > 1
      3d_text_change 6,"Score: " +str$(s) + "      Balles: "+str$(vies)
  else
      3d_text_change 6,"Score: " +str$(s) + "      Balle : "+str$(vies)
  end_if
  end_if
  if zball>= 8
    if vies > 0
      vies=vies-1 : wait 100 : Lance_balle()
    else
      goto fin
    end_if
  end_if
  if Nb_briques_restantes% = 0
    Message "Bravo, niveau suivant ..."
    gosub restart
  end_if

  3d_z_position 1,zball
  If Attente%=1 then wait 30
  if (active(1) = 1 and pause%=0) then timer_on no_timer%
return

stopit:
  if active(no_start%)=0 Then midi_off : ' On coupe le canal midi
  timer_off no_timer%   : ' On arrète le timer
  inactive no_stop%     : ' On désatice le boutton d'arret
  active no_start%      : ' On active le boutton de démarrage du jeu
end

start:
  midi_on            : ' On active les sons midi
  active no_stop%    : ' On active la d'arret de jeu dans le menu
  inactive no_start% : ' mais on désactive la possibilité de démarrer le jeu
  show 1             : ' ON affiche notre SCENE 3D
  Pause% = 0         : ' Par défaut, le jeu n'est pas en pause
  largeur_r = 3.6    : ' largeur par défaut de la raquette
  v = 3              : ' vitesse par défaut
  vies = 3           : ' Initialise le compteur de balles restantes
  vx = 0.10 + v*0.05 : vz = 0.10 + v*0.05 : ' Définit la vitesse de la balle horizontalement et verticalement
  s=0                : ' Score à 0
  niveau%= 0         : ' Pour le moment, on est au niveau 0 puisque l'on ne joue pas encore

restart:
  timer_off no_timer%
  if O3D_OBJECT_EXISTS(5) = 1 then 3D_Delete 5
  if largeur_r > 0.75 then largeur_r = largeur_r - 0.1 : else: largeur_r = 0.75
  3d_box 5, largeur_r , 0.5, 0.5 : 3d_color 5,80,80,80          : ' Raquette
  3d_x_position 5, 0 : 3d_y_position 5, 0 : 3d_z_position 5, 7.75
  niveau% = niveau% + 1
  Nb_lignes%= 6: Dessine_briques()
  caption 0,"PANORABRIQUE 3D - Niveau actuel :" + str$(Niveau%)
  Lance_balle()
  timer_on no_timer%
return

key:
if active(no_start%)=0
  if pause% = 0
    pause% = 1
    caption 0,"PANORABRIQUE 3D - jeu en pause - Appuyez sur une touche pour continuer -"
    timer_off no_timer%
  else
    pause% = 0
    caption 0,"PANORABRIQUE 3D - Niveau actuel :" + str$(Niveau%)
    timer_on no_timer%
  end_if
end_if
return

aide:
  timer_off no_timer%   : ' On arrète le timer
  inactive 1
  show no_aide% : TO_FOREGROUND no_aide%
return

close_aide:
  hide no_aide%
  active 1 : TO_FOREGROUND 0
  if active(no_start%)=0 then timer_on no_timer%   : ' On relance le timer si la partie est déjà lancée
return

apropos:
  timer_off no_timer%   : ' On arrète le timer
  inactive 1
  show no_apropos% : TO_FOREGROUND no_apropos%
return

close_apropos:
  hide no_apropos%
  active 1 : TO_FOREGROUND 0
  if active(no_start%)=0 then timer_on no_timer%   : ' On relance le timer si la partie est déjà lancée
return

fin:
  message "Dommage, vous avez épuisé toutes vos balles"
  goto stopit :    ' On exécute le sous programme permettant d'arréter le timer et de désactiver le bouton stop
  ' Comme dans ce sous programme on réactive le bouton de lancement du jeu, on peu arréter le programme
  ' Le programme sera relancé dès que l'utilisateur cliquera pour relancer une partie
  
sortir:
  if active(no_start%)=0 Then midi_off : ' On coupe le canal midi
  timer_off no_timer%   : ' On arrète le timer
  terminate  :            ' On sort et on ferme la fenêtre de notre jeu
Exemple de jeu: Un casse brique en 3D

Description

Code source du casse brique en 3D
