Code: Alles auswählen
DisplayTransparentSprite(#Cursor, MouseX(), MouseY())
Code: Alles auswählen
DisplayTransparentSprite(#Cursor, MouseX(), MouseY())
Code: Alles auswählen
InitSprite()
InitMouse()
Enumeration
#Titel1
#Titel2
#Cursor
EndEnumeration
OpenScreen(800, 600, 16, "Gunner X")
UsePNGImageDecoder()
LoadSprite(#Cursor, "Sprites\Menu\cur.png")
LoadSprite(#Titel1, "Sprites\Menu\Titel1.png")
LoadSprite(#Titel2, "Sprites\Menu\Titel2.png")
Repeat
FlipBuffers()
ClearScreen(RGB(0, 0, 0))
ExamineMouse()
a = MouseX()
b = MouseY()
MouseButton(#PB_MouseButton_Left)
SpriteX = -800
DisplayTransparentSprite(#Titel1, SpriteX, 0)
SpriteX + Direction
If SpriteX > 20 : direction = -2 : EndIf
If SpriteX < 20 : direction = 0 : EndIf
DisplayTransparentSprite(#Cursor, MouseX(), MouseY())
Until MouseButton(#PB_MouseButton_Left)
Code: Alles auswählen
DisplayTransparentSprite(#Titel1, SpriteX, 0)
SpriteX + Direction
If SpriteX < 20 : direction = 2 : EndIf
If SpriteX > 20 : direction = 0 : EndIf
Code: Alles auswählen
Repeat
[...]
SpriteX = -800
[...]
Until MouseButton(#PB_MouseButton_Left)
Code: Alles auswählen
If SpriteX < 20 : direction = 2
else : direction = 0
EndIf