XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Animation per Maus gesteuert
Lauffähig ab Profan-Version 5.0
Grundgerüst zum Aufbau von Animationen
gesteuert per Maus
Man kann viel ausbauen und vieleicht
mit viel Fleiß Mausgesteuerte Anims
in Spiele einbauen.
(c) by Rolf Koch - Rokosoft
Freeware
Viel Spaß
-----------------------------------------------------------------------------
Declare X%,Y%,zielx%,ziely%

PROC MAUSANIM

    WHILENOT @scankey(27)

        waitinput

        While equ(%mousepressed,1)

            let zielx%=%mousex
            let ziely%=%mousey

            If @lt(x%,zielx%)

                x%=add(x%,1)
                LOADBMP Objekt.BMP,X%,Y%;0

            ElseIf @lt (y%,ziely%)

                y%=add(y%,1)
                LOADBMP OBJEKT.BMP,X%,Y%;0

            ElseIf @gt(x%,zielx%)

                x%=sub(x%,1)
                LOADBMP OBJEKT.BMP,X%,Y%;0

            ElseIf @gt (y%,ziely%)

                y%=sub(y%,1)
                LOADBMP OBJEKT.BMP,X%,Y%;0

            endif

            locate 2,3
            print Aktuell X=,@Format$(000,x%),     Aktuell Y=,@Format$(000,y%)
            locate 4,3
            print Ziel    X=,@Format$(000,x%),     Ziel    Y=,@Format$(000,ziely%)

        wend

    WEND

ENDPROC

WindowStyle 16
WindowTitle Beispiel Animation per Maus         - Linke Maustaste = bewegen   -   ESCAPE = Ende                             (c) by Rolf Koch / Rokosoft
Window 0,0-800,600
let x%=200
let y%=200
LOADBMP Objekt.BMP,X%,Y%;0
MAUSANIM
End