20(4): 名前は開発中のものです。 [sage] 04/06/12 20:29 ID:g4kSpUbw(5/5) AAS
ツクールXPで一本作って、それを元にどんどん下に落としていくのはアリかも。
「ゲームに必要な要素」は、ツクールを解析してそれを実装することで体現できる。

396(4): 390 [sage] 04/07/22 22:28 ID:8dIAslOQ(2/2) AAS
じゃあ、部分的に、ということで、
マッピーのトランポリンの基礎になる
「床でバウンドするボール」でもいってみっか？
シューティング作成スレみたくlevel制で。
level1:
ウィンドウに丸を表示しましょう。
level2:
ウィンドウ下に向かって自由落下させましょう。
level3:
ウィンドウ下端に当たったらそこで止まるようにしましょう。
level4:
ウィンドウ下端に当たったら反射してバウンドするようにしましょう。
減衰なしと考えて、バウンド後、
元の高さに達したらまた落下するようにしましょう。
level5:
床にあたったら減衰するようにして、
次第にバウンドを小さくするようにしましょう。

こんなんでどうやね？

417(1): 名前は開発中のものです。 [] 04/07/24 00:39 ID:sBREqJXF(1) AAS
>>396の課題をやりますた
外部ﾘﾝｸ[zip]:gamdev.org

計算はこんな感じでやってます
add+=g;
y+=add;
if (y>20)
{
    add=-add*0.95f;
    if (abs(add)<0.01)
    {
        g=0;
        add=0;
    }
}

g=0;って、重力加速度を変更するより接地フラグ使った方がいいとおもふよ。
あと、例えばy=20ピッタリになったりすると
次フレーム以降(abs(add)<0.01)になるまで、地面にめり込んでブルブル言うかも。
コレが出ると、addがいくら大きくても地面にピタっと張り付いちゃうから
if(y>20)の時はy=20って修正した方が良いかもね。少し計算ずれるけど。

if(y>20)が成り立つ時addは＋だって保障されてるから
if(abs(add)<0.01)のトコはif(add>-0.01)でもいいね。

あとマジックナンバーは後々苦労のタネになるから、大きいプログラム組むときは注意ね

>>421
そうやっちゃうとaddが十分デカイときに止まっちゃうよ

---

427: 名前は開発中のものです。 [sage] 04/08/01 02:58 ID:aZwyLY/F(2/2) AAS
おう、大切なことを忘れていた。
見た感じ
add=-add*0.95f;
はあまりよろしくない。>>426の2-3行目のような現象の引き金になるから。
add=-fabs(add)*0.95f;
とかにしたらどうかな。

そうそう、てっきりＪＡＶＡかなんかと思ってたらCなのね。
absはint返すから　abs(add)<0.01　イクナイよ。
fabsfとかをご利用下さい。

---

428: 名前は開発中のものです。 [] 04/08/04 07:03 ID:2dcabQIG(1) AAS
あげ

---

429: 名前は開発中のものです。 [sage] 04/08/04 07:58 ID:l64BR6wY(1/2) AAS
課題3赤い四角
外部ﾘﾝｸ[zip]:gamdev.org

開発環境
Delphi6
TrueVision3D

スクリーンショット
画像ﾘﾝｸ


コンパイル・実行にはSDKが必要
外部ﾘﾝｸ[php]:www.truevision3d.com

---

430: 名前は開発中のものです。 [] 04/08/04 11:13 ID:l64BR6wY(2/2) AAS
課題5キー入力
外部ﾘﾝｸ[zip]:gamdev.org

開発環境
Delphi6
TrueVision3D

スクリーンショット
画像ﾘﾝｸ


コンパイル・実行にはSDKが必要
外部ﾘﾝｸ[php]:www.truevision3d.com

倒したキーの方向の加速度を1としてそれを徐々に減らすことで慣性ぽくなってます

If Inp.IsKeyPressed(TV_KEY_UP) = True Then
sngWalk := 1;

if sngWalk > 0 then begin
sngWalk := sngWalk - 0.05;
If sngWalk < 0 Then sngWalk := 0;
end;

sngPositionY:=sngPositionY-sngWalk * TV.TimeElapsed;

---

431