$BG,2$ $SP,"<1>",BI=1$ $SP,"<2>",BI=2$ $SP,"<3>",BI=3$ $SP,"<4>",BI=4$ $SP,"<5>",BI=5$ $SP,"<6>",BI=6$ $SP,"<7>",BI=7$ $SP,"<8>",BI=8$ $SP,"<9>",BI=9$ $SP,"<10>",BI=10$ $BG$ #define BASE_X (GR_WIDTH/2) #define BASE_Y (3*GR_HEIGHT/4) #define TEE_HEIGHT 34 #define BATTER_T 0.25 #define NUM_BATTER_IMGS 4 CSprite *batter_imgs[NUM_BATTER_IMGS]={$IB,"<2>",BI=2$,$IB,"<3>",BI=3$,$IB,"<4>",BI=4$,$IB,"<5>",BI=5$}; #define RUNNER1_T 1.5 #define NUM_RUNNER1_IMGS 6 CSprite *runner1_imgs[NUM_RUNNER1_IMGS]={$IB,"<5>",BI=5$,$IB,"<6>",BI=6$,$IB,"<7>",BI=7$,$IB,"<7>",BI=7$,$IB,"<7>",BI=7$,$IB,"<8>",BI=8$}; #define RUNNER2_T 0.4 #define NUM_RUNNER2_IMGS 4 CSprite *runner2_imgs[NUM_RUNNER2_IMGS]={$IB,"<8>",BI=8$,$IB,"<9>",BI=9$,$IB,"<8>",BI=8$,$IB,"<10>",BI=10$}; F64 t0,hit_t0; F64 ball_x,ball_y; U0 DrawIt(CTask *,CDC *dc) { F64 tt=tS-t0; I64 i=(NUM_BATTER_IMGS-1)*tt/BATTER_T; CSprite *temps; dc->color=WHITE; dc->pen_width=3; GrLine3(dc,BASE_X,BASE_Y,0,BASE_X-200,BASE_Y-200,0); GrLine3(dc,BASE_X,BASE_Y,0,BASE_X+200,BASE_Y-200,0); Sprite3(dc,BASE_X,BASE_Y,0,$IB,"<1>",BI=1$); dc->color=WHITE; GrCircle(dc,ball_x+BASE_X,ball_y+BASE_Y-TEE_HEIGHT,2); if (!t0) Sprite3(dc,BASE_X-23,BASE_Y,0,batter_imgs[0]); else if (iBATTER_T/2) hit_t0=tS; } else { tt-=BATTER_T; i=(NUM_RUNNER1_IMGS-1)*tt/RUNNER1_T; if (itext_attr=GREEN<<4+WHITE; AutoComplete; WinBorder; WinMax; DocCursor; DocClear; Fs->animate_task=Spawn(&AnimateTask,NULL,"Animate",,Fs); MenuPush( "File {" " Abort(,CH_SHIFT_ESC);" " Exit(,CH_ESC);" "}" "Play {" " Swing(,CH_SPACE);" " Restart(,'\n');" "}" ); Init; Fs->draw_it=&DrawIt; try { while (TRUE) { switch (GetChar(,FALSE)) { case '\n': Init; break; case CH_SPACE: t0=tS; break; case CH_SHIFT_ESC: case CH_ESC: goto tb_done; } } tb_done: } catch PutExcept; SettingsPop; MenuPop; } TeeBall; ’  üÿÿÿÿÿÿÿþÿÿÿÝÿÿÿ þÿÿÿÝÿÿÿÿÿÿÿ þÿÿÿßÿÿÿÇÿÿÿ üÿÿÿÛÿÿÿúÿÿÿÇÿÿÿ üÿÿÿÇÿÿÿ»ÿÿÿ Çÿÿÿ×ÿÿÿ ÛÿÿÿüÿÿÿÉÿÿÿ Ùÿÿÿ ëÿÿÿ’  üÿÿÿÿÿÿÿþÿÿÿÝÿÿÿ þÿÿÿÝÿÿÿôÿÿÿ þÿÿÿßÿÿÿÇÿÿÿ üÿÿÿÛÿÿÿúÿÿÿÇÿÿÿ üÿÿÿÇÿÿÿ»ÿÿÿ Çÿÿÿ Ùÿÿÿ ÙÿÿÿüÿÿÿÉÿÿÿ ÙÿÿÿÙÿÿÿ’  üÿÿÿÿÿÿÿþÿÿÿÝÿÿÿ þÿÿÿÝÿÿÿôÿÿÿ þÿÿÿßÿÿÿÈÿÿÿ üÿÿÿÛÿÿÿüÿÿÿÈÿÿÿ þÿÿÿÊÿÿÿ»ÿÿÿ Èÿÿÿ ×ÿÿÿ ÓÿÿÿÊÿÿÿ ÙÿÿÿÃÿÿÿ’  üÿÿÿÿÿÿÿþÿÿÿÝÿÿÿ þÿÿÿÝÿÿÿþÿÿÿ þÿÿÿßÿÿÿÈÿÿÿ üÿÿÿÛÿÿÿüÿÿÿÆÿÿÿ Æÿÿÿ»ÿÿÿ þÿÿÿÊÿÿÿ×ÿÿÿ ÕÿÿÿüÿÿÿÊÿÿÿ Ûÿÿÿ »ÿÿÿ2þÿÿÿ€ þÿÿÿàÿÿÿ’  üÿÿÿþÿÿÿÝÿÿÿ þÿÿÿÝÿÿÿøÿÿÿüÿÿÿ þÿÿÿßÿÿÿøÿÿÿÅÿÿÿ þÿÿÿÚÿÿÿÆÿÿÿ Æÿÿÿþÿÿÿºÿÿÿ þÿÿÿÇÿÿÿ×ÿÿÿ ÕÿÿÿûÿÿÿÆÿÿÿ Ûÿÿÿ ðÿÿÿ’  üÿÿÿþÿÿÿÝÿÿÿ þÿÿÿÝÿÿÿøÿÿÿüÿÿÿ þÿÿÿßÿÿÿøÿÿÿÅÿÿÿ ÚÿÿÿÆÿÿÿ üÿÿÿÆÿÿÿþÿÿÿºÿÿÿ þÿÿÿÇÿÿÿþÿÿÿÚÿÿÿ øÿÿÿÜÿÿÿûÿÿÿÆÿÿÿ øÿÿÿÚÿÿÿôÿÿÿôÿÿÿ’  üÿÿÿþÿÿÿÝÿÿÿ þÿÿÿÝÿÿÿøÿÿÿüÿÿÿ þÿÿÿßÿÿÿÆÿÿÿ øÿÿÿÜÿÿÿøÿÿÿÆÿÿÿ üÿÿÿÆÿÿÿþÿÿÿºÿÿÿ øÿÿÿÆÿÿÿþÿÿÿÚÿÿÿ ÞÿÿÿÆÿÿÿ Üÿÿÿôÿÿÿ ’  ôÿÿÿþÿÿÿÝÿÿÿ þÿÿÿÝÿÿÿøÿÿÿüÿÿÿ þÿÿÿßÿÿÿÆÿÿÿ òÿÿÿØÿÿÿøÿÿÿÆÿÿÿ üÿÿÿÆÿÿÿúÿÿÿ¼ÿÿÿ øÿÿÿÆÿÿÿþÿÿÿÚÿÿÿ ÜÿÿÿÆÿÿÿ Üÿÿÿúÿÿÿ ’  úÿÿÿþÿÿÿÝÿÿÿ þÿÿÿÝÿÿÿøÿÿÿòÿÿÿ þÿÿÿßÿÿÿÆÿÿÿ üÿÿÿàÿÿÿøÿÿÿÆÿÿÿ üÿÿÿÆÿÿÿøÿÿÿ¼ÿÿÿ øÿÿÿÆÿÿÿþÿÿÿÚÿÿÿ þÿÿÿÜÿÿÿÆÿÿÿ úÿÿÿØÿÿÿøÿÿÿ