#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$battleshipmenu = GUICreate("BATTLESHIP", 560, 512, 196, 130, 0)
$Pic1 = GUICtrlCreatePic("\images\menubgjpg.jpg", 0, 0, 560, 480, 0)
$Label1 = GUICtrlCreateLabel("Geben Sie den gewünschten Einsatz ein und klicken sie auf Start! Falls Sie das erste Mal spielen, klicken sie auf das Fragezeichen unten rechts im Bild für eine Anleitung.", 72, 230, 412, 51, $SS_CENTER)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor($Label1,$GUI_BKCOLOR_TRANSPARENT )
$Input1 = GUICtrlCreateInput("100", 243, 292, 141, 22, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NUMBER), 0)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFE1)
GUICtrlSetBkColor($Input1, 0x000000)
GUICtrlSetCursor (-1, 5)
$Label2 = GUICtrlCreateLabel("Der Einsatz muss zwischen 100€ und 50000€ liegen.", 72, 324, 412, 17, $SS_CENTER)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor($Label2,$GUI_BKCOLOR_TRANSPARENT )
$button1 = GUICtrlCreatePic("\images\bigbuttonhelp.bmp", 474, 412, 66, 58)
GUICtrlSetCursor (-1, 0)
$button2 = GUICtrlCreatePic("\images\buttonbig_start.bmp", 196, 340, 160, 50)
GUICtrlSetCursor (-1, 0)
$button4 = GUICtrlCreatePic("\images\button_end.bmp", 193, 416, 166, 49)
GUICtrlSetCursor (-1, 0)
$Label3 = GUICtrlCreateLabel("Lädt...", 388, 52, 124, 23, $SS_CENTER)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor($Label3,$GUI_BKCOLOR_TRANSPARENT )
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Battlefield = GUICtrlCreatePic("\images\spielfeld.jpg", 0, 106, 560, 291)
GUICtrlSetState(-1, $GUI_HIDE)
$button_abort = GUICtrlCreatePic("\images\abbrechen.gif", 0, 366, 163, 31)
GUICtrlSetState(-1, $GUI_HIDE)
GUICtrlSetState(-1, $GUI_DISABLE)
$Pic2 = GUICtrlCreatePic("\images\anleitung.jpg", 16, 106, 510, 244)
GUICtrlSetState(-1, $GUI_HIDE)
$helpclose = 1
$Label4 = GUICtrlCreateLabel("Label 4", 32, 130, 476, 199, $SS_CENTER)
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor($Label4,$GUI_BKCOLOR_TRANSPARENT )
GUICtrlSetState(-1, $GUI_HIDE)
$Label5 = GUICtrlCreateLabel("Viel Spaß", 220, 306, 190, 28)
GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xCCCCCC)
GUICtrlSetBkColor($Label5,$GUI_BKCOLOR_TRANSPARENT )
GUICtrlSetState($Label5, $GUI_HIDE)
$error = GUICtrlCreateLabel("", 12, 114, 538, 24, $SS_CENTER)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor($error,$GUI_BKCOLOR_TRANSPARENT )
GUICtrlSetState($error, $GUI_HIDE)
Global $m = -1, $CPUFeld[100][2]
$CPUFeld[0][1] = 'MsgBox(0,"", "Hallo, das ist Pic1")'
$CPUFeld[1][1] = 'MsgBox(0,"", "Hallo, das ist Pic2")'
$CPUFeld[2][1] = 'MsgBox(0,"", "Hallo, das ist Pic3")'
For $f = 0 To 9
For $g = 0 To 9
$m += 1
$CPUFeld[$m][0] = GUICtrlCreatePic("images\buttonchose.gif", 317 + $f * 20 + $f, 146 + $g * 20 + $g, 20, 20, 0)
GUICtrlSetOnEvent(-1, "_cpufeld")
Next
Next
Func _cpufeld()
For $i = 0 To UBound($CPUFeld) -1
If $CPUFeld[$m][0] = @GUI_CtrlId Then Return Execute($CPUFeld[$m][1])
Next
EndFunc
GUISetState(@SW_SHOW)
GUICtrlSetOnEvent($button1, "_help")
GUICtrlSetOnEvent($button2, "_startgame")
GUICtrlSetOnEvent($button4, "_exit")
#EndRegion ### END Koda GUI section ###
$kontoread = IniRead("settings.ini", "Settings", "money", "kontoerror")
If $kontoread = "kontoerror" Then
$konto = "1500"
IniWrite("settings.ini", "Settings", "money", $konto)
GUICtrlSetData($Label3, $konto&" €")
Else
$konto = $kontoread
GUICtrlSetData($Label3, $konto&" €")
EndIf
While 1
Sleep(100)
WEnd
Func _startgame()
GUICtrlSetState($error, $GUI_HIDE)
$einsatz = GUICtrlRead($Input1)
If $einsatz < 100 Or $einsatz > 50000 Then
GUICtrlSetState($error, $GUI_SHOW)
GUICtrlSetData($error, "Der Einsatz muss zwischen 100 und 50000 liegen.")
Else
If $einsatz > $konto Then
GUICtrlSetState($error, $GUI_SHOW)
GUICtrlSetData($error, "Sie haben nicht genug Guthaben.")
ElseIf $einsatz <= $konto Then
$konto -= $einsatz
GUICtrlSetData($Label3, $konto&" €")
IniWrite("settings.ini", "Settings", "money", $konto)
GUICtrlSetState($Battlefield, $GUI_SHOW)
GUICtrlSetState($button_abort, $GUI_SHOW)
GUICtrlSetState($button_abort, $GUI_ENABLE)
_start()
EndIf
EndIf
EndFunc
Func _help()
GUICtrlSetState($error, $GUI_HIDE)
If $helpclose = 1 Then
$helpclose = 0
GUICtrlSetState($Input1, $GUI_HIDE)
GUICtrlSetState($Input1, $GUI_DISABLE)
GUICtrlSetState($Pic2, $GUI_SHOW)
GUICtrlSetState($Label4, $GUI_SHOW)
GUICtrlSetState($Label5, $GUI_SHOW)
ElseIf $helpclose = 0 Then
$helpclose = 1
GUICtrlSetState($Input1, $GUI_SHOW)
GUICtrlSetState($Input1, $GUI_ENABLE)
GUICtrlSetState($Pic2, $GUI_HIDE)
GUICtrlSetState($Label4, $GUI_HIDE)
GUICtrlSetState($Label5, $GUI_HIDE)
EndIf
EndFunc
Func _start()
GUICtrlSetState($button2, $GUI_DISABLE)
GUICtrlSetState($Input1, $GUI_HIDE)
GUICtrlSetState($Input1, $GUI_DISABLE)
EndFunc
Func _exit()
Exit
EndFunc