autoitbug

    bin grade dabei ein spiel zu programmieren aber autoit hat irgendetwas gegen die zahl 5000 er schreibt immer ich hätte zu wenig geld hoffe ihr könnt mir helfen

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    Run("dddsad2.exe")

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

    $Geld = IniRead("122","122","122","0")
    $Geld = "25090000000"

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Hangar", 466, 215, 192, 124)
    GUISetBkColor(0x000000)
    $Pic1 = GUICtrlCreatePic("", 16, 48, 100, 100)
    $Pic2 = GUICtrlCreatePic("", 112, 48, 100, 100)
    $Pic3 = GUICtrlCreatePic("", 208, 48, 100, 100)
    $Pic4 = GUICtrlCreatePic("", 304, 48, 100, 100)
    $Button1 = GUICtrlCreateButton("Buy", 16, 153, 99, 25)
    GUICtrlSetBkColor(-1, 0xFFFF00)
    $Button2 = GUICtrlCreateButton("Buy", 112, 153, 99, 25)
    GUICtrlSetBkColor(-1, 0xFFFF00)
    GUICtrlSetCursor (-1, 0)
    $Button3 = GUICtrlCreateButton("Buy", 206, 153, 99, 25)
    GUICtrlSetBkColor(-1, 0xFFFF00)
    GUICtrlSetCursor (-1, 0)
    $Button4 = GUICtrlCreateButton("Buy", 301, 153, 99, 25)
    GUICtrlSetBkColor(-1, 0xFFFF00)
    GUICtrlSetCursor (-1, 2)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    IniWrite("Pause","Pause","Pause",1)
    WinClose("Waffenauswahl")
    Exit
    Case $Button1
    $Waffenname = "Mg"
    $Preis = "2500"
    $Nummer = "Waffe1|"
    $Nummer1 = "1"
    _kaufen()
    case $Button2
    $Waffenname = "Shootgun"
    $Preis = "5000"
    $Nummer = "Waffe2|"
    $Nummer1 = "2"
    _kaufen()
    Case $Button3
    $Waffenname = "Lasergun"
    $Preis = "10000"
    $Nummer = "Waffe3|"
    $Nummer1 = "3"
    _kaufen()
    Case $Button4
    $Waffenname = "Impectgun"
    $Preis = "15000"
    $Nummer = "Waffe4|"
    $Nummer1 = "4"
    _kaufen()

    EndSwitch
    WEnd

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

    Func _kaufen()
    $kaufen1 = MsgBox(4,$Waffenname,"Wollen sie diese Waffe um " & $Preis & "$ kaufen?")
    If $kaufen1 = 6 Then

    If $Geld >= $Preis Then
    $Geld = $Geld - $Preis
    IniWrite("Geld","Geld","Geld",$Geld)
    IniWrite("Raumschiffwaffe","Raumschiffwaffe","Raumschiffwaffe" & $Nummer1,$Nummer)
    MsgBox(0,"Waffe","Sie haben sich die Waffe gekauft.")
    WinClose("Waffenauswahl")
    Run("dddsad.exe")
    Else
    MsgBox(0,"Waffe","Sie haben zu wenig Geld.")
    EndIf
    Else
    MsgBox(0,"Waffe","Sie haben die Waffe nicht gekauft.")
    EndIf
    EndFunc

    [/autoit]

    Einmal editiert, zuletzt von manuel6000 (12. Februar 2011 um 23:15)

    jezt schreibt er mir wen ich voher den 2 buy button anklicke und dann den ersten den preis 5000 statt 1500 ist aber nur bei den ersten 2 buttons so

    Zitat von manuel6000

    ok danke liegt an dem


    schön, dann ist dein Problem ja gelöst, schön wäre es allerdings auch wenn du den Thread auf gelöst setzt. Einfach 1. Beitrag bearbeiten, Präfix (nähe Überschrift) ändern und speichern (absenden)

    Ps.: ich (und hoffentlich auch andere) ignoriere Hilfe-Themen von Verweigern des auf gelöst setzen

    mfg autoBert

    @manuel6000:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

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

    $Geld = 7500

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

    $Form1 = GUICreate("Hangar", 466, 215, 192, 124)
    GUISetBkColor(0x000000)
    $Pic1 = GUICtrlCreatePic("", 16, 48, 100, 100)
    $Pic2 = GUICtrlCreatePic("", 112, 48, 100, 100)
    $Pic3 = GUICtrlCreatePic("", 208, 48, 100, 100)
    $Pic4 = GUICtrlCreatePic("", 304, 48, 100, 100)
    $Button1 = GUICtrlCreateButton("Buy", 16, 153, 99, 25)
    GUICtrlSetBkColor(-1, 0xFFFF00)
    $Button2 = GUICtrlCreateButton("Buy", 112, 153, 99, 25)
    GUICtrlSetBkColor(-1, 0xFFFF00)
    GUICtrlSetCursor (-1, 0)
    $Button3 = GUICtrlCreateButton("Buy", 206, 153, 99, 25)
    GUICtrlSetBkColor(-1, 0xFFFF00)
    GUICtrlSetCursor (-1, 0)
    $Button4 = GUICtrlCreateButton("Buy", 301, 153, 99, 25)
    GUICtrlSetBkColor(-1, 0xFFFF00)
    GUICtrlSetCursor (-1, 2)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    $Waffenname = "Mg"
    $Preis = 2500
    $Nummer = "Waffe1|"
    $Nummer1 = "1"
    _kaufen()
    case $Button2
    $Waffenname = "Shootgun"
    $Preis = 5000
    $Nummer = "Waffe2|"
    $Nummer1 = "2"
    _kaufen()
    Case $Button3
    $Waffenname = "Lasergun"
    $Preis = 10000
    $Nummer = "Waffe3|"
    $Nummer1 = "3"
    _kaufen()
    Case $Button4
    $Waffenname = "Impectgun"
    $Preis = 15000
    $Nummer = "Waffe4|"
    $Nummer1 = "4"
    _kaufen()

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

    EndSwitch
    WEnd

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

    Func _kaufen()
    $kaufen1 = MsgBox(4,$Waffenname,"Wollen sie diese Waffe um " & $Preis & "$ kaufen?")
    If $kaufen1 = 6 Then

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

    If $Geld >= $Preis Then
    $Geld -= $Preis
    IniWrite("Geld","Geld","Geld",$Geld)
    IniWrite("Raumschiffwaffe","Raumschiffwaffe","Raumschiffwaffe" & $Nummer1,$Nummer)
    MsgBox(0,"Waffe","Sie haben sich die Waffe gekauft.")
    WinClose("Waffenauswahl")

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

    Else
    MsgBox(0,"Waffe","Sie haben zu wenig Geld.")
    EndIf
    Else
    MsgBox(0,"Waffe","Sie haben die Waffe nicht gekauft.")
    EndIf
    EndFunc

    [/autoit]