158 lines
3.4 KiB
C++
158 lines
3.4 KiB
C++
$BG,14$
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$SP,"<1>",1$
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$SP,"<2>",2$
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$SP,"<3>",3$
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$SP,"<4>",4$
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$SP,"<5>",5$
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$BG$
|
|
|
|
#define NUM_FRAMES 4
|
|
#define DOWN_TIME 0.075
|
|
#define UP_TIME 0.2
|
|
#define SPREAD_RATE 5
|
|
|
|
U8 *imgs[NUM_FRAMES]={$IB,"<1>",1$,$IB,"<2>",2$,$IB,"<3>",3$,$IB,"<4>",4$};
|
|
|
|
F64 t0_down,t0_up;
|
|
Bool down_stroke;
|
|
|
|
|
|
U0 DrawWaterRock(CTask *task,CDC *dc)
|
|
{
|
|
I64 i,r,
|
|
cx=task->win_pixel_width>>1,
|
|
cy=task->win_pixel_height>>1;
|
|
U8 *inter;
|
|
F64 tt;
|
|
if (t0_down) {
|
|
tt=(tT-t0_down);
|
|
if (tt>DOWN_TIME) {
|
|
r=SPREAD_RATE*(tt-DOWN_TIME);
|
|
if (r>17) r=17;
|
|
dc->color=BLUE;
|
|
GrCircle(dc,cx-21,cy+22,r);
|
|
if (r>=2)
|
|
GrFloodFill(dc,cx-21,cy+22);
|
|
}
|
|
}
|
|
if (down_stroke) {
|
|
tt=(tT-t0_down)/DOWN_TIME;
|
|
if (tt>0.9999) tt=0.9999;
|
|
} else {
|
|
tt=(tT-t0_up)/UP_TIME;
|
|
if (tt>0.9999) tt=0.9999;
|
|
tt=1.0-tt;
|
|
}
|
|
i=(NUM_FRAMES-1)*tt;
|
|
inter=SpriteInterpolate(imgs[i],imgs[i+1],(NUM_FRAMES-1)*tt-i);
|
|
SpritePlot3(dc,cx,cy,0,inter);
|
|
SpritePlot3(dc,cx,cy,0,$IB,"<5>",5$);
|
|
Free(inter);
|
|
}
|
|
|
|
U0 WaterRock()
|
|
{
|
|
I64 msg_code,ch,sc;
|
|
|
|
SettingsPush(Fs,TSF_SAME_SONG); //See $LK,"SettingsPush","MN:SettingsPush"$
|
|
try {
|
|
DocClear;
|
|
"$$BG,YELLOW$$";
|
|
|
|
PutBibleVerse("Exodus,17:6",4);
|
|
"\n$$BK,1$$<SPACE BAR>$$BK,0$$\n";
|
|
|
|
t0_down=t0_up=0;
|
|
down_stroke=FALSE;
|
|
Fs->draw_it=&DrawWaterRock;
|
|
do {
|
|
msg_code=GetMsg(&ch,&sc,1<<MSG_KEY_DOWN|1<<MSG_KEY_UP);
|
|
if (ch==CH_SPACE) {
|
|
if (msg_code==MSG_KEY_DOWN) {
|
|
t0_down=tT;
|
|
down_stroke=TRUE;
|
|
} else if (t0_down) { //Ignore extra key_up from start-up
|
|
t0_up=tT;
|
|
down_stroke=FALSE;
|
|
}
|
|
}
|
|
} while (msg_code!=MSG_KEY_DOWN || ch!=CH_SHIFT_ESC && ch!=CH_ESC);
|
|
} catch
|
|
CatchAll;
|
|
"$$BG$$\n";
|
|
SettingsPop(Fs,TSF_SAME_SONG);
|
|
}
|
|
ø & * * * * * ( ( * * . . 0 ( 0 ( . * * . ðÿÿÿ( & ðÿÿÿ* ìÿÿÿ( äÿÿÿ( òÿÿÿ" úÿÿÿ" úÿÿÿ êÿÿÿ& ðÿÿÿ" òÿÿÿ" òÿÿÿ æÿÿÿ òÿÿÿ2 Èÿÿÿ ø & * * * * * ( ( * * . . 0 ( 0 ( . * * . ðÿÿÿ( & ðÿÿÿ* ìÿÿÿ( äÿÿÿ( òÿÿÿ øÿÿÿ øÿÿÿ îÿÿÿ& ðÿÿÿ òÿÿÿ òÿÿÿ èÿÿÿ òÿÿÿ ²ÿÿÿ ø & * * * * * ( ( * * . . 0 ( 0 ( . * * . ðÿÿÿ( & ðÿÿÿ* ìÿÿÿ( äÿÿÿ( òÿÿÿ øÿÿÿ øÿÿÿ ðÿÿÿ& ðÿÿÿ òÿÿÿ òÿÿÿ îÿÿÿ òÿÿÿôÿÿÿÎÿÿÿ ø & * * * * * ( ( * * . . 0 ( 0 ( . * * * òÿÿÿ( & ðÿÿÿ( îÿÿÿ$ æÿÿÿ& ðÿÿÿ øÿÿÿ þÿÿÿ þÿÿÿ& ðÿÿÿ ôÿÿÿ& üÿÿÿ úÿÿÿ úÿÿÿêÿÿÿ r âÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ |