XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Animationen con Profano² (laufendes y gackerndes Huhn)
Animationen con PROFAN² 6.0 32-Bit
Andreas Miethe * Bielefeld * April 1998
ACHTUNG! -> El Bilddatei HUHN.BMP y el Tondatei HUHN1.WAV necesario en el Pfad posición
************************************************************************************************************
SetTruecolor 1
Ventana de Estilo 240                                Durchsichtiges Ventana
Ventana 0,0-%Maxx,%Maxy                         über el gesamten Hintergrund
MCLS add(%maxx,100),%maxy                      Speicherbereich leeren; muß groß genug para beide Bilder ser
CopyBmpToMem 0,0-%maxx,%maxy > 100,0           Bildschirm en el Speicher sichern, y zwar en soweit después de rechts
movido, como lo el Breite des Huhn-Bitmaps entspricht.
StartPaint -1                                  Edición en el Speicher umleiten
LoadBmp huhn.bmp,0,0;0                       Das Huhn-Mapa de bits se a el Hintergrundbild dazugeladen.
EndPaint
DECLARE HUHNY%,LAUF%

PROC HUHN

    Hintergrund en el Speicher sichern
    StartPaint -1
    MCopyBmp LAUF%,200-100,100 > 0,400;0
    Das Hintergrundbild, el hier gesichert se, es así groß como el Abmessungen des ersten Huhnes
    y se a Position X= 0 <--> Y= 400 also unterhalb des HUHN-Bildes kopiert.
    EndPaint
    Huhn sólo en el Speicher kopieren.....
    StartPaint -1
    MCopyBmp 0,HUHNY%-100,100 > 0,400;-1
    Das erste Huhn se ahora a el selbe Punto, y zwar durchsichtig kopiert,
    así daß una zusammengestzte Bild entsteht ( Hintergrund + Huhn )
    EndPaint
    ....y entonces en el Bild
    MCopyBmp 0,400-100,100 > sub(LAUF%,100),200;0   LAUF%-100 es el Laufweite en el SpeicherBild minus Huhnbreite
    Hier se el zusammengesetzte Bild en el Bildschirm kopiert
    LET HUHNY%=add(HUHNY%,100)                      el nächste Huhn
    CASE equ(HUHNY%,400):LET HUHNY%=0               después de el Letzten Huhn otra vez para ersten

ENDPROC

LET LAUF%=0                                     el rechteste Stück vom Bildhintergrund
PlaySound huhn1.wav,9                         el Huhn macht Töne
SetTimer 55                                     kleine Zeitverzögerung einbauen

Sinestar encargado gt(LAUF%,add(%maxx,100))               200=add(100,100) el Huhnbreite al Anfang y al Ende (merkt en)

    LET LAUF%= add (LAUF%,10)                       en el Laufweite darauf achten,daß ellos no a groß se,
    sonst se no el todo Ausschnitt überlagert -
    oder una größeren Ausschnitt vom Bildschirm sichern !!
    Waitinput
    CASE %wmtimer :huhn                             si el Zeitschleife una vez durchlaufen es PROC HUHN aufrufen

Wend

End