Beiträge von funkey

  • Multiplayer-Game 'Kurven-Spiel'

    Ich finde, dass die PC-Gegner immer noch zu dumm sind. Manchmal haben sie zwar Glück und schlängeln sich so lange zwischendurch bis man selbst einen Fehler macht. Was auch noch ein Vorteil für sie ist, ist die Tatsache, dass man immer wieder schauen muss wie er das und das wieder bewältigt, so dass man total abgelenkt ist, und dadurch Fehler macht.

    Schau dir einfach im Source-Code an, wie ich das gemacht habe. ;)
    Nein Scherz: Der PC schaut einfach voraus und sucht nach Farben auf seinem Weg, und dann schlägt er den Weg ein auf dem er am meisten 'schwarz' entdeckt hat. So einfach ist das. :D

  • Kochkurs: Spiel für meinen Stammtisch

    Super d0npers!! Du bist ja ein richtiger Vollprofi-Zocker :D

    Zitat von d0npers

    Hast du das Spiel nur mit AutoIt erstellt ??


    Nein, ich hab auch noch Paint zur Hilfe genommen ;):rofl:


    Momentane Highscores bei Autoit.de:

    1. d0npers - 2250.18 Punkte
    2. Progandy - 2092.09 Punkte
    3. Commander21 - ~2100 Punke ;)
    4. funkey - 2007.32 Punkte
    5. DJScorpion - 1833.64 Punkte

  • Wieder mal StringRegExp

    Ich Suche wieder mal einen regulären Ausdruck. Ich bin mir aber nicht sicher ob es mit einem möglich ist, oder ob man mehrere braucht. Ich habe hier Speicher-Adressen einer SPS und möchte die Byte-Adresse bekommen.

    Beispiele:

    DB71.DBX20.3 --> 20
    M14.2 --> 14
    MD44 --> 44
    DB13.DBW2880 --> 2880


    Danke für eure Hilfe

  • Kochkurs: Spiel für meinen Stammtisch

    @Oger-Lord: Ich habe ja schon gesagt, dass das mein erstes Spiel war. Damals kannte ich Autoit.de noch nicht, und habe vieles komplizierter gemacht als es sein hätte müssen. Ich wusste es einfach noch nicht besser. Außerdem habe ich noch nie gerne mit Grafiken gearbeitet, was mir aber bei Spielen für meinen Stammtisch nicht ausbleibt ;)
    Bots bitte nicht hier posten, auch wenn es verführerisch ist. ;) Außerdem sinnlos, denn du kannst dir ja einfach mehr Punkte geben :P

    Momentane Highscores bei Autoit.de: :D

    1. Progandy - 2092.09 Punkte
    2. funkey - 2007.32 Punkte
    3. DJScorpion - 1833.64 Punkte

  • Kochkurs: Spiel für meinen Stammtisch

    Hallo Botter-Gemeinde :P
    Wer zu nahe an die maximale Punktezahl von 2625 herankommt, der kann nur mit einem zusätzlichen Programm nachgeholfen haben! Ich selbst hab mir oft überlegt, für mein eigenes Spiel einen Klick-Bot zu bauen, da ich immer schlechter (langsamer ;( ) war als die meisten meiner Freunde. Aber ich hab's mir verkniffen. Ist ja aber auch egal! :D

    Wer ehrlich eine gute Punktezahl zusammenbringt, der kann sie ja hier noch posten!

  • Ein Bild in schwarz weiß speichern und vergleichen

    Hab das aus dem englischen Forum und so angepasst, das es SW-Bilder ausgibt:

    SW-Maker.au3
    [autoit]

    #include <GDIPlus.au3>
    #include <WindowsConstants.au3>
    #include <Color.au3>
    #include <WinAPI.au3>

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

    $PATH = FileOpenDialog("Datei auswählen",@ScriptDir,"Bilder (*.bmp; *.jpg)",1)
    If @error Then Exit
    $CHOOSE = GUICreate("Wählen",100,60,-1,-1,0x16C80000)
    $COMBO = GUICtrlCreateCombo("",5,5,90,20)
    GUICtrlSetData($COMBO,"Rot-Anteil|Grün-Anteil|Blau-Anteil","Rot-Anteil")
    $SELECT = GUICtrlCreateButton("OK",5,30,90,20)
    GUISetState(@SW_SHOW,$CHOOSE)
    While 1
    $MSG = GUIGetMsg()
    If $MSG = $SELECT Then
    $CHANNEL = GUICtrlRead($COMBO)
    GUIDelete($CHOOSE)
    ExitLoop
    ElseIf $MSG = -3 Then
    Exit
    EndIf
    Sleep(15)
    WEnd

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

    $SAVE = FileSaveDialog("Speichern",@ScriptDir,"Bild (*.jpg)",16,"Bitmap_" & $CHANNEL & ".JPG")
    If @error Then
    Exit
    Else
    If StringRight($SAVE, 4) <> ".JPG" Then $SAVE &= ".JPG"
    EndIf

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

    _GDIPlus_Startup()
    $IMAGE = _GDIPlus_ImageLoadFromFile($PATH)
    $X = _GDIPlus_ImageGetWidth($IMAGE)
    $Y = _GDIPlus_ImageGetHeight($IMAGE)
    _GDIPlus_ImageDispose($IMAGE)

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

    $GUI = GUICreate("SW-Maker",$X,$Y,-1,-1,0x80000000)
    GUISetBkColor(0xFFFFFF)
    $PICTURE = GUICtrlCreatePic($PATH,0,0,$X,$Y)
    GUISetState(@SW_SHOW,$GUI)

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

    $DC = _WinAPI_GetDC($GUI)
    $C_DC = _WinAPI_CreateCompatibleDC($DC)
    $BITMAP = _WinAPI_CreateCompatibleBitmap($DC,$X,$Y)
    _WinAPI_SelectObject($C_DC,$BITMAP)
    _WinAPI_BitBlt ($C_DC,0,0,$X,$Y,$DC,0,0,$SRCCOPY)
    $BITS = DllStructCreate ("dword[" & ($X * $Y) & "]")
    DllCall ("gdi32", "int", "GetBitmapBits", "ptr", $BITMAP, "int", ($X * $Y * 4), "ptr", DllStructGetPtr ($BITS))
    GUICtrlDelete($PICTURE)

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

    For $CY = 0 To ($Y - 1)
    For $CX = 0 To ($X - 1)
    $INDEX = ($CY * $X) + $CX
    $COLOR = DllStructGetData ($BITS,1, $INDEX)
    $RED = Hex(_ColorGetRed($COLOR),2)
    $GREEN = Hex(_ColorGetGreen($COLOR),2)
    $BLUE = Hex(_ColorGetBlue($COLOR),2)
    If $CHANNEL = "Rot-Anteil" Then
    $COLOR = "0x" &$RED&$RED&$RED
    ElseIf $CHANNEL = "Grün-Anteil" Then
    $COLOR = "0x"&$GREEN&$GREEN&$GREEN
    ElseIf $CHANNEL = "Blau-Anteil" Then
    $COLOR = "0x"&$BLUE&$BLUE&$BLUE
    EndIf
    DllStructSetData ($BITS,1,$COLOR,$INDEX)
    Next
    DllCall ("gdi32", "int", "SetBitmapBits", "ptr", $BITMAP, "int", ($X * $Y * 4), "ptr", DllStructGetPtr ($BITS))
    _WinAPI_BitBlt ($DC,0,0,$X,$Y,$C_DC,0,0,$SRCCOPY)
    Next
    $HIMAGE = _GDIPlus_BitmapCreateFromHBITMAP($BITMAP)
    _GDIPlus_ImageSaveToFile($HIMAGE,$SAVE)
    _WinAPI_DeleteObject($HIMAGE)
    _WinAPI_DeleteObject($BITMAP)
    _GDIPlus_Shutdown()
    _WinAPI_ReleaseDC($GUI,$DC)

    [/autoit]

  • _Stringbetween funkt = 0

    [autoit]

    #include <Inet.au3>
    #include <String.au3>
    #include <GuiConstantsEx.au3>

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

    GUICreate("test", 650, 500)

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

    $sonline = _StringBetween(_INetGetSource("http://pennergame.de/login/"), '<td style="text-align:right;">', 'Spieler online</span>')
    $online = StringTrimLeft($sonline[0], 11)
    GUICtrlCreateLabel("" & $online & " Spieler online", 540, 485);spieleronline
    GUISetState()

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

    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE

    [/autoit]

  • Multiplayer-Game 'Kurven-Spiel'

    So MatthiasG., meine Stellungnahme! ;)

    Zitat von MatthiasG.

    Die KI neigt bei mir dazu, Spiralen zu machen, anstatt sich durch Löcher zu befreien


    Ich werde weiterhin versuchen die PC-Gegner zu verbessern

    Zitat von MatthiasG.

    Die KI ist in sofern nicht intelligent, als das sie Gegner nicht abdrängt.


    Das ist schwierig, da es eigentlich keine KI ist.

    Zitat von MatthiasG.

    Die Rundenanzahl sollte frei wählbar sein


    Kann ich machen.

    Zitat von MatthiasG.

    Auch im Multiplayermodus sollte eine KI da sein


    Das gibt es schon, einfach 2x aktivieren im Multiplayer-Modus, also z.B. 2x auf 1 drücken um den roten PC-Gegner zu aktivieren.

    Zitat von MatthiasG.

    Die Anzhal der KIs sollte frei wählbar sein


    Siehe Multiplayer-Modus. Da ist ein gemischter Betrieb möglich

    Zitat von MatthiasG.

    Die Geschwindigkeit des Spiels sollte frei wählbar sein


    Hab gestern auf einem Laptop gesehen, dass es dort viel schneller lief, als bei mir Zuhause. Ich schaue mal, ob ich das einbaue.

    Zitat von MatthiasG.

    Vielleicht sollte ein KI-Level eingerichtet werden


    Erst nachdem ich die PC-Gegner 'intelligenter' machen konnte, werde ich diese Option einbauen. Dummer machen ist dann kein Problem.

    Zitat von MatthiasG.

    Bei dem Singleplayer-Modus sehe ich das "diesen bedienen Sie mit der Maus" nur halb


    Das hängt von der Bildschirm-Auflösung ab. Bei 1280x1024 sieht man alles. Aber auf dem fremden Laptop gestern war auch nur das halbe Label sichtbar. Werde ich bei nächster Gelegenheit ändern.

    So das wars erstmal von meiner Seite. Ich denke es wird noch eine Weile dauern, bis ich die Version 1.5 (bzw. 2.0, je nachdem, wie viele Änderungen ich machen werde) veröffentlichen werde, da ich mich jetzt an einem neuen ziemlich aufwändigen Spiel für meinen Stammtisch versuche ;)

    Danke für die Anregungen und das Lob!!

  • Ö3-Comedy Downloader

    Aufgepasst Österreicher ;)
    Hier mal ein kleines Skript, dass vom Hitradio Ö3 alle aktuellen Wecker-Comedys downloadet.
    Es sucht nach neuen Dateien und läd sie dann herunter. So verpasst man nichts mehr :D
    Vielleicht kann es ja ein Ö3-Wecker-Fan brauchen.

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=OE3.ico
    #AutoIt3Wrapper_Compression=4
    #AutoIt3Wrapper_Res_Comment=Ö3-Comedy Downloader
    #AutoIt3Wrapper_Res_Description=Ö3-Comedy Downloader
    #AutoIt3Wrapper_Res_Fileversion=1.0
    #AutoIt3Wrapper_Res_LegalCopyright=funkey 2009
    #AutoIt3Wrapper_Res_Language=3079
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <Array.au3>
    #include <String.au3>
    #include <IE.au3>
    Opt('TrayMenuMode', 1)

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

    HotKeySet('{Esc}', '_Abbruch')

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

    Global $Grundordner = "Ö3-Comedy"
    Global $Neues = ""
    Global $Titel = "Ö3-Comedy Downloader"
    Global $Abbruch = 0

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

    TraySetToolTip($Titel)
    $NameParameter = StringLeft(StringRight(@ScriptName, 5), 1)

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

    If $NameParameter = 'a' Then ;wenn der Dateiname auf 'a' endet (z.B. Downloada), dann wird die Sicherheitsfrage übergangen (z.B. für Autostart)
    $Starten = 6
    Else
    $Starten = MsgBox(36, $Titel, "Soll nach neuen Comedy-Dateien gesucht werden?")
    EndIf

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

    If $Starten <> 6 Then Exit
    TrayTip($Titel, "Suche nach neuen Dateien!", 30, 1)
    $oIE = _IECreate('http://oe3.orf.at/comedy', 0, 0)
    $Uebersicht = _IEBodyReadHTML($oIE)
    $Sendungen = StringRegExp($Uebersicht, '">(.*?)</(?i)a></h1>' , 3)
    $Links = StringRegExp($Uebersicht, '<(?i)h1><a href="(.*?)">' , 3)

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

    If Not FileExists(@ScriptDir & "\"&$Grundordner) Then DirCreate(@ScriptDir & "\"&$Grundordner)
    For $i = 0 To UBound($Sendungen) -1
    $Sendungen[$i] = StringReplace($Sendungen[$i],"&amp;","&")
    If Not FileExists(@ScriptDir & "\"&$Grundordner&"\" & $Sendungen[$i]) Then DirCreate(@ScriptDir & "\"&$Grundordner&"\" & $Sendungen[$i])
    Next

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

    For $i = 0 To UBound($Links) -1
    TrayTip($Titel, "Suche neue Dateien in "&@CRLF&$Sendungen[$i], 30, 1)
    _IENavigate($oIE, $Links[$i])
    $MP3_Seite = _IEBodyReadHTML($oIE)
    $MP3s = StringRegExp($MP3_Seite, '<(?i)a href="(.*?)">MP3<' , 3)
    For $m = 0 To UBound($MP3s) -1
    $MP3FileName = StringTrimLeft($MP3s[$m], StringInStr($MP3s[$m], "/", 1, -1))
    If Not FileExists(@ScriptDir & "\"&$Grundordner&"\" & $Sendungen[$i] &"\"& $MP3FileName) Then
    TrayTip($Titel, $Sendungen[$i]&@CRLF&$MP3FileName, 30, 1)
    InetGet($MP3s[$m], @ScriptDir & "\"&$Grundordner&"\" & $Sendungen[$i] &"\"& $MP3FileName)
    $Neues &= $Sendungen[$i] &"\"& $MP3FileName&@CRLF
    EndIf
    If $Abbruch = 1 Then ExitLoop
    Next
    If $Abbruch = 1 Then ExitLoop
    Next
    _IEQuit($oIE)

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

    TrayTip("","",0)
    If $Neues = "" Then
    MsgBox(64, $Titel, " Es wurden keine neuen Dateien gefunden!")
    Else
    MsgBox(64, $Titel, $Neues)
    EndIf

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

    Func _Abbruch()
    $Abbruch = 1
    EndFunc

    [/autoit]

  • Per GUI in Ini Schreiben

    Zur Passworteingabe:

    [autoit]

    #include <EditConstants.au3>
    $pwi = GUICtrlCreateInput("", 40, 40, 121, 21, $ES_PASSWORD)

    [/autoit]

    Zu PixelSearch oder PixelChecksum findest du genug Hilfe, wenn du die Suche benützt. Allerdings könntest du den Button auch mit Mouseklick auf die Koordinaten des Buttons + die Koordinaten des Fensters drücken.

  • Multiplayer-Game 'Kurven-Spiel'

    Zitat von Padmak

    also jetzt ist es wirklich perfekt
    und iwie laufen die linien bei mir jez runder (is des nur bei mir so?)
    weiter so!

    Erstmal danke, aber ich glaube so ein Spiel wird nie perfekt sein. Man könnte immer noch etwas verbessern oder etwas ergänzen.
    Wenn ich wieder Lust habe, an dem Skript weiterzuarbeiten, dann werde ich wohl einen Bildschirmschoner-Modus einbauen, so wie MOZ es vorgeschlagen hatte.
    Ich kann es nicht bestätigen, dass die Linien jetzt irgendwie runder laufen, aber sollte es doch der Fall sein, dann stört es mich auch nicht. :D