Beiträge von GE IXI TIM

  • Powerball (Snake-ähnlich^^)

    Hallo zusammen^^ Hier möchte ich euch mein 1. Spiel vorstellen: Powerball
    Fast das Selbe wie Snake, nur: der Ball/Schlange wird nicht länger, sondern schneller :D

    Nur da es mein 1. Spiel ist und ich allgemein eher Kot als Code schreibe, sieht es abartig chaotisch aus -.-
    und ich hab auch noch nicht soo die Erfahrung, weshalb ich viele Sachen umständlich schwer gemacht habe.

    Highscore function, wertet die Beste Highscore mit der neuen aus und zeigt das Ergebnis :)
    Farbauswahl von Bk und Ball.
    Schwierigkeitswahl (je schwerer, desto mehr Punkte)
    Testet es einfach mal und sagt mir was ich besser machen kann :) (bitte sanft, da ich noch nie zuvor etwas derartiges gemacht habe^^)
    Danke im Voraus
    Tim

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Res_Comment=New Game!!!
    #AutoIt3Wrapper_Res_Description=Powerball, a Game with is used wit the KeyPad. Catch the apples!
    #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
    #AutoIt3Wrapper_Res_LegalCopyright=Tim Dellmann®
    #AutoIt3Wrapper_Res_Language=1031
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    FileInstall("green-bg.ico", @TempDir & "green-bg.ico")
    FileInstall( "red-bg.ico", @TempDir & "red-bg.ico")
    FileInstall( "blue-bg.ico", @TempDir & "blue-bg.ico")
    FileInstall( "yellow-bg.ico", @TempDir & "yellow-bg.ico")
    FileInstall("mauer__.ico", @TempDir & "mauer__.ico")
    FileInstall("Apfel__.bmp", @TempDir & "Apfel__.bmp")
    FileInstall("Powerball.ico", @TempDir & "Powerball.ico")
    FileInstall("Highscore.hsc", @TempDir & "Highscore.hsc")
    FileInstall("yellow-snake.ico", @TempDir & "yellow-snake.ico")
    FileInstall("red-snake.ico", @TempDir & "red-snake.ico")
    FileInstall("snake-green.ico", @TempDir & "snake-green.ico")
    FileInstall("blue-snake.ico", @TempDir & "blue-snake.ico")
    #Region ### START Koda GUI section ### Form=
    $Form3 = GUICreate("Settings", 205, 314, 467, 291)
    $Group1 = GUICtrlCreateGroup("BG-Color", 8, 8, 177, 97)
    $greensnake = GUICtrlCreateButton("(Not allowed)", 16, 24, 36, 41, $BS_ICON)
    GUICtrlSetImage(-1, @TempDir & "green-bg.ico", 0)
    $redsnake = GUICtrlCreateButton("(Not allowed)", 56, 24, 36, 41, $BS_ICON)
    GUICtrlSetImage(-1, @TempDir & "red-bg.ico", 0)
    $bluesnake = GUICtrlCreateButton("(Not allowed)", 96, 24, 36, 41, $BS_ICON)
    GUICtrlSetImage(-1, @TempDir & "blue-bg.ico", 0)
    $yellowsnake = GUICtrlCreateButton("(Not allowed)", 136, 24, 36, 41, $BS_ICON)
    GUICtrlSetImage(-1, @TempDir & "yellow-bg.ico", 0)
    $labelbg = GUICtrlCreateLabel(" ", 16, 72, 160, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("Snake-Color", 8, 112, 177, 97)
    $snakegreen = GUICtrlCreateButton("(Not allowed)", 16, 128, 36, 41, $BS_ICON)
    GUICtrlSetImage(-1, @TempDir & "green-bg.ico", 0)
    $redgreen = GUICtrlCreateButton("(Not allowed)", 56, 128, 36, 41, $BS_ICON)
    GUICtrlSetImage(-1, @TempDir & "red-bg.ico", 0)
    $bluegreen = GUICtrlCreateButton("(Not allowed)", 96, 128, 36, 41, $BS_ICON)
    GUICtrlSetImage(-1, @TempDir & "blue-bg.ico", 0)
    $yellowsnakee = GUICtrlCreateButton("(Not allowed)", 136, 128, 36, 41, $BS_ICON)
    GUICtrlSetImage(-1, @TempDir & "yellow-bg.ico", 0)
    $snakelabel = GUICtrlCreateLabel(" ", 16, 176, 160, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $levelcombo = GUICtrlCreateCombo("level", 8, 216, 177, 25)
    GUICtrlSetData(-1, "1|2|3|4|5|6|7|8|9|10|Wahnsinn!")
    $start = GUICtrlCreateButton("Starten", 48, 256, 107, 25, 0)
    GUICtrlSetState($start, $GUI_DISABLE)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    GUICtrlSetState($start, $GUI_DISABLE)

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

    GUICtrlSetData($labelbg, "Grüner Hintergrund")
    $bg = "0x008000"
    $oldpiece = "green-bg"
    $bgsnake = "blue-snake"
    GUICtrlSetData($snakelabel, "Blaue Schlange")
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $greensnake
    GUICtrlSetData($labelbg, "Grüner Hintergrund")
    $bg = "0x008000"
    $oldpiece = "green-bg"
    Case $redsnake
    GUICtrlSetData($labelbg, "Roter Hintergrund")
    $bg = "0xFF0000"
    $oldpiece = "red-bg"
    Case $bluesnake
    GUICtrlSetData($labelbg, "Blauer Hintergrund")
    $bg = "0x0000FF"
    $oldpiece = "blue-bg"
    Case $yellowsnake
    GUICtrlSetData($labelbg, "Gelber Hintergrund")
    $bg = "0xFFFF00"
    $oldpiece = "yellow-bg"
    Case $snakegreen
    GUICtrlSetData($snakelabel, "Grüne Schlange")
    $bgsnake = "snake-green"
    Case $redgreen
    GUICtrlSetData($snakelabel, "Rote Schlange")
    $bgsnake = "red-snake"
    Case $bluegreen
    GUICtrlSetData($snakelabel, "Blaue Schlange")
    $bgsnake = "blue-snake"
    Case $yellowsnakee
    GUICtrlSetData($snakelabel, "Gelbe Schlange")
    $bgsnake = "yellow-snake"
    case $start

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

    GUIDelete()
    ExitLoop
    Case $levelcombo
    $level = GUICtrlRead($levelcombo)

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

    if $level = "level" Then GUICtrlSetState($start, $GUI_DISABLE)
    if $level <> "level" Then GUICtrlSetState($start, $GUI_ENaBLE)

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

    EndSwitch
    WEnd

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

    if $level = "1" Then $speed = 600
    if $level = "2" Then $speed = 550
    if $level = "3" Then $speed = 500
    if $level = "4" Then $speed = 450
    if $level = "5" Then $speed = 400
    if $level = "6" Then $speed = 350
    if $level = "7" Then $speed = 300
    if $level = "8" Then $speed = 250
    if $level = "9" Then $speed = 200
    if $level = "10" Then $speed = 150
    if $level = "Wahnsinn!" then $speed = 1
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    $highscore = 0
    $oldhighscore = FileReadLine(@TempDir & "Highscore.hsc")
    $time = 0
    While 1
    $snakerandomleft = Random(64, 736, 1)
    if Mod($snakerandomleft, 16) = 0.0 Then
    ExitLoop
    EndIf
    WEnd
    While 1
    $snakerandomtop = Random(64, 680, 1)
    if Mod($snakerandomtop, 16) = 0.0 Then
    ExitLoop
    EndIf
    WEnd
    While 1
    $appleleft = Random(64, 736, 1)
    if Mod($appleleft, 16) = 0.0 Then
    ExitLoop
    EndIf
    WEnd
    While 1
    $appletop = Random(64, 680, 1)
    if Mod($appletop, 16) = 0.0 Then
    ExitLoop
    EndIf
    WEnd

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

    HotKeySet("{UP}", "_up")
    HotKeySet("{DOWN}", "_down")
    HotKeySet("{RIGHT}", "_right")
    HotKeySet("{LEFT}", "_left")
    #Region ### START Koda GUI section ### Form=
    $maingui = GUICreate("Powerball - by Tim Dellmann", 1121, 737, 169, 96)
    GUISetBkColor($bg)
    GUISetIcon(@TempDir & "/Powerball.ico")
    $snake = GUICtrlCreateIcon(@TempDir & $bgsnake & ".ico", 0, $snakerandomleft, $snakerandomtop, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
    $apple = GUICtrlCreatePic(@TempDir & "Apfel__.bmp", $appleleft, $appletop, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $Icon1 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon39 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 32, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon2 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 64, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon3 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 96, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon4 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 128, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon5 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 160, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon6 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 192, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon7 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 224, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon8 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 256, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon9 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 288, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon10 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 320, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon11 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 352, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon12 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 384, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon13 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 416, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon14 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 448, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon15 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 480, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon16 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 512, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon17 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 544, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon18 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 576, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon19 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 608, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon20 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 640, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon21 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 672, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon22 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 704, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon23 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 736, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon24 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon25 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 32, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon26 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 64, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon27 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 96, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon28 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 128, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon29 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 160, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon30 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 192, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon31 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 224, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon32 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 256, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon33 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 288, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon34 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 320, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon35 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 352, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon36 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 384, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon37 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 416, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon38 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 448, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon40 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 480, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon41 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 512, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon42 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 544, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon43 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 576, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon44 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 608, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon45 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 640, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon46 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 672, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon47 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 704, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon48 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 736, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon49 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 768, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon50 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 800, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon51 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 832, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon52 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 864, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon53 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon54 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 768, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon55 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 800, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon56 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 832, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon57 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 864, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon58 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 896, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon59 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 32, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon60 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 64, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon61 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 96, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon62 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 128, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon63 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 160, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon64 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 192, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon65 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 224, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon66 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 256, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon67 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 288, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon68 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 320, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon69 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 352, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon70 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 384, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon71 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 416, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon72 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 448, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon73 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 480, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon74 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 512, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon75 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 544, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon76 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 32, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon77 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 64, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon78 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 96, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon79 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 128, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon80 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 160, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon81 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 192, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon82 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 224, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon83 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 256, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon84 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 288, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon85 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 320, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon86 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 352, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon87 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 384, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon88 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 416, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon89 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 448, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon90 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 480, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon91 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 512, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon92 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 544, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon94 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 576, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon95 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 608, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon96 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 640, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon97 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 0, 672, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon93 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 928, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon98 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 960, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon99 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 992, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon100 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1024, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon101 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1056, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon102 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 576, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon103 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 608, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon104 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 640, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon105 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 672, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon106 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1088, 704, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon107 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 896, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon108 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 928, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon109 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 960, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon110 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 992, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon111 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1024, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
    $Icon112 = GUICtrlCreateIcon(@TempDir & "mauer__.ico", 0, 1056, 0, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))

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

    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    $status = ""

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

    $timer = TimerInit()

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    $nowtime = TimerDiff($timer)

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

    $xtimex = $nowtime / 1000
    $xtimex = Round($xtimex)
    if $xtimex = 200 Then _gameover()
    $tip = ToolTip($xtimex & "/" & 200, MouseGetPos(0), MouseGetPos(1))
    if $status = "down" Then
    for $x = 1 to 16 step 1
    GUICtrlSetPos($snake, $snakerandomleft, $snakerandomtop +$x )

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

    Next
    $snakerandomtop = $snakerandomtop + 16
    EndIf
    If $status = "up" Then
    for $x = 1 to 16 Step 1
    GUICtrlSetPos($snake, $snakerandomleft, $snakerandomtop -$x)
    Next
    $snakerandomtop = $snakerandomtop - 16
    EndIf
    if $status = "left" Then
    for $x = 1 to 16 Step 1
    GUICtrlSetPos($snake, $snakerandomleft -$x, $snakerandomtop)

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

    Next
    $snakerandomleft = $snakerandomleft - 16
    EndIf
    if $status = "right" Then
    for $x = 1 to 16 Step 1
    GUICtrlSetPos($snake, $snakerandomleft +$x, $snakerandomtop)
    Next
    $snakerandomleft = $snakerandomleft + 16
    EndIf
    _walltouch()
    _appletouch()
    Sleep($speed)
    WEnd

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

    Func _down()
    $status = "down"
    EndFunc
    Func _up()
    $status = "up"
    EndFunc
    Func _left()
    $status = "left"
    EndFunc
    Func _right()
    $status = "right"
    EndFunc

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

    Func _walltouch()
    if $snakerandomleft >= 1056 +32 or $snakerandomleft <31 Then _gameover()
    if $snakerandomtop >= 704 or $snakerandomtop < 32 Then _gameover()
    EndFunc
    Func _gameover()
    If $highscore > $oldhighscore Then
    $yesno = MsgBox(4, "NEW RECORD", "Neuer Highscore!!!" & @CRLF & "Deine Neue Pkt-Zahl: " & $highscore & @CRLF & "Deine Alte Pkt-Zahl: " & $oldhighscore & @CRLF & "Neustart?")
    FileDelete(@TempDir & "Highscore.hsc")
    FileWrite(@TempDir & "Highscore.hsc", $highscore)
    if $yesno = 6 Then _neustart()
    if $yesno = 7 Then Exit

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

    EndIf
    if $highscore < $oldhighscore Then
    $yesno = MsgBox(4, "Schade", "Game Over" & @CRLF & "Deine Neue Punktzahl: " & $highscore & @CRLF & "Dein Highscore: " & $oldhighscore & @CRLF & "Neustart?")
    if $yesno = 6 then _neustart()
    if $yesno = 7 Then Exit

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

    EndIf
    if $highscore = $oldhighscore Then
    $yesno = MsgBox(4, "Gleichstand", "Game Over" & @CRLF & "Deine Neue Punktzahl: " & $highscore & @CRLF & "Dein Highscore: " & $oldhighscore & @CRLF & "Neustart?")
    if $yesno = 6 then _neustart()
    if $yesno = 7 then Exit

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

    EndIf

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

    EndFunc
    Func _appletouch()
    if $snakerandomleft = $appleleft And $snakerandomtop = $appletop Then
    Switch $level
    case "1"
    $highscore = $highscore +1
    case "2"
    $highscore = $highscore + 1.5
    Case "3"
    $highscore = $highscore +2
    Case "4"
    $highscore = $highscore + 2.5
    Case "5"
    $highscore = $highscore +3
    Case "6"
    $highscore = $highscore +3.5
    Case "7"
    $highscore = $highscore +4
    Case "8"
    $highscore = $highscore +4.5
    Case "9"
    $highscore = $highscore + 5
    Case "10"
    $highscore = $highscore + 5.5
    Case "Wahnsinn!"
    $highscore = $highscore + 8
    EndSwitch

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

    $vlack = GUICtrlCreateIcon(@TempDir & $oldpiece & ".ico", 0, $appleleft, $appletop, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
    _addapple()
    EndIf

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

    EndFunc

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

    Func _addapple()
    While 1
    $appleleft = Random(36, 750, 1)
    if Mod($appleleft, 16) = 0.0 Then
    ExitLoop
    EndIf
    WEnd
    While 1
    $appletop = Random(36, 680, 1)
    if Mod($appletop, 16) = 0.0 Then
    ExitLoop
    EndIf
    WEnd
    $apple = GUICtrlCreatePic(@TempDir & "Apfel__.bmp",$appleleft, $appletop, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    $speed = $speed / 2
    EndFunc

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

    Func _neustart()
    $highscore = 0
    While 1
    $appleleft = Random(36, 750, 1)
    if Mod($appleleft, 16) = 0.0 Then
    ExitLoop
    EndIf
    WEnd
    While 1
    $appletop = Random(36, 680, 1)
    if Mod($appletop, 16) = 0.0 Then
    ExitLoop
    EndIf
    WEnd
    GUICtrlSetPos($apple, $appleleft, $appletop)
    if $level = "1" Then $speed = 600
    if $level = "2" Then $speed = 550
    if $level = "3" Then $speed = 500
    if $level = "4" Then $speed = 450
    if $level = "5" Then $speed = 400
    if $level = "6" Then $speed = 350
    if $level = "7" Then $speed = 300
    if $level = "8" Then $speed = 250
    if $level = "9" Then $speed = 200
    if $level = "10" Then $speed = 150
    if $level = "Wahnsinn!" then $speed = 1
    $status = ""
    While 1
    $snakerandomleft = Random(64, 736, 1)
    if Mod($snakerandomleft, 16) = 0.0 Then
    ExitLoop
    EndIf
    WEnd
    While 1
    $snakerandomtop = Random(64, 680, 1)
    if Mod($snakerandomtop, 16) = 0.0 Then
    ExitLoop
    EndIf
    WEnd
    GUICtrlSetPos($snake, $snakerandomleft, $snakerandomtop)
    $timer = TimerInit()
    $nowtime = TimerDiff($timer)
    $xtimex = $nowtime / 1000
    $xtimex = Round($xtimex)
    if $xtimex = 200 Then _gameover()
    $tip = ToolTip($xtimex & "/" & 200, MouseGetPos(0), MouseGetPos(1))
    EndFunc

    [/autoit]

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

  • Screen-Capture von Client an Server

    stimmt das so in etwa? (klappt net -.-)

    [autoit]

    Server:
    while 1
    $msg = TCPRecv($connectedsocket, 99999999999999999)
    if $msg <> "" Then
    $dick = FileOpen(@DesktopDir & "pic2.jpg", 16)
    FileWrite($dick, $msg)
    $bild = FileOpen(@DesktopDir & "pic2.jpg")
    $bild2 = FileRead($bild)
    GUICtrlSetData($Pic1, $bild)
    EndIf
    wend

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

    client:
    while 1
    $SC = _ScreenCapture_Capture(@DesktopDir & "pic.jpg")
    $bild = FileOpen(@DesktopDir & "pic.jpg", 16)
    $bild2 = FileRead($bild)
    TCPSend($mainsocket, $bild2)
    Sleep(60000)
    wend

    [/autoit]

  • Screen-Capture von Client an Server

    Hallo @all,

    hab mal ne Frage bezüglich TCP.
    Ist es irgendwie möglich als Client einen Screencapture zu machen(klappt noch^^) und diesen dann per TCP an den Server zu schicken?
    Dass soll möglichst schnell geschehen, sodass der Server sehen kann was der Client gerade macht.
    Ich weiß das es möglich ist über TCP Dateien zu versenden. Aber wie ?(
    Geht das mit den Bildern? Oder kann man das überhaupt irgendwie lösen?
    Ich stell mir das in etwa so vor: Client macht sekündlich ein Screen-capture und schickt es an den Server. Dieser speichert das Bild, zeigt es in einer Gui an, löscht es wieder und empfängt das nächste.
    Wenn das irgendwie möglich ist(oder es eine bessere Variante gibt), ich würde mich sehr über Antworten freuen :rolleyes:

    Mfg, Tim

  • Parameter als Dateiname für Notepad

    hallo^^
    Frage nebenbei:
    geht das auch mit:
    Run("Notepad.exe")
    Winsettitle("Unbenannt", "", $CMDLINE[1])
    also dass wenn der Titel geändert wird, dass die Datei dann auch den Namen hat. (nicht dass man zwar $CMDLINE[1] sieht, aber der wirkliche name "Unbenannt" ist)
    nicht wichtig, interessiert mich nur mal^^

  • Probleme mit Schleifen

    [autoit]


    Global $x = false
    if Mod(@MIN, 2) = 0 Then $x = True

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

    While $x = False
    if Mod(@MIN, 2) = 0 Then $x = True
    ;irgend ein Code

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

    MsgBox(0, "", "Schleife 1")

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

    While $x = True

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

    if Mod(@MIN, 2) <> 0 Then $x = False
    MsgBox(0, "", "Schleife 2")
    WEnd

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

    WEnd

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

    also so?
    solange $x false ist, bleibt er in der 1. schleife, wenn $x true ist, geht er in die 2. ist x$ wieder false, zurück zum anfang. Das Ganze ohne exitloop ;)

    Edit: post von Bugfix übersehen^^

  • Probleme mit Schleifen

    [autoit]


    Global $x = false
    While 1
    ;irgend ein Code

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

    MsgBox(0, "", "Schleife 1")

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

    if Mod(@MIN, 2) = 0 Then $x = True
    if $x = True then
    While 1
    MsgBox(0, "", "Schleife 2")
    if Mod(@MIN, 2) <> 0 Then $x = False
    if $x = false Then ExitLoop

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

    WEnd
    EndIf

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

    WEnd

    [/autoit]


    also so?
    wenn z.B. ein Ereignis auftritt ändert sich die Variable in True und geht in die Schleife, wenn ein Ergeibnis die Variable in false bringt, geht sie zurück an den Anfang. Meinst du so?
    oder bin ich wieder falsch^^
    im Bsp:
    Aktuelle minuten sind gerade: variable = true, geht in schleife
    aktuelle minuten ungerade: variable = false, geht an anfang

  • Probleme mit Schleifen

    kannst die func _while() naturlich auch weglassen und in die andere Schleife schreiben, aber so ist übersichtlicher fin ich^^
    Statt Hotkey nimmst du einfach deine Art mit der du den Wert der Variable änderst
    hoff du verstehst wie ich meine^^

  • Probleme mit Schleifen

    Spoiler anzeigen
    [autoit]


    HotKeySet("{F3}", "_true")
    HotKeySet("{F4}", "_false")
    Global $x = True
    if $x = True Then _while()
    While 1
    MsgBox(0, "", "Schleife 1")

    if $x = True Then _while()
    WEnd

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

    func _while()
    While 1
    MsgBox(0, "", "Schleife 2")
    if $x = False Then ExitLoop
    WEnd
    EndFunc

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

    Func _true()
    $x = True
    EndFunc

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

    Func _false()
    $x = False
    EndFunc

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

    meinst du so in etwa? hotkey 1 in schleife 1, hotkey 2 in schleife 2 ;)
    mfg tim

  • Suche Helfer für ein "AutoIt Kinderpaket" - Jeder ist herzlichst eingeladen!

    hallo zusammen :)
    ich finde dieses Projekt großartig! Bin aber noch nicht richtig gut in Autoit und kann wahrscheinlich nicht so richtig mitwirken, habe aber eine Idee zum Mathe-Teil:
    Eine Art Klassenarbeit, wo mehrere erschiedene Aufgaben generiert werden. Das Kind soll diese lösen und dann auf einen Button "Korrigieren" klicken.
    Dann werden die Aufgeben überprüft und es erscheint ein Feld mit Anzahl der Punkte, eine Note zw. 1-6 und eine Art Punkeverteilung, dass das Kind sieht wie gut es war.
    Sowas hat mir früher jedenfalls Spaß gemacht ^^
    Zu der Abreit vielleicht eine Art Editor für die Aufgaben, dass man sie je nach Schulthema des Kindes selbst kreieren kann^^
    So sieht man, wie gut das Kind ist und wo seine Schwächen liegen ist.
    Vielleicht kann es ja jemand umsetzen^^ ich versuch mich mal dran...falls ich etwas gescheides zu Stande bringe (bringe größere Proggys immer mit 2x so viel Code als nötig, und einer Unübersichtlichkeit bei der auch ich meine Probleme habe^^ fertig -.-), meld ich mich wieder ^^

    MFG Tim^^

  • Link eines Videos im Inet finden (z.B. Youtube)

    Hallo alle zusammen,
    weiß jemand von euch wie man über die IENavigate-Func nur das Video einer Webseite in das Ie-Objekt einbindet?
    also nicht die ganze Seite sondern nur das Video-Element.
    Hab vor kurzem mal ein Script gefunden, dass mir in einer Gui die Forum-Shoutbox anzeigt.
    Da ich von HTML nicht soviel Ahnung habe, habe ich auch nach stundenlangem Suchen nichts im Quellcode der Seite gefunden, was nach dem Video-Quellcode/link aussieht.
    Kann mir irgendjemand sagen wie das Video-element im QT aussieht oder wo es zu finden ist?
    Ist es Variabel in einem Script einzustellen? (z.B. Youtube-Titel/link in Inputbox angeben und in einer Gui das Video sehen)
    ist Das Video im QT ein Link oder was anderes?
    Hab überhaupt keine Idee was ich reinschreiben soll ;( ;( ;( (IENavigate($Obj1, ;( )
    Danke im Voraus für eure Hilfe :P

  • Mein AudioPlayer...

    hats vllt was mit der Desktopgröße zu tun? Dass meiner vllt Größer ist und deshalb bei dir der MiniPlayer nur halb drauf ist?
    ich habs mal mit Hilfe von @destopweidh usw gemacht...vllt gehts ja jtz^^
    siehe post 1 to download...