BASIC

Author Topic: Wie bleibt das Sprite an Stelle mx,my nachdem es verschoben wurde?  (Read 1969 times)

zocker4

  • Guest
Ich hab ein problem:
(mein aktueller code)
WHILE TRUE
LOADSPRITE "a.bmp",0
SPRITE 0,100,100
MOUSESTATE mx,my,b1,b2
PRINT "=>",mx,my
IF b1= 1
BLACKSCREEN
SPRITE 0,mx,my
ENDIF
SHOWSCREEN
WEND
END

Nun möchte ich dass mein sprite 0 an der stelle bleibt wo es hin geschoben wurde. Geht das?

Offline D2O

  • Prof. Inline
  • *****
  • Posts: 1061
    • View Profile
    • http://www.deuteriumoxid.com
Hi,

vieleicht so ?




WHILE TRUE
LOADSPRITE "a.bmp",0

SPRITE 0,100,100
MOUSESTATE mx,my,b1,b2
PRINT "=>",mx,my

IF b1= 1
BLACKSCREEN
mx1 = mx
my1 = my
SPRITE 0,mx1,my1
ELSE
SPRITE 0,mx1,my1
ENDIF
SHOWSCREEN
WEND
END


Edit:


// das gehört eigendlich nicht in eine Schleife
LOADSPRITE "a.bmp",0

WHILE TRUE


SPRITE 0,100,100
MOUSESTATE mx,my,b1,b2
PRINT "=>",mx,my

IF b1= 1
BLACKSCREEN
mx1 = mx
my1 = my
SPRITE 0,mx1,my1
ELSE
SPRITE 0,mx1,my1
ENDIF
SHOWSCREEN
WEND
END
I7 2600K; 8 GB RAM ; Win10 Pro x64 | NVidia GTX 750 TI 2048MB ; Realtec OnBoard Sound;
Lenovo ThinkPad T400: XP Pro
GLB Premium-immer Aktuell

zocker4

  • Guest