Un mini-jeu fenetré: Auto World

#PB_IS_COOL · Message par **#PB_IS_COOL** » sam. 26/mai/2007 22:17

Bonjour !
J'ai fais un petit programme très simple qui est en fait un jeu nommé Auto World.
Voici les sources:

Procedure jeu()
  OpenWindow(1,0,0,600,600,"Auto World",#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget)
  partie$ = InputRequester("Nom de la partie","Entrez le nom de votre partie:","")
  OpenWindow(1,0,0,600,600,"Auto World: "+partie$,#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget)

  Global points = 0
  Global voiture.s = "Vieille 2 Chevaux rouillée"
  CreateGadgetList(WindowID(1))
  TextGadget(3,10,30,400,50,"VOUS AVEZ ACTUELLEMENT "+Str(points)+" POINTS")
  TextGadget(4,10,90,250,50,"VOTRE VOITURE: "+voiture)
  Frame3DGadget(5,10,150,250,250,"Options")
  ButtonGadget(6,15,170,100,40,"Faire une course")
  ButtonGadget(7,15,220,100,40,"Acheter une voiture")
EndProcedure

Procedure course()
  gagne=Random(5)
  If gagne = 2
    points = points + 2
    TextGadget(3,10,30,400,50,"VOUS AVEZ ACTUELLEMENT "+Str(points)+" POINTS")
  Else
    points = points - 1
    If points <= 0
      points = 0
    EndIf
    TextGadget(3,10,30,400,50,"VOUS AVEZ ACTUELLEMENT "+Str(points)+" POINTS")
  EndIf
EndProcedure

OpenWindow(0,200,200,300,300,"Auto World")
CreateGadgetList(WindowID(0))
TextGadget(0,10,10,250,50,"Bienvenue dans le monde fabuleux d'Auto World !")
TextGadget(1,10,60,250,100,"Ceci est un jeu où tu dois gagner des points pour t'acheter des voitures toutes plus rapides et puissantes que les autres !")
ButtonGadget(2,10,150,150,50,"Clique ici pour débuter le jeu")

Repeat
  ev = WaitWindowEvent()
  If ev = #PB_Event_Gadget
    ev = EventGadget()
    Select ev
      Case 2
        CloseWindow(0)
        jeu()
      Case 6
        course()
    EndSelect
  EndIf
Until ev =#PB_Event_CloseWindow
End

Il n'est pas finit mais qu'en pensez-vous ?
Merci.

@+

Huitbit · Message par **Huitbit** » dim. 27/mai/2007 5:30

La suite, la suite..., je veux une renault 4L!

wolfjeremy · Message par **wolfjeremy** » dim. 27/mai/2007 10:51

Quand on fait un jeu, ou toute autre scene 3D, on commence par le jeu lui même et non les menu

(c'est juste un conseil comme ça...)

scaraber · Message par **scaraber** » dim. 27/mai/2007 14:17

Quand on fait un jeu, ou toute autre scene 3D, on commence par le jeu lui même et non les menu (c'est juste un conseil comme ça...)

C'est vrai que c'est mieux ... sa se fait a la fin generalement, apres avoir determiner toutes les options, sa évite de revenir dessus sans arret

#PB_IS_COOL · Message par **#PB_IS_COOL** » dim. 27/mai/2007 15:11

Comen sa les menus ?:?

Backup · Message par **Backup** » dim. 27/mai/2007 15:22

vous n'avez pas compris que son jeu etait complet !

chaque appuis sur le bouton simule une course avec les gains de la course

c'est un jeu sans graphique !!

scaraber · Message par **scaraber** » dim. 27/mai/2007 16:45

autan pour moi .... dsl

#PB_IS_COOL · Message par **#PB_IS_COOL** » dim. 27/mai/2007 17:20

Merci Dobro, c'est ça !
Ouais je ne l'ais pa fai avec des graphiques et tout et tout parce-que le plein écran, je maitrise pas bien !:oops:
Sinon maintenant on peu acheter des voitures (et une Renault 4L, ooooooooouuuuiiiiii !!

)

Code : Tout sélectionner

Procedure jeu()
  OpenWindow(1,0,0,600,600,"Auto World",#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget)
  partie$ = InputRequester("Nom de la partie","Entrez le nom de votre partie:","")
  OpenWindow(1,0,0,600,600,"Auto World: "+partie$,#PB_Window_ScreenCentered|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget)

  Global points = 0
  Global voiture.s = "Vieille 2 Chevaux rouillée"
  Global acc = 5
  CreateGadgetList(WindowID(1))
  TextGadget(3,10,30,400,50,"VOUS AVEZ ACTUELLEMENT "+Str(points)+" POINTS")
  TextGadget(4,10,90,250,50,"VOTRE VOITURE: "+voiture)
  Frame3DGadget(5,10,150,250,250,"Options")
  ButtonGadget(6,15,170,100,40,"Faire une course")
  ButtonGadget(7,15,220,100,40,"Acheter une voiture")
EndProcedure

Procedure course()
  CreateGadgetList(WindowID(1))
  gagne=Random(acc)
  If gagne = 1
    points = points + 2
    TextGadget(3,10,30,400,50,"VOUS AVEZ ACTUELLEMENT "+Str(points)+" POINTS")
  Else
    points = points - 1
    If points <= 0
      points = 0
    EndIf
    TextGadget(3,10,30,400,50,"VOUS AVEZ ACTUELLEMENT "+Str(points)+" POINTS")
  EndIf
EndProcedure

Procedure achat_voiture()
  OpenWindow(2,200,200,400,400,"Acheter une voiture")
  CreateGadgetList(WindowID(2))
  TextGadget(8,10,10,100,50,"Renault 4L  4pts")
  ButtonGadget(9,120,5,85,25,"Acheter")
  TextGadget(10,10,60,100,50,"Toyota Yaris  5pts")
  ButtonGadget(11,120,54,85,25,"Acheter")
  If points < 5
    DisableGadget(11,1)
    If points < 4
      DisableGadget(9,1)
    EndIf 
  EndIf
  Repeat
    event = WaitWindowEvent()
    If event = #PB_Event_Gadget
      event = EventGadget()
      Select event
        Case 9
          voiture = "Renault 4L"
          points = points - 4
          acc = 4
          CreateGadgetList(WindowID(1))
          TextGadget(3,10,30,400,50,"VOUS AVEZ ACTUELLEMENT "+Str(points)+" POINTS")
          TextGadget(4,10,90,250,50,"VOTRE VOITURE: "+voiture)
         
          event = #PB_Event_CloseWindow 
        Case 11
          voiture = "Toyota Yaris"
          points = points - 5
          acc = 3
          CreateGadgetList(WindowID(1))
          TextGadget(3,10,30,400,50,"VOUS AVEZ ACTUELLEMENT "+Str(points)+" POINTS")
          TextGadget(4,10,90,250,50,"VOTRE VOITURE: "+voiture)
          
          event = #PB_Event_CloseWindow 
      EndSelect
    EndIf
  Until event = #PB_Event_CloseWindow 
  CloseWindow(2)
EndProcedure
OpenWindow(0,200,200,300,300,"Auto World")
CreateGadgetList(WindowID(0))
TextGadget(0,10,10,250,50,"Bienvenue dans le monde fabuleux d'Auto World !")
TextGadget(1,10,60,250,100,"Ceci est un jeu où tu dois gagner des points pour t'acheter des voitures toutes plus rapides et puissantes que les autres !")
ButtonGadget(2,10,150,150,50,"Clique ici pour débuter le jeu")

Repeat
  ev = WaitWindowEvent()
  If ev = #PB_Event_Gadget
    ev = EventGadget()
    Select ev
      Case 2
        CloseWindow(0)
        jeu()
      Case 6
        course()
      Case 7
        achat_voiture()
    EndSelect
  EndIf
Until ev =#PB_Event_CloseWindow
End

Voila !
@+

Backup · Message par **Backup** » dim. 27/mai/2007 18:34

#PB_IS_COOL a écrit : Ouais je ne l'ais pa fai avec des graphiques et tout et tout parce-que le plein écran, je maitrise pas bien !:oops:

t'as plus d'excuses, je viens de laisser une petite base (TUTO) en rubrique débutant , rien que pour toi

#PB_IS_COOL · Message par **#PB_IS_COOL** » dim. 27/mai/2007 19:10

Merci Dobro !:D

wolfjeremy · Message par **wolfjeremy** » dim. 27/mai/2007 19:15

#PB_IS_COOL a écrit :Merci Dobro, c'est ça !
Ouais je ne l'ais pa fai avec des graphiques et tout et tout parce-que le plein écran, je maitrise pas bien !:oops:

Ok, désolé (retien quand même le conseil pour quand tu fera un jeu en plein ecran, ça t'évitera bien des crises de nerf lol)

#PB_IS_COOL · Message par **#PB_IS_COOL** » dim. 27/mai/2007 19:49

Allez, hop, j'essai en plein écran

(soyons fous ! lol)
si vous avez un bon tuto sur le plein écran (sprites,images etc...)
merci de me donner ladresse !:D
@+