XProfan

English

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
Animationen with Profan² (current and gackerndes hen)
Animationen with PROFAN² 6.0 32-bit
Andreas Miethe * Bielefeld * april 1998
ACHTUNG! -> The Bilddatei HUHN.BMP and The Tondatei HUHN1.WAV must in the way stand
************************************************************************************************************
SetTruecolor 1
Window Style 240                                Durchsichtiges Window
Window 0,0-%Maxx,%Maxy                         über whom whole background
MCLS add(%maxx,100),%maxy                      Speicherbereich clear; must big enough for both Images his
CopyBmpToMem 0,0-%maxx,%maxy > 100,0           screen in the memory secure, and of course circa so far to right
moved, How it the wide the hen-Bitmaps corresponds to.
StartPaint -1                                  spending in whom memory redirecting
LoadBmp hen.bmp,0,0;0                       the hen-Bitmap becomes To the Wallpapers dazugeladen.
EndPaint
DECLARE HUHNY%,LAUF%

PROC HUHN

    background in the memory secure
    StartPaint -1
    MCopyBmp LAUF%,200-100,100 > 0,400;0
    the Wallpapers, the here ensured becomes, is so big How The dimensions the first Huhnes
    and becomes on position X= 0 <--> Y= 400 means below the HUHN-Bildes copies.
    EndPaint
    hen first in whom memory copy.....
    StartPaint -1
    MCopyBmp 0,HUHNY%-100,100 > 0,400;-1
    the first hen becomes now on The same place, and of course transparent copies,
    so that one zusammengestzte Image arise ( background + hen )
    EndPaint
    ....and then in that Image
    MCopyBmp 0,400-100,100 > sub(LAUF%,100),200;0   LAUF%-100 is The Laufweite in the SpeicherBild less Huhnbreite
    here becomes the zusammengesetzte Image on whom screen copies
    LET HUHNY%=add(HUHNY%,100)                      the next hen
    CASE equ(HUHNY%,400):LET HUHNY%=0               to the last hen again to that first

ENDPROC

LET LAUF%=0                                     the rechteste Piece of Bildhintergrund
PlaySound hen1.wav,9                         the hen power sounds
SetTimer 55                                     small Delay install

Whilenot gt(LAUF%,add(%maxx,100))               200=add(100,100) The Huhnbreite on the beginning and on the end (observes on)

    LET LAUF%= add (LAUF%,10)                       with the Laufweite hereon respect,that tappt im dunkeln not To big becomes,
    otherwise becomes not the whole neckline überlagert -
    or a more neckline of screen secure !!
    Waitinput
    CASE %wmtimer :hen                             if The Zeitschleife once go through is PROC HUHN Call

Wend

End