[EX] Mini-jeu
Posté : jeu. 07 nov. 2013 22:16
par Zouzaka
Je vien vous présenter mon mini jeu toujours en cours de création, c'est un jeu simple ou il faut cliquer sur les bonnes touches :
Lien de téléchargement : http://www.mediafire.com/download/ca4mk ... ame%20V1.5
Si vous avez des remarques ou des idées d’amélioration dits-les (ou écrivez-les) ^^
Lien de téléchargement : http://www.mediafire.com/download/ca4mk ... ame%20V1.5
► Afficher le texteMon Code
Code : Tout sélectionner
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\Ressources\TapGame.ico
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Sound.au3>
;==== Declaration Des Variables ====
$Point = 0
$Point_Etape = 1
$Score = 0
$hasar = 0
$Pic1 = 0
$Timer = 90
$Label1 = 0
$Score_Exist = 0
$Multi_S = 1
$Music = _SoundOpen(@ScriptDir&"\Music.mp3")
$Sound = _SoundOpen(@ScriptDir&"\bip.mp3")
$Name = InputBox("TapGame","Veillez inserez votre nom :","Player","",200,120)
$Life = 1
If @error = 1 Then Exit
;==== INI ====
$Verifi_INI = FileExists("TapGame.ini")
If $Verifi_INI = 0 Then IniWriteSection("TapGame.ini","Scores","")
$Point = IniRead("TapGame.ini","Systeme","Points","Error")
If $Point = "Error" Then
IniWrite("TapGame.ini","Systeme","Points",0)
$Point = 0
IniWrite("TapGame.ini","Systeme","Fond","0x67a84a")
IniWrite("TapGame.ini","Systeme","Life",0)
EndIf
;==== Fin INI ====
$Couleur_Fond = IniRead("TapGame.ini","Systeme","Fond","Error")
$Life = IniRead("TapGame.ini","Systeme","Life",0)
;==== Création de la window ====
_SoundPlay($Music)
#region ### START Koda GUI section ### Form=
;Fenetre "1"
Global $Handle1 = GUICreate("TapGame", 400, 250)
Global $Fond_Couleur = GUISetBkColor($Couleur_Fond)
Global $ImageFond = GUICtrlCreatePic("Fond.gif",0,0,400,250,0)
$ImageChemin = ImageTap()
Global $Pic1 = GUICtrlCreatePic($ImageChemin, 3, 3, 200, 200)
Global $List_score = GUICtrlCreateList("Nom ===> Score",207,5,190,200)
Global $Clear_Bouton = GUICtrlCreateButton("Vider",250, 200,100,30)
Global $Label1 = GUICtrlCreateLabel("Temps Restant: " & $Timer, 30, 220)
Global $ImageFond = GUICtrlCreatePic("top.gif",0,0,400,250,0)
Global $Life_Label = GUICtrlCreateLabel("Vies: " & $Life,170,220)
GUISetState(@SW_SHOW)
$Pos_TapGame = WinGetPos("TapGame")
;Fenetre "2"
Global $Handle2 = GUICreate("Score",250,120,$Pos_TapGame[0]+80,$Pos_TapGame[1]-120,0,-1,$Handle1)
Global $Label2 = GUICtrlCreateLabel ("Score : "&$Score&@CRLF&"Points : "&$Point,7,30)
Global $Label3 = GUICtrlCreateLabel ("5 Points 20 Points 15 Points",80,55)
Global $Fond_Couleur = GUISetBkColor($Couleur_Fond)
Global $Time_Plus = GUICtrlCreateButton ("+ Temps ",78,20,50,30)
Global $Multi_Score = GUICtrlCreateButton ("x2 Score ",128,20,50,30)
Global $Life_Plus = GUICtrlCreateButton ("+ Vie ",185,20,45,30)
Global $ImageFond2 = GUICtrlCreatePic("Fond_Bonus.gif",-5,-8,250,110)
GUISetState()
#endregion ### END Koda GUI section ###
;==== INI Suite ====
While 2
$Key_score = IniRead("TapGame.ini","Scores",$Score_Exist,"Error")
If $Key_score = "Error" Then
ExitLoop
Else
GUICtrlSetData($List_score,$Key_score)
$Score_Exist += 1
EndIf
WEnd
;==== End Ini Suite ====
;==== Commandes Simples====
WinActivate("TapGame")
$TimerInit = TimerInit()
HotKeySet("{UP}", "HautTap")
HotKeySet("{DOWN}", "BasTap")
HotKeySet("{RIGHT}", "GaucheTap")
HotKeySet("{LEFT}", "DroiteTap")
While 1
GUICtrlSetData($Label1, "Temps Restant: " & $Timer - Round(TimerDiff($TimerInit)/1000))
GUICtrlSetData($Life_Label, "Vies: " & $Life)
If $Timer - Round(TimerDiff($TimerInit)/1000) = 0 Then
GameOver()
EndIf
If _SoundPos($Music,2) >= _SoundLength($Music,2) Then _SoundPlay($Music)
Sleep(40)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
IniWrite("TapGame.ini","Systeme","Points",$Point)
IniWrite("TapGame.ini","Systeme","Life",$Life)
Exit
Case $Clear_Bouton
GUICtrlSetData($List_score,"")
IniDelete("TapGame.ini","Scores")
Case $Time_Plus
If $Point >= 5 Then
$Timer += 10
$Point -= 5
EndIf
Case $Multi_Score
If $Point >= 20 Then
If $Multi_S < 8 Then
$Multi_S *= 2
$Point -= 20
EndIf
EndIf
Case $Life_Plus
If $Point >= 15 Then
If $Life <= 2 Then
$Life += 1
$Point -= 15
EndIf
EndIf
EndSwitch
WEnd
;==== Mes Fonctions ====
;== Fonction hasard des images
Func ImageTap()
$hasar = Random(0,3,1)
Switch $hasar
Case 0
Local $Chemin = "Bas.jpg"
Return $Chemin
Case 1
Local $Chemin = "Droite.jpg"
Return $Chemin
Case 2
Local $Chemin = "Gauche.jpg"
Return $Chemin
Case 3
Local $Chemin = "Haut.jpg"
Return $Chemin
EndSwitch
EndFunc
;== Touches
;= Haut
Func HautTap()
If $hasar = 3 Then
SetP()
ImageTap()
$ImageChemin = ImageTap()
GUICtrlSetImage($Pic1,$ImageChemin)
_SoundPlay($Sound,1)
Else
GameOver()
EndIf
EndFunc
;= Bas
Func BasTap()
If $hasar = 0 Then
SetP()
ImageTap()
$ImageChemin = ImageTap()
GUICtrlSetImage($Pic1,$ImageChemin)
_SoundPlay($Sound,1)
Else
GameOver()
EndIf
EndFunc
;=Droite
Func DroiteTap()
If $hasar = 1 Then
SetP()
ImageTap()
$ImageChemin = ImageTap()
GUICtrlSetImage($Pic1,$ImageChemin)
_SoundPlay($Sound,1)
Else
GameOver()
EndIf
EndFunc
;= Gauche
Func GaucheTap()
If $hasar = 2 Then
SetP()
ImageTap()
$ImageChemin = ImageTap()
GUICtrlSetImage($Pic1,$ImageChemin)
_SoundPlay($Sound,1)
Else
GameOver()
EndIf
EndFunc
;== GameOver
Func GameOver()
If $Life = 1 Then
MsgBox(0,"Score","Votre Score est: "&$Score&@CRLF& _
"Le total de vos points est: "&$Point)
IniWrite("TapGame.ini","Scores",$Score_Exist,$Name&" ===> "&$Score)
IniWrite("TapGame.ini","Systeme","Points",$Point)
Exit
Else
$Life -= 1
EndIf
EndFunc
;== Calcul
Func SetP()
$Score += 1*$Multi_S
If $Score = $Point_Etape*10*$Multi_S Then
$Point += 1
$Point_Etape += 1
EndIf
GUICtrlSetData($Label2, "Score : "&$Score&@CRLF&"Points : "&$Point)
GUICtrlSetData($Label1, "Temps Restant: " & $Timer - Round(TimerDiff($TimerInit)/1000))
GUICtrlSetData($Life_Label, "Vies: " & $Life)
EndFunc
