XProfan

Español

¡Hola Comunidad.

Irgendwie bekomme Yo no vernünftige Joysticksteuerung hin. Yo voluntad una Sprite encima el ganzen Bildschirm steuern, weiß pero no como...?

Gracias, Werner.

19.04.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

¡Hola Werner,

Yo selber benutze esta Programación, wobei raumschiff& el a steuernde Sprite es y una Bildschim de 800x600 benutzt se. bereich# debería 64 Bytes groß dimensioniert voluntad. Alle Werte son ligeramente a ändern:
Kompilieren Marca Separación

*** Joysticksteuerung links-rechts
GetSpriteInfos(raumschiff&,bereich#)
x&=Long(bereich#,8)
y&=Long(bereich#,12)
joyx&=JoystickX(1)
a&=0

If joyx&>64

    MoveSprite(raumschiff&,GetSpriteX(raumschiff&)+24,y&)
    a&=1

EndIf

If joyx&<-64

    MoveSprite(raumschiff&,GetSpriteX(raumschiff&)-24,y&)
    a&=1

EndIf

Case a&=0:MoveSprite(Raumschiff&,GetSpriteX(raumschiff&),y&)
*** Joysticksteuerung oben-unten
GetSpriteInfos(raumschiff&,bereich#)
x&=Long(bereich#,8)
y&=Long(bereich#,12)
joyy&=JoystickY(1)
a&=0

If joyy&>64

    MoveSprite(raumschiff&,x&,GetSpriteY(raumschiff&)+24)
    a&=1

EndIf

If joyy&<-64

    MoveSprite(raumschiff&,x&,GetSpriteY(raumschiff&)-24)
    a&=1

EndIf

Case a&=0:MoveSprite(Raumschiff&,x&,GetSpriteY(raumschiff&))
*** Grenzen für gesteuertes Sprite prüfen
GetSpriteInfos(raumschiff&,bereich#)
x&=Long(bereich#,8)
y&=Long(bereich#,12)
Case x&<0:MoveSprite(Raumschiff&,0,y&)
Case x&>772:MoveSprite(Raumschiff&,772,y&)
GetSpriteInfos(raumschiff&,bereich#)
x&=Long(bereich#,8)
y&=Long(bereich#,12)
Case y&<48:MoveSprite(Raumschiff&,x&,48)
Case y&>582:MoveSprite(Raumschif