掲示板(α) - kiuuウイキミラー

掲示板 ときどき古い内容は移動させます

新規スレット

#article

電車ゲームを作ろう

k.k (2010/02/27 (土) 12:49:10)

題名と同じ

• 私も電車ゲームには興味ありますね。なでしこで扱うにはちょっと難しいかもしれませんが、できなくはないですね。 -- ばびぶべぼん
• (*1) -- k.k
• っと、いまk.kさんのページにあるソースを試してみましたが…ちょっと根本的に改良した方が良いかもしれませんね。 -- ばびぶべぼん
• どういった形式の電車ゲームにするんですか？ -- ばびぶべぼん
• (*2) -- k.k
• とりあえずスピードと距離をなおしてくれるとありがたいです -- k.k
• 形式はひまわりのサンプルみたいな -- k.k
• ゲ、ひまわり使ったこと無いんで、ちょっくらダウンロードしてきます。 -- ばびぶべぼん
• 電車でGOみたいな奴です -- k.k
• 「停車位置へ止めろ」って奴ですか？ -- ばびぶべぼん
• そうです -- k.k
• おっ、それならなでしこでもっと良いのができそうですよ(＾∀＾)ｂ -- ばびぶべぼん
• それに電車でGOをあわせた奴を作ろうかと -- k.k
• 加速、減速、速度と距離についてのアルゴリズム作成を手伝いましょう。 -- ばびぶべぼん
• ありがとうございます(*3) -- k.k
• ちょっとGUIが変わりますけどよろしいですかね -- ばびぶべぼん
• 大丈夫です -- k.k
  !母艦設計=『母艦について 　タイトル=「電車超簡易シミュレータ」 　クライアントH=200 　クライアントW=300 　スタイルは「枠固定」』 #変数 速度とは数値=0 残距離とは数値=0 F=100 G=5 b=5 #列車データ読み込み --ここから-- もし、(「{母艦のパス}date.ini」の存在＝1)ならば、 　　「date.ini」のINI開いてSINIに代入。 　　SINIで「スピード」の「最高スピード」をINI読んでFに代入。 　　SINIで「スピード」の「最高加速度」をINI読んでGに代入。 　　SINIで「スピード」の「最高減速度」をINI読んでbに代入。 　　SINIのINI閉じる。 #--ここまで-- 運転レバーとはバー これについて 　W=200 　H=30 　Y=0 　X=0 　最小値=0 　最大値=8 　値=0 　向き=「縦」 　変更した時は〜 　　レバー変更処理 状態とはパネル これについて 　X=30 　Y=0 　H=30 　W=50 　文字サイズは「12」 #デジタル表示 速度Mとはラベル これについて 　X=100 　Y=50 　文字サイズは「12」 　H=30 　テキストは「速度：0km/h」 距離Mとはラベル これについて 　X=100 　Y=80 　文字サイズは「12」 　H=30 　テキストは「残距離： m」 #メーター 速度PEとはラベル これについて 　X=50 　Y=142 　テキストは「速度：」 　文字サイズは「12」 　H=50 速度Pとはプログレスバー これについて 　X=100 　Y=140 　W=180 　H=25 　最大値はF 距離PEとはラベル これについて 　X=50 　Y=173 　テキストは「距離：」 　文字サイズは「12」 　H=50 距離Pとはプログレスバー これについて 　X=100 　Y=170 　W=180 　H=25 ●レバー変更処理 　運転レバーの値で条件分岐 　　0ならば、//緊急ブレーキ 　　　状態=「EB」 　　　状態の背景色は赤色 　　1ならば、//B4 　　　状態=「B4」 　　　状態の背景色は赤色 　　2ならば、//B3 　　　状態=「B3」 　　　状態の背景色は赤色 　　3ならば、//B2 　　　状態=「B2」 　　　状態の背景色は赤色 　　4ならば、//B1 　　　状態=「B1」 　　　状態の背景色は赤色 　　5ならば、//N 　　　状態=「N」 　　　状態の背景色は$D5D500 　　6ならば、//P1 　　　状態=「P1」 　　　状態の背景色は緑色 　　7ならば、//P2 　　　状態=「P2」 　　　状態の背景色は緑色 　　8ならば、//P3 　　　状態=「P3」 　　　状態の背景色は緑色 ●速度表示更新(Sの|Sで|Sを) 　速度M=「速度：」&S&「km/h」 ●残距離表示更新(Sの|Sで|Sを) 　距離M=「残距離：」&S&「m」 #処理 処理タイマーとはタイマー これについて 　その間隔は0.01 　その時満ちた時は〜 　　状態で加減速 　　残距離計算 ●加減速(Sで|Sの|Sを) 　もし、(Sが「B?」にワイルドカード一致)OR(S=「EB」)ならば、 　　もし、速度=0ならば、戻る 　　違えば、Sで条件分岐 　　　「EB」ならば、 　　　　速度=速度-b*処理タイマーの間隔 　　　「B4」ならば、 　　　　速度=速度-6*処理タイマーの間隔 　　　「B3」ならば、 　　　　速度=速度-2*処理タイマーの間隔 　　　「B2」ならば、 　　　　速度=速度-1*処理タイマーの間隔 　　　「B1」ならば、 　　　　速度=速度-0.5*処理タイマーの間隔 　もし、S=「N」ならば、 　　速度=速度 　もし、Sが「P?」にワイルドカード一致ならば、 　　もし、速度=0ならば、速度=0 　　Sで条件分岐 　　　「P1」ならば、 　　　　速度=速度+1*処理タイマーの間隔 　　　「P2」ならば、 　　　　速度=速度+2*処理タイマーの間隔 　　　「P3」ならば、 　　　　速度=速度+G*処理タイマーの間隔 　もし、(速度>=F)ならば、 　　速度=F 　もし、(速度<=0)ならば、 　　速度=0 　(速度を0で小数点切り下げ)で速度表示更新 　速度P=速度 ●残距離計算 　残距離=残距離-(速度*1000/3600*処理タイマーの間隔) 　(残距離を2で小数点切り下げ)で残距離表示更新 　距離P=残距離 　停車判定 ●停車判定 　もし、(残距離<=3)AND(残距離>-3)ならば、 　　母艦の背景色は黄色 　　もし、速度を0で小数点切り下げ=0ならば、 　　　処理タイマーの停止 　　　「停車{~}距離：{残距離を2で小数点四捨五入}m」という。 　　　終了 　もし、(残距離<=-4)AND(残距離>-9999)ならば、 　　母艦の背景色は赤色 　　もし、速度を0で小数点切り下げ=0ならば、 　　　処理タイマーの停止 　　　「停車{~}距離：{残距離を2で小数点四捨五入}m」という。 　　　終了 　違えば、 　 もし、(残距離<=-999999999999)ならば、 　　母艦の背景色は赤色 　　処理タイマーの停止 　　「オーバーラン{~}距離：{残距離を2で小数点四捨五入}m」という。 　　終了 #起動処理 レバー変更処理 母艦の可視はオン 残距離=「距離を入力してください。」で数値入力 もし、(残距離!=空)AND(残距離!=0)ならば、 　残距離で残距離表示更新 　距離Pの最大値は残距離 　距離Pの値は残距離 　処理タイマーの開始 違えば、 　終了
• まだ外見しかできてませんけど、速度と距離の計算が面倒なんですよね〜 -- ばびぶべぼん
• すげー(*4) -- k.k
• あﾞー！！！またブレーカー落ちて内容が消えちまったよ＼(^o^)／ -- ばびぶべぼん
• ドンマイです(1分毎に保存するといいらしい。) -- k.k
• 加速は出来るようになりました。 -- ばびぶべぼん
• ありがとうございます。 -- k.k
• そしておやすみなさい -- k.k
• ふ〜、一応できました。もう寝ますzzz -- ばびぶべぼん
• とりあえずばびぶべぼんさんのやつを変えてみた(と必要なツールも) -- k.k ツール
  
  ※※※積み木デザイナ:ここから※ ※ 以下はデザインデータです。 ※ コメントを削除しないようにしてください。 ※ --- ※母艦とはフォーム##生成 母艦は「メインフォーム」 そのクライアントW=640#数値 そのクライアントH=400#数値 そのタイトル=「列車データ編集ツール Ver0.00α」#文字列 ※ --- ラベル1とはラベル##生成 そのX=8#数値 そのY=8#数値 そのW=88#数値 そのH=32#数値 そのテキスト=「速度:」#文字列 ※ --- エディタ1とはエディタ##生成 そのX=40#数値 そのY=8#数値 そのW=112#数値 そのH=32#数値 そのテキスト=「0」#文字列 ※ --- ラベル2とはラベル##生成 そのX=152#数値 そのY=8#数値 そのW=64#数値 そのH=32#数値 そのテキスト=「km/m」#文字列 ※ --- ラベル3とはラベル##生成 そのX=8#数値 そのY=48#数値 そのW=80#数値 そのH=32#数値 そのテキスト=「最高加速度:」#文字列 ※ --- エディタ2とはエディタ##生成 そのX=96#数値 そのY=48#数値 そのW=72#数値 そのH=32#数値 そのテキスト=「0」#文字列 ※ --- ラベル4とはラベル##生成 そのX=8#数値 そのY=168#数値 そのW=80#数値 そのH=32#数値 そのテキスト=「バージョン:」#文字列 ※ --- ラベル5とはラベル##生成 そのX=8#数値 そのY=128#数値 そのW=64#数値 そのH=32#数値 そのテキスト=「列車名:」#文字列 ※ --- エディタ3とはエディタ##生成 そのX=88#数値 そのY=128#数値 そのW=96#数値 そのH=32#数値 そのテキスト=「」#文字列 ※ --- エディタ4とはエディタ##生成 そのX=96#数値 そのY=168#数値 そのW=80#数値 そのH=32#数値 そのテキスト=「」#文字列 ※ --- ボタン1とはボタン##生成 そのX=0#数値 そのY=368#数値 そのW=64#数値 そのH=32#数値 そのテキスト=「新規作成」#文字列 そのクリックした時は〜ボタン1__クリックした時#イベント ※ --- ボタン2とはボタン##生成 そのX=64#数値 そのY=368#数値 そのW=64#数値 そのH=32#数値 そのテキスト=「保存」#文字列 そのクリックした時は〜ボタン2__クリックした時#イベント ※ --- ボタン3とはボタン##生成 そのX=128#数値 そのY=368#数値 そのW=64#数値 そのH=32#数値 そのテキスト=「閉じる」#文字列 そのクリックした時は〜終わり#イベント ※ --- ボタン4とはボタン##生成 そのX=192#数値 そのY=368#数値 そのW=128#数値 そのH=32#数値 そのテキスト=「バージョン情報」#文字列 そのクリックした時は〜ボタン4__クリックした時#イベント ※ --- ボタン5とはボタン##生成 そのX=280#数値 そのY=0#数値 そのW=104#数値 そのH=32#数値 そのテキスト=「プレビュー」#文字列 そのクリックした時は〜おお#イベント ※ --- メモ1とはメモ##生成 そのX=384#数値 そのY=0#数値 そのW=248#数値 そのH=400#数値 そのテキスト=「」#文字列 そのスクロールバー=「」#文字列 ※ --- ラベル6とはラベル##生成 そのX=64#数値 そのY=328#数値 そのW=176#数値 そのH=32#数値 そのテキスト=「0%」#文字列 ※ --- ラベル7とはラベル##生成 そのX=8#数値 そのY=88#数値 そのW=80#数値 そのH=32#数値 そのテキスト=「最高減速度:」#文字列 ※ --- ラベル8とはラベル##生成 そのX=0#数値 そのY=328#数値 そのW=64#数値 そのH=32#数値 そのテキスト=「保存状況:」#文字列 ※ --- エディタ5とはエディタ##生成 そのX=96#数値 そのY=88#数値 そのW=72#数値 そのH=32#数値 そのテキスト=「0」#文字列 ※※※積み木デザイナ:ここまで※ ●ボタン1__クリックした時 　　エディタ1=0# ここにイベントを書きます。 　　エディタ2=0 　　エディタ3=「」 　　エディタ4=「」 　　エディタ5=0 　　# 字下げした部分がイベント範囲です。 ●ボタン2__クリックした時 「列車データ|*.ini」のフォルダ選択 Z=それ 「{Z}date.ini」のINI開いてSINIに代入。# ここにイベントを書きます。 SINIで「スピード」の「最高スピード」に「{エディタ1}」をINI書く。 SINIで「スピード」の「最高加速度」に「{エディタ2}」をINI書く。 SINIで「スピード」の「最高減速度」に「{エディタ5}」をINI書く。 SINIで「情報」の「名前」に「{エディタ3}」をINI書く。 SINIで「情報」の「バージョン」に「{エディタ4}」をINI書く。 SINIのINI閉じる。 オンの間 　もし、ラベル6が「100%」ならば、 　　「保存が完了しました」という 　　ラベル6=「0%」 　　戻る 　違えば、 　　ラベル6=「{ラベル6+1}%」 　　0.01秒待つ 　　続ける 　　# 字下げした部分がイベント範囲です。 ●終わり 　　母艦を閉じる# ここにイベントを書きます。 　　# 字下げした部分がイベント範囲です。 ●ボタン4__クリックした時 　　「バージョン情報{~}電車超簡易シミュレータ　列車データ編集ツール{~}Ver0.00α」をいう# ここにイベントを書きます。 　　# 字下げした部分がイベント範囲です。 ●おお もし、(「{Z}date.ini」の存在＝1)ならば、# ここにイベントを書きます。 　メモ1=「{Z}date.ini」を開く 　　違えば、「エラーが発生しました。{~}一旦保存してください{~}それかファイルがありません」という 　　# 字下げした部分がイベント範囲です。
• あっ、一つ言い忘れたことがあります。このプログラムで行っている加減速は等加速度運動として計算していますで、実際の運動とは大きく異なりますので注意。 -- ばびぶべぼん
• 大丈夫です。 -- k.k
  !母艦設計=『母艦の可視はオフ』 #----------------------------------------------------------------------- # 変数 #----------------------------------------------------------------------- 速度とは数値 = 0 残距離とは数値= 1000 SPとは数値 = 200 //最高速度 ACとは数値 = 5 //加速度 BRとは数値 = 7.5 //減速度(負の加速度) #----------------------------------------------------------------------- # タイマ #----------------------------------------------------------------------- 処理タイマーとはタイマー これについて 　間隔は0.01 　時満ちた時は〜 　　状態で加減速 　　残距離計算 #----------------------------------------------------------------------- # 母艦設計 #----------------------------------------------------------------------- 母艦について 　タイトル=「電車超簡易シミュレータ」 　クライアントH=200 　クライアントW=300 　スタイルは「枠固定」 　オフに最大化ボタン有効変更 運転レバーとはバー これについて 　W=200 　H=30 　Y=0 　X=0 　最小値=0 　最大値=9 　値=0 　向き=「縦」 　変更した時は〜 　　レバー変更処理 状態とはパネル これについて 　X=30 　Y=0 　H=30 　W=50 　文字サイズは「12」 #デジタル表示 速度Mとはラベル これについて 　X=100 　Y=50 　文字サイズは「12」 　H=30 　テキストは「速度：0km/h」 距離Mとはラベル これについて 　X=100 　Y=80 　文字サイズは「12」 　H=30 　テキストは「残距離： m」 #メーター 速度PEとはラベル これについて 　X=50 　Y=142 　テキストは「速度：」 　文字サイズは「12」 　H=50 速度Pとはプログレスバー これについて 　X=100 　Y=140 　W=180 　H=25 　最大値はSP 距離PEとはラベル これについて 　X=50 　Y=173 　テキストは「距離：」 　文字サイズは「12」 　H=50 距離Pとはプログレスバー これについて 　X=100 　Y=170 　W=180 　H=25 #----------------------------------------------------------------------- # 設定フォーム #----------------------------------------------------------------------- 設定とはフォーム これについて 　タイトル=「設定」 　クライアントH=200 　クライアントW=300 　X=母艦のX+母艦のW 　Y=母艦のY 　スタイルは「ツールウィンドウ」 　オフに最大化ボタン有効変更 　終了可能は0 設定GBとはグループボックス これについて 　親部品は設定 　テキストは「設定」 　X=10 　Y=10 　W=250 　H=150 残距離Lとはラベル これについて 　親部品は設定GB 　テキストは「残距離(m)：」 　X=30 　Y=30 残距離Eとはスピンエディタ これについて 　親部品は設定GB 　X=115 　Y=27 　テキストは「1000」 最高速度Lとはラベル これについて 　親部品は設定GB 　テキストは「最高速度(km/h)：」 　X=5 　Y=60 最高速度Eとはスピンエディタ これについて 　親部品は設定GB 　X=115 　Y=57 　テキストは「200」 加速Lとはラベル これについて 　親部品は設定GB 　テキストは「加速(%)：」 　X=30 　Y=90 加速Eとはスピンエディタ これについて 　親部品は設定GB 　X=115 　Y=87 　テキストは「100」 減速Lとはラベル これについて 　親部品は設定GB 　テキストは「減速(%)：」 　X=30 　Y=120 減速Eとはスピンエディタ これについて 　親部品は設定GB 　X=115 　Y=117 　テキストは「100」 設定完了とはボタン これについて 　親部品は設定 　X=100 　Y=170 　W=100 　クリックした時は〜 　　設定反映 ●設定反映 　残距離=残距離E 　SP=最高速度E 　AC=AC*(加速E/100) 　BR=BR*(減速E/100) 　距離Pの最大値=残距離 　距離Pの最大値=残距離 　残距離で残距離表示更新 　処理タイマーの開始 #----------------------------------------------------------------------- # 関数 #----------------------------------------------------------------------- ●レバー変更処理 　運転レバーの値で条件分岐 　　0ならば、//緊急ブレーキ 　　　状態=「EB」 　　　状態の背景色は赤色 　　1ならば、//B5 　　　状態=「B5」 　　　状態の背景色は赤色 　　2ならば、//B4 　　　状態=「B4」 　　　状態の背景色は赤色 　　3ならば、//B3 　　　状態=「B3」 　　　状態の背景色は赤色 　　4ならば、//B2 　　　状態=「B2」 　　　状態の背景色は赤色 　　5ならば、//B1 　　　状態=「B1」 　　　状態の背景色は赤色 　　6ならば、//N 　　　状態=「N」 　　　状態の背景色は$D5D500 　　7ならば、//P1 　　　状態=「P1」 　　　状態の背景色は緑色 　　8ならば、//P2 　　　状態=「P2」 　　　状態の背景色は緑色 　　9ならば、//P3 　　　状態=「P3」 　　　状態の背景色は緑色 ●速度表示更新(Sの|Sで|Sを) 　速度M=「速度：」&S&「km/h」 ●残距離表示更新(Sの|Sで|Sを) 　距離M=「残距離：」&S&「m」 ●加減速(Sで|Sの|Sを) 　SSPとは変数 　もし、(Sが「B?」にワイルドカード一致)OR(S=「EB」)ならば、 　　もし、速度=0ならば、戻る 　　違えば、Sで条件分岐 　　　「EB」ならば、 　　　　速度=速度-BR*処理タイマーの間隔 　　　「B5」ならば、 　　　　速度=速度-BR*0.6*処理タイマーの間隔 　　　「B4」ならば、 　　　　速度=速度-BR*0.4*処理タイマーの間隔 　　　「B3」ならば、 　　　　速度=速度-BR*0.2*処理タイマーの間隔 　　　「B2」ならば、 　　　　速度=速度-BR*0.1*処理タイマーの間隔 　　　「B1」ならば、 　　　　速度=速度-BR*0.05*処理タイマーの間隔 　もし、S=「N」ならば、 　　速度=速度 　もし、Sが「P?」にワイルドカード一致ならば、 　　もし、速度=0ならば、速度=0 　　Sで条件分岐 　　　「P1」ならば、 　　　　速度=速度+AC*0.2*処理タイマーの間隔 　　　「P2」ならば、 　　　　速度=速度+AC*0.6*処理タイマーの間隔 　　　「P3」ならば、 　　　　速度=速度+AC*処理タイマーの間隔 　もし、(速度>=SP)ならば、 　　速度=SP 　違えば、もし、(速度<=0)ならば、 　　速度=0 　SSP=速度を2で小数点四捨五入 　もし、SSPが「*.?」にワイルドカード一致ならば、SPP=SSP&「0」 　SSPで速度表示更新 　速度P=速度 ●残距離計算 　残距離=残距離-(速度*1000/3600*処理タイマーの間隔) 　(残距離を2で小数点四捨五入)で残距離表示更新 　距離P=残距離 　停車判定 ●停車判定 　もし、(残距離<=3)AND(残距離>-3)ならば、 　　母艦の背景色は黄色 　　停車処理 　違えば、もし、(残距離<=-4)AND(残距離>-9999)ならば、 　　母艦の背景色は赤色 　　停車処理 　違えば、 　　もし、(残距離<=-10000)ならば、 　　　母艦の背景色は黒色 　　　処理タイマーの停止 　　　「オーバーラン{~}距離：{残距離を2で小数点四捨五入}m」という。 ●停車処理 　もし、(速度<=0)ならば、 　　処理タイマーの停止 　　「停車{~}距離：{残距離を2で小数点四捨五入}m」という。 #----------------------------------------------------------------------- # 起動処理 #----------------------------------------------------------------------- レバー変更処理 母艦の可視はオン 設定の可視はオン
• 組み込み型も作ってみました。シンプルながら、結構面白いですね。 -- ばびぶべぼん
• 引っ越し完了 -- k.k

kiuuの事

k.k (2010/02/11 (木) 20:30:12)

KIUUの事やいろいろ

• 今開発を止めています -- k.k
• 勉強ですか？ -- メガ
• それもあるんですけどほか(*5)のソフトをほっといたので開発しようかなと -- k.k

---

*1 じゃあアドバイスをください

*2 教えてください

*3 あの汚いソースを使って手伝ってください

*4 収録する路線は東武鉄道日光線

*5 kiuuosとか電車ゲームとかいろいろ