[AutoIt] Avoid - Un jeu très difficile !

par **M.Pong** Ven 7 Fév 2014 - 19:19

Salut à tous !

IMPORTANT: CE PROGRAMME N'EST PAS RÉALISÉ AVEC GAME MAKER. CE QUI VOUS PARAIT SIMPLE A FAIRE AVEC GAME MAKER NE L'EST PAS EN AUTOIT. DE PLUS, AUTOT N'EST PAS ADAPTER POUR FAIRE DES JEUX, MAIS COMME VOUS POUVEZ LE VOIR, C'EST TOUT DE MÊME POSSIBLE.

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 [AutoIt] Avoid - Un jeu très difficile ! Icon_biggrin

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 !

[AutoIt] Avoid - Un jeu très difficile ! 140207080511677391

[AutoIt] Avoid - Un jeu très difficile ! 140207080511677391

.RAR: Lien

Source:

Code:: #Include <Misc.au3> #Include <GUIConstants.au3> HotKeySet("{ESC}", _End) $GUI = GUICreate("Avoid", 300, 100, (@DesktopWidth-300)/2, (@DesktopHeight-100)/2) GUISetState(@SW_SHOW) GUISetBkColor("0xCC0000") _Menu() Func _Menu() SoundPlay("Song.mp3") Global $Score = 0 Global $Direction = 2 Global $X = 134 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, "System") Global $Message = GUICtrlCreateLabel("Appuyer sur ENTER pour commencer.", 0, 45, 300, 20, $SS_CENTER) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont(-1, 22, 0, 0, "System") 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, "System") 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 = 140 And $Y <= 60 Then _Over() If $J+150 = 140 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-=10 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, 25, 300, 20, $SS_CENTER) GUICtrlSetFont(-1, 22, 0, 0, "System") Global $Message2 = GUICtrlCreateLabel("Appuyer sur R pour recommencer.", 0, 45, 300, 20, $SS_CENTER) GUICtrlSetFont(-1, 22, 0, 0, "System") Global $Message3 = GUICtrlCreateLabel("Appuyer sur ECHAP pour quitter.", 0, 65, 300, 20, $SS_CENTER) GUICtrlSetFont(-1, 22, 0, 0, "System") While 1 If _IsPressed("52") Then GUICtrlDelete($Message) GUICtrlDelete($Message2) GUICtrlDelete($Message3) _Menu() EndIf WEnd EndFunc Func _End() Exit EndFunc

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 ?

Dylan.

par **Mydexios** Ven 7 Fév 2014 - 19:41

Tiens, ça me rappelle un jeu assez populaire en ce moment au lycée..

par **M.Pong** Ven 7 Fév 2014 - 20:34

Ahaha, ne serai ce pas Flappy Birds ? Oui, je m'en suis inspiré Wink

(D'ailleur les tuyaux sont les même)
Perspicace mon cher Watson Very Happy

par **FK Stax** Dim 9 Fév 2014 - 12:59

Cette connerie d'avast le détecte comme étant suspect...

par **thomas89300** Dim 9 Fév 2014 - 13:52

Y a un timing a faire, si tu fais Haut puis Bas suivant un certain timing, tu les passes tous sans difficulté, le plus dur restant a rester sur ce timing xD
J'ai fais 1334 perso pour l'instant :
[AutoIt] Avoid - Un jeu très difficile ! Avoid10

[AutoIt] Avoid - Un jeu très difficile ! Avoid10

par **M.Pong** Dim 9 Fév 2014 - 14:22

Cool !
Au passage, j'ai fais une nouvelle version, juste pour changer les graphismes (et le nom), ainsi que la vitesse (c'est un peu plus rapide, donc tu vas devoir revoir ton timing Thomas Twisted Evil