Piou Piou - Un jeu très difficile !

par **Dylan Gadacha** 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: [Vous devez être inscrit et connecté pour voir ce lien]
Police de texte: [Vous devez être inscrit et connecté pour voir ce lien]

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.

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

cool

Piou Piou - Un jeu très difficile !

Piou Piou - Un jeu très difficile !

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