XProfan

Français

Hi,
suis zwischendurch la fois wieder à meinem Game am bricoler.
Aus Trouvé, qui mir so besser plaisons, ändere je qui Spriterichtung wohin justement qui souris hinzeigt.
cependant veux je es pas hinbekommen, une richtige Abfrage trop starten:

Kompilieren Marque Séparation

si equ(MouseButton(),1)

    si lt(%mousey,y&)

        SetSpriteAnim (sprite&,0,68,96,67,9,1,7)
        MoveSprite(sprite&,%mousex,%mousey)
        direction%=2

    endif

    si gt(%mousey,y%)

        SetSpriteAnim (sprite&,0,0,96,67,9,1,7)
        MoveSprite(sprite&,%mousex,%mousey)
        direction%=1

    endif

    si lt(%mousex,x&)

        SetSpriteAnim (sprite&,0,270,96,67,9,1,7)
        MoveSprite(sprite&,%mousex,%mousey)
        direction%=3

    endif

    si gt(%mousex,x&)

        SetSpriteAnim (sprite&,0,205,96,67,9,1,7)
        MoveSprite(sprite&,%mousex,%mousey)
        direction%=4

    endif

    tandis que equ(MouseButton(),1)

        x&=GetSpriteX(sprite&)
        y&=GetSpriteY(sprite&)

        si equ(schritt%,10)

            cas equ(sound%,1):Playsound goes$,17
            schritt%=0

        endif

        inc schritt%

    Wend

    si equ(direction%,1)

        MoveSprite(sprite&,x&,y&)
        SetSpriteAnim (sprite&,0,135,96,67,1,1,1)
        SetSpriteAnimMode (sprite&,1)

    elseif equ(direction%,2)

        MoveSprite(sprite&,x&,y&)
        SetSpriteAnim (sprite&,97,135,96,67,1,1,1)
        SetSpriteAnimMode (sprite&,1)

    elseif equ(direction%,3)

        MoveSprite(sprite&,x&,y&)
        SetSpriteAnim (sprite&,300,135,96,67,1,1,1)
        SetSpriteAnimMode (sprite&,1)

    elseif equ(direction%,4)

        MoveSprite(sprite&,x&,y&)
        SetSpriteAnim (sprite&,200,135,96,67,1,1,1)
        SetSpriteAnimMode (sprite&,1)

    endif

d'autre

    ......

Logischerweise sommes qui Koordinaten doppelt abfragbar.
Hat einer ne concept, comment je es hinbekomme, cela wirklich seulement dans qui direction qui Animation zeigt, dans quel aussi qui Mauszeiger ist?
Rolf

20.04.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Achso:

Kompilieren Marque Séparation

x&=GetSpriteX(sprite&)
y&=GetSpriteY(sprite&)

;) Rolf

20.04.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Hi Rolf,

si sich cela Sprite zum Mauszeiger hinbewegt, peux du cet ici verwenden:

GetSpriteMoveXY (H)

Testet, dans quelle direction sich cela Sprite avec dem Handle H momentan bewegt.

H : Long - Handle eines avec InitSprite() erzeugten Sprites

Ergebniss: Long - Bewegungsrichtung des Sprites.

0 = Sprite steht still
1 = Bewegung à droite dessus
2 = Bewegung à droite
3 = Bewegung à droite unten
4 = Bewegung pour unten
5 = Bewegung à gauche unten
6 = Bewegung à gauche
7 = Bewegung à gauche dessus
8 = Bewegung pour dessus

GetSpriteMoveXY(sprite&)

P.S. suis justement dabei, ProSpeeds Anleitung trop améliorer, plus interne à gauche et kurze Beispielcodes le Funktionen...

Salut, Frank

20.04.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Hi et merci Frank.
cependant bekomme je es pas hin ;(((

Kompilieren Marque Séparation

WHILENOT EQU(%Scankey,27)

    getmessage

    si equ(MouseButton(),1)

        SetSpriteAnim (sprite&,0,68,96,67,9,1,7)
        MoveSprite(sprite&,%mousex,%mousey)

        tandis que equ(MouseButton(),1)

            x&=GetSpriteMoveXY (sprite&)
            locate 1,1
            imprimer x&

            si equ(schritt%,10)

                cas equ(sound%,1):Playsound goes$,17
                schritt%=0

            endif

            inc schritt%

            si equ(x&,3)  Pour UNTEN

                SetSpriteAnim (sprite&,0,135,96,67,1,1,1)
                MoveSprite(sprite&,%mousex,%mousey)
                SetSpriteAnimMode (sprite&,0)
                direction%=1

            elseif equ(x&,4)

                SetSpriteAnim (sprite&,0,135,96,67,1,1,1)
                MoveSprite(sprite&,%mousex,%mousey)
                SetSpriteAnimMode (sprite&,0)
                direction%=1

            elseif equ(x&,5)

                SetSpriteAnim (sprite&,0,135,96,67,1,1,1)
                MoveSprite(sprite&,%mousex,%mousey)
                SetSpriteAnimMode (sprite&,0)
                direction%=1

            elseif equ(x&,4) UNTEN

                SetSpriteAnimMode (sprite&,0)
                SetSpriteAnim (sprite&,97,135,96,67,1,1,1)
                direction%=2

            endif

        Wend

        si equ(direction%,1) OBEN

            SetSpriteAnimMode (sprite&,1)
            SetSpriteAnim (sprite&,0,135,96,67,1,1,1)

        elseif equ(direction%,2) UNTEN

            SetSpriteAnimMode (sprite&,1)
            SetSpriteAnim (sprite&,97,135,96,67,1,1,1)

        endif

    d'autre

        Ab ici eh bien Reaktionen im Spiel:

    Elseif and(mouse(121,355-140,405),equ(%mousekey,1))     KLICK AUF magicien

        TEXT "DEIN FRIEDEN","ER WIRD ERST DANN FREI","WENN DU SKULOR FINDEST"

    endif

Wend

Irgendwas fais je faux, c'est moi bien sûr, seulement quoi?
qui Code bedeutet oui:

Solange linke Bouton de la souris:
Schaue quelle direction cela Sprite et ensuite mets neue Spritefigur.
cependant eh bien bewegt sich cela Sprite (jeweils aus 9 Bildern dans qui Reihe) pas plus. Es rutscht (sowie dans qui Sendung South parc ;))) ) sans sich trop bewegen zum Endpunkt.
bien sûr - j'ai ici seulement testweise quelques Richtungen abgefragt.
comment würdest Du cela (ou bien qui sonst) faire????
Kennt on oui aus Diablo u.s.w qui souris verwandelt sich ensuite aussi dans une Mauszeiger, quel dans qui direction zeigt.
Puhhh, bof ensuite mach je solange avec ROC plus

)))))
merci im Vorraus
Rolf

20.04.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

allô Rolf,

mir ist encore pas 100%ig bien sûr, quoi oui c'est ca du faire vouloir...
comment sieht dein Sprite car aus, une Art flèche ?
et qui soll dans qui direction montrer, wohin sich qui Mauszeiger est ? ou bien soll sich cela Sprite aussi dorthin bewegen.

suis irgendwie quelque chose begriffsstutzig aujourd'hui :-/

Salut, Frank

20.04.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Hi Frank,
nee liegt wohl à meiner Erklärung.

mon Sprite est un homme.
cette homme besteht aus allen 8 Richtungen.
dans chacun direction sommes jeweils 9 Einzelbilder.
(Relatif à la flèche était seulement so am Rande)

eh bien veux je:
Solange Bouton de la souris à gauche gedrückt ist
ensuite
jeweils erkennen dans quelle direction und dir et conforme à cela dans qui Whileschleife (alors Maus=1)
den les gens naturellement aussi qui Laufrichtung anpassen.
cependant dedans qui Boucle (siehe Code) fonctionne qui Kerl ensuite pas plus, mais bleibt toujours sur dem ersten Bild stehen - il rutsch alors sans Animation zum Zielpunkt.

Rolf

20.04.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Hi,

ah bon.

Schreib doch la fois anstatt:

si equ(MouseButton(),1)
...

cet ici:

t&=MouseButton()
Si Test peu(t&,0) Linke Bouton de la souris gedrückt ?
...

Salut, Frank

20.04.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Hi je nochmal.
Tricolore soweit hinbekommen.
qui Abfragen avons pas ausgereicht. Es mussten encore plus her.
Zum Beispiel aktuelle Spriteposition dans einer Variable sichern um später dans qui Boucle seulement chez Changement trop aktualisieren u.s.w.
quand même merci.
Rolf

20.04.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

allô Rolf.

Prima. si du bientôt une Tester cherches, mach je volontiers...

Salut, Frank

20.04.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

oui volontiers Frank,
sieht wesentlich besser comme mon altes Demogame aus.
cependant, bof - Roc hat Vorrang et dem Game ist ne schleppende l'affaire. si Du encore un l'an patience la hâte

hihihihihi!
Rolf

20.04.2004 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Hi,

vraie? un l'an ?
eh bien, je peux attendre...