Code: Alles auswählen
;Initialisierung
InitSprite()
InitMouse()
InitKeyboard()
;Globale
Global x=10
Global y=10
Global sx=500
Global sy=350
Global mx=550
Global my=370
;Konstante
#ges=1
OpenScreen(1024,768,32,"Spritebewegung");Öffnet den Screen
;Laden der Sprites
For xg = 1 To 9
LoadSprite(10+xg,"Figuren\Female Paladin\FP_000"+Str(xg) + ".bmp",0)
TransparentSpriteColor(10+xg,RGB(0,0,128))
Next
For xg = 10 To 72
LoadSprite(10+xg,"Figuren\Female Paladin\FP_00"+Str(xg) + ".bmp",0)
TransparentSpriteColor(10+xg,RGB(0,0,128))
Next
;Erstellen des Mauspunktes
CreateSprite(1,4,4)
StartDrawing(SpriteOutput(1))
Circle(2,2,2,RGB(0,100,200))
StopDrawing()
TransparentSpriteColor(1,0)
;Die Hauptschleife
Repeat
ExamineMouse(); Maus Aktivieren
ExamineKeyboard(); Keyboard Aktivieren
ClearScreen(0);Screen Löschen
DisplayTransparentSprite(1,MouseX(),MouseY());der Mauspunkt
If x=0 And y=0; überbrüfen ob Graphik das Zile erreicht hat
If MouseButton(#PB_MouseButton_Left);überprüft ob die Linke Maustaste gedrückt wurde
mx= MouseX() ; gleichsetzen mit Maus
my= MouseY()
x = mx;gleichsetztung Mauskoordinate X
y = my;gleichsetztung Mauskoordinate Y
; gleichsetzen mit Maus
Else
DisplayTransparentSprite(11,sx,sy); ansonsten bild anzeigen
EndIf
Else
x = mx;gleichsetztung Mauskoordinate X
y = my;gleichsetztung Mauskoordinate Y
x - sx; subtrahieren ZielX - StandX
y - sy ; subtrahiern ZielY- StandY
;Richtungsüberprüfung
If x<0 And Y=0
DisplayTransparentSprite(13,sx,sy)
sx-#ges
;2
ElseIf x<0 And y>0
DisplayTransparentSprite(12,sx,sy)
sx-#ges
sy+#ges
;3
ElseIf x=0 And y>0
DisplayTransparentSprite(11,sx,sy)
sy+#ges
;4
ElseIf x>0 And y>0
DisplayTransparentSprite(18,sx,sy)
sx+#ges
sy+#ges
;5
ElseIf x>0 And y=0
DisplayTransparentSprite(17,sx,sy)
sx+#ges
;6
ElseIf x>0 And y<0
DisplayTransparentSprite(16,sx,sy)
sx+#ges
sy-#ges
;7
ElseIf x=0 And y<0
DisplayTransparentSprite(15,sx,sy)
sy-#ges
;8
ElseIf x<0 And y<0
DisplayTransparentSprite(14,sx,sy)
sx-#ges
sy-#ges
EndIf
EndIf
FlipBuffers();Vertauscht die Buffer
Until KeyboardPushed(#PB_Key_Escape)Edit:
So hier ist der (fast ganz) fertige code.
Funktioniert soweit, bloß das ich die Graphiken noch änern muss!
(Männel dreht sich in die falsche richtung!)
Edit2:
So jetzt isser ganz fertig!
Das einzige was nicht geht ist da männel schneller zu machen.
(weil dann etwas anderes im Code nicht Hinnhaut)
