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

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

430:名前は開発中のものです。
04/08/04 11:13 l64BR6wY.net
課題5キー入力
URLﾘﾝｸ(gamdev.org)

開発環境
Delphi6
TrueVision3D

スクリーンショット
URLﾘﾝｸ(gamdev.org)

コンパイル・実行にはSDKが必要
URLﾘﾝｸ(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;

次ページ

続きを表示

1を表示