XProfan

Español

Hi,
bin zwischendurch veces otra vez a mi Game al remendar.
Aus Gründen, el me así mejor gefallen, ändere Yo el Spriterichtung wo gerade el Ratón hinzeigt.
Jedoch voluntad Yo no hinbekommen, una richtige Abfrage a starten:

Kompilieren Marca Separación

if equ(MouseButton(),1)

    if lt(%mousey,y&)

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

    endif

    if gt(%mousey,y%)

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

    endif

    if lt(%mousex,x&)

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

    endif

    if gt(%mousex,x&)

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

    endif

    mientras que equ(MouseButton(),1)

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

        if equ(schritt%,10)

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

        endif

        inc schritt%

    wend

    if equ(richtung%,1)

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

    elseif equ(richtung%,2)

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

    elseif equ(richtung%,3)

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

    elseif equ(richtung%,4)

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

    endif

más

    ......

Logischerweise son el Koordinaten doppelt abfragbar.
Tiene una ne Concepto, Yo lo hinbekomme, el wirklich sólo en el Richtung el Animation zeigt, en welcher auch el Mauszeiger es?
Rolf

20.04.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Achso:

Kompilieren Marca Separación

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

;) Rolf

20.04.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hi Rolf,

si se el Sprite para Mauszeiger hinbewegt, kannst du dieses hier uso:

GetSpriteMoveXY (H)

Testet, en welche Richtung se el Sprite con el Handle H momentan bewegt.

H : Largo - Handle uno con InitSprite() erzeugten Sprites

Ergebniss: Largo - Bewegungsrichtung des Sprites.

0 = Sprite es still
1 = Bewegung después de rechts oben
2 = Bewegung después de rechts
3 = Bewegung después de rechts unten
4 = Bewegung después de unten
5 = Bewegung después de links unten
6 = Bewegung después de links
7 = Bewegung después de links oben
8 = Bewegung después de oben

GetSpriteMoveXY(sprite&)

P.S. Bin gerade esta, ProSpeeds Anleitung a verbessern, mehr interne Links y kurze Beispielcodes a Características...

Saludo, Franco

20.04.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hi y Gracias Franco.
Jedoch bekomme Yo no hin ;(((

Kompilieren Marca Separación

WHILENOT EQU(%Scankey,27)

    getmessage

    if equ(MouseButton(),1)

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

        mientras que equ(MouseButton(),1)

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

            if equ(schritt%,10)

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

            endif

            inc schritt%

            if equ(x&,3)  NACH UNTEN

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

            elseif equ(x&,4)

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

            elseif equ(x&,5)

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

            elseif equ(x&,4) UNTEN

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

            endif

        wend

        if equ(richtung%,1) OBEN

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

        elseif equ(richtung%,2) UNTEN

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

        endif

    más

        Ab hier nun Reaktionen en el Spiel:

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

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

    endif

wend

Irgendwas mache Yo falso, me está klar, sólo qué?
Der Code bedeutet sí:

Solange linke Botón del ratón:
Schaue welche Richtung el Sprite y luego poner neue Spritefigur.
Jedoch nun bewegt se el Sprite (jeweils de 9 Bildern en el Reihe) no mehr. Lo rutscht (sowie en el Sendung South Park ;))) ) sin se a bewegen para Endpunkt.
Klar - Yo hier sólo testweise algunos Richtungen abgefragt.
Como würdest Usted el (oder wer sonst) hacer????
Kennt uno sí de Diablo u.s.w el Ratón verwandelt se entonces auch en una Mauszeiger, welcher en el Richtung zeigt.
Puhhh, naja entonces mach Yo solange con ROC más

)))))
Gracias en el Vorraus
Rolf

20.04.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

¡Hola Rolf,

me es todavía no 100%ig klar, ¿qué es exactamente du hacer möchtest...
Como sieht dein Sprite porque de, una Art Pfeil ?
Und el se en el Richtung zeigen, wo se el Mauszeiger befindet ? Oder se se el Sprite auch dorthin bewegen.

Bin irgendwie algo begriffsstutzig heute :-/

Saludo, Franco

20.04.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hi Franco,
nee liegt wohl a meiner Erklärung.

Mein Sprite es un hombre.
Dieser Mensch besteht de allen 8 Richtungen.
In cada Richtung son jeweils 9 Einzelbilder.
(Relacionado con la Pfeil war sólo así al Rande)

Nun voluntad Yo:
Solange Botón del ratón links gedrückt es
entonces
jeweils erkennen en welche Richtung lo va y dementsprechend en el Whileschleife (also Maus=1)
el Menschen natürlich auch el Laufrichtung adaptar.
Jedoch innerhalb el Bucle (siehe Code) se ejecuta el Kerl entonces no mehr, pero restos siempre en el ersten Bild posición - él rutsch also sin Animation para Zielpunkt.

Rolf

20.04.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hi,

ach así.

Schreib doch veces anstatt:

if equ(MouseButton(),1)
...

dieses hier:

t&=MouseButton()
If TestBit(t&,0) Linke Botón del ratón gedrückt ?
...

Saludo, Franco

20.04.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hi Yo otra vez.
Habs soweit hinbekommen.
El Abfragen haben no ausgereicht. Lo mussten todavía mehr her.
Zum Ejemplo aktuelle Spriteposition en uno Variable sichern en später en el Bucle sólo en Änderung a aktualisieren u.s.w.
Trotzdem Gracias.
Rolf

20.04.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

¡Hola Rolf.

Prima. Wenn du bald una Tester suchst, mach Me gusta...

Saludo, Franco

20.04.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sí gerne Franco,
sieht wesentlich mejor como mein altes Demogame de.
Jedoch, naja - Roc ha Vorrang y el Game es ne schleppende Sache. Si usted todavía una Jahr Geduld hast

hihihihihi!
Rolf

20.04.2004 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hi,

echt? Ein Jahr ?
Na sí, Yo kann warten...