Листинг 5. Реализация контролера

extern LArc Head2TBL[];
class CHead2 : public CBullet
{
public:
  CHead2();
  CHead2(CWnd* pW, int nNum, CSize sz=CSize(10,10),
         LArc *pTBL=Head2TBL, int nPri = 2);
  virtual ~CHead2();
protected:
  void y10();
};

CHead2::CHead2(CWnd* pW, int nNum, CSize sz,
               LArc *pTBL, int nPri)
       :CBullet(pW, nNum, sz, pTBL, nPri)
{
}

LArc Head2TBL[] = {
//      новобранец-контролер
        LArc("st","b1",  "x1",   "y4y10"),
        LArc("b1","b1", "^x2x4", "y10"),
        LArc("b1","st",  "x2",   "—"),
        LArc()
  };

void CHead2::y10()
{
  char ch[2]; int n;
  n = ((CRifleman*)pFsaMan)->pChainShot->nCountTurning;
  itoa(n/2,ch,10);
  cstrFace = ch;
  MakeNewBall();
  CBullet::y1();
  ((CRifleman*)pFsaMan)->pChainShot->nCountTurning=0;
}