So, Heute ist es soweit das ich mich traue mal eine sache von mir vorzustellen...
Ich hoffe ich werde nicht so viel Kritik abkriegen..
Aber ich muss sagen das ich echt Stolz bin.. hab jetzt knapp 4 Stunden dafür gebraucht.
Die meisten von euch werden das nicht als besonders schwer oder toll ansehen...
aber hey, jeder fängt mal klein an
Also gebt mir verdammt nochmal n Lob !
Download:
Spoiler anzeigen
(v2.0 allerdings mit installer (wenn die Daten noch nicht da sind) werden die .txts & .au3 eigenständig im selben Ordner wo die .exe sich befindet installiert.)
Nur das Script:
(allerdings brauch der Script noch die .txt's daher der upload)
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <Array.au3>
Opt("GuiOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]Global $Loop = 0, $Active = 0, $Timer = 0, $TimeCount = 0
[/autoit] [autoit][/autoit] [autoit]If Not FileExists(@ScriptDir&"/SLF.au3") Then
MsgBox(0,"Installieren","Alle Datein wurden erfolgreich installiert.")
FileInstall("C:\Dokumente und Einstellungen\User_06\Desktop\SLF\Stadt.txt",@ScriptDir &"\Stadt.txt")
FileInstall("C:\Dokumente und Einstellungen\User_06\Desktop\SLF\Land.txt",@ScriptDir&"\Land.txt")
FileInstall("C:\Dokumente und Einstellungen\User_06\Desktop\SLF\Fluss.txt",@ScriptDir&"\Fluss.txt")
FileInstall("C:\Dokumente und Einstellungen\User_06\Desktop\SLF\SLF.au3",@ScriptDir&"\SLF.au3")
Endif
#Region ### START Koda GUI section ### Form=
$SLF = GUICreate("SLF", 539, 242, 379, 172)
;~ Computer ergebnisse
$Snpc = GUICtrlCreateInput("", 24, 96, 153, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_READONLY))
GUICtrlSetState(-1, $GUI_DISABLE)
$Lnpc = GUICtrlCreateInput("", 192, 96, 153, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_READONLY))
GUICtrlSetState(-1, $GUI_DISABLE)
$Fnpc = GUICtrlCreateInput("", 360, 96, 153, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_READONLY))
GUICtrlSetState(-1, $GUI_DISABLE)
;~ Spieler ergebnisse
$Spl = GUICtrlCreateInput("", 24, 128, 153, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetState(-1, $GUI_DISABLE)
$Lpl = GUICtrlCreateInput("", 192, 128, 153, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetState(-1, $GUI_DISABLE)
$Fpl = GUICtrlCreateInput("", 360, 128, 153, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetState(-1, $GUI_DISABLE)
;~ Buttons
$Start = GUICtrlCreateButton("Start", 24, 16, 75, 25)
$Stop = GUICtrlCreateButton("Stop", 440, 16, 75, 25)
$Info = GUICtrlCreateButton("Info", 24, 200, 75, 25)
$Reset = GUICtrlCreateButton("Neustart", 440, 200, 75, 25)
;~ Dyn Text
$Buchstabe = GUICtrlCreateLabel("Buchstabe", 104, 24, 327, 17, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$WinLose = GUICtrlCreateLabel("", 192, 208, 150, 17, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
;~ Static Text
$Stadt = GUICtrlCreateLabel("Stadt", 32, 72, 141, 17, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Land = GUICtrlCreateLabel("Land", 200, 72, 140, 17, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Fluss = GUICtrlCreateLabel("Fluss", 360, 72, 148, 17, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
;~ Zeit
$Time = GUICtrlCreateLabel("", 192, 160, 148, 28, $SS_CENTER)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetOnEvent($Start, "_Start")
GUICtrlSetOnEvent($Stop, "_Stop")
GUICtrlSetOnEvent($Info, "_Info")
GUICtrlSetOnEvent($Reset, "_Reset")
GUICtrlSetState($Stop, $GUI_DISABLE)
GUICtrlSetState($Reset, $GUI_DISABLE)
While 1
Sleep (20)
If $Active = 1 Then
$Random = Chr(Random(Asc("A"), Asc("Z"), 1))
GUICtrlSetData($Buchstabe, ""&$Random)
EndIf
If $Timer = 1 Then
Sleep (1000)
$TimeCount += 1
$TimeCount = Round($TimeCount, 0)
GUICtrlSetData($Time, "sek: "&$TimeCount)
EndIf
WEnd ; Timer & Buchstabe
Func _Start()
$Active = 1
GUICtrlSetState($Stop, $GUI_ENABLE)
GUICtrlSetState($Start, $GUI_DISABLE)
EndFunc ; Start
Func _Stop()
$Active = 0
If $Loop = 1 Then
$Timer = 0
$Towns = _StringBetween(FileRead("Stadt.txt"), $Random & "=", ";")
$Towns = StringSplit($Towns[0], ",")
GUICtrlSetData($Snpc, ($Towns[Random(1, $Towns[0], 1)]))
$Country = _StringBetween(FileRead("Land.txt"), $Random & "=", ";")
$Country = StringSplit($Country[0], ",")
GUICtrlSetData($Lnpc, ($Country[Random(1, $Country[0], 1)]))
$River = _StringBetween(FileRead("Fluss.txt"), $Random & "=", ";")
$River = StringSplit($River[0], ",")
GUICtrlSetData($Fnpc, ($River[Random(1, $River[0], 1)]))
GUICtrlSetData($WinLose, "Neues Spiel ?")
GUICtrlSetState($Stop, $GUI_DISABLE)
GUICtrlSetState($Reset, $GUI_ENABLE)
GUICtrlSetState($Spl, $GUI_DISABLE)
GUICtrlSetState($Lpl, $GUI_DISABLE)
GUICtrlSetState($Fpl, $GUI_DISABLE)
EndIf ; Stadt, Land, Fluss
If $Loop = 0 Then
$Loop += 1
GUICtrlSetState($Spl, $GUI_ENABLE)
GUICtrlSetState($Lpl, $GUI_ENABLE)
GUICtrlSetState($Fpl, $GUI_ENABLE)
$Timer = 1
GUICtrlSetData($Time, "sek: 0")
EndIf
EndFunc ; Stop, FileRead, Stop
Func _Reset()
$Loop = 0
$Active = 0
$Timer = 0
$TimeCount = 0
GUICtrlSetData($Time, "")
GUICtrlSetData($Spl, "")
GUICtrlSetData($Lpl, "")
GUICtrlSetData($Fpl, "")
GUICtrlSetData($Snpc, "")
GUICtrlSetData($Lnpc, "")
GUICtrlSetData($Fnpc, "")
GUICtrlSetData($WinLose, "")
GUICtrlSetData($Buchstabe, "Buchstabe")
GUICtrlSetState($Stop, $GUI_DISABLE)
GUICtrlSetState($Reset, $GUI_DISABLE)
GUICtrlSetState($Start, $GUI_ENABLE)
EndFunc ; Neustart
Func _Info()
MsgBox(0,"Coded by ThirtySix","Version 2.1")
EndFunc ; Info
Func _Exit()
Exit
EndFunc