04/08/04 11:13 l64BR6wY
課題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;