Hallo,
heute darf ich euch Teile meines Monster-blackjack-skriptes zeigen und euch dabei um rat bitten.
Hier ist mal der code:
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include<guistatusbar.au3>
#include<ledtxt.au3>
global $swf2=0
global $valueoppo, $valueoppo2, $valueoppo3, $valueoppo4=0
Global $bank = 2000
Global $guthaben = 2000
Global $einsatz = 10
Global $swfb = 0
global $statusbar1=0
Global $summe = StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)
Global $counter = 0
Global $sum = False
Global $flashobj, $flashobj2, $flashobj3, $flashobj4, $flashobj5, $flashobj6, $flashobj7, $flashobj8 = 0
Global $flash, $flash2, $flash3, $flash4, $flash5, $flash6, $flash7, $flash8 = 0
$Form1_1 = GUICreate("Blackjack", 1200, 500, "", "")
GUISetBkColor(0xFFFBF0)
$Button1 = GUICtrlCreateButton("Karten geben", 1000, 136, 177, 33, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Stand", 1000, 210, 177, 33, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Spiel verlassen", 1000, 6, 177, 33, $WS_GROUP)
$Button4 = GUICtrlCreateButton("Einsatz erhöhen/verkleinern ", 1000, 174, 177, 33, $WS_GROUP)
GUICtrlSetState($Button2, $gui_disable)
$Pic1 = GUICtrlCreatePic(@Scriptdir & "\karten\kartendeck.jpg", 8, 24, 113, 157, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
GUICtrlSetState($Pic1, $gui_hide)
$umrandung = GUICtrlCreateGroup("", 8, 24, 113, 157)
GUICtrlSetState($umrandung, $gui_hide)
$Label1 = GUICtrlCreateLabel("Guthaben der Bank:" & $bank & "€", 1000, 250, 151, 17)
$Label2 = GUICtrlCreateLabel("Dein Guthaben:" & $guthaben & "€", 1000, 270, 151, 17)
$Label3 = GUICtrlCreateLabel("Dein Einsatz:" & $einsatz & "€", 1000, 290, 151, 17)
$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)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg($Form1_1)
Switch $nMsg
Case $Button1
$counter = $counter + 1
If $counter <> 0 Then GUICtrlSetState($Button4, $gui_disable)
If $counter = 1 Then
GUICtrlSetData($Button1, "HIT!")
$Label1 = GUICtrlCreateLabel("Deine Karten", 0, 280)
$Label2 = GUICtrlCreateLabel("Die Karten der Bank", 0, 10)
eins()
zwei()
bankkarten()
$summe = StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)
If $summe = 21 Then
_GUICtrlStatusBar_SetText($StatusBar1, "Glückwunsch, du hast einen Blackjack")
Sleep(3000)
GUICtrlDelete($flash)
GUICtrlDelete($flash2)
GUICtrlSetData($Button1, "Karten geben")
$counter = 0
GUICtrlSetState($Button4, $gui_enable)
EndIf
GUICtrlSetState($Button2, $gui_enable)
ElseIf $counter = 2 Then
drei()
$summe = StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)
If $summe = 21 Then
_GUICtrlStatusBar_SetText($StatusBar1, "Glückwunsch, du hast einen Blackjack")
Sleep(3000)
GUICtrlDelete($flashobj)
GUICtrlDelete($flashobj2)
GUICtrlDelete($flashobj3)
$counter = 0
GUICtrlSetData($Button1, "Karten geben")
GUICtrlSetState($Button4, $gui_enable)
EndIf
If $summe > 21 Then
_GUICtrlStatusBar_SetText($StatusBar1, "Leider hast du verloren")
Sleep(3000)
GUICtrlDelete($flashobj)
GUICtrlDelete($flashobj2)
GUICtrlDelete($flashobj3)
$counter = 0
GUICtrlSetData($Button1, "Karten geben")
GUICtrlSetState($Button4, $gui_enable)
EndIf
ElseIf $counter = 3 Then
vier()
$summe = StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)
If $summe = 21 Then
_GUICtrlStatusBar_SetText($StatusBar1, "Glückwunsch, du hast einen Blackjack")
Sleep(3000)
GUICtrlDelete($flashobj)
GUICtrlDelete($flashobj2)
GUICtrlDelete($flashobj3)
GUICtrlDelete($flashobj4)
$counter = 0
GUICtrlSetData($Button1, "Karten geben")
GUICtrlSetState($Button4, $gui_enable)
EndIf
If $summe > 21 Then
_GUICtrlStatusBar_SetText($StatusBar1, "Leider hast du verloren")
Sleep(3000)
GUICtrlDelete($flashobj)
GUICtrlDelete($flashobj2)
GUICtrlDelete($flashobj3)
GUICtrlDelete($flashobj4)
$counter = 0
GUICtrlSetData($Button1, "Karten geben")
GUICtrlSetState($Button4, $gui_enable)
EndIf
ElseIf $counter = 4 Then
funf()
$summe = StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)
If $summe = 21 Then
_GUICtrlStatusBar_SetText($StatusBar1, "Glückwunsch, du hast einen Blackjack")
Sleep(3000)
GUICtrlDelete($flashobj)
GUICtrlDelete($flashobj2)
GUICtrlDelete($flashobj3)
GUICtrlDelete($flashobj4)
GUICtrlDelete($flashobj5)
$counter = 0
GUICtrlSetData($Button1, "Karten geben")
GUICtrlSetState($Button4, $gui_enable)
EndIf
If $summe > 21 Then
_GUICtrlStatusBar_SetText($StatusBar1, "Leider hast du verloren")
Sleep(3000)
GUICtrlDelete($flashobj)
GUICtrlDelete($flashobj2)
GUICtrlDelete($flashobj3)
GUICtrlDelete($flashobj4)
GUICtrlDelete($flashobj5)
$counter = 0
GUICtrlSetData($Button1, "Karten geben")
GUICtrlSetState($Button4, $gui_enable)
EndIf
ElseIf $counter = 5 Then
sechs()
$summe = StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)
If $summe = 21 Then
_GUICtrlStatusBar_SetText($StatusBar1, "Glückwunsch, du hast einen Blackjack")
Sleep(3000)
GUICtrlDelete($flashobj)
GUICtrlDelete($flashobj2)
GUICtrlDelete($flashobj3)
GUICtrlDelete($flashobj4)
GUICtrlDelete($flashobj5)
GUICtrlDelete($flashobj6)
$counter = 0
GUICtrlSetData($Button1, "Karten geben")
GUICtrlSetState($Button4, $gui_enable)
EndIf
If $summe > 21 Then
_GUICtrlStatusBar_SetText($StatusBar1, "Leider hast du verloren")
Sleep(3000)
GUICtrlDelete($flashobj)
GUICtrlDelete($flashobj2)
GUICtrlDelete($flashobj3)
GUICtrlDelete($flashobj4)
GUICtrlDelete($flashobj5)
GUICtrlDelete($flashobj6)
$counter = 0
GUICtrlSetData($Button1, "Karten geben")
GUICtrlSetState($Button4, $gui_enable)
EndIf
ElseIf $counter = 6 Then
sieben()
$summe = StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)
If $summe = 21 Then
_GUICtrlStatusBar_SetText($StatusBar1, "Glückwunsch, du hast einen Blackjack")
Sleep(3000)
GUICtrlDelete($flashobj)
GUICtrlDelete($flashobj2)
GUICtrlDelete($flashobj3)
GUICtrlDelete($flashobj4)
GUICtrlDelete($flashobj5)
GUICtrlDelete($flashobj6)
GUICtrlDelete($flashobj7)
$counter = 0
GUICtrlSetData($Button1, "Karten geben")
GUICtrlSetState($Button4, $gui_enable)
EndIf
If $summe > 21 Then
_GUICtrlStatusBar_SetText($StatusBar1, "Leider hast du verloren")
Sleep(3000)
GUICtrlDelete($flashobj)
GUICtrlDelete($flashobj2)
GUICtrlDelete($flashobj3)
GUICtrlDelete($flashobj4)
GUICtrlDelete($flashobj5)
GUICtrlDelete($flashobj6)
GUICtrlDelete($flashobj7)
$counter = 0
GUICtrlSetData($Button1, "Karten geben")
GUICtrlSetState($Button4, $gui_enable)
EndIf
ElseIf $counter = 7 Then
acht()
$summe = StringTrimLeft(_GUICtrlStatusBar_GetText($StatusBar1, 0), 25)
If $summe = 21 Then
_GUICtrlStatusBar_SetText($StatusBar1, "Glückwunsch, du hast einen Blackjack")
Sleep(3000)
GUICtrlDelete($flashobj)
GUICtrlDelete($flashobj2)
GUICtrlDelete($flashobj3)
GUICtrlDelete($flashobj4)
GUICtrlDelete($flashobj5)
GUICtrlDelete($flashobj6)
GUICtrlDelete($flashobj7)
GUICtrlDelete($flashobj8)
$counter = 0
EndIf
If $summe > 21 Then
_GUICtrlStatusBar_SetText($StatusBar1, "Leider hast du verloren")
Sleep(3000)
GUICtrlDelete($flashobj)
GUICtrlDelete($flashobj2)
GUICtrlDelete($flashobj3)
GUICtrlDelete($flashobj4)
GUICtrlDelete($flashobj5)
GUICtrlDelete($flashobj6)
GUICtrlDelete($flashobj7)
GUICtrlDelete($flashobj8)
$counter = 0
GUICtrlSetData($Button1, "Karten geben")
EndIf
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)
GUICtrlDelete($Pic1)
GUICtrlDelete($umrandung)
$zahl = Random(1, 312)
$gerundet = Floor($zahl)
$swfb = Int($gerundet / 7) + 1
$flash8 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj8 = GUICtrlCreateObj($flash8, 8, 40, 150, 150)
$flash8.Movie = @Scriptdir & "\karten\" & $swfb & ".swf"
$flash8.loop = False
$flash8a=true
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(3000)
_GUICtrlStatusBar_SetText($StatusBar1, "Summe der Kartenwerte der Bank:"&0+ $valueoppo+ $valueoppo2, 1)
$aktuellezahl2= Stringtrimleft(_guictrlstatusbar_gettext($statusbar1,1), 30)
If $aktuellezahl2<17 then
$zahl = Random(1, 312)
$gerundet = Floor($zahl)
$swfb = Int($gerundet / 7) + 1
$flash8 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj8 = GUICtrlCreateObj($flash8, 280, 40, 150, 150)
$flash8.Movie = @Scriptdir & "\karten\" & $swfb & ".swf"
$flash8.loop = False
$flash8a=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
sleep(3000)
$aktuellezahl3= Stringtrimleft(_guictrlstatusbar_gettext($statusbar1,1), 30)
_GUICtrlStatusBar_SetText($StatusBar1, "Summe der Kartenwerte der Bank:"&0+ $valueoppo+ $valueoppo2 + $valueoppo3, 1)
$aktuellezahl3= Stringtrimleft(_guictrlstatusbar_gettext($statusbar1,1), 30)
If $aktuellezahl3<17 then
$zahl = Random(1, 312)
$gerundet = Floor($zahl)
$swfb = Int($gerundet / 7) + 1
$flash8 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj8 = GUICtrlCreateObj($flash8, 430, 40, 150, 150)
$flash8.Movie = @Scriptdir & "\karten\" & $swfb & ".swf"
$flash8.loop = False
$flash8a=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)
EndIf
endif
Case $GUI_EVENT_CLOSE
Exit
Case $Button3
Exit
EndSwitch
WEnd
Func eins()
$zahl = Random(2, 313)
$gerundet = Floor($zahl)
$swf = Int($gerundet / 7)
$flash = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj = GUICtrlCreateObj($flash, 0, 300, 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][/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, 300, 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, 300, 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
[/autoit] [autoit][/autoit] [autoit]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, 300, 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, 300, 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, 300, 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, 300, 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, 300, 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
$flash8 = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$flashobj8 = GUICtrlCreateObj($flash8, 130, 40, 150, 150)
$flash8.Movie = @Scriptdir & "\karten\" & $swfb & ".swf"
$flash8.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
[/autoit] [autoit][/autoit] [autoit]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
[/autoit]
Das Kartenset ist hier zu finden...http://www.file-upload.net/download-3114199/karten.rar.html
(ordnerstruktur-> @scriptdir&"\karten\"&xx.swf)
schwer durchzuchecken, wahrscheinlich ist auch viel überflüssig und viel zu umständlich gemacht(edit: besonders bei der Deklaration der Variabeln^^.).. aber egal :), werd ich noch ändern
Mir gehts konkret um die Zeilen 256 - 394.
Bei dem Klick auf Stand werden die Karten der Bank aufdeckt bzw diese zieht weitere, bis diese einen Kartenwert von 17 oder mehr hat.
Die If-abfragen in den if-abfragen reagieren jedoch irgendwie nicht. Die Karten 3&4 der Bank tauchen auch auf, wenn der Wert schon größer als 17 ist 
Wie krieg ich die If-abfragen ordentlich hin, dass sie richtig funktionieren?
Ich hab schon mehrere Alternativen (Schleifen, etc...) ausprobiert, habs nicht hingekriegt...
Wäre nett, wenn jemand mein schreckliches Skript verstehen könnte, und mir dann weiterhelfen würde 
Edit Oscar: Spoiler-Tags gesetzt. Bitte bei längeren Skripten immer auch die Spoiler-Tags benutzen!