Stadt Land Fluss

03/08/2013 18:18 DSAPMDIOASMKDSA#1
Hey, habe grad Stadt, Land, Fluss programmiert und bin doch ziemlich stolz auf mich!:P

VT: [Only registered and activated users can see links. Click Here To Register...]

DL:

[Only registered and activated users can see links. Click Here To Register...]

Hoffentlich bin ich hier richtig, ist ja kein kleinerer Release mehr.

Ansonste, bitte ich einen Mod um die löschung dieses threads hier und poste es in den sammelthread.

Bitte bei fehlern nicht flamen etc. programmier erst seit heute morgen
03/08/2013 18:22 Satisfaction'#2
.au3? Muss ich AutoIt installiert haben, damit ich es öffnen kann oder wie?
Sonst würde ganz schnell eine .exe draus machen. :o
03/08/2013 18:24 DSAPMDIOASMKDSA#3
Ja musst du leider, ich verstehe nicht wieso "Unable to open the script file." kommt wenn ich es zu einer Exe compiliert habe >.<

Wenn du mir sagst wie ich das machen kann, dann lad ich die exe auch noch hoch.

ich seh ja, wenn ihr euch das runterlädt - wegen upload manager - . Bitte schreibt dann eure Meinung und verbesserungsvorschläge hier rein!!
03/08/2013 19:35 omer36#4
Quote:
Originally Posted by DSAPMDIOASMKDSA View Post

Hoffentlich bin ich hier richtig, ist ja kein kleinerer Release mehr.
oooh doch.


und wenn du schon nen quellcode schickst, dann bitte direkt hier und nicht extra zum runterladen.
03/08/2013 19:37 DSAPMDIOASMKDSA#5
Ok, weil ich hab für dieses programm 1 stunde gebraucht mewmew noob noob :D


quellcode:

03/08/2013 19:40 omer36#6
[php][.../php]
ist optisch schöner zu sehen..

dein erstes, ich sagemal "richtiges" programm/spiel?
03/08/2013 19:45 DSAPMDIOASMKDSA#7
Ja, hab mich zuerst an tic tac toe probiert und an spam bots die im endeffekt auch geklappt haben, aber die gab es ja hier schon

PHP Code:
Global $Buchstabe  = "AB", $Zahl = 1,  $StadtName = "", $FlussName = "", $LandName = ""
Global $Runde = "1"
Global  $Punkte = ""

#include <ButtonConstants.au3>
#include  <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include  <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region  ### START Koda GUI section ### Form=
$StadtLandFluss_1 =  GUICreate("Stadt, Land, Fluss", 478, 169, -1, -1)
$Start =  GUICtrlCreateButton("Starte Spiel", 0, 0, 151, 31, $WS_GROUP)
GUICtrlSetFont(-1,  10, 800, 0, "MS Sans Serif")
$ListView1 =  GUICtrlCreateListView("Stadt|Land|Fluss|Punkte", 172, 0, 304, 166)
GUICtrlSendMsg(-1,  $LVM_SETCOLUMNWIDTH, 0, 83)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH,  1, 83)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 83)
GUICtrlSendMsg(-1,  $LVM_SETCOLUMNWIDTH, 3, 50)
$Label1 =  GUICtrlCreateLabel("Buchstabe:", 4, 30, 116, 24)
GUICtrlSetFont(-1,  12, 800, 0, "MS Sans Serif")
$Stadt = GUICtrlCreateButton("Stadt", 2,  54, 75, 25, $WS_GROUP)
$Land = GUICtrlCreateButton("Land", 2, 78,  75, 25, $WS_GROUP)
$Fluss = GUICtrlCreateButton("Fluss", 2, 102, 75,  25, $WS_GROUP)
$Punkte = GUICtrlCreateButton("Punkte eintragen", 76,  142, 95, 25, $WS_GROUP)
$Credits = GUICtrlCreateButton("Credits", 2,  142, 75, 25, $WS_GROUP)
GUICtrlSetState ($Punkte, $GUI_DISABLE)
GUICtrlSetState  ($Land, $GUI_DISABLE)
GUICtrlSetState ($Fluss, $GUI_DISABLE)
GUICtrlSetState  ($Stadt, $GUI_DISABLE)
GUISetState(@SW_SHOW)

#EndRegion ###  END Koda GUI section ###

While True
    _Main()
WEnd

Func _Main()
    $nMsg = GUIGetMsg()
     Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

         Case $Start
            $Zahl = Random(1, 26, 1) + 65
            GUICtrlSetState ($Punkte, $GUI_ENABLE)
            GUICtrlSetState ($Land, $GUI_ENABLE)
            GUICtrlSetState  ($Fluss, $GUI_ENABLE)
            GUICtrlSetState ($Stadt,  $GUI_ENABLE)
            GUICtrlSetState ($Start, $GUI_DISABLE)

            $Buchstabe = Chr($Zahl)
            GUICtrlSetData($Label1, "Buchstabe: "&$Buchstabe)

            Global $LVItem = GUICtrlCreateListViewItem   ("",  $ListView1)

            Case $Stadt
                If  $Buchstabe = "AB" Then
                    MsgBox (0, "Error", "Du  hast das Spiel noch nicht gestartet!")
                    Return
                EndIf

                $StadtName = InputBox  ("Stadt", "Den Namen der Stadt", $Buchstabe)
                If StringUpper(StringLeft($StadtName, 1) ) <> $Buchstabe Then Return

                GuiCtrlSetData($LVItem,$StadtName&"|"&$LandName&"|"&$FlussName)
                GUICtrlSetState($Stadt, $GUI_DISABLE)

            Case $Land
                If  $Buchstabe = "AB" Then
                    MsgBox (0, "Error", "Du  hast das Spiel noch nicht gestartet!")
                    Return
                EndIf

                $LandName = InputBox  ("Stadt", "Den Namen des Landes", $Buchstabe)
                If StringUpper(StringLeft($LandName, 1) ) <> $Buchstabe Then Return

                GuiCtrlSetData($LVItem,$StadtName&"|"&$LandName&"|"&$FlussName)
                GUICtrlSetState($Land, $GUI_DISABLE)

            Case $Fluss
                If  $Buchstabe = "AB" Then
                    MsgBox (0, "Error", "Du  hast das Spiel noch nicht gestartet!")
                    Return
                EndIf

                $FlussName = InputBox  ("Stadt", "Den Namen des Flusses", $Buchstabe)
                If StringUpper(StringLeft($FlussName, 1) ) <> $Buchstabe Then Return

                GuiCtrlSetData($LVItem,$StadtName&"|"&$LandName&"|"&$FlussName)
                GUICtrlSetState($Fluss, $GUI_DISABLE)


            Case $Punkte
                Local $Punkte = InputBox ("Wieviele Punkte?", "Wie viele Punkte hast du  für die Stadt ?", 10)
                $Punkte += InputBox  ("Wieviele Punkte?", "Wie viele Punkte hast du für das Land ?", 10)
                $Punkte += InputBox ("Wieviele Punkte?", "Wie  viele Punkte hast du für den Fluss ?", 10)

                GuiCtrlSetData($LVItem,$StadtName&"|"&$LandName&"|"&$FlussName&"|"&$Punkte)
                GUICtrlSetState ($Punkte, $GUI_DISABLE)
                GUICtrlSetState ($Start, $GUI_ENABLE)
                GUICtrlSetState  ($Land, $GUI_DISABLE)
                GUICtrlSetState ($Fluss,  $GUI_DISABLE)
                GUICtrlSetState ($Stadt, $GUI_DISABLE)
                GUICtrlSetData ($Start, "Starte neue Runde")

            Case  $Credits
                MsgBox (0, "Credits", "Version 1.0 made by DSAPMDIOASMKDSA"&@CRLF&@CRLF&"(C)  DSAPMDIOASMKDSA"&@CRLF&"Alle Rechte sind  vorbehalten!"&@CRLF&@CRLF&@CRLF&@CRLF&"Update coming  next time...")


    EndSwitch
EndFunc