173 lines
3.0 KiB
HolyC
173 lines
3.0 KiB
HolyC
$BG,11$
|
|
$SP,"<1>",BI=1$
|
|
|
|
|
|
|
|
$SP,"<2>",BI=2$
|
|
|
|
|
|
|
|
$SP,"<3>",BI=3$
|
|
$BG$
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$SP,"<4>",BI=4,BP="::/Demo/Graphics/Mountain.HC.Z,Mountain"$ //Pointer to sprite in $LK,"Mountain.HC",A="FI:::/Demo/Graphics/Mountain.HC"$ file
|
|
|
|
#define NUM_QUAIL 128
|
|
#define SKY_HEIGHT (0.6*GR_HEIGHT)
|
|
class QuailStruct
|
|
{
|
|
F64 x,y,dx,dy,phase;
|
|
Bool dead,pad[7];
|
|
} q[NUM_QUAIL];
|
|
|
|
F64 t0,t_last;
|
|
|
|
U0 DrawQuail(CTask *,CDC *dc)
|
|
{
|
|
I64 i;
|
|
U8 *tmps;
|
|
F64 tt,t1=tS-t0;
|
|
Sprite3(dc,0,SKY_HEIGHT,0,$IB,"<4>",BI=4$);
|
|
for (i=0;i<NUM_QUAIL;i++) {
|
|
tt=Tri(t1+q[i].phase,1.0);
|
|
if (q[i].dead) {
|
|
q[i].x+=(t1-t_last)*q[i].dx;
|
|
q[i].y+=50*(t1-t_last);
|
|
if (q[i].y>SKY_HEIGHT) {
|
|
q[i].y=SKY_HEIGHT;
|
|
q[i].dx=0;
|
|
}
|
|
Sprite3(dc,q[i].x,q[i].y,0,$IB,"<3>",BI=3$);
|
|
} else {
|
|
q[i].x+=(t1-t_last)*q[i].dx;
|
|
q[i].y+=(t1-t_last)*q[i].dy;
|
|
if (!(0<q[i].y<SKY_HEIGHT-20)) {
|
|
q[i].dy=-q[i].dy;
|
|
q[i].y+=(t1-t_last)*q[i].dy;
|
|
}
|
|
tmps=SpriteInterpolate(tt,$IB,"<1>",BI=1$,$IB,"<2>",BI=2$);
|
|
Sprite3(dc,q[i].x,q[i].y,0,tmps);
|
|
Free(tmps);
|
|
if (q[i].x>0 && t1-t_last>10*Rand)
|
|
q[i].dead=TRUE;
|
|
}
|
|
}
|
|
t_last=t1;
|
|
}
|
|
|
|
U0 Quail()
|
|
{
|
|
I64 i;
|
|
for (i=0;i<NUM_QUAIL;i++) {
|
|
q[i].x=RandI16%GR_WIDTH;
|
|
q[i].y=RandU16%SKY_HEIGHT;
|
|
q[i].dx=50*Rand+10;
|
|
q[i].dy=20*(Rand-0.5);
|
|
q[i].phase=Rand;
|
|
q[i].dead=FALSE;
|
|
}
|
|
SettingsPush(Fs,TSF_SAME_SONG); //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
|
Fs->text_attr=YELLOW<<4+BLUE;
|
|
WinMax;
|
|
DocClear;
|
|
"$$BG,YELLOW$$";
|
|
BibleVerse(,"Numbers,11:11",88);
|
|
DocTop;
|
|
PopUpOk("Scroll down to finish reading.\n"
|
|
"$$GREEN$$<SHIFT-ESC>$$FG$$ when done.");
|
|
View;
|
|
DocClear;
|
|
"$$BG,LTCYAN$$%h*c",ToI64(SKY_HEIGHT/FONT_HEIGHT),'\n';
|
|
"$$BG,YELLOW$$%h5c",'\n';
|
|
|
|
t0=tS;
|
|
t_last=0;
|
|
Fs->draw_it=&DrawQuail;
|
|
PressAKey;
|
|
DocClear;
|
|
SettingsPop(Fs,TSF_SAME_SONG);
|
|
}
|
|
e
|
|
ìÿÿÿ ùÿÿÿ
|
|
ùÿÿÿ üÿÿÿüÿÿÿ
|
|
üÿÿÿüÿÿÿ ûÿÿÿ
|
|
ûÿÿÿ
|
|
þÿÿÿ
|
|
|
|
þÿÿÿ
|
|
|
|
|
|
þÿÿÿ
|
|
|
|
|
|
|
|
þÿÿÿ
|
|
þÿÿÿ üÿÿÿþÿÿÿ
|
|
üÿÿÿ ÷ÿÿÿ
|
|
÷ÿÿÿ ùÿÿÿ
|
|
ùÿÿÿ ÿÿÿÿ
|
|
ùÿÿÿþÿÿÿèÿÿÿ
|
|
çÿÿÿ øÿÿÿÿÿÿÿ
|
|
øÿÿÿÿÿÿÿêÿÿÿ
|
|
|
|
þÿÿÿ
|
|
|
|
ÿÿÿÿ e
|
|
èÿÿÿ õÿÿÿ
|
|
õÿÿÿ øÿÿÿ
|
|
øÿÿÿ ÿÿÿÿ
|
|
ÿÿÿÿ
|
|
|
|
|
|
|
|
ÿÿÿÿ øÿÿÿ
|
|
øÿÿÿ
|
|
úÿÿÿ
|
|
ùÿÿÿ øÿÿÿ
|
|
øÿÿÿ úÿÿÿýÿÿÿ
|
|
ùÿÿÿ ÿÿÿÿõÿÿÿ
|
|
ÿÿÿÿöÿÿÿÿÿÿÿÿÿÿÿ
|
|
õÿÿÿ äÿÿÿ
|
|
ãÿÿÿ ôÿÿÿ
|
|
ôÿÿÿ æÿÿÿ
|
|
üÿÿÿ þÿÿÿ
|
|
|
|
¼
|
|
èÿÿÿôÿÿÿõÿÿÿûÿÿÿ
|
|
õÿÿÿøÿÿÿøÿÿÿ
|
|
øÿÿÿ
|
|
þÿÿÿ
|
|
þÿÿÿ ûÿÿÿ
|
|
ûÿÿÿ øÿÿÿ
|
|
øÿÿÿ ùÿÿÿ
|
|
ÿÿÿÿþÿÿÿ
|
|
üÿÿÿ
|
|
ùÿÿÿúÿÿÿûÿÿÿ
|
|
ùÿÿÿüÿÿÿøÿÿÿþÿÿÿ
|
|
øÿÿÿùÿÿÿúÿÿÿ
|
|
ùÿÿÿ ÿÿÿÿ
|
|
ÿÿÿÿ
|
|
ÿÿÿÿ
|
|
õÿÿÿþÿÿÿäÿÿÿüÿÿÿ
|
|
ãÿÿÿøÿÿÿôÿÿÿýÿÿÿ
|
|
ôÿÿÿýÿÿÿæÿÿÿõÿÿÿ
|
|
üÿÿÿüÿÿÿþÿÿÿùÿÿÿ
|
|
þÿÿÿ ûÿÿÿ
|
|
ûÿÿÿ ýÿÿÿ
|
|
ýÿÿÿúÿÿÿùÿÿÿðÿÿÿ
|
|
øÿÿÿ îÿÿÿ
|
|
ùÿÿÿðÿÿÿ÷ÿÿÿðÿÿÿ
|
|
ðÿÿÿ îÿÿÿ
|
|
ûÿÿÿòÿÿÿùÿÿÿîÿÿÿ |