Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 0 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 0 Invité :: 1 Moteur de recherche

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

Piou Piou - Un jeu très difficile !

Voir le sujet précédent Voir le sujet suivant Aller en bas

Piou Piou - Un jeu très difficile !

Message par Dylan Gadacha le Ven 07 Fév 2014, 19:05

Salut à tous !


Voici un petit jeu que j'ai crée en AutoIt, pour tester ma méthode de... SCROLLING HORIZONTAL !
Et j'avoue que j'en suis plutôt fier Very Happy


Le but du jeu est simple, tous comme ses graphismes, vous devez éviter des tuyaux en montant ou en descendant avec les flèches haut/bas, tout en essayant de ne pas toucher les limites de la fenêtre, sinon c'est perdu. Et ça, c'est TRÈS difficile, surtout que c'est assez rapide et que la le poussin ne s'arrête pas de bouger !


[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]

.RAR: Télécharger
Police de texte: Télécharger


Source:
Code:
#Include <Misc.au3>
#Include <GUIConstants.au3>

HotKeySet("{ESC}", _End)

$GUI = GUICreate("Piou Piou Chick", 300, 100, (@DesktopWidth-300)/2, (@DesktopHeight-100)/2)
GUISetState(@SW_SHOW)
GUISetBkColor("0x0080FF")

_Menu()

Func _Menu()
   SoundPlay("Song.mp3")
   Global $Score = 0
   Global $Direction = 2
   Global $X = 135
   Global $Y = 10
   Global $Barrier1 = GUICtrlCreatePic("Barrier.bmp", 4, 0, 20, 60)
   Global $Barrier2 = GUICtrlCreatePic("Barrier2.bmp", 276, 40, 20, 60)
   Global $Draw_Score = GUICtrlCreateLabel($Score, 3, 1, 290, 35)
   GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
   GUICtrlSetFont(-1, 22, 0, 0, "AngryBirds")
   GUICtrlSetColor(-1, "0xFFFFFF")
   Global $Message = GUICtrlCreateLabel("Appuyer sur ENTER pour commencer.", 0, 45, 300, 20, $SS_CENTER)
   GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
   GUICtrlSetFont(-1, 12, 0, 0, "AngryBirds")
   GUICtrlSetColor(-1, "0xFFFFFF")
   While 1
     If _IsPressed("0D") Then
       GUICtrlDelete($Draw_Score)
       GUICtrlDelete($Barrier1)
       GUICtrlDelete($Barrier2)
       GUICtrlDelete($Message)
       ExitLoop
     EndIf
   WEnd
   _Scrolling()
EndFunc

Func _Scrolling()
   While 1
     Global $J = 300
     Global $Random = Round(Random(0, 100), 0)
     While $J > -320
       WinMove($GUI, "", (@DesktopWidth-300)/2, (@DesktopHeight-100)/2)
       $Score+=1
       Global $Draw_Score = GUICtrlCreateLabel($Score, 3, 1, 290, 35)
       GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
       GUICtrlSetFont(-1, 22, 0, 0, "AngryBirds")
       GUICtrlSetColor(-1, "0xFFFFFF")
       Global $Char = GUICtrlCreatePic("Char.bmp", $X, $Y, 16, 16)
       Global $Barrier1 = GUICtrlCreatePic("Barrier.bmp", $J, 0, 20, 60)
       Global $Barrier2 = GUICtrlCreatePic("Barrier2.bmp", $J+150, 40, 20, 60)
       Global $Barrier3 = GUICtrlCreatePic("Barrier.bmp", $J+300, 0, 20, 60)
       If _IsPressed("26") Then $Direction = 1
       If _IsPressed("28") Then $Direction = 2
       Sleep(30)
       If $Direction = 1 Then $Y-=5
       If $Direction = 2 Then $Y+=5
       If $J = 150 And $Y <= 60 Then _Over()
       If $J+150 = 150 And $Y >= 30 Then _Over()
       If $Y <= 0 Then _Over()
       If $Y >= 100 Then _Over()
       GUICtrlDelete($Draw_Score)
       GUICtrlDelete($Char)
       GUICtrlDelete($Barrier1)
       GUICtrlDelete($Barrier2)
       GUICtrlDelete($Barrier3)
       $J-=15
     WEnd
   WEnd
EndFunc

Func _Over()
   SoundPlay("Game Over.mp3")
   GUICtrlDelete($Draw_Score)
   GUICtrlDelete($Char)
   GUICtrlDelete($Barrier1)
   GUICtrlDelete($Barrier2)
   GUICtrlDelete($Barrier3)
   Global $Message = GUICtrlCreateLabel("Votre score: " & $Score, 0, 20, 300, 20, $SS_CENTER)
   GUICtrlSetFont(-1, 12, 0, 0, "AngryBirds")
   GUICtrlSetColor(-1, "0xFFFFFF")
   Global $Message2 = GUICtrlCreateLabel("Appuyer sur R pour recommencer.", 0, 40, 300, 20, $SS_CENTER)
   GUICtrlSetFont(-1, 12, 0, 0, "AngryBirds")
   GUICtrlSetColor(-1, "0xFFFFFF")
   Global $Message3 = GUICtrlCreateLabel("Appuyer sur ECHAP pour quitter.", 0, 60, 300, 20, $SS_CENTER)
   GUICtrlSetColor(-1, "0xFFFFFF")
   GUICtrlSetFont(-1, 12, 0, 0, "AngryBirds")
   While 1
     If _IsPressed("52") Then
       GUICtrlDelete($Message)
       GUICtrlDelete($Message2)
       GUICtrlDelete($Message3)
       _Menu()
     EndIf
   WEnd
EndFunc

Func _End()
   Exit
EndFunc


La technique de scrolling, je vais faire des modification au fur et à mesures, par exemple éviter de générer les obstacle manuellement...
Ça sera un poste à part entière Wink


Voila, amusez vous bien, et commentez pour dire ce que vous en penser, et si vous avez des idées pour l'améliorer.
Mon meilleur score est de 576, et vous ?  Razz 

Dylan.
avatar
Dylan Gadacha
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 106
Data de inscrição : 24/10/2013
Idade : 18

Revenir en haut Aller en bas

Re: Piou Piou - Un jeu très difficile !

Message par Delmar Grande le Sam 08 Fév 2014, 00:57

cool  Very Happy
avatar
Delmar Grande
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 170
Data de inscrição : 14/06/2013
Localização : Devant le pc

http://dbatchscript.forumeiros.com/

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum