a23_intro13wk1
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
* easy-Cの入門書 [レベル13] の課題に対する作例
-(by [[K]], 2024.03.07)
--目次はこちら → [[a23_intro00]]
** [13-2]に対する作例: Yuririnさん作の「たからさがしゲー...
Q=9; R=9;
ECHWIN(Q*2+1,R*2+2); ECHBOX(Q*2+1,R*2+1,0,1,1,2,0); ECH(...
FOR(I=0; I<1000000; I=I+1){
A=RND(Q)*2+1; B=RND(R)*2+2; IF(GETECH(A,B)>0) { CONTIN...
FOR(J=1; J<9; J=J+1){
K=RND(4);
IF(K==0 && A>1 && GETECH(A-2,B)>0){ ECH(A-1,B,0,...
IF(K==1 && A<Q*2-1 && GETECH(A+2,B)>0){ ECH(A+1,B,0,...
IF(K==2 && B>2 && GETECH(A,B-2)>0){ ECH(A,B-1,0,...
IF(K==3 && B<R*2 && GETECH(A,B+2)>0){ ECH(A,B+1,0,...
IF(J==0){ ECH(A,B,0,0,0); }
}
}
ECH(1,2,6,6,0);
FOR(K=0; K<20;){
A=RND(Q*2+1); B=RND(R*2+1)+1; IF (GETECH(A,B)>0){ CONT...
ECH(A,B,2,3,0); K=K+1;
}
A=1; B=2; S=0; T=999;
GPRINTF(0,0,7,0,"TIME=%03d SCORE=%05d",T,S);
FOR(CLRKEY; INKEY(1)==0; ){ WAIT(100); }
FOR (T=999; T>=0; T=T-1){
GPRINTF(0,0,7,0,"TIME=%03d SCORE=%05d",T,S);
IF(S==2000){BREAK;}
K=INKEY(1);
IF (K>0){
ECH(A,B,0,0,0); CLRKEY;
IF (K==4132 && GETECH(A-1,B)!=1) {A=A-1;}
IF (K==4133 && GETECH(A+1,B)!=1) {A=A+1;}
IF (K==4134 && GETECH(A,B-1)!=1) {B=B-1;}
IF (K==4135 && GETECH(A,1+B)!=1) {B=B+1;}
IF (GETECH(A,B)==2){S=S+100;}
ECH(A,B,6,6,0);
}
WAIT(100);
}
-https://essen.osask.jp/files/pic20240307c.png
-作者のYuririnさんが小学2年生の時に作った作品です。
** ダウンロード
-https://essen.osask.jp/files/yuririn13wk1b.zip (32.1KB) ...
--ダウンロードしてzipファイルを展開したら、!hl9.exeをダブ...
---[注意] Windows8以降では、exeを実行しようとすると「Wind...
---これが出たら「詳細情報」をクリックすることで「実行」を...
---このメッセージは、実際に問題があろうとなかろうと、ダウ...
* こめんと欄
-掲示板をご利用ください。→[[a23_bbs]]
終了行:
* easy-Cの入門書 [レベル13] の課題に対する作例
-(by [[K]], 2024.03.07)
--目次はこちら → [[a23_intro00]]
** [13-2]に対する作例: Yuririnさん作の「たからさがしゲー...
Q=9; R=9;
ECHWIN(Q*2+1,R*2+2); ECHBOX(Q*2+1,R*2+1,0,1,1,2,0); ECH(...
FOR(I=0; I<1000000; I=I+1){
A=RND(Q)*2+1; B=RND(R)*2+2; IF(GETECH(A,B)>0) { CONTIN...
FOR(J=1; J<9; J=J+1){
K=RND(4);
IF(K==0 && A>1 && GETECH(A-2,B)>0){ ECH(A-1,B,0,...
IF(K==1 && A<Q*2-1 && GETECH(A+2,B)>0){ ECH(A+1,B,0,...
IF(K==2 && B>2 && GETECH(A,B-2)>0){ ECH(A,B-1,0,...
IF(K==3 && B<R*2 && GETECH(A,B+2)>0){ ECH(A,B+1,0,...
IF(J==0){ ECH(A,B,0,0,0); }
}
}
ECH(1,2,6,6,0);
FOR(K=0; K<20;){
A=RND(Q*2+1); B=RND(R*2+1)+1; IF (GETECH(A,B)>0){ CONT...
ECH(A,B,2,3,0); K=K+1;
}
A=1; B=2; S=0; T=999;
GPRINTF(0,0,7,0,"TIME=%03d SCORE=%05d",T,S);
FOR(CLRKEY; INKEY(1)==0; ){ WAIT(100); }
FOR (T=999; T>=0; T=T-1){
GPRINTF(0,0,7,0,"TIME=%03d SCORE=%05d",T,S);
IF(S==2000){BREAK;}
K=INKEY(1);
IF (K>0){
ECH(A,B,0,0,0); CLRKEY;
IF (K==4132 && GETECH(A-1,B)!=1) {A=A-1;}
IF (K==4133 && GETECH(A+1,B)!=1) {A=A+1;}
IF (K==4134 && GETECH(A,B-1)!=1) {B=B-1;}
IF (K==4135 && GETECH(A,1+B)!=1) {B=B+1;}
IF (GETECH(A,B)==2){S=S+100;}
ECH(A,B,6,6,0);
}
WAIT(100);
}
-https://essen.osask.jp/files/pic20240307c.png
-作者のYuririnさんが小学2年生の時に作った作品です。
** ダウンロード
-https://essen.osask.jp/files/yuririn13wk1b.zip (32.1KB) ...
--ダウンロードしてzipファイルを展開したら、!hl9.exeをダブ...
---[注意] Windows8以降では、exeを実行しようとすると「Wind...
---これが出たら「詳細情報」をクリックすることで「実行」を...
---このメッセージは、実際に問題があろうとなかろうと、ダウ...
* こめんと欄
-掲示板をご利用ください。→[[a23_bbs]]
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
