Spoiler anzeigen
;Globale Variablen
Global $Bild_Kirsche = @ScriptDir & "/Daten/Kirsche.jpg", $Bild_Banane = @ScriptDir & "/Daten/Banane.jpg", $Bild_Apfel = @ScriptDir & "/Daten/Apfel.jpg", $Bild_Casino = @ScriptDir & "/Daten/Casino.jpg", $startscreendest=@ScriptDir & "/Daten/splash.jpg"
Global $dll = DllOpen("user32.dll")
Global $Button1 = GUICtrlCreateButton("Submit", 64, 72, 209, 33)
;Includes
#include <GUIConstants.au3>
#include <GuiListView.au3>
#include <Array.au3>
#include <GuiConstantsEx.au3>
#include <String.au3>
#Include <File.au3>
#include <Misc.au3>
;#NoTrayIcon
;Startbilder
[/autoit] [autoit][/autoit] [autoit]$Bild_Aktuell_1 = $Bild_Casino
$Bild_Aktuell_2 = $Bild_Casino
$Bild_Aktuell_3 = $Bild_Casino
;Startgeld
[/autoit] [autoit][/autoit] [autoit]$Start_Geld = 5000
$string1="jkdfg54"
$string2="545sdf8"
;Haupt-GUI
;HotKeySet("{ENTER}","Start")
[/autoit] [autoit][/autoit] [autoit]SplashImageOn("Loading....",$startscreendest)
Sleep(2000)
SplashOff()
$Form1 = GUICreate("Einarmiger Bandit", 800, 548, 193, 115)
GUISetBkColor(0x808080)
$Pic1 = GUICtrlCreatePic($Bild_Aktuell_1, 64, 176, 166, 173)
$Pic2 = GUICtrlCreatePic($Bild_Aktuell_2, 318, 176, 166, 173)
$Pic3 = GUICtrlCreatePic($Bild_Aktuell_3, 574, 176, 166, 173)
$Label1 = GUICtrlCreateLabel("Geld:", 16, 24, 38, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$Label2 = GUICtrlCreateLabel($Start_Geld & "$", 64, 24, 70, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$Label3 = GUICtrlCreateLabel("Einsatz:", 572, 27, 53, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$Input1 = GUICtrlCreateInput("Ihr Einsatz", 632, 24, 97, 22)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Start = GUICtrlCreateButton("Start", 64, 400, 681, 113, 0)
GUICtrlSetFont(-1, 20, 800, 0, "Arial")
$Bestenliste_Button = GUICtrlCreateButton("Bestenliste", 64, 50, 100, 30, 0)
GUISetOnEvent($GUI_EVENT_CLOSE , "Beenden")
GUISetState(@SW_SHOW)
;On-Event
Opt("GUIOnEventMode", 1)
GUICtrlSetOnEvent($Start, "Start")
GUICtrlSetOnEvent($Bestenliste_Button, "_show")
;Schleife
While 1
$Einsatz_Geld = GUICtrlRead($Input1) ;Kontrolliert alle 2 Millisekunden den Einsatz
Sleep(2)
if _IsPressed("0D", $dll) Then
Start()
EndIf
WEnd
;Hauptfunktion
[/autoit] [autoit][/autoit] [autoit]Func Start()
$stringcheck=StringInStr($Einsatz_Geld,"-") ;Einsatz ?
If $Einsatz_Geld = "Ihr Einsatz" Then
MsgBox(0, "Fehler", "Sie müssen einen Einsatz tätigen, bevor sie spielen können!")
ElseIf $Einsatz_Geld > $Start_Geld Then
MsgBox(0, "Fehler", "Soviel Geld haben sie nicht!")
ElseIf $Einsatz_Geld = "" Then
MsgBox(0, "Fehler", "Sie müssen einen Einsatz tätigen, bevor sie spielen können!")
ElseIf $Einsatz_Geld = "0" Then
MsgBox(0, "Fehler", "Sie müssen einen Einsatz tätigen, bevor sie spielen können!")
ElseIf $stringcheck>0 Then
MsgBox(0, "Fehler", "Sie können keinen negativen Betrag eingeben!")
Else
Start_richtig()
EndIf
EndFunc
Func Start_richtig()
[/autoit] [autoit][/autoit] [autoit]For $i = 1 to 5 step 1
[/autoit] [autoit][/autoit] [autoit]$Zufall_Bild_1 = Random(1,3,1) ;Zufallszahlen generieren
$Zufall_Bild_2 = Random(1,3,1)
$Zufall_Bild_3 = Random(1,3,1)
If $Zufall_Bild_1 = 1 Then ;Bild 1
GUICtrlSetImage($Pic1, $Bild_Kirsche)
ElseIf $Zufall_Bild_1 = 2 Then
GUICtrlSetImage($Pic1, $Bild_Banane)
ElseIf $Zufall_Bild_1 = 3 Then
GUICtrlSetImage($Pic1, $Bild_Apfel)
EndIf
If $Zufall_Bild_2 = 1 Then ;Bild 2
GUICtrlSetImage($Pic2, $Bild_Kirsche)
ElseIf $Zufall_Bild_2 = 2 Then
GUICtrlSetImage($Pic2, $Bild_Banane)
ElseIf $Zufall_Bild_2 = 3 Then
GUICtrlSetImage($Pic2, $Bild_Apfel)
EndIf
If $Zufall_Bild_3 = 1 Then ;Bild 3
GUICtrlSetImage($Pic3, $Bild_Kirsche)
ElseIf $Zufall_Bild_3 = 2 Then
GUICtrlSetImage($Pic3, $Bild_Banane)
ElseIf $Zufall_Bild_3 = 3 Then
GUICtrlSetImage($Pic3, $Bild_Apfel)
EndIf
Sleep(250)
Next
If $Zufall_Bild_1 = $Zufall_Bild_2 and $Zufall_Bild_2 = $Zufall_Bild_3 Then ;Vergleiche die 3 Bilder
Gewinn_Rechnung()
Else
Verlust_Rechnung()
EndIf
EndFunc
Func Gewinn_Rechnung() ;Rechnet den Gewinn der Runde aus
$Start_Geld = $Einsatz_Geld * 3 + $Start_Geld
GUICtrlSetData($Label2, $Start_Geld & "$")
EndFunc
Func Verlust_Rechnung() ;Rechnet den Verlust der Runde aus
$Start_Geld = $Start_Geld - $Einsatz_Geld
GUICtrlSetData($Label2, $Start_Geld & "$")
EndFunc
Func Beenden()
[/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate("Ranking", 347, 114, 378, 150)
GUISetBkColor(0x808080)
$Input1 = GUICtrlCreateInput("", 40, 32, 265, 21)
$Label1 = GUICtrlCreateLabel("Name:", 32, 8, 49, 20)
GUICtrlSetFont(-1, 10, 800, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFF00)
$Button1 = GUICtrlCreateButton("Submit", 64, 72, 209, 33)
GUICtrlSetOnEvent($Button1,"save")
GUISetOnEvent($GUI_EVENT_CLOSE , "_exit")
GUISetState(@SW_SHOW)
EndFunc
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Func save()
$encryptname=_StringEncrypt(1,GUICtrlRead($Input1),$string1,2)
$encryptmoney=_StringEncrypt(1,$Start_Geld,$string2,2)
IniWrite(@ScriptDir & "/Daten/Ranking.txt",$encryptname,"Money",$encryptmoney)
MsgBox(64,"OK","Rank has been saved!")
Exit
EndFunc
Func _show()
;$decryptname=(0,GUICtrlRead($Input1),$string1,2)
;$decryptmoney=_StringEncrypt(0,$Start_Geld,$string2,2)
$Form1 = GUICreate("Ranking", 254, 227, 356, 150)
$mylist = GUICtrlCreateListView("Name", 16, 16, 217, 201)
;GUICtrlSetData(-1, "Edit1")
GUISetOnEvent($GUI_EVENT_CLOSE , "_exit")
GUISetState(@SW_SHOW)
$R1 = _StringEncrypt(0,(IniReadSectionNames(@ScriptDir & "/Daten/Ranking.txt")),$string1,2)
;$listtoarray= _ListToArray($R1)
If @error Then
MsgBox(0, "", "Kein Ranking verfügbar")
Else
For $i = 1 To $listtoarray[0]
GUICtrlCreateListViewItem($listtoarray[$i], $mylist)
Next
EndIf
EndFunc
Func _exit()
Exit
EndFunc
hi leute, ich weis nicht wie ich die inisectionnames wieder decryptet bekomme (als array) ,außerdem wollte ich das geld neben den Namen in der liste anzeigen lassen, und mir ist aufgefallen das das ding beim zocken viel zu oft verliert kann man da an der wahrscheinlichkeit das man gewinnt was machen??
ich erwähne mal vorsichtshalber das das script nicht von mir ist , is aus unserem forum