TRON - Le jeu en AutoIt !

par **Dylan Gadacha** Ven 22 Aoû 2014, 10:54

Salut !
Voici le jeu TRON en AutoIt !
Merci à Sachadee pour son aide lorsque j'en avais besoin (constamment TRON - Le jeu en AutoIt ! 959169622

)

Code Source:

Code:: #Include <Array.au3> #Include <Misc.au3> HotKeySet("{ESC}", Close) $Color = IniRead("TRON.INI", "CONFIGURATION", "COLORS", "") $_Color = StringSplit("" & $Color, " ") $HexWh = Dec("FFFFFF") $HexWl = Dec("" & $_Color[3]) $HexJ1 = Dec("" & $_Color[4]) $HexJ2 = Dec("" & $_Color[5]) Game() Func Game() $Form1 = GUICreate("TRON", 720, 320) GUISetBkColor(0x000000) GUISetState(@SW_SHOW) $Logo = GUICtrlCreatePic("Logo.jpg", (720-420)/2, (320-140)/2, 420, 140) $Msg = GUICtrlCreateLabel("APPUYER SUR ENTER", 290, 300, 200, 20) GUICtrlSetFont($Msg, 48, 0, 0, "Fixedsys") GUICtrlSetColor($Msg, "0x" & $_Color[2]) While 1 If _IsPressed("0D") Then ExitLoop WEnd GUICtrlDelete($Msg) SoundPlay("Game.wav") GUICtrlDelete($Logo) GUISetBkColor("0x" & $_Color[1]) Global $X = 20 Global $Y = 150 Global $X2 = 690 Global $Y2 = 150 Global $Speed = IniRead("TRON.ini", "CONFIGURATION", "SPEED", "") Global $Size = 4 GUICtrlCreateLabel("", $X, $Y, $Size, $Size) GUICtrlSetBkColor(-1, "0xFFFFFF") GUICtrlCreateLabel("", $X2, $Y2, $Size, $Size) GUICtrlSetBkColor(-1, "0xFFFFFF") Global $Direction = 3 Global $Direction2 = 1 Global $XConst = (@DesktopWidth/2) - (720/2) Global $YConst = (@DesktopHeight/2) - (320/2) - 5 Global $X2Const = (@DesktopWidth/2) - (720/2) Global $Y2Const = (@DesktopHeight/2) - (320/2) - 5 GUICtrlCreateLabel("", 0, 0, 720, $Size) GUICtrlSetBkColor(-1, "0x" & $_Color[3]) GUICtrlCreateLabel("", 0, 316, 720, $Size) GUICtrlSetBkColor(-1, "0x" & $_Color[3]) GUICtrlCreateLabel("", 0, 0, $Size, 320) GUICtrlSetBkColor(-1, "0x" & $_Color[3]) GUICtrlCreateLabel("", 716, 0, $Size, 320) GUICtrlSetBkColor(-1, "0x" & $_Color[3]) While 1 If _IsPressed("50") Then Pause() If _IsPressed("1B") Then Close() Player() Player2() WEnd EndFunc Func Player() Sleep($Speed) If _IsPressed("" & IniRead("TRON.ini", "CONFIGURATION", "LEFT_J1", "")) Or $Direction = 1 Then Move("Left") If _IsPressed("" & IniRead("TRON.ini", "CONFIGURATION", "UP_J1", "")) Or $Direction = 2 Then Move("Up") If _IsPressed("" & IniRead("TRON.ini", "CONFIGURATION", "RIGHT_J1", "")) Or $Direction = 3 Then Move("Right") If _IsPressed("" & IniRead("TRON.ini", "CONFIGURATION", "DOWN_J1", "")) Or $Direction = 4 Then Move("Down") EndFunc Func Player2() Sleep($Speed) If _IsPressed("" & IniRead("TRON.ini", "CONFIGURATION", "LEFT_J2", "")) Or $Direction2 = 1 Then Move2("Left") If _IsPressed("" & IniRead("TRON.ini", "CONFIGURATION", "UP_J2", "")) Or $Direction2 = 2 Then Move2("Up") If _IsPressed("" & IniRead("TRON.ini", "CONFIGURATION", "RIGHT_J2", "")) Or $Direction2 = 3 Then Move2("Right") If _IsPressed("" & IniRead("TRON.ini", "CONFIGURATION", "DOWN_J2", "")) Or $Direction2 = 4 Then Move2("Down") EndFunc Func Pause() While 1 If _IsPressed("20") Then ExitLoop Sleep(50) WEnd EndFunc Func Move($Param1) GUICtrlCreateLabel("", $X, $Y, $Size, $Size) GUICtrlSetBkColor(-1, "0x" & $_Color[4]) If $Param1 = "Left" Then $X-=$Size $XCol = ($XConst + $X) $GetCol=PixelGetColor($XCol,($YConst+$Y)) Global $Player = "2" $Direction = 1 EndIf If $Param1 = "Right" Then $X+=$Size $XCol = ($XConst + $X)+2 $GetCol = PixelGetColor(($XCol+2),($YConst+$Y)) Global $Player = "2" $Direction = 3 EndIf If $Param1 = "Up" Then $Y-=$Size $YCol= ($YConst + $Y) $GetCol=PixelGetColor(($XConst+$X+2), ($YCol-$Size)) Global $Player = "2" $Direction = 2 EndIf If $Param1 = "Down" Then $Y+=$Size $YCol = ($YConst + $Y)+2 $GetCol = PixelGetColor(($XConst+$X+2), $YCol) Global $Player = "2" $Direction = 4 EndIf GUICtrlCreateLabel("", $X, $Y, $Size, $Size) GUICtrlSetBkColor(-1, "0xFFFFFF") If $GetCol = $HexWh Then Lose() If $GetCol = $HexWl Then Lose() If $GetCol = $HexJ1 Then Lose() If $GetCol = $HexJ2 Then Lose() EndFunc Func Move2($Param1) GUICtrlCreateLabel("", $X2, $Y2, $Size, $Size) GUICtrlSetBkColor(-1, "0x" & $_Color[5]) If $Param1 = "Left" Then $X2-=$Size $X2Col = ($X2Const + $X2) $GetCol2=PixelGetColor($X2Col,($Y2Const+$Y2)) Global $Player = "1" $Direction2 = 1 EndIf If $Param1 = "Right" Then $X2+=$Size $X2Col = ($X2Const + $X2)+2 $GetCol2 = PixelGetColor(($X2Col+2),($Y2Const+$Y2)) Global $Player = "1" $Direction2 = 3 EndIf If $Param1 = "Up" Then $Y2-=$Size $Y2Col= ($Y2Const + $Y2) $GetCol2=PixelGetColor(($X2Const+$X2+2), ($Y2Col-$Size)) Global $Player = "1" $Direction2 = 2 EndIf If $Param1 = "Down" Then $Y2+=$Size $Y2Col = ($Y2Const + $Y2)+2 $GetCol2 = PixelGetColor(($X2Const+$X2+2), $Y2Col) Global $Player2 = "2" $Direction2 = 4 EndIf GUICtrlCreateLabel("", $X2, $Y2, $Size, $Size) GUICtrlSetBkColor(-1, "0xFFFFFF") If $GetCol2 = $HexWh Then Lose() If $GetCol2 = $HexWl Then Lose() If $GetCol2 = $HexJ1 Then Lose() If $GetCol2 = $HexJ2 Then Lose() EndFunc Func Lose() GUIDelete() $Over = GUICreate("TRON", 720, 320) GUISetBkColor("0x" & $_Color[1]) GUISetState(@SW_SHOW) GUICtrlCreateLabel("FIN DU JEU", 320, 140, 100, 20) GUICtrlSetFont(-1, 48, 0, 0, "Fixedsys") GUICtrlSetColor(-1, "0x" & $_Color[2]) GUICtrlCreateLabel("VICTOIRE DE JOUEUR" & $Player, 280, 160, 200, 20) GUICtrlSetFont(-1, 48, 0, 0, "Fixedsys") GUICtrlSetColor(-1, "0x" & $_Color[2]) GUICtrlCreateLabel("APPUYER SUR R POUR RECOMMENCER", 235, 180, 300, 20) GUICtrlSetFont(-1, 48, 0, 0, "Fixedsys") GUICtrlSetColor(-1, "0x" & $_Color[2]) GUICtrlCreateLabel("(C) 2014-2015 - ARCADE BBAT", 248, 280, 700, 20) GUICtrlSetFont(-1, 48, 0, 0, "Fixedsys") GUICtrlSetColor(-1, "0x" & $_Color[2]) GUICtrlCreateLabel('PAR DYLAN GADACHA ET SACHADEE', 240, 300, 700, 20) GUICtrlSetFont(-1, 48, 0, 0, "Fixedsys") GUICtrlSetColor(-1, "0x" & $_Color[2]) While 1 If _IsPressed("52") Then GUIDelete($Over) Game() EndIf WEnd EndFunc Func Close() Exit EndFunc

Ce fichier est également nécessaire, c'est la configuration du jeu. Les touches par défaut pour le Joueur 1 sont "Z, S, Q, D" et les flèches directionnelles pour le Joueur 2. : (Nommez le TRON.ini)

TRON.ini: