Connexion
Qui est en ligne ?
Il y a en tout 2 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 2 Invités Aucun
Le record du nombre d'utilisateurs en ligne est de 29 le Mer 29 Jan 2020, 10:53
Sujets les plus vus
Derniers sujets
Piou Piou - Un jeu très difficile !
2 participants
Page 1 sur 1
Piou Piou - Un jeu très difficile !
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
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]
.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:
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
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.
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 et que la le poussin ne s'arrête pas de bouger !
[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
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.
Dylan Gadacha- EQUIPE BBAT
- Mensagens : 106
Data de inscrição : 24/10/2013
Idade : 24
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|
Ven 25 Déc 2015, 14:17 par Sachadee
» [devellopez] Formater une date en ligne Dos
Ven 31 Juil 2015, 10:40 par Dylan Gadacha
» Un super Tuto Batch de IniTScreen
Lun 08 Juin 2015, 12:16 par InitScreen
» Un code MATRIX sympa
Dim 12 Avr 2015, 14:27 par Sachadee
» [BAT/EXE] DresolChange changer la sesolution de l´écran
Mar 17 Mar 2015, 09:12 par Sachadee
» [EXE/bat] DpScript Código Delphi interpreter
Jeu 12 Mar 2015, 15:48 par Sachadee
» Externo SaveDlg com 2 kb
Dim 15 Fév 2015, 12:20 par Sachadee
» présentation
Dim 15 Fév 2015, 12:14 par Sachadee
» [developpez.com] Transcodage fichier vidéo si fichier déposé
Mar 03 Fév 2015, 01:02 par Sachadee