Beiträge von funkey

  • 2 While schleifen gleichzeitig durchlaufen

    So funktioniert das mit Sicherheit nicht. Wüsste auch nicht warum man das machen will.

    Je nachdem was du willst, kann dir das helfen oder nicht ;) :

    Spoiler anzeigen
    [autoit='Version 3.3.0.0']

    $String = 'HalloWelt'
    $aString = StringSplit($String, "", 2)

    While 1
    $aString = _ArrayShuffle($aString)
    For $i = 0 To UBound($aString) -1
    Send($aString[$i], 1)
    Next
    WEnd

    Func _ArrayShuffle($array) ; original funkey ;)
    If ( Not IsArray($array) ) Then
    SetError(1)
    Return 0
    EndIf
    Local $Element = 0, $aHelp[UBound($array)]
    For $i = 0 To UBound($array) -1
    Do
    $element = Random(0, UBound($array) -1, 1)
    Until $array[$element] <> ""
    $aHelp[$i] = $array[$element]
    $array[$element] = ""
    Next
    Return $aHelp
    EndFunc

    [/autoit]

  • Multiplayer-Game 'Kurven-Spiel'

    Danke für das Lob und auch für das Testen :thumbup: . Ich werde versuchen demnächst noch meine Kollisions-Check-Routine etwas zu verfeinern (PixelSearch ist nicht nur für Bots gut :P )


    Zitat von Dankeschön

    Der Slash wird irgendwie nicht angenommen

    Damit ist das Divisionszeichen und das Multiplikationszeichen auf dem Nummernblock gemeint. Ist dieser eingeschaltet? Auf einem Laptop ohne separatem Nummernblock kann es sich mit 'm' und ',' überschneiden, sodass nur 5 Teilnehmer gleichzeitig spielen können. Aber ich denke, dass jeder hier in der Lage ist, bei _IsPressed den ersten Parameter auszutauschen, wenn nötig ;)


    mfg funkey

  • Wie geh ich an AutoIt ran?

    Oscar, du hast recht! Da steht nirgends etwas, das Organize Includes mitinstalliert wird, leider! Dann hatte ich es wohl schon vorher installiert und dachte nur, dass es mit Scite4Autoit mitgekommen ist.

    Edit: Mit Koda wirds dann auch das selbe sein, denke ich.

  • Multiplayer-Game 'Kurven-Spiel'

    Ich habe durch Zufall bei meiner Freundin ein kleines Spiel gesehen und das hat mir so gut gefallen, dass ich es in Autoit nachgebaut habe!
    Das Spiel ist für 1 bis 6 Spieler und meiner Meinung nach richtig unterhaltsam.

    Ich wünsche euch viel Spaß beim Spielen und danke für's Testen!

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.


    Edit: Update auf Version 1.1
    * alle bekannten Bugs entfernt (3)
    * Icon ergänzt
    * Script um über 200 Zeilen gekürzt.

    Edit: Update auf Version 1.2
    * Acceleratoren eingebaut (wegen Fehlersound bei Tastendruck) thx progandy
    * Tastenbeschriftung für Numpad-Player geändert

    Edit: Update auf Version 1.3
    * Das ist der Versuch halbwegs anständige Computer-Gegner zu erschaffen ;)
    * Kleinigkeiten ausgebessert

    Edit: Update auf Version 1.4
    * ScreenCapture mit Hotkey p
    * Pause mit Taste Pause ;)
    * Rundenanzeige im Singleplayer-Modus
    * Not-Minimierung mit Taste o im Wartemodus (bevor die Runde beginnt)
    * PC-Gegner verbessert (zur Version 1.3)
    * Aero-Abschaltung für Vista implementiert (danke MOZ, Raupi, GtaSpider)
    * Ansätze eines Highscore-Modus (gefällt mir nicht wirklich)

    Edit: 2013.08.28
    * Mit aktuellem AutoIt (V3.3.8.1) direkt spielbare Beta-Version 1.4.4 hochgeladen. Viel Spaß weiterhin!


    Danke für die bisherigen 248 Downloads vor Version 1.4 und die tollen Kommentare!!!
    Danke für die bisherigen 1467 Downloads der Version 1.4 und die tollen Kommentare!!![/i]

  • Game: Mario Runnings

    Flash kann ich leider nicht. Ich weiß auch, dass Autoit nicht für alles gut geeignet ist, aber probieren werde ich trotzdem soviel wie nur irgendwie geht.

    P.S. Heute werde ich noch ein Autoit-Multiplayer-Game posten und das Spiel ist richtig klasse!! :thumbup:

  • Game: Mario Runnings

    Eben weil noch einiges nicht geht, habe ich es unter Projekte gepostet.
    Wenn ich Zeit und vor allem wieder Lust habe dann werde ich an dem Skript weiterfeilen!
    Das ganze war nur als Test gedacht, aber ich denke man könnte da draus ein vollwertiges Spiel basteln :D

  • Translator/Übersetzer

    Hier meine Variante ;)

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <IE.au3>
    $Url = "http://translate.google.de/translate_t#"

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

    GUICreate("Rapidtranslator by funkey", 400,120)
    $Label = GUICtrlCreateLabel("Bitte zu übersetzenden Text eingeben!",10, 10, 380, 20)
    $Input = GUICtrlCreateInput("",10,30, 380,20)
    $Btn_de_en = GUICtrlCreateButton("Übersetzen DE -> EN", 10, 55, 170, 20)
    $Btn_en_de = GUICtrlCreateButton("Übersetzen EN -> DE", 220, 55, 170, 20)
    $warten = GUICtrlCreateLabel("Bitte warten",10, 80, 380, 20)
    GUICtrlSetState( -1, $GUI_HIDE)
    $result = GUICtrlCreateInput("",10, 80, 380, 20)
    GUICtrlSetState( -1, $GUI_HIDE)

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

    GUISetState()

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

    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    If $msg = $Btn_de_en Then
    $transdirection = "de|en|"
    $Text = GUICtrlRead($Input)
    If $Text <> "" Then
    GUICtrlSetData($result, trans($transdirection))
    EndIf
    EndIf
    If $msg = $Btn_en_de Then
    $transdirection = "en|de|"
    $Text = GUICtrlRead($Input)
    If $Text <> "" Then
    GUICtrlSetData($result, trans($transdirection))
    EndIf
    EndIf
    Sleep(20)
    WEnd

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

    Func trans($langdirection)
    GUICtrlSetState($warten, $GUI_SHOW)
    GUICtrlSetState($result, $GUI_HIDE)
    $oIE = _IECreate($Url&$transdirection&$Text,0,0,1)
    $oform = _IEFormGetObjByName($oIE, 1)
    $otext = _IEFormElementGetObjByName($oform , "gtrans")
    Do
    $translation = _IEFormElementGetValue($otext)
    Until $translation <> ""
    _IEQuit($oIE)
    GUICtrlSetState($warten, $GUI_HIDE)
    GUICtrlSetState($result, $GUI_SHOW)
    Return $translation
    EndFunc

    [/autoit]

  • Send an ein nicht aktives Fenster (wenn man z.b. auf dem Desktop ist)

    Hallo und herzlich willkommen!

    Normalerweise werden Bots und Programme, die Spiele unterstützen hier nicht supportet!
    http://www.autoit.de/index.php?page=Forumrules

    Aber da heute Weihnachten ist, sieh das als einmaliges Geschenk an.

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

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

    $Main = GUICreate("The Presser", 169, 303, 468, 187)
    GUISetBkColor(0xA6CAF0)
    $Label1 = GUICtrlCreateLabel("Key for pressing", 16, 24, 79, 17)
    $Input1 = GUICtrlCreateInput("", 104, 24, 25, 21)
    $Label2 = GUICtrlCreateLabel("Made by Zero Cool", 40, 272, 94, 17)
    $Label3 = GUICtrlCreateLabel("To close the Programm ", 24, 136, 116, 17)
    $Label4 = GUICtrlCreateLabel("while you are in-Game", 24, 152, 108, 17)
    $Label5 = GUICtrlCreateLabel("or anywhere else ", 24, 168, 87, 17)
    $Label6 = GUICtrlCreateLabel("press F6", 24, 184, 44, 17)
    $Start = GUICtrlCreateButton("Start", 48, 224, 75, 25, 0)
    $Label7 = GUICtrlCreateLabel("Press all", 16, 56, 43, 17)
    $Input2 = GUICtrlCreateInput("", 64, 56, 41, 21)
    $Label8 = GUICtrlCreateLabel("millisecs", 112, 56, 42, 17)
    $Label9 = GUICtrlCreateLabel("1 secound = 1000 millisecs", 16, 88, 131, 17)
    GUISetState(@SW_SHOW)

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

    Global $Paused
    HotKeySet("{PAUSE}", "TogglePause")
    HotKeySet("{F6}", "Terminate")

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

    While 1
    $Msg = GUIGetMsg()
    Select
    Case $Msg = $GUI_EVENT_CLOSE
    Exit
    Case $Msg = $Start
    WinSetState("The Presser", "", @SW_HIDE)
    _Press(GUICtrlRead($Input1, 1), GUICtrlRead($Input2, 1))
    EndSelect
    WEnd

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

    Func _Press($Key, $Pause)
    While 1
    If Not $Paused Then Send($Key)
    Sleep($Pause)
    WEnd
    EndFunc ;==>_Press

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

    Func TogglePause()
    $Paused = Not $Paused
    EndFunc ;==>TogglePause

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

    Func Terminate()
    Exit
    EndFunc ;==>Terminate

    [/autoit]


    mfg funkey

  • Problem mit Radios (nicht das Gerät) ;)

    Hab dir mal eine Starthilfe gemacht:

    Spoiler anzeigen
    [autoit]

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

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

    $titel = 'Shutdown-Manager'
    $version = '1.0'

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

    $Maindialog = GUICreate($titel, 220, 330, -1, -1)
    GUISetBkColor(0xffffff)
    GUICtrlCreateLabel($titel & " v." & $version, 50, 5, 150, 25, $WS_DISABLED)
    $aktion = GUICtrlCreateGroup("Aktion", 50, 30, 105, 170)
    $shutdown = GUICtrlCreateRadio("Ausschalten", 65, 55, 85, 20)
    GUICtrlSetState($shutdown, $GUI_CHECKED) ;vorbelegen
    Global $Aktion = "Ausschalten" ;vorbelegen
    GUICtrlSetTip(-1, "Computer Ausschalten")
    $ruhezustand = GUICtrlCreateRadio("Ruhezustand", 65, 85, 85, 20)
    GUICtrlSetTip(-1, "Computer wird in den Ruhezustand gefahren")
    $standby = GUICtrlCreateRadio("Standby", 65, 115, 85, 20)
    GUICtrlSetTip(-1, "Computer wird in den Standby-Modus gefahren")
    $reboot = GUICtrlCreateRadio("Neu starten", 65, 145, 85, 20)
    GUICtrlSetTip(-1, "Computer wird Neu gestartet")
    $logoff = GUICtrlCreateRadio("Abmelden", 65, 175, 85, 20)
    GUICtrlSetTip(-1, "Benutzer wird abgemeldet")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlCreateGroup("Aktionszeit", 10, 210, 200, 70)
    $uhrzeit_redio = GUICtrlCreateRadio("um: ", 25, 225, 40, 20)
    GUICtrlSetTip(-1, "Zeitpunkt, zu dem die gewünschte Aktion ausgeführt werden soll")
    $timer_redio = GUICtrlCreateRadio("in: ", 25, 255, 40, 20)
    GUICtrlSetTip(-1, "Zeitpunkt, zu dem die gewünschte Aktion ausgeführt werden soll")
    $stunden = GUICtrlCreateInput("", 75, 242, 30, 20)
    GUICtrlCreateLabel(":", 111, 244, 10, 20)
    $minuten = GUICtrlCreateInput("", 120, 242, 30, 20)
    GUICtrlCreateLabel(":", 155, 244, 10, 20)
    $sekunden = GUICtrlCreateInput("", 165, 242, 30, 20)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $aktion_ausfuehren = GUICtrlCreateButton(" OK ", 95, 290)
    GUISetState(@SW_SHOW, $Maindialog)

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

    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $aktion_ausfuehren
    Switch $Aktion
    Case "Ausschalten"
    ;~ Shutdown(9)
    Case "Ruhezustand"
    ;~ Shutdown(64)
    Case "Standby"
    ;~ Shutdown(32)
    Case "Neu starten"
    ;~ Shutdown(2)
    Case "Abmelden"
    ;~ Shutdown(0)
    EndSwitch
    Case $shutdown
    $Aktion = "Ausschalten"
    Case $ruhezustand
    $Aktion = "Ruhezustand"
    Case $standby
    $Aktion = "Standby"
    Case $reboot
    $Aktion = "Neu starten"
    Case $logoff
    $Aktion = "Abmelden"
    Case $uhrzeit_redio
    $modus = "Uhrzeit"
    Case $timer_redio
    $modus = "Timer"
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    Sleep(20)
    WEnd

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

    Das nächste Mal poste lieber das ganze Skript. Ist nicht sehr toll wenn man alles selber zusammenstöpseln muss!

  • Game: Mario Runnings

    Hallo und schöne Weihnachten Euch allen!
    Ich wollte eigentlich ein fix fertiges Spiel posten, dass ist sich jetzt aber leider nicht ausgegangen.
    deswegen kommt das ganze jetzt zu den Projekten. Vllt wird mal ein nettes Spiel daraus!?

    Ich bitte um Feedback. ;)

    Danke!


    P.S. Das ist mein Weihnachtsgeschenk an euch!