AutoIt Français

Code : Tout sélectionner

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=iconeLabyrinthe.ico
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_Comment=Jeux de détente.
#AutoIt3Wrapper_Res_Description=Jeux de détente.
#AutoIt3Wrapper_Res_Fileversion=1.0.1.0
#AutoIt3Wrapper_Res_LegalCopyright=Yo-LiX Edition
#AutoIt3Wrapper_Res_Language=1036
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Include <Misc.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <file.au3>
#include <INet.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <StaticConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Deplacement = 2
$Title = "Labyrinthe Game v1.0.1"

$Dir_Tempo = @TempDir&"\Labyrinthe Game"
$Player1_image = $Dir_Tempo&"\Playeur1.jpg"
$Player2_image = $Dir_Tempo&"\Playeur2.jpg"
$Player3_image = $Dir_Tempo&"\Playeur3.jpg"
$Player4_image = $Dir_Tempo&"\Playeur4.jpg"
$sImage_MAP_View = $Dir_Tempo&"\map_view.bmp"
$sImage_MAP_Read = $Dir_Tempo&"\map_read.bmp"
DirCreate($Dir_Tempo)
FileDelete($Player1_image)
FileInstall("Playeur1.jpg", $Player1_image)
FileDelete($Player2_image)
FileInstall("Playeur2.jpg", $Player2_image)
FileDelete($Player3_image)
FileInstall("Playeur3.jpg", $Player3_image)
FileDelete($Player4_image)
FileInstall("Playeur4.jpg", $Player4_image)

FileDelete($sImage_MAP_View)
FileInstall("Labyrinthe.bmp", $sImage_MAP_View)
FileDelete($sImage_MAP_Read)
FileInstall("Labyrinthe.bmp", $sImage_MAP_Read)

$Coordoner_departY = -1396
$Coordoner_departX = 0
;$Coordoner_departY = -550+150
;$Coordoner_departX = -1826+150
$Coordoner_actuelY = $Coordoner_departY
$Coordoner_actuelX = $Coordoner_departX



_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile($sImage_MAP_Read)     ; <= charge l'image
$iW = _GDIPlus_ImageGetWidth($hImage)     ; <= dimensions de l'image
$iH = _GDIPlus_ImageGetHeight($hImage)


$GUI_Labirinthe = GUICreate($Title, 300, 300)
$Groupe = GUICtrlCreateGroup("Player: ", 10, 10, 60, 110)
$Radio1 = GUICtrlCreateRadio("", 20, 30, 18, 20)
GUICtrlSetState(-1, $GUI_CHECKED)


$Pic1 = GUICtrlCreatePic($Player1_image, 40, 35, 10, 10)
$Radio2 = GUICtrlCreateRadio("", 20, 50, 18, 20)
$Pic2 = GUICtrlCreatePic($Player2_image, 40, 55, 10, 10)
$Radio3 = GUICtrlCreateRadio("", 20, 70, 18, 20)
$Pic3 = GUICtrlCreatePic($Player3_image, 40, 75, 10, 10)
$Radio4 = GUICtrlCreateRadio("", 20, 90, 18, 20)
$Pic4 = GUICtrlCreatePic($Player4_image, 40, 95, 10, 10)
$Button_Start = GUICtrlCreateButton("Start", 220, 275 , 75, 20)
GUISetState()

While 1
    $msg_gui = GUIGetMsg()
    Switch $msg_gui
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button_Start
            GUISetState(@SW_HIDE)
            $image = GUICtrlCreatePic ($sImage_MAP_View, $Coordoner_departX, $Coordoner_departY, $iW, $iH)
            If GUICtrlRead($Radio1) = $GUI_CHECKED Then
                $playeur = GUICtrlCreatePic($Player1_image, 146, 146, 12, 12)
            EndIf
            If GUICtrlRead($Radio2) = $GUI_CHECKED Then
                $playeur = GUICtrlCreatePic($Player2_image, 146, 146, 12, 12)
            EndIf
            If GUICtrlRead($Radio3) = $GUI_CHECKED Then
                $playeur = GUICtrlCreatePic($Player3_image, 146, 146, 12, 12)
            EndIf
            If GUICtrlRead($Radio4) = $GUI_CHECKED Then
                $playeur = GUICtrlCreatePic($Player4_image, 146, 146, 12, 12)
            EndIf
            GUICtrlDelete($Groupe)
            GUICtrlDelete($Radio1)
            GUICtrlDelete($Radio2)
            GUICtrlDelete($Radio3)
            GUICtrlDelete($Radio4)
            GUICtrlDelete($Pic1)
            GUICtrlDelete($Pic2)
            GUICtrlDelete($Pic3)
            GUICtrlDelete($Pic4)
            GUICtrlDelete($Button_Start)
            GUICtrlDelete($Button_Start)
            GUISetState(@SW_SHOW)
            AdlibRegister("Adlib", 10)
    EndSwitch
WEnd


Func Adlib()
    If WinGetTitle("") = $Title Then
        If _IsPressed(26) Then _jup()
        If _IsPressed(28) Then _jdown()
        If _IsPressed(25) Then _jleft()
        If _IsPressed(27) Then _jright()
    EndIf
EndFunc

Func color()
    $Color = _GDIPlus_BitmapGetPixel($hImage, -$Coordoner_actuelX+151, -$Coordoner_actuelY+146)
    MsgBox(0, "", $Color)
    ClipPut($Color)
EndFunc

Func _jup() ; Déplacement manuel du joueur2 vers le haut.
    $Color = _GDIPlus_BitmapGetPixel($hImage, -$Coordoner_actuelX+151, -$Coordoner_actuelY+145)
    if $Color <> -16777216 Then
        $Coordoner_actuelY = $Coordoner_actuelY + $Deplacement
        GUICtrlSetPos($image, $Coordoner_actuelX, $Coordoner_actuelY)
        if $Color = -5855578 Then MsgBox(0, "Victoire", "You WIN!!!")
    EndIf

EndFunc

Func _jdown() ; Déplacement manuel du joueur2 vers le bas.
    $Color = _GDIPlus_BitmapGetPixel($hImage, -$Coordoner_actuelX+151, -$Coordoner_actuelY+158)
    if $Color <> -16777216 Then
        $Coordoner_actuelY = $Coordoner_actuelY - $Deplacement
        GUICtrlSetPos($image, $Coordoner_actuelX, $Coordoner_actuelY)
        if $Color = -5855578 Then MsgBox(0, "Victoire", "You WIN!!!")
    EndIf
EndFunc

Func _jleft() ; Déplacement manuel du joueur2 vers le haut.
    $Color = _GDIPlus_BitmapGetPixel($hImage, -$Coordoner_actuelX+145, -$Coordoner_actuelY+151)
    if $Color <> -16777216 Then
        $Coordoner_actuelX = $Coordoner_actuelX + $Deplacement
        GUICtrlSetPos($image, $Coordoner_actuelX, $Coordoner_actuelY)
        if $Color = -5855578 Then MsgBox(0, "Victoire", "You WIN!!!")
    EndIf
EndFunc

Func _jright() ; Déplacement manuel du joueur2 vers le bas.
    $Color = _GDIPlus_BitmapGetPixel($hImage, -$Coordoner_actuelX+158, -$Coordoner_actuelY+151)
    if $Color <> -16777216 Then
        $Coordoner_actuelX = $Coordoner_actuelX - $Deplacement
        GUICtrlSetPos($image, $Coordoner_actuelX, $Coordoner_actuelY)
        if $Color = -5855578 Then MsgBox(0, "Victoire", "You WIN!!!")
    EndIf
EndFunc

Func _GDIPlus_BitmapGetPixel($hBitmap, $iX, $iY)
    Local $aResult
    $aResult = DllCall($ghGDIPDll, "int", "GdipBitmapGetPixel", "hwnd", $hBitmap, "int", $iX, "int", $iY, "int*", 0)
    If @error Then Return SetError(@error, @extended, -1)
    Return SetError($aResult[0], 0, $aResult[4])
EndFunc   ;==>_GDIPlus_BitmapGetPixel