Letzte Erinnerung - Die Rache der verlorenen Seelen [2D-RPG]

    Darter, mach du doch mal was in GDI+ das sich "Spiel" nennt !!!


    Und mich habe bereits ein Spiel released !

    Es gibt sehr viele Leute, die glauben. Aber aus Aberglauben.
    - Blaise Pascal

    tince die sollte heute abend kommen, c.a. 19 - 20 Uhr !
    Ich teile um 16 - 17 Uhr meine Zeitungen aus... 1 h, danach code ich die Demo !!!


    Diese "Demo" wird aber erstmal nur das Spiel sein, morgen kommt dann update mit Speichern & Laden !

    Es gibt sehr viele Leute, die glauben. Aber aus Aberglauben.
    - Blaise Pascal

    ach ich hab schon viel gemacht auch mit gdi+. erst letztens wieder was fertig gestellt(2500 zeilen code) nur leider entspricht es nicht unbedigt den Forenregeln und dehalb werde ich es hier auch nicht veröffentlichen

    Das finden von Rechtschreibfehlern muss sofort und unverzüglich dem Autor gemeldet werden. Das eigennützige Verwenden dieser Rechtschreibfehler ist strengstens untersagt und kann mit Freiheitsenzug bestraft werden.

    StringRegExpTo2DArray

    Zitat von Darter

    ach ich hab schon viel gemacht auch mit gdi+. erst letztens wieder was fertig gestellt(2500 zeilen code) nur leider entspricht es nicht unbedigt den Forenregeln und dehalb werde ich es hier auch nicht veröffentlichen


    <ironie>Ah, ja genau, ich hab letztens ein 137893 Zeilen Code(Onlinegame) mit GDI+ gemacht </ironie>

    hab mal schnell ne kleinigkeit zusammengebastelt. Aber das ist schon besser als deins :D

    Spoiler anzeigen
    [autoit]

    #Include <GDIPlus.au3>
    #include <GUIConstantsEx.au3>
    #include <WinAPI.au3>
    #include <WindowsConstants.au3>
    #Include <Misc.au3>

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

    $change = 1
    $change2 = 1
    $title = "Meine GUI"

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

    $test2 = GUICreate($title, 250, 88,@DesktopWidth-250,0,$WS_POPUP)
    $winhandle = WinGetHandle($test2)
    ;GUICtrlCreatePic("bilder/hintergrund3.gif",0,0,250,88)
    $test = GUICtrlCreatePic("bilder/button.gif",220,0,28,10)
    ;GUISetBkColor(0xFF3F5C)

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

    GUISetState()
    ;WinsetOnTop($test,"",1)
    _GDIPlus_Startup()
    $hGraphics = _GDIPlus_GraphicsCreateFromHWND($winhandle)
    $hImage_hintergrund = _GDIPlus_BitmapCreateFromFile("bilder/hintergrund3.gif")
    ;$hImage_Button_normal = _GDIPlus_BitmapCreateFromFile("bilder/button.gif")
    ;$hImage_Button_hover = _GDIPlus_BitmapCreateFromFile("bilder/button2.gif")
    _GDIPlus_GraphicsDrawImageRect($hGraphics, $hImage_hintergrund, 0,0,250,88)
    ;_GDIPlus_GraphicsDrawImageRect($hGraphics, $hImage_Button_normal, 220,0,28,10)
    ;_GDIPlus_GraphicsDispose($hGraphics)
    ;$titel = GUICtrlCreateLabel("Nachricht erhalten!",20,3,200,20)
    ;GUICtrlSetFont($titel,10,400,2,"Comic Sans MS")
    ;GUICtrlSetColor ($titel, 0xFFFFFF)
    ;$pen = _GDIPlus_PenCreate(0xFF000000)
    ;_GDIPlus_GraphicsDrawString($hGraphics, "Nachricht erhalten!", 20, 0, $pen)

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

    $hBrush = _GDIPlus_BrushCreateSolid(0xFFFFFFFF)
    $hFormat = _GDIPlus_StringFormatCreate()
    $hFamily = _GDIPlus_FontFamilyCreate("Comic Sans MS")
    $hFont = _GDIPlus_FontCreate($hFamily, 10, 1)
    $tLayout = _GDIPlus_RectFCreate(20, -2, 0, 0)
    $aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, "Nachricht erhalten!", $hFont, $tLayout, $hFormat)
    _GDIPlus_GraphicsDrawStringEx($hGraphics, "Nachricht erhalten!", $hFont, $aInfo[0], $hFormat, $hBrush)

    $hBrush = _GDIPlus_BrushCreateSolid(0xFF000000)
    $hFormat = _GDIPlus_StringFormatCreate()
    $hFamily = _GDIPlus_FontFamilyCreate("Comic Sans MS")
    $hFont = _GDIPlus_FontCreate($hFamily, 10, 2)
    $tLayout = _GDIPlus_RectFCreate(20, 50, 0, 0)
    $aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, "Nachricht von ... erhalten", $hFont, $tLayout, $hFormat)
    _GDIPlus_GraphicsDrawStringEx($hGraphics, "Nachricht von ... erhalten", $hFont, $aInfo[0], $hFormat, $hBrush)

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

    While 1
    ohnenamen()
    febterfallen()
    $winpos = WinGetPos($title,"")
    if IsArray($winpos) Then
    If MouseGetPos(0) > $winpos[0] And MouseGetPos(0) < $winpos[0]+ $winpos[2]-30 And MouseGetPos(1) > $winpos[1] And MouseGetPos(1) < $winpos[1]+20 And _IsPressed(01) Then
    ;MsgBox(0,"","")
    $mouspos = GUIGetCursorInfo()
    Do
    WinMove($title,"",MouseGetPos(0)-$mouspos[0],MouseGetPos(1)-$mouspos[1])
    Until Not _IsPressed(01)
    EndIf
    EndIf
    Sleep(10)
    WEnd

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

    Func ohnenamen()
    $mouspos = GUIGetCursorInfo()
    if IsArray($mouspos) Then
    If $test = $mouspos[4] Then
    If $change2 Then
    $test = GUICtrlCreatePic("bilder/button.gif",220,0,28,10)
    $change = 1
    $change2 = 0
    EndIf
    Else
    If $change Then
    ;GUICtrlDelete($test)
    $test = GUICtrlCreatePic("bilder/button2.gif",220,0,28,10)
    ;_GDIPlus_GraphicsDrawImageRect($hGraphics, $hImage_Button_hover, 220,0,28,10)
    $change = 0
    $change2 = 1
    EndIf
    EndIf
    If $test = $mouspos[4] And $mouspos[2] Then
    Do
    $mouspos = GUIGetCursorInfo()
    Until not $mouspos[2]
    If $test = $mouspos[4] Then Exit
    EndIf
    EndIf
    EndFunc

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

    Func febterfallen()
    $t = 22
    $i = 0
    $winposoben = WinGetPos($title)
    $winpos = WinGetPos($title)
    If $winpos[1] < (@DesktopHeight - 130) Then
    Do
    For $r = $winpos[1] to $winpos[1]+2 Step 1/$t
    WinMove($title,"",$winpos[0], $r)
    ;MsgBox(0,"",$r)
    $i += $i
    $pos = MouseGetPos()
    $winpos = WinGetPos($title,"")
    If MouseGetPos(0) > $winpos[0] And MouseGetPos(0) < $winpos[0]+ $winpos[2] And MouseGetPos(1) > $winpos[1] And MouseGetPos(1) < $winpos[1]+$winpos[3]Then
    Do
    ohnenamen()
    Sleep(100)
    $pos = MouseGetPos()
    $winpos = WinGetPos($title,"")
    Until MouseGetPos(0) > $winpos[0] or MouseGetPos(0) < $winpos[0]+ $winpos[2] or MouseGetPos(1) > $winpos[1] or MouseGetPos(1) < $winpos[1]+$winpos[3]
    EndIf
    Next
    If $t = 6 Then
    ;MsgBox(0,"","")
    Else
    $t -= 1/16
    ;MsgBox(0,"",$t)
    EndIf
    $winpos = WinGetPos($title)
    $winpos2 = WinGetPos($title)
    Until $winpos2[1] > (@DesktopHeight - 129)
    If (@DesktopHeight - $winposoben[1]) > 800 Then
    $winpos = WinGetPos($title)
    For $z = 1 to 160 Step 1/50
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 20 Step 1/70
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 20 Step 1/90
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/150
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/200
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    EndIf

    If (@DesktopHeight - $winposoben[1]) > 600 And (@DesktopHeight - $winposoben[1]) < 799 Then
    $winpos = WinGetPos($title)
    For $z = 1 to 150 Step 1/50
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/70
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 15 Step 1/90
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/150
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/200
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    EndIf

    If (@DesktopHeight - $winposoben[1]) > 400 And (@DesktopHeight - $winposoben[1]) < 599 Then
    $winpos = WinGetPos($title)
    For $z = 1 to 140 Step 1/50
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/70
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 15 Step 1/90
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/150
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/200
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    EndIf

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

    If (@DesktopHeight - $winposoben[1]) > 200 And (@DesktopHeight - $winposoben[1]) < 399 Then
    $winpos = WinGetPos($title)
    For $z = 1 to 20 Step 1/50
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/70
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 15 Step 1/90
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/150
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/200
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    EndIf
    If (@DesktopHeight - $winposoben[1]) > 170 And (@DesktopHeight - $winposoben[1]) < 199 Then
    $winpos = WinGetPos($title)
    For $z = 1 to 3 Step 1/50
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 3 Step 1/70
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 10 Step 1/90
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 6 Step 1/150
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 6 Step 1/200
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    EndIf
    If (@DesktopHeight - $winposoben[1]) > 250 And (@DesktopHeight - $winposoben[1]) < 99 Then
    $winpos = WinGetPos($title)
    For $z = 1 to 5 Step 1/50
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 5 Step 1/70
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 15 Step 1/90
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 5 Step 1/150
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    $winpos = WinGetPos($title)
    For $z = 1 to 5 Step 1/200
    WinMove($title,"",$winpos[0],$winpos[1]- $z)
    Next
    EndIf
    EndIf
    EndFunc

    [/autoit]
    Zitat von EliteMattthias

    Das schafft man in genau 30 Zeilen Code -.- Du bist echt so ein mieser Darter, das script ist geklaut ;)


    los script geklaut hmm genau ich werd wohl noch wissen, was ich gecodet hab.
    Und wenn du das in 30 zeilen schaffst mit denau dem Selben effekt dann kann ich nur gw sagen.

    Das finden von Rechtschreibfehlern muss sofort und unverzüglich dem Autor gemeldet werden. Das eigennützige Verwenden dieser Rechtschreibfehler ist strengstens untersagt und kann mit Freiheitsenzug bestraft werden.

    StringRegExpTo2DArray

    Zitat von clezZ

    Woher?


    lol genau. Das ist ein teil meines netzwerk tool, welches noch nicht ganz fertig ist. Aber wenn du den Cod auch noch willst np.

    Das finden von Rechtschreibfehlern muss sofort und unverzüglich dem Autor gemeldet werden. Das eigennützige Verwenden dieser Rechtschreibfehler ist strengstens untersagt und kann mit Freiheitsenzug bestraft werden.

    StringRegExpTo2DArray

    Ne will ich net !
    Ok Ausnahmsweise glaub ich es dir trotzdem geht es in 30 Zeilen code !

    Darter  clezZ @Rest:


    Das hier ist mein Zelda Projekt und kein Spam Thread also seid jetzt bitte ruhig und sagt nur noch was zum Thema !

    Wenn hier wieder abgewichen wird melde ich das peethebee !

    Es gibt sehr viele Leute, die glauben. Aber aus Aberglauben.
    - Blaise Pascal

    Zitat von EliteMattthias

    Darter  clezZ @Rest:


    Das hier ist mein Zelda Projekt und kein Spam Thread also seid jetzt bitte ruhig und sagt nur noch was zum Thema !

    Jetzt hab ich EINMAL was gesagt, und du meckerst mich sofort an :(
    Aber jetzt bin ich ruhig :D

    das musst du sagen? dann mach mir es mal bitte in 30 zeilen ich geb dir 30 min.

    Ach und ja du musst nix von Spammen sagen unter deinem Namen steht doch nur Profi, da du immer und überall rumgespammt hast. Würde man nur die sozusagen sinnvollen Beiträge zählen würde da noch Anfänger stehen. also psssst

    Das finden von Rechtschreibfehlern muss sofort und unverzüglich dem Autor gemeldet werden. Das eigennützige Verwenden dieser Rechtschreibfehler ist strengstens untersagt und kann mit Freiheitsenzug bestraft werden.

    StringRegExpTo2DArray

    kannst mich ja reporten

    #reported

    clezZ sry...
    Darter, das sich das teil bewegt ?, nicht schwer !

    EDIT//

    Alle weiteren Beiträge zu diesem Thema ab jetzt geschlossen ! (also zu Darter)

    Es gibt sehr viele Leute, die glauben. Aber aus Aberglauben.
    - Blaise Pascal

    nope. exakt das gleiche mit dem ziechnen und dem button und der exakt gleichen bewegung.
    Siehs doch ein, dass sowas nicht in 30 Zeilen code zu machen ist. :whistling:

    Das finden von Rechtschreibfehlern muss sofort und unverzüglich dem Autor gemeldet werden. Das eigennützige Verwenden dieser Rechtschreibfehler ist strengstens untersagt und kann mit Freiheitsenzug bestraft werden.

    StringRegExpTo2DArray

    hahaha :P

    Tut mir leid dort ist kein Button ?
    Musst dich wohl vertan haben, macht nichts, passiert jedem mal


    So jetzt ist endgültig schluss, der nächste Beitrag von dir zu deinem Teil wird auch reported bis du aufhörst, das ist jetzt das 3tte mal das ich dich mahne sie es ein Darter sei einfach still

    Es gibt sehr viele Leute, die glauben. Aber aus Aberglauben.
    - Blaise Pascal