Blackjack

Irrlicht

Heute darf ich euch stolz mein Spiel "Blackjack" präsentieren.
Das Skript ist ziemlich verwirrend und viele sachen sind wahrscheinlich unnötig.

Spoiler anzeigen

[autoit]

#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>

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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)

[/autoit] [autoit][/autoit] [autoit]

_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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit] [autoit][/autoit] [autoit]

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()

[/autoit] [autoit][/autoit] [autoit]

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)

[/autoit] [autoit][/autoit] [autoit]

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()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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

[/autoit]

Für das Menü noch:

Spoiler anzeigen

[autoit]

#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 ###

[/autoit] [autoit][/autoit] [autoit]

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

[/autoit]

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

name22

Mit Arrays und ein wenig übersichtlicher Programmierung wäre das ganze bestimmt um einiges kürzer ;). Aber abgesehen von gelegentlichen Abstürzen funktioniert das ja schon ganz fut .

Irrlicht

was denn für abstürze?^^

name22

Ich hatte keine Ahnung was ich machen sollte, also habe ich einfach willkürlich irgendwelche Buttons gedrückt. Dann hat mir Windows gemeldet, dass die game.exe nicht mehr funktioniert.

Irrlicht

Wenn du keine Ahnung hast, was man machen muss... http://de.wikipedia.org/wiki/Black_Jack =)