easy-Cの入門書 [レベル17] の課題に対する作例

[17-2]に対する作例: Yuririnさん作の「もぐもぐおいしいな♪」

WINDOW 600,620; T=0; S=0;
int A[10]={0,0,200,400,0,200,400,0,200,400};
int B[10]={0,420,420,420,220,220,220,20,20,20};
GPRINTF(64,0,0xffffff,0,"MOGURA-TATAKI SCORE=%05d  TIME=%03d",S,T);
FOR (K=1; K<=9; K=K+1){ PICTURE "MOGURA0.BMP",A[K],B[K]; }
FOR(CLRKEY; INKEY(1)!=10;){WAIT(100);}
M=0; S=0;

FOR (T=300; T>=0; T=T-1){
  IF(M==0) {
    M=RND(9)+1;
    FOR (K=1; K<=9; K=K+1){ PICTURE "MOGURA0.BMP",A[K],B[K]; }
    PICTURE "MOGURA1.BMP",A[M],B[M];
  }
  GPRINTF(64,0,0xffffff,0,"MOGURA-TATAKI SCORE=%05d  TIME=%03d",S,T);
  WAIT(100);
  K=INKEY(1)-48;
  IF(K>=1 && K<=9){
    IF(K!=M){ PICTURE "MOGURA3.BMP",A[K],B[K]; WAIT(300); T=T-30; IF (T<1){T=1;}}
    IF(K==M){ PICTURE "MOGURA2.BMP",A[K],B[K]; WAIT(300); S=S+100; M=0;}
  }
}
FOR (K=1; K<=9; K=K+1){ PICTURE "MOGURA0.BMP",A[K],B[K]; }

ダウンロード

こめんと欄


トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS