[過去ログ]
【初心者】課題をクリアしていくスレ【講習会】 (787レス)
【初心者】課題をクリアしていくスレ【講習会】 http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/
上
下
前次
1-
新
通常表示
512バイト分割
レス栞
抽出解除
必死チェッカー(本家)
(べ)
自ID
レス栞
あぼーん
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
229: LGP@課題6当たり判定 [] 04/07/02 03:30 ID:4ZvlEEie CH = G@SETUP( 640 , 480 , 16 , 1 ) X=320 Y=240 //無限ループ LOOP //黒で塗りつぶし G@GDISETBRUSH( 0 , 0 , 0 , 0 ) G@GDIBOXFULL( CH , 0, 0, 640, 480) //キー入力 //キーの状態を得る I@KEYGET() //I@KEYBTNの引数に調べたいキーをいれ、戻り値が1なら押してる状態 //0xC8はカーソルキー↑ IF I@KEYBTN(0xC8)=1 THEN IF Y>0 THEN Y=Y-1 ENDIF ENDIF IF I@KEYBTN(0xCB)=1 THEN IF X>0 THEN X=X-1 ENDIF ENDIF http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/229
230: LGP@課題6当たり判定 [] 04/07/02 03:30 ID:4ZvlEEie IF I@KEYBTN(0xCD)=1 THEN IF X<(640-32) THEN X=X+1 ENDIF ENDIF IF I@KEYBTN(0xD0)=1 THEN IF Y<(480-32) THEN Y=Y+1 ENDIF ENDIF //敵移動 TY=TY+1; IF TY>(640-32) THEN TY=0 TX=RAND()%(640-32) ENDIF //赤い四角を描く G@GDISETBRUSH( 0 , 1.0 , 0 , 0 ) G@GDIBOXFULL( CH , X, Y, X+32, Y+32 ) //敵を描く G@GDISETBRUSH( 0 , 0 , 1.0 , 0 ) G@GDIBOXFULL( CH , TX, TY, TX+32, TY+32 ) //当たり判定 IF (ABS(X-TX)<32) AND (ABS(Y-TY)<32) THEN END ENDIF G@FLIP() ENDLOOP http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/230
メモ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.043s