[過去ﾛｸﾞ]
【初心者】課題をクリアしていくスレ【講習会】 (787ﾚｽ)
【初心者】課題をクリアしていくスレ【講習会】 http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
199: Ruby@課題6当たり判定 [] 04/06/28 18:32 ID:1FRiXQWF require 'sdl' SDL.init( SDL::INIT_VIDEO ) screen = SDL.setVideoMode( 640, 480, 16, SDL::SWSURFACE ) x=(639-32)/2 y=(479-32)/2 enemyX=rand(639-32) enemyY=0 loop do while event = SDL::Event2.poll case event when SDL::Event2::Quit exit end end SDL::Key.scan y -= 1 if SDL::Key.press?( SDL::Key::UP ) x += 1 if SDL::Key.press?( SDL::Key::RIGHT ) y += 1 if SDL::Key.press?( SDL::Key::DOWN ) x -= 1 if SDL::Key.press?( SDL::Key::LEFT ) x=0 if x<0 x=(639-32) if x>(639-32) y=0 if y<0 y=(479-32) if y>(479-32) enemyY=enemyY+1 enemyY=0 if enemyY>479 if (x-enemyX).abs<32 and (y-enemyY).abs<32 then exit end http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/199
200: Ruby@課題6当たり判定 [] 04/06/28 18:33 ID:1FRiXQWF screen.fillRect( 0, 0, 640, 480, [ 0, 0, 0 ] ) screen.fillRect( x, y, 32, 32, [ 255, 0, 0 ] ) screen.fillRect( enemyX, enemyY, 32, 32, [ 0, 255, 0 ] ) screen.updateRect( 0, 0, 0, 0 ) end 課題6当たり判定(実行ファイル付き) http://gamdev.org/up/img/764.zip 【Rubyスクリプトを実行ファイルにする方法】 http://exerb.sourceforge.jp/ からExerbををダウンロード レシピファイルを書く add_ruby_script[TAB](スクリプト名) add_extension_library[TAB](ライブラリ名)[TAB](パスを含めたライブラリ名) 例) add_ruby_script[TAB]collision.rb add_extension_library[TAB]sdl.so[TAB]sdl.so ※注意 [TAB]はTABキーで入力してください 通常のエディタだと空白と判別できませんので注意 Exerb添付ドキュメントは旧式の書き方になっているようです サンプルは新しいものだったのでそちらを参考にしました http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/200
204: LGP@課題1数当て [] 04/06/28 23:47 ID:1FRiXQWF スクリプト組はあまり時間もかからず有利なので 複数言語同時習得を目指してみます CH = G@SETUP( 640 , 480 , 16 , 1 ) RANDSET(SYSTIME()) RN = RAND()%9+1 G@PRINT(CH,0,0,"1〜9の数を入力せよ") G@FLIP() LOOP I@KEYGET2( ) IF I@KEYBTN2(1)=2 THEN ANS=I@KEYBTN2(0)-1 IF ANS=RN THEN SYSEXIT() ENDIF IF (ANS>0) AND (ANS<10) THEN N=N+1 G@GDIBOXFULL( CH , 0, 100, 640, 480 ) G@PRINT(CH,0,100,"はずれ"+STR(N)+"回目") ENDIF G@FLIP() ENDIF S@WAIT() ENDLOOP LGP@課題1数当て(実行ファイル付き) http://gamdev.org/up/img/767.zip http://mevius.5ch.net/test/read.cgi/gamedev/1086858349/204
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.568s*