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