Hi habt ihr ne idee wie man den fisch bewegen könnte
wie man sieht klappt es, aber nur sehr verbuggt.
Hier die pics:
autoit.de/wcf/attachment/6936/
Hier der code:
Spoiler anzeigen
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <Array.au3>
#Include <Misc.au3>
HotKeySet("{ESC}", "ende")
[/autoit] [autoit][/autoit] [autoit]; Hauptvariablen-------------------------
$f = 0
; ---------------------------------------
; Guierstellung--------------------------
$gui1 = GUICreate ("Aquarium",(@DesktopWidth), (@DesktopHeight-65),0,0)
GUISetBkColor(0x0000ff,$gui1)
$hintergrund = GUICtrlCreatepic("bilder\hintergrund.gif",0,0,@DesktopWidth,@DesktopHeight-50)
$fisch1 = GUICtrlCreatepic("bilder\fisch1.gif",200,300,120,100)
GUISetState (@SW_SHOW)
; ---------------------------------------
; Hauptfunktion des Guis-----------------
While 1
$c = GUIGetCursorInfo()
$f1pos = ControlGetPos ( "Aquarium", "", $fisch1)
$msg = GUIGetMsg()
ControlMove("Aquarium", "", $fisch1, $f1pos[0]+1, $f1pos[1]+1)
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
If _IsPressed("01") and $f = 1 Then
GUICtrlDelete($futter)
$futter = GUICtrlCreatePic("bilder\futter.gif",$c[0]-40,$c[1]-40,100,100)
$f = 1
ElseIf _IsPressed("01") and $f = 0 then
$futter = GUICtrlCreatePic("bilder\futter.gif",$c[0]-40,$c[1]-40,100,100)
$f = 1
Endif
Wend
; ---------------------------------------
; Funktionen-----------------------------
Func ende()
Exit
EndFunc
; ---------------------------------------