XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Animationen avec Profan² (laufendes et gackerndes Huhn)
Animationen avec PROFANE² 6.0 32-Bit
Andreas Miethe * Bielefeld * avril 1998
ACHTUNG! -> qui Bilddatei HUHN.BMP et qui Tondatei HUHN1.WAV doit im Pfad stehen
************************************************************************************************************
SetTruecolor 1
Fenêtre Style 240                                Durchsichtiges la fenêtre
Fenêtre 0,0-%Maxx,%Maxy                         über den gesamten Hintergrund
MCLS add(%maxx,100),%maxy                      Speicherbereich vider; doit grand genug pour beide Bilder son
CopyBmpToMem 0,0-%maxx,%maxy > 100,0           Bildschirm im grenier sichern, et zwar um soweit pour à droite
déménagé, comment es qui Breite des Huhn-Bitmaps entspricht.
Début de peinture -1                                  Ausgabe dans den grenier détourner
LoadBmp huhn.bmp,0,0;0                       cela Huhn-Bitmap wird trop dem Hintergrundbild dazugeladen.
EndPaint
DECLARE HUHNY%,LAUF%

PROC HUHN

    Hintergrund im grenier sichern
    Début de peinture -1
    MCopyBmp LAUF%,200-100,100 > 0,400;0
    cela Hintergrundbild, cela ici gesichert wird, ist so grand comment qui Abmessungen des ersten Huhnes
    et wird à Position X= 0 <--> Y= 400 alors unterhalb des HUHN-Bildes kopiert.
    EndPaint
    Huhn seulement dans den grenier kopieren.....
    Début de peinture -1
    MCopyBmp 0,HUHNY%-100,100 > 0,400;-1
    cela erste Huhn wird maintenant à qui selbe Stelle, et zwar durchsichtig kopiert,
    so qui un zusammengestzte Bild entsteht ( Hintergrund + Huhn )
    EndPaint
    ....et ensuite ins Bild
    MCopyBmp 0,400-100,100 > sub(LAUF%,100),200;0   LAUF%-100 ist qui Laufweite im SpeicherBild minus Huhnbreite
    ici wird cela zusammengesetzte Bild sur den Bildschirm kopiert
    LET HUHNY%=add(HUHNY%,100)                      cela prochain Huhn
    CASE equ(HUHNY%,400):LET HUHNY%=0               pour dem Letzten Huhn wieder zum ersten

ENDPROC

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

Whilenot gt(LAUF%,add(%maxx,100))               200=add(100,100) qui Huhnbreite am Anfang et am Ende (merkt sur)

    LET LAUF%= add (LAUF%,10)                       chez qui Laufweite puis achten,qui vous pas trop grand wird,
    sonst wird pas qui ganze Ausschnitt überlagert -
    ou bien une größeren Ausschnitt vom Bildschirm sichern !!
    Waitinput
    CASE %wmtimer :huhn                             si qui Zeitschleife einmal durchlaufen ist PROC HUHN appel

Wend

Fin