【初心者】課題をクリアしていくスレ【講習会】at GAMEDEV【初心者】課題をクリアしていくスレ【講習会】 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト227:名前は開発中のものです。 04/07/01 15:45 bdPAbTo6.net >>226 ｷﾐのソースに少し手を加えたやつをうｐろだにあげたから試してみれ。780.lzhだ。 ただしオフスクリーン処理以外（後始末とか）は端折ってるのでそこは参考にしないように。 228:LGP@課題5キー入力 04/07/01 22:17 TMNGfYFe.net CH = G@SETUP( 640 , 480 , 16 , 1 ) LOOP //無限ループ //赤い四角を黒で塗りつぶして消す G@GDISETBRUSH( 0 , 0 , 0 , 0 ) G@GDIBOXFULL( CH , X, Y, X+320, Y+240 ) I@KEYGET() //キーの状態を得る //I@KEYBTNの引数に調べたいキーをいれ、戻り値が1なら押してる状態 IF I@KEYBTN(0xC8)=1 THEN //0xC8はカーソルキー↑ IF Y>0 THEN Y=Y-1 ENDIF ENDIF IF I@KEYBTN(0xCB)=1 THEN IF X>0 THEN X=X-1 ENDIF ENDIF IF I@KEYBTN(0xCD)=1 THEN IF X<320 THEN X=X+1 ENDIF ENDIF IF I@KEYBTN(0xD0)=1 THEN IF Y<240 THEN Y=Y+1 ENDIF ENDIF //赤い四角を描く G@GDISETBRUSH( 0 , 1.0 , 0 , 0 ) G@GDIBOXFULL( CH , X, Y, X+320, Y+240 ) G@FLIP() ENDLOOP 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch