a23_intro19
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
* easy-Cの入門書 [レベル19]
-(by [[K]], 2025.09.16)
--目次はこちら → [[a23_intro00]]
** ノート
なし
** もんだい
-[19-1] マリコちゃんゲームを作ります
スーパーマリオみたいなゲームを作りたいなってかんがえまし...
でも、がめんをうごかしたり、てきをうごかしたりするのはた...
さらにマリオではよくおちてしぬので、おちてもしなないゲー...
--Gは「げんき」です。
--Bははいけいの色、XとYはじぶんのいち、Jはジャンプ中かど...
ECHWIN(32,24); B=3; ...
ECHBOX(32,24,0,0,0,0,B); ...
FOR (I=2; I<=22; I=I+5) { ECHBOX(32,1,0,I,1,4,0); } ...
FOR (I=0; I<12; I=I+1) { ECHBOX(2,1,RND(5)*5+6,RND(3)*5+...
FOR (I=0; I<16; I=I+1) { ECH(RND(26)+4,RND(19)+3,3,0,B);...
FOR (I=0; I<16; I=I+1) { ECH(RND(26)+4,RND(19)+3,2,6,B);...
G=1000; X=0; Y=21; J=0; ...
FOR (;;) {
GPRINTF(0,0,0,B,"GENKI=%05d",G); ...
ECH(X,Y,6,7,B); ...
IF (G<=0) { ECH(X,Y,6,5,B); BREAK; } ...
IF (Y<=6 && X==31) { GPRINTF(23,0,2,0," << CLEAR !! >>...
WAIT(200); I=INKEY(1); ...
ECH(X,Y,0,0,B); ...
IF (I!=32) { J=0; } ...
IF (Y%5==3) { J=0; } ...
IF (I==32 && GETECH(X,Y+1)==1) { J=1; } ...
IF (I==27) { G=0; } ...
X=X+1; ...
IF (X==32) { X=0; Y=Y-5; } ...
Y=Y-J; ...
IF (J==0 && GETECH(X,Y+1)!=1) { Y++; } ...
G=G-1; ...
IF (GETECH(X,Y)==3) { G=G-400; } ...
IF (GETECH(X,Y)==2) { G=G+200; } ...
IF (G<0) { G=0; } ...
}
終了行:
* easy-Cの入門書 [レベル19]
-(by [[K]], 2025.09.16)
--目次はこちら → [[a23_intro00]]
** ノート
なし
** もんだい
-[19-1] マリコちゃんゲームを作ります
スーパーマリオみたいなゲームを作りたいなってかんがえまし...
でも、がめんをうごかしたり、てきをうごかしたりするのはた...
さらにマリオではよくおちてしぬので、おちてもしなないゲー...
--Gは「げんき」です。
--Bははいけいの色、XとYはじぶんのいち、Jはジャンプ中かど...
ECHWIN(32,24); B=3; ...
ECHBOX(32,24,0,0,0,0,B); ...
FOR (I=2; I<=22; I=I+5) { ECHBOX(32,1,0,I,1,4,0); } ...
FOR (I=0; I<12; I=I+1) { ECHBOX(2,1,RND(5)*5+6,RND(3)*5+...
FOR (I=0; I<16; I=I+1) { ECH(RND(26)+4,RND(19)+3,3,0,B);...
FOR (I=0; I<16; I=I+1) { ECH(RND(26)+4,RND(19)+3,2,6,B);...
G=1000; X=0; Y=21; J=0; ...
FOR (;;) {
GPRINTF(0,0,0,B,"GENKI=%05d",G); ...
ECH(X,Y,6,7,B); ...
IF (G<=0) { ECH(X,Y,6,5,B); BREAK; } ...
IF (Y<=6 && X==31) { GPRINTF(23,0,2,0," << CLEAR !! >>...
WAIT(200); I=INKEY(1); ...
ECH(X,Y,0,0,B); ...
IF (I!=32) { J=0; } ...
IF (Y%5==3) { J=0; } ...
IF (I==32 && GETECH(X,Y+1)==1) { J=1; } ...
IF (I==27) { G=0; } ...
X=X+1; ...
IF (X==32) { X=0; Y=Y-5; } ...
Y=Y-J; ...
IF (J==0 && GETECH(X,Y+1)!=1) { Y++; } ...
G=G-1; ...
IF (GETECH(X,Y)==3) { G=G-400; } ...
IF (GETECH(X,Y)==2) { G=G+200; } ...
IF (G<0) { G=0; } ...
}
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
