Beiträge von Oscar

  • Poker-Card-Machine (Game)

    Da der neue Jackpot so einige Fragen aufwirft...
    Also, der Jackpot ist völlig unabhängig von der übrigen Auswertung. Auch wenn man dort etwas verliert, so kann man trotzdem den Jackpot gewinnen.
    Die Höhe des Jackpots variiert zwischen 10.000$ und 99.999$ (Zufallswert). Mit der Häufigkeit des Jackpots bin ich bisher zufrieden.
    Ich warte mal ab, ob sich noch mehrere melden, bei denen der Jackpot so häufig auftritt. Vielleicht hattest Du einfach nur Glück?! ;)

  • Fragen zu GUICtrlListView

    Zitat von skyteddy

    Gibt es eine Aufruf, der mir alle Spalten in einem Rutsch auf die optimale Breite zieht, sodaß der Text voll angezeigt wird?

    Lösung:

    Spoiler anzeigen
    [autoit]


    #include <GuiConstantsEx.au3>
    #include <GuiListView.au3>

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

    GUICreate("ListView Set Column Width", 640, 300)
    $hListView = GUICtrlCreateListView("Column 1|Column 2|Column 3|Column 4", 2, 2, 636, 268)
    For $i = 0 To 9
    GUICtrlCreateListViewItem('qwertzuiopasdfghjklyxcvbnm|qwertzuiopasdfghjklyxcvbnm|qwertzuiopasdfghjklyxcvbnm|qwertzuiopasdfghjklyxcvbnm', $hListView)
    Next
    GUISetState()
    For $i = 0 To 3
    _GUICtrlListView_SetColumnWidth($hListView, $i, $LVSCW_AUTOSIZE)
    Next
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE

    [/autoit]

  • Poker-Card-Machine (Game)

    Wenn man unter Windows das engl. Zahlenformat eingestellt hatte, dann gab es diesen Fehler.
    Habe jetzt bei _StringAddThousandsSep einen zusätzlichen Parameter angegeben, sodass es eindeutig ist.
    Müsste jetzt fehlerfrei funktionieren.

  • Poker-Card-Machine (Game)

    Das mache ich doch schon:

    [autoit]

    Local $iBet = StringReplace(StringTrimRight(GUICtrlRead($hBet), 1), '.', ''), $iDollar = 0

    [/autoit]

    Edit: Achso...Kommata?! Wieso Kommata? Da kommen keine Kommawerte vor.

    Edit2: Oh Sh*t! _StringAddThousandsSep liest den Wert aus der Registry. Du hast ein englisches Windows oder zumindest die engl. Schreibweise eingestellt, stimmts?

  • Poker-Card-Machine (Game)

    Den Fehler kapier ich nicht. Flush wurde erkannt, aber nur 0$ Gewinn?
    Spielst Du mit der Exe oder mit dem Script? Falls Script, welche AutoIt-Version benutzt Du?

    Zum Thema Sound:
    Tausche mal die Funktion "_SleepSound()" durch diese hier aus:

    [autoit]


    Func _SleepSound()
    If $bSoundOn Then
    _SoundPlay($ahSound[0])
    Sleep(150)
    Else
    Sleep(100)
    EndIf
    EndFunc ;==>_SleepSound

    [/autoit]

    Dann ist die Auswertung schneller.

  • Poker-Card-Machine (Game)

    Ich habe die Sounds etwas angepasst, wobei man sie nicht beliebig kurz machen kann (werden dann nicht abgespielt, Bug?).

    Es gibt jetzt auch noch mehr Sounds und eine zusätzliche Gewinnmöglichkeit (siehe Post #1).

  • Ini Problem

    Naja, wenn Du

    [autoit]

    Case $User

    [/autoit]


    benutzt, dann handelt es sich wohl um die ID eines Edit- oder Inputcontrols.
    Zum auslesen desselben musst Du GUICtrlRead benutzen. Die IniWrite-Zeile müsste also so aussehen:

    [autoit]

    IniWrite(@ScriptDir &"\Data.ini", "Username", "User", GUICtrlRead($User))

    [/autoit]

  • Installierte Schriftarten + StringRegExpReplace

    @Miraculi: Habe Dein Beispiel mal funktionsfähig gemacht:

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    Global $sAllFonts = @CRLF, $i = 1
    While True
    $sFont = RegEnumVal("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Fonts", $i)
    If @error Then ExitLoop
    $i += 1
    $sAllFonts &= $sFont & @CRLF
    WEnd
    $aAllFonts = StringRegExp($sAllFonts, '(.+?\(.+\))\r', 3)
    _ArraySort($aAllFonts)
    _ArrayDisplay($aAllFonts, 'Alle')

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

    $aTrueType = StringRegExp($sAllFonts, '(.+?\(TrueType\))\r', 3)
    _ArraySort($aTrueType)
    _ArrayDisplay($aTrueType, 'True Type')

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

    $aVGAResolution = StringRegExp($sAllFonts, '(.+?\(VGA-Auflösung\))\r', 3)
    _ArraySort($aVGAResolution)
    _ArrayDisplay($aVGAResolution, 'VGA-Auflösung')

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

    $aAllResolution = StringRegExp($sAllFonts, '(.+?\(Alle Auflösungen\))\r', 3)
    _ArraySort($aAllResolution)
    _ArrayDisplay($aAllResolution, 'Alle Auflösungen')

    [/autoit]

  • A3LGDIPlus.au3 oder GTASPIDER HILF!!! xD

    Also Ticks sind Millisekunden.

    Hier das Beispiel nochmal kommentiert:

    Spoiler anzeigen
    [autoit]


    #include <Date.au3>
    #include <DateTimeConstants.au3>
    #include <GuiConstantsEx.au3>
    #include <Timers.au3>
    Global $sStartTime = '02:00:00' ; 2 Stunden
    Global $iTimer

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

    $hGUI = GUICreate("Timer-Test", 400, 320)
    $hTime = GUICtrlCreateLabel($sStartTime, 20, 20, 90, 25)
    GUICtrlSetFont(-1, 12)
    $hStart = GUICtrlCreateButton("Start", 20, 60, 90, 22)
    GUISetState()

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

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    _Timer_KillAllTimers($hGUI)
    Exit
    Case $hStart
    GUICtrlSetState($hStart, $GUI_DISABLE)
    $iTimer = TimerInit() ; Timer initialisieren
    _Timer_SetTimer($hGUI, 1000, "_Timer") ; Die Funktion "_Timer" jede Sekunde (1000 Millisekunden) aufrufen
    EndSwitch
    WEnd

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

    Func _Timer($hWnd, $Msg, $iIDTimer, $dwTime)
    Local $Secs, $Mins, $Hour
    Local $iStartTicks = _TimeToTicks(StringLeft($sStartTime, 2), StringMid($sStartTime, 4, 2), StringRight($sStartTime, 2)) ; Startzeit in Ticks umwandeln
    _TicksToTime($iStartTicks - Int(TimerDiff($iTimer)), $Hour, $Mins, $Secs) ; Startticks minus die Ticks vom Timer ergeben die Restzeit in Std:Min:Sek
    GUICtrlSetData($hTime, StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)) ; im Label anzeigen
    EndFunc ;==>_Timer

    [/autoit]

  • Poker-Card-Machine (Game)

    Genau, man will ja auch mal gewinnen. Nicht wie in der echten Spielbank, wo immer nur die Bank gewinnt. ;)

    Wenn das Spiel real wäre, dann wär' ich schon zweifacher Billionär und ich wär' der Grund für die nächste Bankenkrise. :D

    autoBert: Ok, der Sound wird optional sein.

  • Schreiben in eine Datei geht nicht

    Mal ein Beispiel:

    [autoit]


    $hFile = FileOpen('test.exe', 16)
    If $hFile = -1 Then Exit
    $sFile = FileRead($hFile) ; komplett in den Speicher laden
    FileClose($hFile)

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

    $sFile = StringReplace($sFile, 'search', 'replace') ; Ein Teil ersetzen

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

    $hFile = FileOpen('test.exe', 2 + 16)
    If $hFile = -1 Then Exit
    FileWrite($hFile, $sFile) ; Variable speichern
    FileClose($hFile)

    [/autoit]

  • A3LGDIPlus.au3 oder GTASPIDER HILF!!! xD

    So bin wieder da. Hier kommt das versprochene Beispiel:

    Spoiler anzeigen
    [autoit]


    #include <Date.au3>
    #include <DateTimeConstants.au3>
    #include <GuiConstantsEx.au3>
    #include <Timers.au3>
    Global $sStartTime = '02:00:00' ; 2 Stunden
    Global $iTimer

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

    $hGUI = GUICreate("Timer-Test", 400, 320)
    $hTime = GUICtrlCreateLabel($sStartTime, 20, 20, 90, 25)
    GUICtrlSetFont(-1, 12)
    $hStart = GUICtrlCreateButton("Start", 20, 60, 90, 22)
    GUISetState()

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

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    _Timer_KillAllTimers($hGUI)
    Exit
    Case $hStart
    GUICtrlSetState($hStart, $GUI_DISABLE)
    $iTimer = TimerInit()
    _Timer_SetTimer($hGUI, 1000, "_Timer")
    EndSwitch
    WEnd

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

    Func _Timer($hWnd, $Msg, $iIDTimer, $dwTime)
    Local $Secs, $Mins, $Hour
    Local $iStartTicks = _TimeToTicks(StringLeft($sStartTime, 2), StringMid($sStartTime, 4, 2), StringRight($sStartTime, 2))
    _TicksToTime($iStartTicks - Int(TimerDiff($iTimer)), $Hour, $Mins, $Secs)
    GUICtrlSetData($hTime, StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs))
    EndFunc ;==>_Timer

    [/autoit]