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

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

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

Message par M.Pong le 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 

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 !







.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.
avatar
M.Pong
Petit créateur
Petit créateur

Messages : 44
Pourcentage d'avancement : 5%

Voir le profil de l'utilisateur http://www.bbat.forumeiro.com

Revenir en haut Aller en bas

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

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

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


[Image]
( Todo : trouver une image disponible :'( )
avatar
Mydexios
Responsable communication
Responsable communication

Messages : 2998
Pourcentage d'avancement : 15%

Voir le profil de l'utilisateur http://deuxmetrescubes.fr/

Revenir en haut Aller en bas

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

Message par M.Pong le 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
avatar
M.Pong
Petit créateur
Petit créateur

Messages : 44
Pourcentage d'avancement : 5%

Voir le profil de l'utilisateur http://www.bbat.forumeiro.com

Revenir en haut Aller en bas

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

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

Cette connerie d'avast le détecte comme étant suspect...
avatar
FK Stax
Donateur
Donateur

Messages : 544

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

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

Message par thomas89300 le 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 :


Déjà un bout de temps au service de Game maker !
Besoin d'une question ? => Mp, ravi d'y répondre !
Dispo sur Discord: [EG]Shinshikun#5496
avatar
thomas89300
Modérateur
Modérateur

Messages : 1457
Pourcentage d'avancement : 666%

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

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

Message par M.Pong le 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 ):




18 lol!

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

Fk Stax, désactive le pour tester, sinon c'est pas grave, mais ce n'est en aucun cas nocif Wink
Dylan.
avatar
M.Pong
Petit créateur
Petit créateur

Messages : 44
Pourcentage d'avancement : 5%

Voir le profil de l'utilisateur http://www.bbat.forumeiro.com

Revenir en haut Aller en bas

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

Message par thomas89300 le Dim 9 Fév 2014 - 21:24

Pfff 273 pour l'instant mais j'ai trouvé le timing xD

Edit : 773 mtn


Déjà un bout de temps au service de Game maker !
Besoin d'une question ? => Mp, ravi d'y répondre !
Dispo sur Discord: [EG]Shinshikun#5496
avatar
thomas89300
Modérateur
Modérateur

Messages : 1457
Pourcentage d'avancement : 666%

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

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

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

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


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