PureBasic

Code : Tout sélectionner

;*****************
;*               *
;*    GARZUL     *
;*               *
;*   INVADERS    *
;*****************

;initialisation des composant
InitSprite() 
InitKeyboard()
InitMovie() 
InitSound() 

;constant
Enumeration
  #Vaisseau_ennemie
  #Vaisseau_joueur
  #Police
  #Fondecran
  #laser
  #musiquefond
  #explosion
EndEnumeration
;fin des constant

;random pour le derivement du sprite ennemis
alea = Random(2) 
;pour le placement du sprite ennemis
pla = Random(50) 


Declare moveplayer()
Declare moveennemie()
Declare lasergo() 

Global x
Global y
Global a
Global b
Global vita
Global vitB
Global nom$
Global g
Global h
Global tir
;Taper votre nom
nom$ = InputRequester("Garzul invaders","Bienvenue tapez votre nom pour jouer a garzul invaders" ,"Mettez ici votre nom")


;**************ouverture de l'ecran en windowscreen*****************
Resultat = InitSprite() 
FontID = LoadFont(#Police, "arial", 18, #PB_Font_Bold ) 
EcranX = GetSystemMetrics_(#SM_CXSCREEN):;=largeur de l'ecran 
EcranY = GetSystemMetrics_(#SM_CYSCREEN):;=hauteur de l'ecran 
WindowID = OpenWindow(1, 0, 0, 768, 500,  #PB_Window_SystemMenu|#PB_Window_BorderLess |#PB_Window_ScreenCentered , "Garzul invaders") 
WindowID = WindowID(1) 
Result = OpenWindowedScreen(WindowID,0,0, 768, 650, 1, 0,0)             

;-sprite joueur
CreateSprite(#Vaisseau_joueur,20,20,0)
;variable de score
jouscore = 0
vie = 3

StartDrawing(SpriteOutput(#Vaisseau_joueur)) : 
DrawingMode(0) 
Box(x, y,10 ,10,RGB($12,$F1,$ED)) :StopDrawing()

;placement du sprite laser
g = 370
h = 620
tir = 0
;placement du sprite joueur au coordonnee
x = 370
y = 620
;placement du sprite ennemie au coordonnee
a = 370
b = 50
c = 370
;vitesse du sprite ennemie
vita = 4
vitB = 4
;-load image pour les sprite
UseJPEGImageDecoder() 
;chargement du fond d'ecran
LoadSprite(#Fondecran,"etoile.jpg")
 ;chargement du vaisseau ennemis
LoadSprite(#Vaisseau_ennemie,"ennemy.bmp")
 ;chargement du sprite du laser
LoadSprite(#laser,"laser.bmp")
 
 ;chargement des sons du jeux
LoadMovie(#musiquefond, "laser.mp3")
  
  
LoadSound(#explosion, "explosion.wav") 

;***********ici c la boucle ***************
Repeat
  
  event =WindowEvent() :
  Delay(5)
  ;vitesse et deplacement du laser
  
  ;vitesse et deplacement de l'ennemie
  a + vita
  c + vita
  b + alea
  If c < 2 : vita=-vita : EndIf
  If a > 720 : vita=-vita : EndIf
  If b > 620 : b = pla : EndIf
  ;deplacement du joueur
  ExamineKeyboard() 
  If  KeyboardPushed(#PB_Key_Right): x + 2
  EndIf
  If  KeyboardPushed(#PB_Key_Left): x - 2
  EndIf
  
  ExamineKeyboard() 
  If  KeyboardPushed(#PB_Key_F1)
    MessageRequester("AIDE","Détruisez tous les ennemie a tant avant qu'il ne vous détruise en vous fonçant dessus il faut que vous arriviez a 500 point pour gagner et ne perdez pas vos 3 vie sinon vous perdez ,pour cela utiliser les flèche pour vous déplacer et la barre espace pour tirer", #PB_MessageRequester_Ok)
  EndIf
  
  ExamineKeyboard() 
  If  KeyboardPushed(#PB_Key_Escape)
    MessageRequester("A bientot sur garzul invader","Ce jeux a etais crée par garzul pour envoyer vos recomandation mailer moi a cette adresse garzul@tiscali.fr, A BIENTOT "+LCase(nom$), #PB_MessageRequester_Ok) 
    End
  EndIf
  
  ;-************************************la vie**********************************************
  If vie = 0
    Resultat = MessageRequester("Perdue","Vous n'avez pas atteint vos objectif votre score etaient de , "+ Str(jouscore)+ " Vous avez perdu toute vos vie shouaiter vous recommencez le jeu?", #PB_MessageRequester_YesNo)
    If Resultat = 6
      vie = 3
      jouscore = 0
    Else
      MessageRequester("A bientot sur garzul invader","Ce jeux a etais crée par garzul pour envoyer vos recomandation mailer moi a cette adresse garzul@tiscali.fr, A BIENTOT "+LCase(nom$), #PB_MessageRequester_Ok) 
      End
    EndIf
  EndIf
  ;-***************************LES COLLISION***********************************************
  If SpriteCollision(#laser, g, h, #Vaisseau_ennemie, a, b) 
    jouscore + 25
    tir = 0
    h = 620
    b = pla
    StopMovie() 
    PlaySound(#explosion , 0) 
  EndIf
  
  If SpriteCollision(#Vaisseau_ennemie,a,b, #Vaisseau_joueur , x , y)
    jouscore - 15
    b = pla
    vie - 1
  EndIf
  ;***********************************************SCORE***********************************
  StartDrawing(ScreenOutput())
  DrawingMode(1)  
  Locate(20,600) 
  BackColor(0,0,0) 
  FrontColor($0F,$12,$F0) 
  DrawText("Score de "+LCase(nom$)+ "= " +Str(jouscore)) 
  StopDrawing() 
  
  StartDrawing(ScreenOutput())
  DrawingMode(1)  
  Locate(680,600) 
  BackColor(0,0,0) 
  FrontColor($0F,$12,$F0) 
  DrawText("Vie de "+Str(vie)) 
  StopDrawing() 
  
  
  StartDrawing(ScreenOutput())
  DrawingMode(1)  
  Locate(20,25) 
  BackColor(0,0,0) 
  FrontColor($0F,$12,$F0)
  DrawText("Aide= F1") 
  StopDrawing() 
  
  StartDrawing(ScreenOutput())
  DrawingMode(1)  
  Locate(630,25) 
  BackColor(0,0,0) 
  FrontColor($0F,$12,$F0)
  DrawText("Quitter = ECHAP") 
  StopDrawing() 
  
  If jouscore = 500
    Result = MessageRequester("Bravo","Votre objectif et atteint vous avez gagnez le jeu avec 500 point bravo , voulez vous recommencez?",#PB_MessageRequester_YesNo)
    If Result = 6
      vie = 3
      jouscore = 0
    Else
      MessageRequester("A bientot sur garzul invader","Ce jeux a etais crée par garzul pour envoyer vos recomandation mailer moi a cette adresse garzul@tiscali.fr, A BIENTOT "+LCase(nom$), #PB_MessageRequester_Ok) 
      End
    EndIf
  EndIf
  
  ;****************************************fin score**************************************
  
  ;image de fond
  
  ;*****************commande d'affichage***************
  
  FlipBuffers() 
  ClearScreen(0, 0, 0);efface l'ecran
  moveplayer()
  moveennemie()
  lasergo()
  
  ;*****************fin commande d'affichage*****************
  
  ;placer le sprite
  DisplaySprite(#Fondecran,-58,-65) ; !!!!!!!!!!!!!   ICI     !!!!!!!!!!!   ICI     !!!!
  DisplaySprite(#Vaisseau_joueur,x,y)
  DisplayTransparentSprite(#Vaisseau_ennemie,a,b)
  TransparentSpriteColor(#Vaisseau_ennemie, $00,$00,$00) 
  If tir = 1
    DisplayTransparentSprite(#laser,g,h)
    TransparentSpriteColor(#laser, $00,$00,$00) 
    h - 5
    If h < 0
      tir = 0
      h = 620
    EndIf 
  EndIf
  ;***Les Procedure !!!************************
  ;procedure mo
  
  
Until event=#PB_Event_CloseWindow ; voila fini!  

;*************uvement joueur
Procedure moveplayer()
  If x < 10 : x = 10 : EndIf
  If x > 745 : x = 745 : EndIf
EndProcedure

;procedure mouvement ennemie
Procedure moveennemie()
  If a < 10 : a = 10 : EndIf
  If b > 745 : b = 745 : EndIf
EndProcedure

;procedure lancement du laser
Procedure lasergo()
  ExamineKeyboard() 
  If KeyboardPushed(#PB_Key_Space) And tir = 0
    PlayMovie(#musiquefond, FenetreID) 
    g = x
    tir = 1
  EndIf
EndProcedure