100 lines
2.7 KiB
C++
100 lines
2.7 KiB
C++
$BG,11$
|
|
$SP,"<1>",1$
|
|
|
|
|
|
|
|
|
|
|
|
$SP,"<2>",2$
|
|
|
|
|
|
|
|
|
|
$SP,"<3>",3$
|
|
|
|
$BG$
|
|
#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 *task,CDC *dc)
|
|
{
|
|
I64 i;
|
|
U8 *inter;
|
|
F64 tt,t1=tP(task)-t0;
|
|
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;
|
|
}
|
|
CSpritePlot3(dc,q[i].x,q[i].y,0,$IB,"<3>",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;
|
|
}
|
|
inter=CSpriteInterpolate($IB,"<1>",1$,$IB,"<2>",2$,tt);
|
|
CSpritePlot3(dc,q[i].x,q[i].y,0,inter);
|
|
Free(inter);
|
|
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","MN:SettingsPush"$
|
|
WinMax;
|
|
|
|
DocBottom;
|
|
"$$CL$$$$BG,YELLOW$$";
|
|
|
|
PutBibleVerse("Numbers,11:11",88);
|
|
DocTop;
|
|
PopUpOk("Scroll down to finish reading.\n"
|
|
"$$FG,GREEN$$<SHIFT-ESC>$$FG$$ when done.");
|
|
View;
|
|
|
|
DocBottom;
|
|
"$$CL$$$$BG,LTCYAN$$";
|
|
NewLine(SKY_HEIGHT/FONT_HEIGHT);
|
|
"$$BG,YELLOW$$";
|
|
NewLine(3);
|
|
|
|
t0=tP;
|
|
t_last=0;
|
|
Fs->draw_it=&DrawQuail;
|
|
PressAKey;
|
|
DocClear;
|
|
SettingsPop(Fs,TSF_SAME_SONG);
|
|
"$$BG$$\n";
|
|
}
|
|
e ìÿÿÿ ùÿÿÿ ùÿÿÿ üÿÿÿüÿÿÿüÿÿÿüÿÿÿ ûÿÿÿ ûÿÿÿ
|
|
þÿÿÿ
|
|
þÿÿÿ þÿÿÿ
|
|
|
|
þÿÿÿ þÿÿÿ üÿÿÿþÿÿÿüÿÿÿ ÷ÿÿÿ ÷ÿÿÿ ùÿÿÿ ùÿÿÿ ÿÿÿÿ ùÿÿÿþÿÿÿèÿÿÿ çÿÿÿ øÿÿÿÿÿÿÿøÿÿÿÿÿÿÿêÿÿÿ þÿÿÿ
|
|
ÿÿÿÿ e èÿÿÿ õÿÿÿ õÿÿÿ øÿÿÿ øÿÿÿ ÿÿÿÿ ÿÿÿÿ ÿÿÿÿ øÿÿÿ øÿÿÿ úÿÿÿ ùÿÿÿ øÿÿÿ øÿÿÿ úÿÿÿýÿÿÿùÿÿÿ ÿÿÿÿõÿÿÿÿÿÿÿöÿÿÿÿÿÿÿÿÿÿÿõÿÿÿ äÿÿÿ ãÿÿÿ ôÿÿÿ ôÿÿÿ æÿÿÿ üÿÿÿ þÿÿÿ ¼ èÿÿÿôÿÿÿõÿÿÿûÿÿÿõÿÿÿøÿÿÿøÿÿÿ øÿÿÿ þÿÿÿ þÿÿÿ ûÿÿÿ ûÿÿÿ øÿÿÿ øÿÿÿ ùÿÿÿÿÿÿÿþÿÿÿ üÿÿÿ ùÿÿÿúÿÿÿûÿÿÿùÿÿÿüÿÿÿøÿÿÿþÿÿÿøÿÿÿùÿÿÿúÿÿÿ ùÿÿÿ ÿÿÿÿ ÿÿÿÿ
|
|
ÿÿÿÿ õÿÿÿþÿÿÿäÿÿÿüÿÿÿãÿÿÿøÿÿÿôÿÿÿýÿÿÿôÿÿÿýÿÿÿæÿÿÿõÿÿÿüÿÿÿüÿÿÿþÿÿÿùÿÿÿ þÿÿÿ ûÿÿÿ ûÿÿÿ ýÿÿÿ ýÿÿÿúÿÿÿùÿÿÿðÿÿÿ øÿÿÿ îÿÿÿùÿÿÿðÿÿÿ÷ÿÿÿðÿÿÿ ðÿÿÿ îÿÿÿûÿÿÿòÿÿÿùÿÿÿîÿÿÿ |