【初心者】課題をクリアしていくスレ【講習会】

【初心者】課題をクリアしていくスレ【講習会】at GAMEDEV

【初心者】課題をクリアしていくスレ【講習会】 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

229:LGP@課題6当たり判定
 04/07/02 03:30 4ZvlEEie.net
 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

230:LGP@課題6当たり判定
 04/07/02 03:30 4ZvlEEie.net
 　　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

次ページ