XProfan

English

Hello Community.

somehow I get no reasonable Joysticksteuerung there. i will one Sprite over the whole screen steer, white but not How...?

thanks, Werner.

04/19/04 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hello Werner,

I yourself use these Programming, where raumschiff& the To steuernde Sprite is and a Bildschim of 800x600 using becomes. area# ought to 64 Bytes big dimensioniert go. any values are slight To Change:
Compile Mark Separation

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