Heute darf ich euch stolz mein Spiel "Blackjack" präsentieren.
Das Skript ist ziemlich verwirrend und viele sachen sind wahrscheinlich unnötig.
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=game.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include<guistatusbar.au3>
Global $bank = 2000
Global $guthaben = 2000
Global $swfb = 0
global $statusbar1=0
Global $summe = StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)
Global $counter = 0
Global $sum = False
global $flashobj9,$umrandung, $pic1,$pic2, $2, $3, $4, $5, $6, $swf2, $valueoppo, $valueoppo2, $valueoppo3, $valueoppo4, $valueoppo5, $counter, $statusbar1, $swfb, $flashobj, $flashobj2, $flashobj3, $flashobj4, $flashobj5, $flashobj6, $flashobj7, $flashobj8, $flashobj8b, $flashobj8c, $flashobj8d, $flashobj8e,$flash, $flash2, $flash3, $flash4, $flash5, $flash6, $flash7, $flash8 = 0
$Form1_1 = GUICreate("Blackjack", 1200, 500, "", "")
guisetbkcolor(0x735826)
$Button1 = GUICtrlCreateButton("Karten geben", 1000, 86, 177, 33, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Stand", 1000, 126, 177, 33, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Hauptmenü", 1000, 6, 177, 33, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Einsatz erhöhen/verkleinern ", 1000, 206, 177, 33, $WS_GROUP)
$button5= guictrlcreatebutton("Double", 1000, 166, 177, 33, $Ws_group)
GUICtrlSetState($Button2, $gui_disable)
guictrlsetstate($button5, $gui_disable)
$Label1 = GUICtrlCreateLabel("Guthaben der Bank:" & $bank & "€", 1000, 250, 151, 17)
$Label2 = GUICtrlCreateLabel("Dein Guthaben:" & $guthaben & "€", 1000, 270, 151, 17)
$Label3 = GUICtrlCreateLabel("Dein Einsatz:10€", 1000, 290, 151, 17)
$pic6= guictrlcreatepic(@scriptdir&"\rand.jpg",0, 300, 500, 69)
$pic7= guictrlcreatepic(@scriptdir&"\rand.jpg",500, 300, 500, 69)
$pic8= guictrlcreatepic(@scriptdir&"rand.jpg",0, 23, 500, 69)
$pic9= guictrlcreatepic(@scriptdir&"rand.jpg", 500, 23, 500, 69)
$Label4 = GUICtrlCreateLabel("", 0, 320, 1000, 160)
guictrlsetbkcolor(-1, 0xFAFAFA)
$Label6 = GUICtrlCreateLabel("", 0, 40, 1000, 150)
guictrlsetbkcolor(-1, 0xFAFAFA)
$Label5 = GUICtrlCreateLabel("Deine Karten", 0, 280)
$Label6 = GUICtrlCreateLabel("Die Karten der Bank", 0, 0)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1_1)
Dim $StatusBar1_PartsWidth[2] = [200,-1]
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, "Info", 0)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 25)
$Pic5 = GUICtrlCreatePic(@Scriptdir&"\WoodPlanksVarious0004_thumbhuge.jpg", 0, 0, 1200, 500, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUISetState(@SW_SHOW)
global $left=Stringtrimleft(guictrlread($label3),13)
global $einsatz= Stringtrimright($left, 1)
Global $bank = 2000
While 1
$nMsg = GUIGetMsg($Form1_1)
Switch $nMsg
Case $Button1
$counter = $counter + 1
If $counter<> 0 Then
GUICtrlSetState($Button4, $gui_disable)
endif
If $counter = 1 Then
guictrlsetstate($button5, $gui_enable)
guictrlsetstate($button2, $gui_enable)
GUICtrlSetData($Button1, "HIT!")
eins()
zwei()
bankkarten()
ElseIf $counter = 2 Then
guictrlsetstate($button5, $gui_disable)
drei()
ElseIf $counter = 3 Then
vier()
ElseIf $counter = 4 Then
funf()
ElseIf $counter = 5 Then
sechs()
ElseIf $counter = 6 Then
sieben()
ElseIf $counter = 7 Then
acht()
EndIf
Case $Button4
$einsatz2 = InputBox("Dein Einsatz", "Wie viel möchtest du bieten?")
If $einsatz2 > 0 And $einsatz2 < $guthaben Then
GUICtrlSetData($Label3, "Dein Einsatz:" & $einsatz2 & "€")
Else
MsgBox(16, "Fehler", "Gib einen gültigen Einsatz an!(0-" & $guthaben)
EndIf
Case $Button2
GUICtrlSetState($Button2, $gui_disable)
GUICtrlSetState($Button1, $gui_disable)
GUICtrlSetState($Button4, $gui_disable)
$zahl = Random(1, 312)
$gerundet = Floor($zahl)
$swfb = Int($gerundet / 7) + 1
$flash10 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj8 = GUICtrlCreateObj($flash10, 150, 40, 150, 150)
$flash10.Movie = @Scriptdir & "\karten\" & $swfb & ".swf"
$flash10.loop = False
Select
Case $swfb > 1 And $swfb < 12
$valueoppo2 = $swfb
Case $swfb > 11 And $swfb < 15
$valueoppo2= 10
Case $swfb > 14 And $swfb < 24
$valueoppo2 = $swfb - 13
Case $swfb > 23 And $swfb < 33
$valueoppo2 = $swfb - 22
Case $swfb = 33
$valueoppo2 = 11
Case $swfb = 34
$valueoppo2 = 11
Case $swfb > 34 And $swfb< 41
$valueoppo2 = 10
Case $swfb > 40 And $swfb < 50
$valueoppo2 = $swfb - 39
Case $swfb > 50
$valueoppo2 = 11
Case $swfb > 50 And $swfb < 54
$valueoppo2 = 10
EndSelect
sleep(3200)
_GUICtrlStatusBar_SetText($StatusBar1, "Summe der Kartenwerte der Bank:"&0+ $valueoppo+ $valueoppo2, 1)
$aktuellezahl2= Stringtrimleft(_guictrlstatusbar_gettext($statusbar1,1), 31)
$2= true
If $aktuellezahl2<17 then
_2()
else
uberprufung()
endif
Case $GUI_EVENT_CLOSE
Exit
Case $Button3
Winkill("Blackjack")
Shellexecute("Blackjack starten.exe")
case $button5
$einsatz2= $einsatz *2
GUICtrlSetData($Label3, "Dein Einsatz:" & $einsatz2 & "€")
guictrlsetstate($button5, $gui_disable)
EndSwitch
WEnd
func _3()
$zahl = Random(1, 312)
$gerundet = Floor($zahl)
$swfb = Int($gerundet / 7) + 1
$flash8 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj8b = GUICtrlCreateObj($flash8, 430, 40, 150, 150)
$flash8.Movie = @Scriptdir & "\karten\" & $swfb & ".swf"
$flash8.loop = False
$3= true
Select
Case $swfb > 1 And $swfb < 12
$valueoppo4 = $swfb
Case $swfb > 11 And $swfb < 15
$valueoppo4= 10
Case $swfb > 14 And $swfb < 24
$valueoppo4 = $swfb - 13
Case $swfb > 23 And $swfb < 33
$valueoppo4 = $swfb - 22
Case $swfb = 33
$valueoppo4 = 11
Case $swfb = 34
$valueoppo4 = 11
Case $swfb > 34 And $swfb< 41
$valueoppo4 = 10
Case $swfb > 40 And $swfb < 50
$valueoppo4 = $swfb - 39
Case $swfb > 50
$valueoppo4 = 11
Case $swfb > 50 And $swfb < 54
$valueoppo4 = 10
EndSelect
_GUICtrlStatusBar_SetText($StatusBar1, "Summe der Kartenwerte der Bank:"&0+ $valueoppo+ $valueoppo2 + $valueoppo3 + $valueoppo4 , 1)
$aktuellezahl4= Stringtrimleft(_guictrlstatusbar_gettext($statusbar1,1), 31)
If $aktuellezahl4<17 then
_4()
else
uberprufung()
endif
endfunc
func _2()
$zahl = Random(1, 312)
$gerundet = Floor($zahl)
$swfb = Int($gerundet / 7) + 1
$flash8 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj8c = GUICtrlCreateObj($flash8, 280, 40, 150, 150)
$flash8.Movie = @Scriptdir & "\karten\" & $swfb & ".swf"
$flash8.loop = False
$4=true
select
Case $swfb > 1 And $swfb < 12
$valueoppo3 = $swfb
Case $swfb > 11 And $swfb < 15
$valueoppo3= 10
Case $swfb > 14 And $swfb < 24
$valueoppo3 = $swfb - 13
Case $swfb > 23 And $swfb < 33
$valueoppo3 = $swfb - 22
Case $swfb = 33
$valueoppo3 = 11
Case $swfb = 34
$valueoppo3 = 11
Case $swfb > 34 And $swfb< 41
$valueoppo3 = 10
Case $swfb > 40 And $swfb < 50
$valueoppo3 = $swfb - 39
Case $swfb > 50
$valueoppo3 = 11
Case $swfb > 50 And $swfb < 54
$valueoppo3 = 10
EndSelect
$aktuellezahl3= Stringtrimleft(_guictrlstatusbar_gettext($statusbar1,1), 31)
_GUICtrlStatusBar_SetText($StatusBar1, "Summe der Kartenwerte der Bank:"&0+ $valueoppo+ $valueoppo2 + $valueoppo3, 1)
$aktuellezahl3= Stringtrimleft(_guictrlstatusbar_gettext($statusbar1,1), 31)
If $aktuellezahl3<17 then
_3()
else
uberprufung()
endif
endfunc
func _4()
$zahl = Random(1, 312)
$gerundet = Floor($zahl)
$swfb = Int($gerundet / 7) + 1
$flash8 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj8d = GUICtrlCreateObj($flash8, 280, 40, 150, 150)
$flash8.Movie = @Scriptdir & "\karten\" & $swfb & ".swf"
$flash8.loop = False
$5=true
select
Case $swfb > 1 And $swfb < 12
$valueoppo5 = $swfb
Case $swfb > 11 And $swfb < 15
$valueoppo5= 10
Case $swfb > 14 And $swfb < 24
$valueoppo5 = $swfb - 13
Case $swfb > 23 And $swfb < 33
$valueoppo5 = $swfb - 22
Case $swfb = 33
$valueoppo5 = 11
Case $swfb = 34
$valueoppo5 = 11
Case $swfb > 34 And $swfb< 41
$valueoppo5 = 10
Case $swfb > 40 And $swfb < 50
$valueoppo5 = $swfb - 39
Case $swfb > 50
$valueoppo5 = 11
Case $swfb > 50 And $swfb < 54
$valueoppo5 = 10
EndSelect
$aktuellezahl5= Stringtrimleft(_guictrlstatusbar_gettext($statusbar1,1), 31)
_GUICtrlStatusBar_SetText($StatusBar1, "Summe der Kartenwerte der Bank:"&0+ $valueoppo+ $valueoppo2 + $valueoppo3 + $valueoppo4 + $valueoppo5, 1)
$aktuellezahl3= Stringtrimleft(_guictrlstatusbar_gettext($statusbar1,1), 31)
If $aktuellezahl3<17 then
_5()
else
uberprufung()
endif
endfunc
func _5()
$zahl = Random(1, 312)
$gerundet = Floor($zahl)
$swfb = Int($gerundet / 7) + 1
$flash8 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj8e = GUICtrlCreateObj($flash8, 280, 40, 150, 150)
$flash8.Movie = @Scriptdir & "\karten\" & $swfb & ".swf"
$flash8.loop = False
$6=true
select
Case $swfb > 1 And $swfb < 12
$valueoppo6 = $swfb
Case $swfb > 11 And $swfb < 15
$valueoppo6= 10
Case $swfb > 14 And $swfb < 24
$valueoppo6 = $swfb - 13
Case $swfb > 23 And $swfb < 33
$valueoppo6 = $swfb - 22
Case $swfb = 33
$valueoppo6 = 11
Case $swfb = 34
$valueoppo6 = 11
Case $swfb > 34 And $swfb< 41
$valueoppo6 = 10
Case $swfb > 40 And $swfb < 50
$valueoppo6 = $swfb - 39
Case $swfb > 50
$valueoppo6 = 11
Case $swfb > 50 And $swfb < 54
$valueoppo6 = 10
EndSelect
_GUICtrlStatusBar_SetText($StatusBar1, "Summe der Kartenwerte der Bank:"&0+ $valueoppo+ $valueoppo2 + $valueoppo3 + $valueoppo4 + $valueoppo5 + $valueoppo6, 1)
uberprufung()
endfunc
Func eins()
$zahl = Random(2, 313)
$gerundet = Floor($zahl)
$swf = Int($gerundet / 7)
$flash = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj = GUICtrlCreateObj($flash, 0, 320, 150, 150)
$flash.Movie = @Scriptdir & "\karten\" & $swf & ".swf"
$flash.loop = False
$eins = False
Select
Case $swf > 1 And $swf < 12
$value = $swf
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $value)
Case $swf > 11 And $swf < 15
$value = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $value)
Case $swf > 14 And $swf < 24
$value = $swf - 13
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $value)
Case $swf > 23 And $swf < 33
$value = $swf - 22
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $value)
Case $swf = 33
$value = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $value)
Case $swf = 34
$value = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $value)
Case $swf > 34 And $swf < 41
$value = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $value)
Case $swf > 40 And $swf < 50
$value = $swf - 39
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $value)
Case $swf > 50
$value = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $value)
Case $swf > 50 And $swf < 54
$value = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $value)
EndSelect
EndFunc ;==>eins
[/autoit] [autoit][/autoit] [autoit]Func zwei()
$summe = StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)
$zahl = Random(1, 312)
$gerundet = Floor($zahl)
$swf = Int($gerundet / 7) + 1
$flash2 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj2 = GUICtrlCreateObj($flash2, 130, 320, 150, 150)
$flash2.Movie = @Scriptdir & "\karten\" & $swf & ".swf"
$flash2.loop = False
$zwei = False
Select
Case $swf > 1 And $swf < 12
$value2 = $swf
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value2)
Case $swf > 11 And $swf < 15
$value2 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value2)
Case $swf > 14 And $swf < 24
$value2 = $swf - 13
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value2)
Case $swf > 23 And $swf < 33
$value2 = $swf - 22
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value2)
Case $swf = 33
$value2 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value2)
Case $swf = 34
$value2 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value2)
Case $swf > 34 And $swf < 41
$value2 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value2)
Case $swf > 40 And $swf < 50
$value2 = $swf - 39
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value2)
Case $swf > 50
$value2 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value2)
Case $swf > 50 And $swf < 54
$value2 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value2)
EndSelect
EndFunc ;==>zwei
Func drei()
$summe = StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)
$zahl = Random(1, 312)
$gerundet = Floor($zahl)
$swf = Int($gerundet / 7) + 1
$flash3 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj3 = GUICtrlCreateObj($flash3, 280, 320, 150, 150)
$flash3.Movie = @Scriptdir & "\karten\" & $swf & ".swf"
$flash3.loop = False
$drei = False
Select
Case $swf > 1 And $swf < 12
$value3 = $swf
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value3)
Case $swf > 11 And $swf < 15
$value3 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value3)
Case $swf > 14 And $swf < 24
$value3 = $swf - 13
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value3)
Case $swf > 23 And $swf < 33
$value3 = $swf - 22
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value3)
Case $swf = 33
$value3 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value3)
Case $swf = 34
$value3 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value3)
Case $swf > 34 And $swf < 41
$value3 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value3)
Case $swf > 40 And $swf < 50
$value3 = $swf - 39
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value3)
Case $swf > 50
$value3 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value3)
Case $swf > 50 And $swf < 54
$value3 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value3)
EndSelect
EndFunc ;==>drei
Func vier()
$summe = StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)
$zahl = Random(1, 312)
$gerundet = Floor($zahl)
$swf = Int($gerundet / 7) + 1
$flash4 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj4 = GUICtrlCreateObj($flash4, 430, 320, 150, 150)
$flash4.Movie = @Scriptdir & "\karten\" & $swf & ".swf"
$flash4.loop = False
$vier = False
Select
Case $swf > 1 And $swf < 12
$value4 = $swf
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value4)
Case $swf > 11 And $swf < 15
$value4 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value4)
Case $swf > 14 And $swf < 24
$value4 = $swf - 13
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value4)
Case $swf > 23 And $swf < 33
$value4 = $swf - 22
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value4)
Case $swf = 33
$value4 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value4)
Case $swf = 34
$value4 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value4)
Case $swf > 34 And $swf < 41
$value4 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value4)
Case $swf > 40 And $swf < 50
$value4 = $swf - 39
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value4)
Case $swf > 50
$value4 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value4)
Case $swf > 50 And $swf < 54
$value4 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value4)
EndSelect
EndFunc ;==>vier
Func funf()
$summe = StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)
$zahl = Random(1, 312)
$gerundet = Floor($zahl)
$swf = Int($gerundet / 7) + 1
$flash5 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj5 = GUICtrlCreateObj($flash5, 580, 320, 150, 150)
$flash5.Movie = @Scriptdir & "\karten\" & $swf & ".swf"
$flash5.loop = False
$vier = False
Select
Case $swf > 1 And $swf < 12
$value5 = $swf
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value5)
Case $swf > 11 And $swf < 15
$value5 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value5)
Case $swf > 14 And $swf < 24
$value5 = $swf - 13
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value5)
Case $swf > 23 And $swf < 33
$value5 = $swf - 22
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value5)
Case $swf = 33
$value5 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value5)
Case $swf = 34
$value5 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value5)
Case $swf > 34 And $swf < 41
$value5 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value5)
Case $swf > 40 And $swf < 50
$value5 = $swf - 39
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value5)
Case $swf > 50
$value5 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value5)
Case $swf > 50 And $swf < 54
$value5 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value5)
EndSelect
EndFunc ;==>funf
Func sechs()
$summe = StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)
$zahl = Random(1, 312)
$gerundet = Floor($zahl)
$swf = Int($gerundet / 7) + 1
$flash6 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj6 = GUICtrlCreateObj($flash6, 720, 320, 150, 150)
$flash6.Movie = @Scriptdir & "\karten\" & $swf & ".swf"
$flash6.loop = False
$vier = False
Select
Case $swf > 1 And $swf < 12
$value6 = $swf
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value6)
Case $swf > 11 And $swf < 15
$value6 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value6)
Case $swf > 14 And $swf < 24
$value6 = $swf - 13
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value6)
Case $swf > 23 And $swf < 33
$value6 = $swf - 22
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value6)
Case $swf = 33
$value6 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value6)
Case $swf = 34
$value6 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value6)
Case $swf > 34 And $swf < 41
$value6 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value6)
Case $swf > 40 And $swf < 50
$value6 = $swf - 39
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value6)
Case $swf > 50
$value6 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value6)
Case $swf > 50 And $swf < 54
$value6 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value6)
EndSelect
EndFunc ;==>sechs
Func sieben()
$summe = StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)
$zahl = Random(1, 312)
$gerundet = Floor($zahl)
$swf = Int($gerundet / 7) + 1
$flash7 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj7 = GUICtrlCreateObj($flash7, 870, 320, 150, 150)
$flash7.Movie = @Scriptdir & "\karten\" & $swf & ".swf"
$flash7.loop = False
$vier = False
Select
Case $swf > 1 And $swf < 12
$value7 = $swf
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value7)
Case $swf > 11 And $swf < 15
$value7 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value7)
Case $swf > 14 And $swf < 24
$value7 = $swf - 13
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value7)
Case $swf > 23 And $swf < 33
$value7 = $swf - 22
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value7)
Case $swf = 33
$value7 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value7)
Case $swf = 34
$value7 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value7)
Case $swf > 34 And $swf < 41
$value7 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value7)
Case $swf > 40 And $swf < 50
$value7 = $swf - 39
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value7)
Case $swf > 50
$value7 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value7)
Case $swf > 50 And $swf < 54
$value7 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value7)
EndSelect
EndFunc ;==>sieben
Func acht()
$summe = StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)
$zahl = Random(1, 312)
$gerundet = Floor($zahl)
$swf = Int($gerundet / 7) + 1
$flash8 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj8 = GUICtrlCreateObj($flash8, 1020, 320, 150, 150)
$flash8.Movie = @Scriptdir & "\karten\" & $swf & ".swf"
$flash8.loop = False
$vier = False
Select
Case $swf > 1 And $swf < 12
$value8 = $swf
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value8)
Case $swf > 11 And $swf < 15
$value8 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value8)
Case $swf > 14 And $swf < 24
$value8 = $swf - 13
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value8)
Case $swf > 23 And $swf < 33
$value8 = $swf - 22
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value8)
Case $swf = 33
$value8 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value8)
Case $swf = 34
$value8 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value8)
Case $swf > 34 And $swf < 41
$value8 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value8)
Case $swf > 40 And $swf < 50
$value8 = $swf - 39
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value8)
Case $swf > 50
$value8 = 11
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value8)
Case $swf > 50 And $swf < 54
$value8 = 10
$sum = _GUICtrlStatusBar_SetText($StatusBar1, "Summe deiner Kartenwerte:" & $summe + $value8)
EndSelect
EndFunc ;==>acht
Func bankkarten()
GUICtrlSetState($Pic1, $gui_show)
GUICtrlSetState($umrandung, $gui_show)
$zahl = Random(1, 312)
$gerundet = Floor($zahl)
$swfb = Int($gerundet / 7) + 1
$flash9 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj9 = GUICtrlCreateObj($flash9, 8, 40, 150, 150)
$flash9.Movie = @Scriptdir & "\karten\" & $swfb & ".swf"
$flash9.loop = False
select
Case $swfb > 1 And $swfb < 12
$valueoppo = $swfb
_guictrlstatusbar_settext($statusbar1, "Summe der Kartenwerte der Bank:"&$valueoppo, 1)
Case $swfb > 11 And $swfb < 15
$valueoppo= 10
_guictrlstatusbar_settext($statusbar1, "Summe der Kartenwerte der Bank:"&$valueoppo, 1)
Case $swfb > 14 And $swfb < 24
$valueoppo = $swfb - 13
_guictrlstatusbar_settext($statusbar1, "Summe der Kartenwerte der Bank:"&$valueoppo, 1)
Case $swfb > 23 And $swfb < 33
$valueoppo = $swfb - 22
_guictrlstatusbar_settext($statusbar1, "Summe der Kartenwerte der Bank:"&$valueoppo, 1)
Case $swfb = 33
$valueoppo = 11
_guictrlstatusbar_settext($statusbar1, "Summe der Kartenwerte der Bank:"&$valueoppo, 1)
Case $swfb = 34
$valueoppo = 11
_guictrlstatusbar_settext($statusbar1, "Summe der Kartenwerte der Bank:"&$valueoppo, 1)
Case $swfb > 34 And $swfb < 41
$valueoppo = 10
_guictrlstatusbar_settext($statusbar1, "Summe der Kartenwerte der Bank:"&$valueoppo, 1)
Case $swfb > 40 And $swfb < 50
$valueoppo = $swf2 - 39
_guictrlstatusbar_settext($statusbar1, "Summe der Kartenwerte der Bank:"&$valueoppo, 1)
Case $swfb > 50
$valueoppo = 11
_guictrlstatusbar_settext($statusbar1, "Summe der Kartenwerte der Bank:"&$valueoppo, 1)
Case $swfb > 50 And $swfb < 54
$valueoppo = 10
_guictrlstatusbar_settext($statusbar1, "Summe der Kartenwerte der Bank:"&$valueoppo, 1)
EndSelect
Select
Case $swfb > 11 And $swfb < 15
$value8 = 10
MsgBox(0, "Achtung", "Die Bank hat Chancen auf einen Blackjack")
Case $swfb = 33
$value8 = 11
MsgBox(0, "Achtung", "Die Bank hat Chancen auf einen Blackjack")
Case $swfb = 34
$value8 = 11
MsgBox(0, "Achtung", "Die Bank hat Chancen auf einen Blackjack")
Case $swfb > 34 And $swfb < 41
$value8 = 10
MsgBox(0, "Achtung", "Die Bank hat Chancen auf einen Blackjack")
Case $swfb > 50
$value8 = 11
MsgBox(0, "Achtung", "Die Bank hat Chancen auf einen Blackjack")
Case $swfb > 50 And $swfb < 54
$value8 = 10
MsgBox(0, "Achtung", "Die Bank hat Chancen auf einen Blackjack")
EndSelect
EndFunc ;==>bankkarten
func uberprufung()
If StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)>21 and StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 1), 31)>21 then
Msgbox(0, "", "Unentschieden")
loschen()
guictrlsetstate($button1, $gui_enable)
guictrlsetdata($button1, "Karten geben")
guictrlsetstate($button4, $gui_enable)
elseif StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)>21 and StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 1), 31)<21 then
Msgbox(0, "", "Bank gewinnt")
global $left=Stringtrimleft(guictrlread($label3),13)
global $einsatz= Stringtrimright($left, 1)
$guthaben= $guthaben - $einsatz
$bank= $bank+ $einsatz
Guictrlsetdata($label1, "Guthaben der Bank:" & $bank & "€")
guictrlsetdata($label2, "Dein Guthaben:" & $guthaben & "€")
loschen()
guictrlsetstate($button1, $gui_enable)
guictrlsetdata($button1, "Karten geben")
guictrlsetstate($button4, $gui_enable)
elseif StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)<21 and StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 1), 31)>21 then
Msgbox(0, "", "Spieler gewinnt")
global $left=Stringtrimleft(guictrlread($label3),13)
global $einsatz= Stringtrimright($left, 1)
$guthaben= $guthaben +$einsatz
$bank= $bank -$einsatz
Guictrlsetdata($label1, "Guthaben der Bank:" & $bank & "€")
guictrlsetdata($label2, "Dein Guthaben:" & $guthaben & "€")
loschen()
guictrlsetstate($button1, $gui_enable)
guictrlsetdata($button1, "Karten geben")
guictrlsetstate($button4, $gui_enable)
elseif (StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25))< (StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 1), 31)) Then
Msgbox(0, "", "Bank gewinnt")
global $left=Stringtrimleft(guictrlread($label3),13)
global $einsatz= Stringtrimright($left, 1)
$guthaben= $guthaben - $einsatz
$bank= $bank+ $einsatz
Guictrlsetdata($label1, "Guthaben der Bank:" & $bank & "€")
guictrlsetdata($label2, "Dein Guthaben:" & $guthaben & "€")
loschen()
guictrlsetstate($button1, $gui_enable)
guictrlsetdata($button1, "Karten geben")
guictrlsetstate($button4, $gui_enable)
elseif (StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25))> (StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 1), 31)) Then
Msgbox(0, "", "Spieler gewinnt")
global $left=Stringtrimleft(guictrlread($label3),13)
global $einsatz= Stringtrimright($left, 1)
$guthaben= $guthaben +$einsatz
$bank= $bank-$einsatz
Guictrlsetdata($label1, "Guthaben der Bank:" & $bank & "€")
guictrlsetdata($label2, "Dein Guthaben:" & $guthaben & "€")
loschen()
guictrlsetstate($button1, $gui_enable)
guictrlsetdata($button1, "Karten geben")
guictrlsetstate($button4, $gui_enable)
elseif (StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25))= (StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 1), 31)) Then
Msgbox(0, "", "Unentschieden")
loschen()
guictrlsetstate($button1, $gui_enable)
guictrlsetdata($button1, "Karten geben")
guictrlsetstate($button4, $gui_enable)
endif
endfunc
func loschen()
GUICtrlDelete($flashobj)
GUICtrlDelete($flashobj2)
GUICtrlDelete($flashobj3)
GUICtrlDelete($flashobj4)
GUICtrlDelete($flashobj5)
GUICtrlDelete($flashobj6)
GUICtrlDelete($flashobj7)
GUICtrlDelete($flashobj8)
guictrldelete($flashobj9)
GUICtrlSetData($Button1, "Karten geben")
GUICtrlSetState($Button4, $gui_enable)
guictrldelete($pic2)
GUICtrlSetData($Label3, "Dein Einsatz:10€")
$counter = 0
_guictrlstatusbar_settext($statusbar1, "", 0)
_guictrlstatusbar_settext($statusbar1, "", 1)
If $2= true then
guictrldelete($flashobj8)
endif
If $3=true then
guictrldelete($flashobj8b)
endif
If $4=true then
guictrldelete($flashobj8c)
endif
If $5= true then
guictrldelete($flashobj8d)
endif
If $6= true then
guictrldelete($flashobj8e)
endif
endfunc
Für das Menü noch:
Spoiler anzeigen
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=cards.ico
#AutoIt3Wrapper_outfile=Blackjack starten.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Philipp\Desktop\main.kxf
$Form1_1 = GUICreate("Blackjack - Hauptmenü", 633, 342, 179, 153)
GUISetBkColor(0x000000)
$Pic1 = GUICtrlCreatePic(@scriptdir & "\main.jpg", 32, 0, 489, 121, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetResizing(-1, $GUI_DOCKHCENTER+$GUI_DOCKVCENTER+$GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Button1 = GUICtrlCreateButton("Neues Spiel", 104, 104, 425, 41, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Highscore", 104, 156, 425, 41, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Credits", 103, 207, 425, 41, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Spiel verlassen", 104, 260, 425, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
Winkill("Blackjack - Hauptmenü")
Shellexecute(@Scriptdir&"\game.exe")
case $button3
Msgbox(0, "Credits", "Every single line in the game's script is written by Mendax and has its roots in his brain")
case $Button4
exit
EndSwitch
WEnd
Und hier der Downloadlink:
http://www.file-upload.net/download-31311…ckjack.rar.html
Highscore & Splitten hab ich noch nicht eingebaut. Den besonderen Blackjack leider auch noch nicht( Gewinn im Verhältnis 3:2).
manchmal spinnt leider noch die Flashanzeige.
Viel Spaß beim Ausprobieren