comme le titre l'indique ce jeux est une machine a sous qui est assé sympathique
votre credit est automatiquement enregistrer en ligne vous pouvez afficher les score des autre inscrit
Mise a jours :
Version 2.1 Disponible
voici le jeux :
Machine a sous.rar
cette archive contient seulement le jeux compiler pour une simple et bonne raison qui est que je ne veut pas communiquer les mots de passe de mon serveur
Je vous donne aussi le srcipt ci dessous mais les mots de passe on été remplacer par des xxxxxxxx donc le jeux ne fonctionnera pas
► Afficher le texteMachine a sous.au3
Code : Tout sélectionner
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.2.0
Author: GELDROC
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GDIPlus.au3>
Opt("GUIOnEventMode", 1)
Global $Pseudo, $HOTE, $ID, $MP
$MP0 = "xxxxxxxxxxx"
$HOTE = "http://"&$MP0&IniRead("Serveur.inf", "Hote", "1", "")
$MP = "xxxxxxxxxxxxxxxxxxxxxxxxxxx"
Global $GUI, $IMPUT1, $IMPUT2, $IMPUT3, $BUTTON1, $BUTTON2, $BUTTON3, $BUTTON4, $BUTTON5, $BUTTON6, $LABEL1
Global $PIC1[999], $LABEL2[999]
Global $Cage_L = 10, $Cage_T = 100, $Tableau_L = 520, $Tableau_T = 100
Global $IPos[3], $R1, $Fin[3] = [0, 227, 454], $Random[3]
_Machine()
Func _Machine()
$GUI = GUICreate("Machine a sous", 640, 430, -1, -1,-1)
GUISetBkColor(0xFFFFFF, $GUI)
GUICtrlCreateLabel("Pseudo : ", 10, 10, 150, 30)
$IMPUT1 = GUICtrlCreateInput("", 10, 40, 150, 30)
GUICtrlCreateLabel("Mot de passe : ", 170, 10, 150, 30)
$IMPUT2 = GUICtrlCreateInput("", 170, 40, 150, 30)
$BUTTON1 = GUICtrlCreateButton("Crée ce pseudo", 330, 10, 150, 30)
$BUTTON2 = GUICtrlCreateButton("Connection", 330, 42, 150, 30)
$BUTTON6 = GUICtrlCreateButton("Tableau de Placement", 480, 10, 150, 30)
GUICtrlSetOnEvent($BUTTON1, "_Add_User")
GUICtrlSetOnEvent($BUTTON2, "_Conection")
GUICtrlSetOnEvent($BUTTON6, "_Tableau")
GUICtrlSetState($BUTTON6, $GUI_DISABLE)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUICtrlCreateLabel("Credit ( € ) : ", 490, 40, 150, 15)
$LABEL1 = GUICtrlCreateLabel(0&" ( € )", 490, 55, 150, 15)
GUISetState()
While 1
Sleep(10)
WEnd
EndFunc
Func _Mise_a_jours()
GUIDelete($GUI)
Run(@Scriptdir&"\Mise a jour.exe")
Exit
EndFunc
Func _Tableau()
EndFunc
Func _Exit()
Exit
EndFunc
Func _Jeux()
$PIC1[0] = GUICtrlCreatePic("7.bmp", $Tableau_L+0, $Tableau_T+0, 22, 25)
$PIC1[1] = GUICtrlCreatePic("7.bmp", $Tableau_L+22, $Tableau_T+0, 22, 25)
$PIC1[2] = GUICtrlCreatePic("7.bmp", $Tableau_L+44, $Tableau_T+0, 22, 25)
$LABEL2[0] = GUICtrlCreateLabel("X 100", $Tableau_L+70, $Tableau_T+5, 40, 15)
$PIC1[3] = GUICtrlCreatePic("7.bmp", $Tableau_L+22, $Tableau_T+40, 22, 25)
$PIC1[4] = GUICtrlCreatePic("7.bmp", $Tableau_L+44, $Tableau_T+40, 22, 25)
$LABEL2[1] = GUICtrlCreateLabel("X 10", $Tableau_L+70, $Tableau_T+45, 40, 15)
$PIC1[5] = GUICtrlCreatePic("3.bmp", $Tableau_L+0, $Tableau_T+80, 22, 25)
$PIC1[6] = GUICtrlCreatePic("3.bmp", $Tableau_L+22, $Tableau_T+80, 22, 25)
$PIC1[7] = GUICtrlCreatePic("3.bmp", $Tableau_L+44, $Tableau_T+80, 22, 25)
$LABEL2[2] = GUICtrlCreateLabel("X 30", $Tableau_L+70, $Tableau_T+85, 40, 15)
$PIC1[8] = GUICtrlCreatePic("3.bmp", $Tableau_L+22, $Tableau_T+120, 22, 25)
$PIC1[9] = GUICtrlCreatePic("3.bmp", $Tableau_L+44, $Tableau_T+120, 22, 25)
$LABEL2[3] = GUICtrlCreateLabel("X 3", $Tableau_L+70, $Tableau_T+125, 40, 15)
$PIC1[10] = GUICtrlCreatePic("2.bmp", $Tableau_L+0, $Tableau_T+160, 22, 25)
$PIC1[11] = GUICtrlCreatePic("2.bmp", $Tableau_L+22, $Tableau_T+160, 22, 25)
$PIC1[12] = GUICtrlCreatePic("2.bmp", $Tableau_L+44, $Tableau_T+160, 22, 25)
$LABEL2[4] = GUICtrlCreateLabel("X 20", $Tableau_L+70, $Tableau_T+165, 40, 15)
$PIC1[13] = GUICtrlCreatePic("2.bmp", $Tableau_L+22, $Tableau_T+200, 22, 25)
$PIC1[14] = GUICtrlCreatePic("2.bmp", $Tableau_L+44, $Tableau_T+200, 22, 25)
$LABEL2[5] = GUICtrlCreateLabel("X 2", $Tableau_L+70, $Tableau_T+205, 40, 15)
$PIC1[15] = GUICtrlCreatePic("Cage.bmp", $Cage_L+0, $Cage_T+0, 165, 259)
$PIC1[16] = GUICtrlCreatePic("Cage.bmp", $Cage_L+165, $Cage_T+0, 165, 259)
$PIC1[17] = GUICtrlCreatePic("Cage.bmp", $Cage_L+330, $Cage_T+0, 165, 259)
$BUTTON3 = GUICtrlCreatebutton("GO", $Cage_L+0, $Cage_T+270, 495, 50)
$LABEL2[6] = GUICtrlCreateLabel("Mise ( € ) : ", $Tableau_L+0, $Tableau_T+240, 100, 30)
$BUTTON4 = GUICtrlCreatebutton("-", $Tableau_L+0, $Tableau_T+270, 25, 50)
$IMPUT3 = GUICtrlCreateInput("1", $Tableau_L+25, $Tableau_T+270, 60, 50)
$BUTTON5 = GUICtrlCreatebutton("+",$Tableau_L+85, $Tableau_T+270, 25, 50)
GUICtrlSetOnEvent($BUTTON3, "_Roulette")
GUICtrlSetOnEvent($BUTTON4, "_MiseM")
GUICtrlSetOnEvent($BUTTON5, "_MiseP")
_Graphic(227, 1)
_Graphic(454, 2)
_Graphic(0, 3)
EndFunc
Func _MiseP()
GUICtrlSetData($IMPUT3, GUICtrlRead($IMPUT3)+1)
EndFunc
Func _MiseM()
GUICtrlSetData($IMPUT3, GUICtrlRead($IMPUT3)-1)
EndFunc
Func _Gaint($P1, $P2, $P3)
Local $7 = 0, $3 = 0, $2 = 0
Local $Coef = GUICtrlRead($IMPUT3), $Gaint = 0
If $P1 = $Fin[0] Then $7 = $7+1
If $P2 = $Fin[0] Then $7 = $7+1
If $P3 = $Fin[0] Then $7 = $7+1
If $P1 = $Fin[1] Then $3 = $3+1
If $P2 = $Fin[1] Then $3 = $3+1
If $P3 = $Fin[1] Then $3 = $3+1
If $P1 = $Fin[2] Then $2 = $2+1
If $P2 = $Fin[2] Then $2 = $2+1
If $P3 = $Fin[2] Then $2 = $2+1
Select
Case $7 = 3
$Gaint = $Coef*100
Case $7 = 2
$Gaint = $Coef*10
Case $3 = 3
$Gaint = $Coef*30
Case $3 = 2
$Gaint = $Coef*3
Case $2 = 3
$Gaint = $Coef*20
Case $2 = 2
$Gaint = $Coef*2
EndSelect
_Credit($Gaint)
GUICtrlSetState($BUTTON3, $GUI_ENABLE)
GUICtrlSetState($BUTTON4, $GUI_ENABLE)
GUICtrlSetState($BUTTON5, $GUI_ENABLE)
GUICtrlSetState($IMPUT3, $GUI_ENABLE)
EndFunc
Func _Roulette()
GUICtrlSetData($LABEL1, StringReplace(GUICtrlRead($LABEL1), " ( € )", "")-GUICtrlRead($IMPUT3)&" ( € )")
For $X1 = 0 to 2
$Random[$X1] = $Fin[Random(0, 2, 1)]
Next
GUICtrlSetState($BUTTON3, $GUI_DISABLE)
GUICtrlSetState($BUTTON4, $GUI_DISABLE)
GUICtrlSetState($BUTTON5, $GUI_DISABLE)
GUICtrlSetState($IMPUT3, $GUI_DISABLE)
AdlibRegister("_roule1")
EndFunc
Func _roule1()
For $R1 = 0 To 30
For $X3 = 0 To $Fin[2] Step 227
If $R1 < 10 Then
_Graphic($X3, 1)
Else
_Graphic($Random[0], 1)
EndIf
If $R1 < 20 Then
_Graphic($X3, 2)
Else
_Graphic($Random[1], 2)
EndIf
If $R1 < 30 Then
_Graphic($X3, 3)
Else
_Graphic($Random[2], 3)
EndIf
Sleep(0)
Next
Next
Sleep(500)
_Gaint($Random[0], $Random[1], $Random[2])
AdlibUnRegister("_roule1")
EndFunc
Func _Graphic($Pos, $Img)
Local $hBitmap, $hGraphic, $hImage, $aSlice
_GDIPlus_Startup()
$hBitmap = "Symbole.bmp"
$hImage = _GDIPlus_BitmapCreateFromFile($hBitmap)
$aSlice = _GDIPlus_BitmapCloneArea($hImage, 0, $Pos, 133, 227, $GDIP_PXF24RGB)
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($GUI)
Switch $Img
Case 1
_GDIPlus_GraphicsDrawImage($hGraphic, $aSlice, $Cage_L+16, $Cage_T+16)
$IPos[0] = $Pos
Case 2
_GDIPlus_GraphicsDrawImage($hGraphic, $aSlice, $Cage_L+181, $Cage_T+16)
$IPos[1] = $Pos
Case 3
_GDIPlus_GraphicsDrawImage($hGraphic, $aSlice, $Cage_L+346, $Cage_T+16)
$IPos[2] = $Pos
EndSwitch
_GDIPlus_ShutDown ()
EndFunc
Func _Add_User()
Local $Inet
If GUICtrlRead($IMPUT1) <> "" And GUICtrlRead($IMPUT2) <> "" Then
GUICtrlSetState($IMPUT1, $GUI_DISABLE)
GUICtrlSetState($IMPUT2, $GUI_DISABLE)
GUICtrlSetState($BUTTON1, $GUI_DISABLE)
GUICtrlSetState($BUTTON2, $GUI_DISABLE)
$Inet = BinaryToString(InetRead($HOTE&"USERS/"&GUICtrlRead($IMPUT1)&"_MP.txt", 1))
If $Inet = "" Then
$Inet = BinaryToString(InetRead($HOTE&"USER?"&GUICtrlRead($IMPUT1)&"|"&GUICtrlRead($IMPUT2)))
While 1
If $Inet = BinaryToString(InetRead($HOTE&"USERS/"&GUICtrlRead($IMPUT1)&"_MP.txt", 1)) <> "" Then ExitLoop
WEnd
MsgBox(0, "Félicitation", "Votre pseudo a été enregister avec sucse")
GUICtrlSetState($IMPUT1, $GUI_ENABLE)
GUICtrlSetState($IMPUT2, $GUI_ENABLE)
GUICtrlSetState($BUTTON1, $GUI_ENABLE)
GUICtrlSetState($BUTTON2, $GUI_ENABLE)
Else
MsgBox(0, "Erreur", "Désoler ce pseudo existe deja")
GUICtrlSetState($IMPUT1, $GUI_ENABLE)
GUICtrlSetState($IMPUT2, $GUI_ENABLE)
GUICtrlSetState($BUTTON1, $GUI_ENABLE)
GUICtrlSetState($BUTTON2, $GUI_ENABLE)
EndIf
Else
MsgBox(0, "Erreur", "Vous dever remplir les deux chand de texte")
EndIf
EndFunc
Func _Conection()
Local $Inet
If GUICtrlRead($IMPUT1) <> "" And GUICtrlRead($IMPUT2) <> "" Then
GUICtrlSetState($IMPUT1, $GUI_DISABLE)
GUICtrlSetState($IMPUT2, $GUI_DISABLE)
GUICtrlSetState($BUTTON1, $GUI_DISABLE)
GUICtrlSetState($BUTTON2, $GUI_DISABLE)
$Inet = BinaryToString(InetRead($HOTE&"USERS/"&GUICtrlRead($IMPUT1)&"_MP.txt", 1))
Select
Case $Inet = GUICtrlRead($IMPUT2)
MsgBox(0, "Félicitation", "La connection a été établie avec sucse")
$Inet = BinaryToString(InetRead($HOTE&"USERS/"&GUICtrlRead($IMPUT1)&"_CREDIT.txt", 1))
GUICtrlSetData($LABEL1, $Inet&" ( € )")
GUICtrlSetData($BUTTON1, "Metre a jour")
GUICtrlSetData($BUTTON2, "Déconnection")
GUICtrlSetOnEvent($BUTTON1, "_Mise_a_jours")
GUICtrlSetOnEvent($BUTTON2, "_Deconection")
GUICtrlSetState($BUTTON1, $GUI_ENABLE)
GUICtrlSetState($BUTTON2, $GUI_ENABLE)
$Pseudo = GUICtrlRead($IMPUT1)
_Jeux()
Case $Inet = ""
MsgBox(0, "Erreur", "Ce pseudo nexiste pas")
GUICtrlSetState($IMPUT1, $GUI_ENABLE)
GUICtrlSetState($IMPUT2, $GUI_ENABLE)
GUICtrlSetState($BUTTON1, $GUI_ENABLE)
GUICtrlSetState($BUTTON2, $GUI_ENABLE)
Case $Inet <> "" And $Inet <> GUICtrlRead($IMPUT2)
MsgBox(0, "Erreur", "Mots de passe incorect")
GUICtrlSetState($IMPUT1, $GUI_ENABLE)
GUICtrlSetState($IMPUT2, $GUI_ENABLE)
GUICtrlSetState($BUTTON1, $GUI_ENABLE)
GUICtrlSetState($BUTTON2, $GUI_ENABLE)
EndSelect
Else
MsgBox(0, "Erreur", "Vous dever remplir les deux chand de texte")
EndIf
EndFunc
Func _Deconection()
For $X1 = 0 to 17
GUICtrlDelete($PIC1[$X1])
Next
For $X2 = 0 To 6
GUICtrlDelete($LABEL2[$X2])
Next
GUICtrlDelete($BUTTON3)
GUICtrlDelete($BUTTON4)
GUICtrlDelete($BUTTON5)
GUICtrlDelete($IMPUT3)
GUICtrlSetData($LABEL1,0&" ( € )")
GUICtrlSetData($BUTTON1, "Crée ce pseudo")
GUICtrlSetData($BUTTON2, "Connection")
GUICtrlSetOnEvent($BUTTON1, "_Add_User")
GUICtrlSetOnEvent($BUTTON2, "_Conection")
GUICtrlSetState($IMPUT1, $GUI_ENABLE)
GUICtrlSetState($IMPUT2, $GUI_ENABLE)
EndFunc
Func _Credit($Gaint)
Local $Inet
GUICtrlSetState($BUTTON1, $GUI_DISABLE)
GUICtrlSetState($BUTTON2, $GUI_DISABLE)
GUICtrlSetState($BUTTON3, $GUI_DISABLE)
GUICtrlSetState($BUTTON4, $GUI_DISABLE)
GUICtrlSetState($BUTTON5, $GUI_DISABLE)
GUICtrlSetState($IMPUT3, $GUI_DISABLE)
$Inet = BinaryToString(InetRead($HOTE&"USERS/"&GUICtrlRead($IMPUT1)&"_CREDIT.txt", 1))
BinaryToString(InetRead($HOTE&"CREDIT?"&GUICtrlRead($IMPUT1)&"|"&($Inet+$Gaint)-GUICtrlRead($IMPUT3)&"|"&$MP, 1))
While 1
If BinaryToString(InetRead($HOTE&"USERS/"&GUICtrlRead($IMPUT1)&"_CREDIT.txt", 1)) = ($Inet+$Gaint)-GUICtrlRead($IMPUT3) Then ExitLoop
WEnd
$Inet = BinaryToString(InetRead($HOTE&"USERS/"&GUICtrlRead($IMPUT1)&"_CREDIT.txt", 1))
GUICtrlSetData($LABEL1, $Inet&" ( € )")
GUICtrlSetState($BUTTON1, $GUI_ENABLE)
GUICtrlSetState($BUTTON2, $GUI_ENABLE)
GUICtrlSetState($BUTTON3, $GUI_ENABLE)
GUICtrlSetState($BUTTON4, $GUI_ENABLE)
GUICtrlSetState($BUTTON5, $GUI_ENABLE)
GUICtrlSetState($IMPUT3, $GUI_ENABLE)
If $Gaint > 0 Then MsgBox(0, "Bravo", "Votre gain a été de "&$Gaint&" €")
EndFunc► Afficher le texteMise a jour.au3
Code : Tout sélectionner
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.2.0
Author: GELDROC
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#include <GUIConstantsEx.au3>
Opt("GUIOnEventMode", 1)
Global $MP0 = "xxxxxxxxxxx"
Global $Vers = IniRead("Serveur.inf", "Program", "Version", "")
Global $HOTE = "http://"&$MP0&IniRead("Serveur.inf", "Hote", "1", "")
Global $Inet = BinaryToString(InetRead($HOTE&"Mise a jour.txt", 1))
Global $Split, $GUI, $BUTTON1, $Progres
If $Inet = "" Then
MsgBox(0, "Désoler", "Aucune mise a jour n'est disponible")
Exit
Else
$Split = StringSplit($Inet, "|", 1)
If $Vers >= $Split[3] Then
MsgBox(0, "Désoler", "Aucune mise a jour n'est disponible")
Exit
Else
_Install()
EndIf
EndIf
Func _Install()
$GUI = GUICreate("Mise a jour", 400, 250, -1, -1)
GUISetBkColor(0xFFFFFF, $GUI)
GUICtrlCreateLabel("Mise a jour vers la version : "&$Split[3]&@CRLF&@CRLF&$Split[1], 10, 10, 380, 150)
$Progres = GUICtrlCreateProgress(10, 170, 380, 30)
$BUTTON1 = GUICtrlCreateButton("Télécharger et Installer", 10, 210, 380, 30)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
GUICtrlSetOnEvent($BUTTON1, "_Download")
GUISetState()
While 1
Sleep(10)
WEnd
EndFunc
Func _Exit()
Exit
EndFunc
Func _Download()
GUICtrlSetState($BUTTON1, $GUI_DISABLE)
Local $hDownload, $P1, $P2
$hDownload = InetGet($HOTE&$Split[2], @ScriptDir&"\Temp\"&$Split[2], 1, 1)
While 1
$P1 = InetGetInfo($hDownload, 1)/100
$P2 = InetGetInfo($hDownload, 0)/$P1
GUICtrlSetData($Progres, $P2)
GUISetState()
If InetGetInfo($hDownload, 2) = True Then ExitLoop
WEnd
RunWait(@ScriptDir&"\Temp\"&$Split[2])
FileDelete(@ScriptDir&"\Temp\"&$Split[2])
MsgBox(0, "Fini", "Les mise a jour son maintenen Installer")
Run(@ScriptDir&"\Machine a sous.exe")
EndFunc
