216 lines
3.5 KiB
C++
216 lines
3.5 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 *temps;
|
|
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;
|
|
temps=SpriteInterpolate(imgs[i],imgs[i+1],(NUM_FRAMES-1)*tt-i);
|
|
SpritePlot3(dc,cx,cy,0,temps);
|
|
SpritePlot3(dc,cx,cy,0,$IB,"<5>",5$);
|
|
Free(temps);
|
|
}
|
|
|
|
U0 WaterRock()
|
|
{
|
|
I64 msg_code,ch,sc;
|
|
|
|
SettingsPush(Fs,TSF_SAME_SONG); //See $LK,"SettingsPush","MN:SettingsPush"$
|
|
Fs->text_attr=YELLOW<<4+BLUE;
|
|
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);
|
|
GetMsg(,,1<<MSG_KEY_UP);
|
|
} catch
|
|
CatchAll;
|
|
DocClear;
|
|
SettingsPop(Fs,TSF_SAME_SONG);
|
|
}
|
|
ø
|
|
& * * *
|
|
* * (
|
|
( *
|
|
* .
|
|
. 0 (
|
|
0 ( . *
|
|
* . ðÿÿÿ
|
|
( & ðÿÿÿ
|
|
* ìÿÿÿ( äÿÿÿ
|
|
( òÿÿÿ" úÿÿÿ
|
|
" úÿÿÿ êÿÿÿ
|
|
& ðÿÿÿ" òÿÿÿ
|
|
" òÿÿÿ æÿÿÿ
|
|
òÿÿÿ2 Èÿÿÿ ø
|
|
& * * *
|
|
* * (
|
|
( *
|
|
* .
|
|
. 0 (
|
|
0 ( . *
|
|
* . ðÿÿÿ
|
|
( & ðÿÿÿ
|
|
* ìÿÿÿ( äÿÿÿ
|
|
( òÿÿÿ øÿÿÿ
|
|
øÿÿÿ îÿÿÿ
|
|
& ðÿÿÿ òÿÿÿ
|
|
òÿÿÿ èÿÿÿ
|
|
òÿÿÿ ²ÿÿÿ ø
|
|
& * * *
|
|
* * (
|
|
( *
|
|
* .
|
|
. 0 (
|
|
0 ( . *
|
|
* . ðÿÿÿ
|
|
( & ðÿÿÿ
|
|
* ìÿÿÿ( äÿÿÿ
|
|
( òÿÿÿ øÿÿÿ
|
|
øÿÿÿ ðÿÿÿ
|
|
& ðÿÿÿ òÿÿÿ
|
|
òÿÿÿ îÿÿÿ
|
|
òÿÿÿôÿÿÿÎÿÿÿ ø
|
|
& * * *
|
|
* * (
|
|
( *
|
|
* .
|
|
. 0 (
|
|
0 ( . *
|
|
* * òÿÿÿ
|
|
( & ðÿÿÿ
|
|
( îÿÿÿ$ æÿÿÿ
|
|
& ðÿÿÿ øÿÿÿ
|
|
þÿÿÿ þÿÿÿ
|
|
& ðÿÿÿ ôÿÿÿ
|
|
& üÿÿÿ úÿÿÿ
|
|
úÿÿÿêÿÿÿ r âÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ |