HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2007
1115
Laキーで画像を移動させる2未解決


La

リンク

2007/11/15(Thu) 03:46:58|NO.12411

buffer 1 ;ウィンドウID 1番
picload "1.bmp" ;画像ファイル読み込み
screen 0 ;ウィンドウID 0番
gmode 2, 90, 90 ;コピーモード設定
x = 90 : y = 90
dx = 8 : dy = 8
repeat
redraw 0 ;仮描画
color 255, 255, 255 ;白色。背景と同じ色。
boxf ;ウィンドウと同じサイズの四角形を塗りつぶしで描画する。
color 0, 0, 0 ;黒色
pos x, y ;カレントポジション設定
gcopy 1, 0, 0 ;画像コピー
stick key, 15 ;キー入力
if key & 16 : x = x - dx ;左
if key & 4 : x = x + dx ;右
if key & 128 : end ;[Esc]
if x >= ginfo_winx - 32 : x = ginfo_winx - 32 ;右壁に衝突。
if x <= 0 : x = 0 ;左壁に衝突。
redraw 1 ;実描画
await 30 ;無限ループの時のお約束
loop
stop



これでキーを押したら画像が動くようにしたんですが、スペースキーを押しっぱなしにしても画像が進みません
どうやればできるでしょうか??



この記事に返信する


f

リンク

2007/11/15(Thu) 06:33:54|NO.12412

stick の引数確認してみりゃ良いんでね?



斉藤さん宅隣のタバコ屋主人

リンク

2007/11/17(Sat) 00:22:31|NO.12447


>>stick key, 15 ;キー入力 >>if key & 16 : x = x - dx ;左
部分を修正

stick key, 5 ;キー入力 if key & 1 : x = x - dx ;左
?



ONION software Copyright 1997-2023(c) All rights reserved.