XProfan

Français

allô Community.

Irgendwie bekomme je aucun vernünftige Joysticksteuerung hin. je veux un Sprite sur den ganzen Bildschirm steuern, sais mais pas comment...?

merci, Werner.

19.04.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

allô Werner,

je selber benutze cet Programmation, wobei raumschiff& cela trop steuernde Sprite ist et un Bildschim de 800x600 benutzt wird. bereich# sollte 64 Bytes grand dimensioniert volonté. Alle Werte sommes léger trop changement:
Kompilieren Marque Séparation

*** 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