HSPTV!掲示板

車を動かす方法ってありますか？（絵を動かす）
絵（道路）の上に絵（車）を乗せることって出来ますか？
（車は動かす）
素人です。

HSP暦　20日位

すいません。

間違えて２コカキコミを・・・。

#何を狙って投稿してるかよく分かりませんが。

まずしっかりした名前で投稿してください。
それと、入門サイトを見れば載っていますので、そちらをご参考ください。
http://www.rinku.zaq.ne.jp/ultimate/

> 素人です。

　はい。文面と行動から十分推察できていますよ。
最初にちょっとだけお願いとか指摘とかあります。
あの～さんだけじゃなく、最近指摘される方が多いことなので、おきを悪くなさらぬようお願いします。m(_ _)m

　まずは、ハンドルネームは一つに固定されたほうがいいですよ。
誰が誰なのか分からなくなりますし、回答する側としても
「ああ、この人はここまでできる人だったから、今回の質問はこう説明すればわかってもらえるな」
ということがあります。周りからの印象も固定したほうがいいのでメリットたくさんです。

　つぎに、マルチポストはどこの掲示板でも好まれません。十分注意してください。
http://e-words.jp/w/E3839EE383ABE38381E3839DE382B9E38388.html

　さらに、…

> 間違えて２コカキコミを・・・。

登校時に「削除用パスワード」を入力しておくと、間違えても投稿を削除することが出来ます。

快適な掲示板運用にご協力ください。

> 車を動かす方法ってありますか？（絵を動かす）
> 絵（道路）の上に絵（車）を乗せることって出来ますか？
> （車は動かす）

　この回答はHSPコンテストの作品群を見てもらえれば分かるとおりです。
あります。
出来ます。(^ ^;


> HSP暦　20日位

　多言語での十分なプログラミング経験があれば簡単ですが、プログラミングはHSPが
初めてだとそれなりに習得しないといけないことがあるので時間がかかります。
あの～さんの場合は後者（なんとなく）…だと思うのですがどうでしょうか？

　Lunaさんの言う場所に解説がありますので参考にしてみるのもいいでしょう。
カーレースだと…↓この辺まで理解できるようになれば組めると思います。
HotSoupProcessorBiginner'sClub（http://www.rinku.zaq.ne.jp/ultimate/）
「HSP講座」→「脱初心者講座」→「脱講座03章　～ シューティング ～」

言い忘れてました。
本も何冊か出ています。
一度書店で見てみてください。

追加要望

キー操作で車を動かす。

HSPのサンプルにあったはずですので、参照してみてください。
座標変数の値をSTICK命令などでキーが押されたと感知したときに変えるといいですよ。
単語単位での書き込みだと、具体的な答えを的確にするのはし辛いですが…

　名前を名：あのーｘ　○SINJIさんに変えたのですね。
了解しました、名：あのーｘ　○SINJIさん。(^ ^;;


> 追加要望
>
> キー操作で車を動かす。

　「追加の希望として、キー操作で車を動かせるようにしたい。」
って意味であってますか？

これへの回答は、NO.3179の回答をご覧下さい。


> 単語単位での書き込みだと、具体的な答えを的確にするのはし辛いですが…

　同じくです。
文章でやりたいことを詳細に聞いてくれれば、それに応じた回答が出来ますよ。
（質問の内容が分かればですが…。^ ^;）

道のセンターライン動かしてもいいです！
（車は左右に動く）

>追加要望
>キー操作で車を動かす。

>道のセンターライン動かしてもいいです！
>（車は左右に動く）
「要望」なんて言って、他人に作ってもらうってのはどうかと思いますが。
皆さんの意見を参考に、自分でがんばってください。

リアルなゲームを自分でオリジナリティーあふれた作品に仕上げたいです・・・。
すいません。ゴチャゴチャいって・・・。420

SINJIさん、
いきなりリアルなゲームってのは
ちょっと無謀かと思われます

あ、本当ですね。サンプルにありました。
が！！！
車が動いたので車の件はいいのですが・・・。　いくら検索してもわかんないんです・・。

車を動かして、車が画面の一番上に来たら道路（bmpファイル）の画像を前に
動かしたいんですけど・・・。

教えてくださいお願いします！

つまり□（□は、ウィンドウのつもり）のなかに車があって、車の絵が一番上に来たら
道を動かしたいんですけど・・・。（自動）

あと、動く絵（車）の下に、今言った自動で動く道も表示する方法を教えてください。

あの、できればスクリプトでお願いします。

仮想画面を使えばできるかと

仮想画面にコース全体と車を描いておいて
そこからメイン画面に車の周りだけをコピー

みたいな感じで
できるんじゃないでしょうか。

その説明じゃ多分理解できないと思う･･･
クレクレ君は放置でいいんじゃないか？

; SPEED RACING UPDATE FILE!
;--------------------------------------------
bload "speedracing"
if<stat>keycord&1.2.4.8.14.65
conf port xxx
online(if gon7!j)x,y
picload "car_srm"
sec 200
zempos 500.230
keycode 8(if stat) mci "dong",*stopo
*stopo
mmstop
jpg king
stop
*starge
stage picload "STAGE 1.2.3.4.5.6.7.8.9"
button "OK",*ok
stop
*ok
|
|
|中略
|
|

*waves
---------
あとは、自分で！

774は今後は完全に放置の方針で。

*start
cls
font "MS創英角ホップ体",26
mes " スピードレーシングver.xxxx(開発中）
dialog "musicplayerror!"
dialog "ステージは、夜となります。"
mmload "yukai.mid",1
mmplay 2
pos 230.230
button "START",*star
button "HELP",*help
button "MUSIC ON",*mmloas
button "UPDATE",*up
button "EXIT",*whsd
stop
*mmloas
mmload "yukai.mid",1
mmplay 1
stop
*help
cls
objsize 200.200
button "自作画像使用について",*tuite
stop
*star
cls
font "MSゴシック",26
mes "車種選択（ステージ選択は次期バージョン）
objsize 120.120
button "ノーマルタイプ",*car_a
button "バランスタイプ",*car_b
button "スピードタイプ",*car_c
button "レーシングタイプ",*car_d
button "スペシャルタイプ",*car_ab
button "F1タイプ",*car_f1
button "自作画像使用(1)",*zisaku
button "自作画像使用(2)",*zisaku2
stop
*zisaku
cls
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR8.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=4 ; スピード
mr=0 ; 角度
*mainigg
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*whsd
end
stop
*car_a
cls
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR2.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=4 ; スピード
mr=0 ; 角度
*main
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*car_b
cls
mes "NOW LOADING..."
wait 450
buffer 3
picload "CAR3.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=2 ; スピード
mr=0 ; 角度
*mainio
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*car_c
cls
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR4.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=7 ; スピード
mr=0 ; 角度
*mainioo
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*car_d
cls
mes "NOW LOADING..."
wait 460
buffer 3
picload "CAR5.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=20 ; スピード
mr=0 ; 角度
*maini
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*car_ab
cls
mes "NOW LOADING..."
wait 500
buffer 3
picload "CAR6.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=26 ; スピード
mr=0 ; 角度
*mainiyy
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main

*car_f1
cls
mes "NOW LOADING..."
wait 500
buffer 3
picload "CAR_f1.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=300 ; X座標
my=300 ; Y座標
msp=35 ; スピード
mr=0 ; 角度
*mainiy
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す
gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*tuite
cls
mes "自作画像を使用するのは、構いません
mes "が自分でスクリプトに付け足してください。
mes "（http:oni-club@support.jp or http:patosippu@softwear.co.jp
mes "へお問い合わせ）
button "ボタンについて",*buton
button "戻る",*start
stop
*buton
cls
mes "レース中の中断は、ｘで消してください
mes "（データは失われます）
mes "それが嫌なら、お問い合わせください。
button "戻る",*start
stop
*zisaku2
cls
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR9.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=1 ; スピード
mr=0 ; 角度
*mainif
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*up
cls
pos 150.150
mes "現在のアップデートファイルを検索中・・・"
wait 300
cls
dialog "アップデートファイルが一つあります。"
mes "アップデートしますか？"
pos 230.230
button "はい",*hai
button "いいえ",*start
stop
*hai
cls
mes "ver.1.00(β)xxxxxxxxxxxxxxxxxxxxxxx"
dialog "アップデートに失敗しました。"
button "戻る",*start
stop

上記のプログラムで、どうですか？
というか、あと道表示のサンプルをください。

100...
記事NO.3379を消してくださいお願いします

バックアップ

*start
cls
font "MS創英角ホップ体",26
mes " スピードレーシングver.xxxx(開発中）
dialog "musicplayerror!"
dialog "ステージは、夜となります。"
mmload "yukai.mid",1
mmplay 2
pos 230.230
button "START",*star
button "HELP",*help
button "MUSIC ON",*mmloas
button "UPDATE",*up
button "EXIT",*whsd
stop
*mmloas
mmload "yukai.mid",1
mmplay 1
stop
*help
cls
objsize 200.200
button "自作画像使用について",*tuite
stop
*star
cls
font "MSゴシック",26
mes "車種選択（ステージ選択は次期バージョン）
objsize 120.120
button "ノーマルタイプ",*car_a
button "バランスタイプ",*car_b
button "スピードタイプ",*car_c
button "レーシングタイプ",*car_d
button "スペシャルタイプ",*car_ab
button "F1タイプ",*car_f1
button "自作画像使用(1)",*zisaku
button "自作画像使用(2)",*zisaku2
stop
*zisaku
cls
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR8.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=4 ; スピード
mr=0 ; 角度
*mainigg
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*whsd
end
stop
*car_a
cls
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR2.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=4 ; スピード
mr=0 ; 角度
*main
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*car_b
cls
mes "NOW LOADING..."
wait 450
buffer 3
picload "CAR3.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=2 ; スピード
mr=0 ; 角度
*mainio
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*car_c
cls
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR4.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=7 ; スピード
mr=0 ; 角度
*mainioo
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*car_d
cls
mes "NOW LOADING..."
wait 460
buffer 3
picload "CAR5.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=20 ; スピード
mr=0 ; 角度
*maini
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*car_ab
cls
mes "NOW LOADING..."
wait 500
buffer 3
picload "CAR6.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=26 ; スピード
mr=0 ; 角度
*mainiyy
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main

*car_f1
cls
mes "NOW LOADING..."
wait 500
buffer 3
picload "CAR_f1.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=300 ; X座標
my=300 ; Y座標
msp=35 ; スピード
mr=0 ; 角度
*mainiy
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す
gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*tuite
cls
mes "自作画像を使用するのは、構いません
mes "が自分でスクリプトに付け足してください。
mes "（http:oni-club@support.jp or http:patosippu@softwear.co.jp
mes "へお問い合わせ）
button "ボタンについて",*buton
button "戻る",*start
stop
*buton
cls
mes "レース中の中断は、ｘで消してください
mes "（データは失われます）
mes "それが嫌なら、お問い合わせください。
button "戻る",*start
stop
*zisaku2
cls
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR9.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=1 ; スピード
mr=0 ; 角度
*mainif
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*up
cls
pos 150.150
mes "現在のアップデートファイルを検索中・・・"
wait 300
cls
dialog "アップデートファイルが一つあります。"
mes "アップデートしますか？"
pos 230.230
button "はい",*hai
button "いいえ",*start
stop
*hai
cls
mes "ver.1.00(β)xxxxxxxxxxxxxxxxxxxxxxx"
dialog "アップデートに失敗しました。"
button "戻る",*start
stop

SINJIさんも、バックアップさんも、

>1.不要部分の多い長いスクリプトの投稿は ご遠慮ください。
>3.スクリプトは小文字の...(略)

は守ったほうがいいと思います。

あとNO.3372のwatさんは何がしたいのか分かりません。

SINJIさんもそんな事では また 叩かれてしまいますよ。
リアルなカーレースゲームを作りたいという表面的なことはだいたい分かりますが、プログラム的なものが何も伝わってきません。

3Dなのか2Dなのか、プラグインは使用するのか、画像ファイルは、データファイルは、など。

「まだそこまで決めていません」という状態では誰も適切なアドバイスは出来ないと思います。
カーレースゲームを作りたいなら、最初は簡単なものから挑戦して、徐々にステップアップしていったほうが続くと思いますよ。

例えば、カーブのないまっすぐな道で前の車を追い越しながら距離を稼ぐという見下ろし型(っていうのか分かりませんけど)カーレースなど...。
これならシューティングの応用で出来ると思いますし、シューティングのサンプルはサンプルビューワで見られます。

こういう簡単なものから始めて、HSPの命令やキー入力処理などを覚えていったほうがいいと思います。

すいません。
あと僕、リアルじゃなくていいです。
作りたいゲーム＝ファミコンみたいなレーシングゲーム（見下ろし方）
不要っぽいスクリプトの部分は、道路ができなくて（やり方がわからなくて）
悩んでいたので適当に作ったです。
教えてください。

申し訳ないですが、どの要望も漠然としているなという感じが否めなく、こちらが勘違いしているのかもしれませんが

道路の表示と言ってもいろいろとあります。上で書かれていますように、gcopyで一枚絵をぐるぐると表示する(上手い表現じゃなくてごめんなさい)という方法が一番簡単です。
また障害物なんかも考えたいのであれば、サンプルにあるマップチップを使う方法などが効率的です。

これらなら調べれば分かると思いますよ

<pre *car_a
cls
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR2.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=4 ; スピード
mr=0 ; 角度
*main
redraw 0 ; 描画始め

color 0,0,64
boxf ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main /pre>

...ここにコース（GCOPY？）をつけたしたいんですが・・・。

あぁーそういうことか！
でも画面ちらつくし、車が上に来てもコース変わらないです。

削除用パスワードちゃんと入れておきましょうね。

> 不要っぽいスクリプトの部分は、道路ができなくて（やり方がわからなくて）
> 悩んでいたので適当に作ったです。

　悩んでいるときは、検討用のスクリプトを別に作りましょう。
考えやすいように不要個所は削除して、短くシンプルに分かりやすくすると
問題が解決しやすくなります。


　さて、回答者としては無用に長くてコメントの少ないスクリは読みたくないものです。
次からはこのぐらいまで不要部分を削ってください。掲載する必要があるかどうかもちょっと考えましょー。
↓SINJIさんのスクリプトから不要部分を削ったもの。

;--------------------------------------------------------
;車の画像の代わりを用意する。
	buffer 3
	mes "くるま\n↑↑↑↑\n進行方向"

;メインウィンドウ作成
	screen 0,640,480

	;車の移動範囲
	x1=0 : y1=0 ; 左上XY
	x2=640 : y2=480 ; 右下XY

;車のパラメータ初期化
	; 角度のリスト(90度単位)
	rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

	mx=320 ; X座標
	my=240 ; Y座標
	msp=4 ; スピード
	mr=0 ; 角度

;###################################################
;	メインループ
*main
	redraw 0 ; 描画始め
		;描画画面初期化
		color 0,0,64
		boxf ; 背景を消す
	
		;車の描画
		gmode 2,64,64 ; 画像サイズ
		pos mx,my
		grotate 3,0,0,rotdir(mr) ; 画像コピー
	redraw 1 ; 描画終わり
	await 20

	;車の操作
	stick key,15 ; キー入力
	if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
	if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
	if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
	if key&8 : my=limit( my+msp, y1, y2 ) : mr=2
	
	goto *main
;--------------------------------------------------------

　うーん、どこから説明したものか…。
スクリを見ましたが、とりあえず車の移動はできるわけですね。
grotateも使えるのでgcopyは大丈夫そう。
説明は「見下ろし型のカーレース」ってことで。
今回の質問は背景のスクロールの仕方がわからない、ということですね。
よし、なんとか整理できてきた…。(^ ^;

　見下ろし型のカーレースのポイントはPC（自機、自分の車）が前に進むんじゃなくて
背景が上からしたに流れることでPCが下から上へ移動しているように見える点にあります。
なので、背景をスクロールさせればPCが移動しているようにみえるわけです。
ここまでは大丈夫ですね？

　背景のスクロールは背景用の道路画像をgcopyで貼り付けて、上から下に動かしてやれば
道路が（自分が）動いているように見えます。
ただ、これだと画像が途切れてしまうので途切れないような工夫が必要です。
２枚の画像を途切れないように続けて流していけば、画像が途切れずにすみます。
画像の大きさが違うだけで基本は車画像をgrotateで貼り付けるのとあまり変わりません。
回転する必要がないのでgcopyを使うわけです。

ちゃんと整理してくれてましたね…書くの遅かったか(^_^;

よくわかりませんが、スクロールする＝車は左右に動かせる＝ok
スクロール方法があまりy区わからないですが・・・。

例えば地図の上にペンの先を立てて、ペンは動かさずに地図だけを動かせば、地図上では動いているように見えます。

容量はかかりますが大きな一枚絵のコースを用意して、車は常に中央に固定して、コース画像を回転させたり描画開始座標をずらすというのもアリです。
この方法ならばコース画像の余白をとっておけば切れ目もありませんし…

> スクロール方法が ...

前の絵から少しずらして描かれた絵を前の絵の上に重ねて描画するという考え方で
絵が動いているように見せる方法・・・の一歩手前の例。

	cls 4

	redraw 0
	color 255, 0, 0 : pos 0, 0 : mes "元絵"
	color 0, 192, 0 : boxf 0, 32, 480, 80
	color 255, 255, 255
	repeat 30
		pos cnt * 16, 48 : mes strf( "%c", 'A' + cnt \ 26 )
	loop

	color 255, 0, 0 : pos 0, 96 : mes "少しずつずらした絵"
	repeat 8
		pos cnt * 72, 128
		gcopy 0, cnt, 32, 64, 48
	loop
	redraw 1

完成したスクリプト・・・。

早く完成したスクリプトをください。おねがいします。

追加要望
コントローラーでの操作
燃料の表示
敵の車を表示

774へ
これぐらいわかります。死んでください

> 完成したスクリプト・・・。

http://www.google.co.jp/search?hs=SAj&hl=ja&c2coff=1&client=firefox&rls=org.mozilla%3Aja%3Aofficial&q=%E3%82%AF%E3%83%AC%E3%82%AF%E3%83%AC%E5%90%9B&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=lang_ja



　アニメーションの原理は知ってます…よね？
自分の書いたスクリプトはちゃんと理解できてますか？
ご存知でなければ今後ゲーム作成は難しいですよ。
知らなければ↓このアドレスのところ読んでください。
http://jvsc.jst.go.jp/find/anime/dosite/index.html

;	スクロールサンプル

;スクロール画像の用意
screen 1
color 0, 192, 0 : boxf
color 255, 0, 0
mes "\nあいうえお"

gsel 0,1
*main
	redraw 1 : wait 20 : redraw 0 : color : boxf : color 255,255,255

	;座標移動
	px = px + 2	;２ドットずつスクロール
	if px>=50 : px = 0
	pos px + 100, 100	;1枚目の場所
	gcopy 1, 0,0, 50,50
	pos px + 100-50, 100	;2枚目の場所
	gcopy 1, 0,0, 50,50

	;ウィンドウの代わり
	pos 100,76 : mes "↓ウィンドウの代わり"
	line 100,100,100+50,100
	line 100+50,100,100+50,100+50
	line 100+50,100+50,100,100+50
	line 100,100+50,100,100

	goto *main

うーん…ここまでしないと分かってもらえないのか…？



> 容量はかかりますが大きな一枚絵のコースを用意して、車は常に中央に固定して、
> コース画像を回転させたり描画開始座標をずらすというのもアリです。

地面画像は多少荒くても問題ないと思うのでzgoomを使えば画像サイズ小さくてもいいですね。


>> 3409
？

あの、完成したスクリプトくれませんか？
初心者なんでお願いします。

NO.3413＆3409は僕書き込んでないです！　いたずらやめてください。

>NO.3413＆3409は僕書き込んでないです！　いたずらやめてください。

では本物のSINJIさんは自分でスクリプトを書く気はあるのですか？
完成したスクリプトをコピーするのがプログラミングではありませんよ。

# で、watさんは誰なのよ。

<pre *start
cls
mmload "boss.mp3",1:mmplay 1
title "SPEED RACING ver.1.50"
screen 0.600
font "MS創英角ホップ体",26
mes " スピードレーシングver.1.50(開発中）
dialog "自動アップデートしました。(ver.xxxx⇒ver.1.50)"
dialog "ステージは□コースとなります。"
pos 230.230
button "START",*star
button "SRMODE",*srm
button "HELP",*help
objsize 100.100
button "MUSIC REPLAY",*mmloas
objsize 65.65
button "UPDATE",*up
button "EXIT",*whsd
stop
*mmloas
mmload "boss.mp3",1
mmplay 1
stop
*help
cls
objsize 200.200
button "自作画像使用について",*tuite
stop
*star
cls
mmload "pi.mp3",1:mmplay 1
font "MSゴシック",26
mes "車種選択（ステージ選択は次期バージョン）
objsize 120.120
button "ノーマルタイプ",*car_a
button "バランスタイプ",*car_b
button "スピードタイプ",*car_c
button "レーシングタイプ",*car_d
button "スペシャルタイプ",*car_ab
button "F1タイプ",*car_f1
button "ラリータイプ",*rally
button "自作画像使用(1)",*zisaku
button "自作画像使用(2)",*zisaku2
stop
*zisaku
cls
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR8.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=4 ; スピード
mr=0 ; 角度
*mainigg
redraw 0 ; 描画始め

picload "道.bmp" ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*whsd
end
stop
*car_a
cls
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR2.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=4 ; スピード
mr=0 ; 角度
*main
redraw 0 ; 描画始め
picload "道.bmp" ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり

await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*car_b
cls
mes "NOW LOADING..."
wait 450
buffer 3
picload "CAR3.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=2 ; スピード
mr=0 ; 角度
*mainio
redraw 0 ; 描画始め

picload "道.bmp"
; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*car_c
cls
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR4.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=7 ; スピード
mr=0 ; 角度
*mainioo
redraw 0 ; 描画始め


picload "道.bmp" ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*car_d
cls
mes "NOW LOADING..."
wait 460
buffer 3
picload "CAR5.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=20 ; スピード
mr=0 ; 角度
*maini
redraw 0 ; 描画始め

picload "道.bmp"
; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*car_ab
cls
mes "NOW LOADING..."
wait 500
buffer 3
picload "CAR6.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=26 ; スピード
mr=0 ; 角度
*mainiyy
redraw 0 ; 描画始め

picload "道.bmp" ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main

*car_f1
cls
mes "NOW LOADING..."
wait 500
buffer 3
picload "CAR_f1.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=300 ; X座標
my=300 ; Y座標
msp=35 ; スピード
mr=0 ; 角度
*mainiy
redraw 0 ; 描画始め

picload "道.bmp" ; 背景を消す
gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*tuite
cls
mes "自作画像を使用するのは、構いません
mes "が自分でスクリプトに付け足してください。
mes "（http:oni-club@support.jp or http:patosippu@softwear.co.jp
mes "へお問い合わせ）
button "ボタンについて",*buton
button "戻る",*start
stop
*buton
cls
mes "レース中の中断は、ｘで消してください
mes "（データは失われます）
mes "それが嫌なら、お問い合わせください。
button "戻る",*start
stop
*zisaku2
cls
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR9.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=1 ; スピード
mr=0 ; 角度
*mainif
redraw 0 ; 描画始め

picload "道.bmp" ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*up
cls
mmload "pi.mp3",1 : mmplay 1
pos 150.150
mes "現在のアップデートファイルを検索中・・・"
wait 300
cls
dialog "アップデートファイルが一つあります。"
mes "アップデートしますか？"
pos 230.230
button "はい",*hai
button "いいえ",*start
stop
*hai
cls
mes "ver.1.00(β)xxxxxxxxxxxxxxxxxxxxxxx"
dialog "アップデートに失敗しました。"
button "戻る",*start
stop
*rally
cls
mmload "pi.mp3",1 : mmplay 1
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR10.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=8 ; スピード
mr=0 ; 角度
*mainifh
redraw 0 ; 描画始め

picload "道.bmp" ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*srm
cls
mmload "pi.mp3",1:mmplay 1
pos 200.230
objsize 120.120
button "CAR SHOP",*car
pos 120.130
button "TUNE",*tune
pos 20.20
button "HOME",*home
pos 80.80
button "RACE MODE",*race
pos 140.140
button "BACK",*start
stop
*car
cls
picload "aka1.bmp"
button "BUY",*buy
button "NEXT",*nex
stop
*buy
stop
*nex
cls
picload "midori.bmp"
button "BUY",*buy
button "BACK",*car
button "NEXT",*nex2
stop
*nex2
cls
picload "blox.bmp"
button "back",*nex
button "menu(srm)",*srm
stop
*tune
cls
picload "my.bmp"
button "AERO",*aero
button "POWER",*power
button "RIGHT関係",*rrr
stop
*aero
dialog "準備中・・・。"
button "BACK",*srm
stop
*power
button "BACK",*srm
dialog "準備中・・・。"
stop
*rrr
cls
dialog "準備中・・・。"
button "BACK",*srm
stop

*home
cls
picload "home.bmp"
pos 300.300
objsize 120.120
button "GARAGE",*garage
button "RACE POINT",*point
stop
*garage
button "BACK",*srm
mes "所有車　1台 : TASIKAWA M2s GT-M"
stop
*point
dialog "準備中・・・。"
button "BACK",*srm
stop
*race
dialog "バージョン3.00にて、選択可能です。"
stop </pre

・・・ここまでがんばりました。

*start

cls
mmload "boss.mp3",1:mmplay 1
title "SPEED RACING ver.1.50"
screen 0.600
font "MS創英角ホップ体",26
mes " スピードレーシングver.1.50(開発中）
dialog "自動アップデートしました。(ver.xxxx⇒ver.1.50)"
dialog "ステージは□コースとなります。"
pos 230.230
button "START",*star
button "SRMODE",*srm
button "HELP",*help
objsize 100.100
button "MUSIC REPLAY",*mmloas
objsize 65.65
button "UPDATE",*up
button "EXIT",*whsd
stop
*mmloas
mmload "boss.mp3",1
mmplay 1
stop
*help
cls
objsize 200.200
button "自作画像使用について",*tuite
stop
*star
cls
mmload "pi.mp3",1:mmplay 1
font "MSゴシック",26
mes "車種選択（ステージ選択は次期バージョン）
objsize 120.120
button "ノーマルタイプ",*car_a
button "バランスタイプ",*car_b
button "スピードタイプ",*car_c
button "レーシングタイプ",*car_d
button "スペシャルタイプ",*car_ab
button "F1タイプ",*car_f1
button "ラリータイプ",*rally
button "自作画像使用(1)",*zisaku
button "自作画像使用(2)",*zisaku2
stop
*zisaku
cls
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR8.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=4 ; スピード
mr=0 ; 角度
*mainigg
redraw 0 ; 描画始め

picload "道.bmp" ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*whsd
end
stop
*car_a
cls
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR2.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=4 ; スピード
mr=0 ; 角度
*main
redraw 0 ; 描画始め
picload "道.bmp" ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり

await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*car_b
cls
mes "NOW LOADING..."
wait 450
buffer 3
picload "CAR3.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=2 ; スピード
mr=0 ; 角度
*mainio
redraw 0 ; 描画始め

picload "道.bmp"
; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*car_c
cls
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR4.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=7 ; スピード
mr=0 ; 角度
*mainioo
redraw 0 ; 描画始め


picload "道.bmp" ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*car_d
cls
mes "NOW LOADING..."
wait 460
buffer 3
picload "CAR5.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=20 ; スピード
mr=0 ; 角度
*maini
redraw 0 ; 描画始め

picload "道.bmp"
; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*car_ab
cls
mes "NOW LOADING..."
wait 500
buffer 3
picload "CAR6.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=26 ; スピード
mr=0 ; 角度
*mainiyy
redraw 0 ; 描画始め

picload "道.bmp" ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main

*car_f1
cls
mes "NOW LOADING..."
wait 500
buffer 3
picload "CAR_f1.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=300 ; X座標
my=300 ; Y座標
msp=35 ; スピード
mr=0 ; 角度
*mainiy
redraw 0 ; 描画始め

picload "道.bmp" ; 背景を消す
gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*tuite
cls
mes "自作画像を使用するのは、構いません
mes "が自分でスクリプトに付け足してください。
mes "（http:oni-club@support.jp or http:patosippu@softwear.co.jp
mes "へお問い合わせ）
button "ボタンについて",*buton
button "戻る",*start
stop
*buton
cls
mes "レース中の中断は、ｘで消してください
mes "（データは失われます）
mes "それが嫌なら、お問い合わせください。
button "戻る",*start
stop
*zisaku2
cls
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR9.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=1 ; スピード
mr=0 ; 角度
*mainif
redraw 0 ; 描画始め

picload "道.bmp" ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*up
cls
mmload "pi.mp3",1 : mmplay 1
pos 150.150
mes "現在のアップデートファイルを検索中・・・"
wait 300
cls
dialog "アップデートファイルが一つあります。"
mes "アップデートしますか？"
pos 230.230
button "はい",*hai
button "いいえ",*start
stop
*hai
cls
mes "ver.1.00(β)xxxxxxxxxxxxxxxxxxxxxxx"
dialog "アップデートに失敗しました。"
button "戻る",*start
stop
*rally
cls
mmload "pi.mp3",1 : mmplay 1
mes "NOW LOADING..."
wait 400
buffer 3
picload "CAR10.bmp" ; 画像ファイル
screen 0,640,480

x1=0 : y1=0 ; 左上XY
x2=640 : y2=480 ; 右下XY

; 角度のリスト(90度単位)
rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

mx=320 ; X座標
my=240 ; Y座標
msp=8 ; スピード
mr=0 ; 角度
*mainifh
redraw 0 ; 描画始め

picload "道.bmp" ; 背景を消す

gmode 2,64,64 ; 画像サイズ
pos mx,my
grotate 3,0,0,rotdir(mr) ; 画像コピー

redraw 1 ; 描画終わり
await 20

stick key,15 ; キー入力

if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

goto *main
*srm
cls
mmload "pi.mp3",1:mmplay 1
pos 200.230
objsize 120.120
button "CAR SHOP",*car
pos 120.130
button "TUNE",*tune
pos 20.20
button "HOME",*home
pos 80.80
button "RACE MODE",*race
pos 140.140
button "BACK",*start
stop
*car
cls
picload "aka1.bmp"
button "BUY",*buy
button "NEXT",*nex
stop
*buy
stop
*nex
cls
picload "midori.bmp"
button "BUY",*buy
button "BACK",*car
button "NEXT",*nex2
stop
*nex2
cls
picload "blox.bmp"
button "back",*nex
button "menu(srm)",*srm
stop
*tune
cls
picload "my.bmp"
button "AERO",*aero
button "POWER",*power
button "RIGHT関係",*rrr
stop
*aero
dialog "準備中・・・。"
button "BACK",*srm
stop
*power
button "BACK",*srm
dialog "準備中・・・。"
stop
*rrr
cls
dialog "準備中・・・。"
button "BACK",*srm
stop

*home
cls
picload "home.bmp"
pos 300.300
objsize 120.120
button "GARAGE",*garage
button "RACE POINT",*point
stop
*garage
button "BACK",*srm
mes "所有車　1台 : TASIKAWA M2s GT-M"
stop
*point
dialog "準備中・・・。"
button "BACK",*srm
stop
*race
dialog "バージョン3.00にて、選択可能です。"
stop 

・・・ここまでがんばりました。

> 1. 不要部分の多い長いスクリプトの投稿は ご遠慮ください。
> 2. 自動改行されません。適度に改行を入れてください。
> 3. スクリプトは小文字の＜pre＞～＜/pre＞で囲んでください。

　掲示板登校欄より引用。
円滑な掲示板利用のためにも注意書きの1と3も実行していただけると大変助かります。

　1についてはNO.3393でちゃんと出来ているわけですから、できることはやりましょう。
　3ついてですが、タグの使い方を知らないのかな？「pre」と「/pre」はそれぞれちゃんと「<」と「>」で
囲まないと駄目ですよ。途切れています。


> NO.3420
> ...
> stop </pre
>
> ・・・ここまでがんばりました。

　そのまま動かない、コメントもない、不要部分も多くて長い。
申し訳ありませんが、とても読む気がしません。
もうすこし頑張って不要部分を削ってスクリプトを整理してください。
デバッグの基本・プログラム作成の基本でもあります。



> で、watさんは誰なのよ。

　誰なんでしょうね？SINJIさん？
命令も関数も非標準のものだし、おそらくどこかからコピペしただけ…。

> あとは、自分で！

と言われても困るスクリプトですね。

*car_a
< cls>
<mes "NOW LOADING...">
<wait 400>
<buffer 3>
<picload "CAR2.bmp">
<screen 0,640,480>

<x1=0 : y1=0>


<x2=640 : y2=480>


<rotdir=0.0, 1.57079632,

3.14159264, 4.71238896>

<mx=320>


<my=240>

<msp=4>


<mr=0>


*main
<redraw 0>


<picload "道.bmp">

<gmode 2,64,64>


<pos mx,my>
<grotate 3,0,0,rotdir(mr)
<redraw 1>



<await 20>

<stick key,15>



<if key&1 : mx=limit( mx-msp, x1,

x2 ) : mr=3>
<if key&4 : mx=limit( mx+msp, x1,

x2 ) : mr=1>
<if key&2 : my=limit( my-msp, y1,

y2 ) : mr=0>
<if key&8 : my=limit( my+msp, y1,

y2 ) : mr=2>

<goto *main>

今ここまできたんですけど・・・。
よくわからなくて・・・。（道のアニメーション）

<スクリプト>で囲んだんですが・・・・。
文字が（スクリプトが）青くならない・・・。

if (stat)key&5

青くする方法1

なんか、分かっててワザとやっているとしか思えない...。
本当に分からないんだったら申し訳ないですけど。

HTMLタグのpreエレメントと同じですよ。
<PRE>～</PRE>(preタグに変換されてしまうので大文字にしていますが実際には小文字で)と
<PRE>と</PRE>で囲みます。

<PRE>
test
</PRE>

↓

test

*car_a
    cls
	mes "NOW LOADING..."
	wait 400
	buffer 3
	picload "CAR2.bmp"			; 画像ファイル
	screen 0,640,480

	x1=0 : y1=0					; 左上XY
	x2=640 : y2=480				; 右下XY

	;	角度のリスト(90度単位)
	rotdir=0.0, 1.57079632, 3.14159264, 4.71238896

	mx=320						; X座標
	my=240						; Y座標
	msp=4						; スピード
	mr=0						; 角度
*main
	redraw 0					; 描画始め
	picload "道.bmp"			; 背景を消す

	gmode 2,64,64				; 画像サイズ
	pos mx,my
	grotate 3,0,0,rotdir(mr)	; 画像コピー

	redraw 1					; 描画終わり
	
	await 20

	stick key,15				; キー入力

	if key&1 : mx=limit( mx-msp, x1, x2 ) : mr=3
	if key&4 : mx=limit( mx+msp, x1, x2 ) : mr=1
	if key&2 : my=limit( my-msp, y1, y2 ) : mr=0
	if key&8 : my=limit( my+msp, y1, y2 ) : mr=2

	goto *main
          

こ、これでいいですか？

I am troubled about car racing game production, too, but it is ...
Who will ># wat be?
Even if it is said anyone, it is ...
... which is troubled.

> wait 400
この部分は不要かと。４秒も待たされるのは…

> picload "道.bmp"
ループ中に画像を読み込む必要は…無いです。
CAR2.bmpと同じ様にしてみると良いかもしれません。

すいません。pspから投票しました。　　　　　　　　　　　　　　　　　　　　　　car2bmpと同じように？？　・・・。　　

>>sinjiさん
> こ、これでいいですか？

　そうです！だいぶスッキリしましたね～。いいかんじです。ヽ（^▽^）ノ
しばらくはこのスクリプトをベースに練習して、上手く動くようになったら
No.3420のスクリプトに組み込むようにしましょう。


　さて、今までの経緯とこのスクリプトを見ると、まだgrotateが何を
しているか理解できていない気がします。まず自分が書いているスクリプトが
何をやっているものか把握したほうがいいでしょう。

buffer 3

を

screen 3

に書き換えてみてください。
CAR2.bmpだけが表示されたウィンドウが新たに出てきたと思います。
grotateはこのウィンドウからID0のメインウィドウに画像をコピーしているわけです。
gcopyやgzoom、gsquareも基本的には同じ動作を行ないます。

　次はgrotateのパラメータをヘルプを見ながら少しずつかえてみてどんな動きになるか
やってみてください。なんとなくヘルプに書いてあることが分かってくるはずです。
ここまでこれればgcopyのマニュアルも何が書いてあるのか理解できてくると思います。
と、ここでようやく「道.bmp」をgcopyで表示するわけです。

有り難う御座います！　　　　　　　この意見を参考に頑張ってみます！　　　　　　　

そこらへんは何とかなりそうですが・・・。
画面がちらつくのはどうすれば

> そこらへんは何とかなりそうですが・・・。
> 画面がちらつくのはどうすれば

これはおそらく
> picload "道.bmp"
が原因でしょうね。
この理由と対処法はNO.3462に書いたのをやっていけば途中で気付くと思います。

レベルが低すぎる･･･
正直カーレースはまだ早いと思う。

それとも反応見て楽しんでる？