Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

TRON - Le jeu en AutoIt !

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

TRON - Le jeu en AutoIt !

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

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

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:

Code:
[CONFIGURATION]

# FOND TEXTE MURS JOUEUR1 JOUEUR2
COLORS=000000 FFFFFF FFFFFF 0000FF FF3300

SPEED=1

UP_J1=5A
DOWN_J1=53
LEFT_J1=51
RIGHT_J1=44

UP_J2=26
DOWN_J2=28
LEFT_J2=25
RIGHT_J2=27

// Z = 5A
// S = 53
// Q = 51
// D = 44

// W = 57
// A = 41

// UP ARROW = 26
// DOWN ARROW = 28
// LEFT ARROW = 25
// RIGHT ARROW = 27

Ecran de démarrage:
[Vous devez être inscrit et connecté pour voir cette image]

Jeu:
[Vous devez être inscrit et connecté pour voir cette image]

Enjoy !

Dylan.

_________________
[Vous devez être inscrit et connecté pour voir cette image]
avatar
Dylan Gadacha
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 106
Data de inscrição : 24/10/2013
Idade : 18

Revenir en haut Aller en bas

Re: TRON - Le jeu en AutoIt !

Message par Sachadee le Ven 22 Aoû 2014, 21:09

cheers  Merci Dylan !

_________________
@SachaDee
avatar
Sachadee
Admin
Admin

Mensagens : 591
Data de inscrição : 04/06/2013

http://bbat.forumeiro.com

Revenir en haut Aller en bas

Re: TRON - Le jeu en AutoIt !

Message par Delmar Grande le Sam 23 Aoû 2014, 16:08

avatar
Delmar Grande
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 170
Data de inscrição : 14/06/2013
Localização : Devant le pc

http://dbatchscript.forumeiros.com/

Revenir en haut Aller en bas

Re: TRON - Le jeu en AutoIt !

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

- Sujets similaires

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