素人の俺にHSPで経営シミュを作らせるスレ

◆uoRBQ2R7lQ · 2006/08/27(日) 09:16:45

今日HSP始めました。よろしく。

**143** · 2006/10/27(金) 16:36:08

工房内を移動するとこまで出来た。

**名前は開発中のものです。** · 2006/11/04(土) 18:16:18

そして誰もいなくなった

**名前は開発中のものです。** · 2006/11/11(土) 08:51:53

うーむ。協力したいんだが今リアルタイムのネトゲにハマってるから協力できん。

**名前は開発中のものです。** · 2006/11/11(土) 17:08:06

俺も携帯でがんばってみるか

**名前は開発中のものです。** · 2006/11/11(土) 22:44:04

じゃあ俺はPCで頑張る。
キャラグラフィックはフリー素材を
使えばいいと思うんだが、アイテムの説明画面？に
表示するアイテム画像とかどうすればいいんだ？

そこまで作ってから考えるべきか？

**名前は開発中のものです。** · 2006/11/12(日) 05:00:01

とりえあずテキストでいいんじゃないか

**148** · 2006/11/12(日) 06:50:49

そうだな、とりあえず画像表示欄だけ用意しておけばいいか。

**名前は開発中のものです。** · 2006/11/13(月) 12:30:07

何でもいいから動くものがみたい

**名前は開発中のものです。** · 2006/11/14(火) 00:16:18

buf = ">>151 （´・ω・｀）"
repeat:redraw 1 : await 90 : redraw 0 : color 255,255,255 : boxf : color
pos 0,0 : if i=0{mes buf+"ﾉ"} : if i=1{mes buf+" ｼ"} : i++ : if i>1{i=0}:loop

**名前は開発中のものです。** · 2006/11/14(火) 14:36:52

じゃあ自分の部屋にキャラを表示するとこまで作ってみる
アトリエの工房みたいなもんかな

**名前は開発中のものです。** · 2006/11/14(火) 18:52:35

勉強中の自分がこれはどうかと提案してみる
今PCないからテストしてないけど

if cnt \ 2 = 1 {
　mes buf+"ﾉ"
} else {
　mes buf+" ｼ"
}

elseの使い方ってこれでいいんだよね
下は×?

if cnt \ 2 = 1 { : mes buf+"ﾉ" : }
else { : mes buf+" ｼ" : }

**名前は開発中のものです。** · 2006/11/14(火) 19:20:22

>>154
動くから×ではないけど
上の方が見やすくていいと思う
短く書きたいなら、僕ならこう
if cnt&1 : mes buf+"ﾉ" : else : mes buf+" ｼ"

**名前は開発中のものです。** · 2006/11/14(火) 20:38:59

>>155
差し支えなければcnt&1の部分解説お願いします

&ってandだよね

**名前は開発中のものです。** · 2006/11/14(火) 21:02:01

今時の若いモンはビット演算も知らないのか

**名前は開発中のものです。** · 2006/11/14(火) 21:04:24

若いやつ馬鹿にするような年でHSPなんて弄ってるよりはましだけどなw

**名前は開発中のものです。** · 2006/11/14(火) 21:05:58

調子こきましたごめんなさい＞＜
ＨＳＰも弄ったことないです。ごめんなさい＞＜

**名前は開発中のものです。** · 2006/11/14(火) 21:53:18

>>156
ttp://hspcenter.com/hspdt/faq.html

**名前は開発中のものです。** · 2006/11/14(火) 23:28:03

buf = ">>155 thanks（´・ω・｀）":repeat:redraw 1 : await 90 : redraw 0 : color 255,255,255 : boxf : color : pos 0,0 : if cnt&1 : mes buf+"ﾉ" : else {mes buf+" ｼ"}loop

**名前は開発中のものです。** · 2006/11/15(水) 02:48:17

>>160
思わぬところで勉強なりました

**名前は開発中のものです。** · 2006/11/17(金) 11:57:52

部屋の中歩くの出来た
次は仕入れとか実装してみる

**名前は開発中のものです。** · 2006/11/17(金) 13:15:56

うぷは？

**名前は開発中のものです。** · 2006/11/17(金) 20:36:21

今日は無理なんで明日にでもうｐする。といっても部屋を歩く以外は何も出来ないよ。

**名前は開発中のものです。** · 2006/11/18(土) 08:41:16

人いないし終了でいいんじゃない

**名前は開発中のものです。** · 2006/11/19(日) 12:21:58

壱番はどうした

**(@益@ .:;)** ◆8LosfbQlKQ · 2006/11/19(日) 13:37:08

とりあえず動くものを作りましょう。

**名前は開発中のものです。** · 2006/11/28(火) 17:03:35

ここ再利用OK？てか人いる？
プロ野球チームを作ろうのHSP版でも作ろうかと思ってるんだけど

**名前は開発中のものです。** · 2006/11/28(火) 18:56:31

誰も居なくてさみしいからage
新すれ立てたほうが良いかな

**名前は開発中のものです。** · 2006/11/28(火) 19:22:15

ここでいいんでないの?

**名前は開発中のものです。** · 2006/11/29(水) 14:23:33

面白そうだから完成するかどうかは別として作ってみるかな。
レミュオールってのやったことないからまずはそれをやってみるか。

**名前は開発中のものです。** · 2006/11/29(水) 15:20:16

つ[チラシの裏]

**名前は開発中のものです。** · 2006/11/30(木) 22:48:30

172じゃないけど、前に俺も挑戦してみた
感想：ＨＳＰ初心者が作れるっていうレベルじゃねぇぞ！！犬と猫の中の人は神

**名前は開発中のものです。** · 2006/12/01(金) 00:09:54

まずは完全にまんまﾊﾟｸってみれば

**名前は開発中のものです。** · 2006/12/01(金) 02:52:34

■ゲーム画面の構成を作る
・背景を配置　・メイン画面の配置　・メッセージウィンドウの配置

・進行時間を表示　・所持金の表示　・体力等のメーターを表示　・各種ボタンの配置

■システムを作る
---簡単---
・時間の進行と停止を切り替えるボタン　・セーブボタン　・ゲーム起動時のロード機能

・特定の時間帯にイベント発生　・メーターの増減

---複雑---
・年数と月日のカウント　・所持金の増減

・素材Ａを入手→保存庫に保管→更に素材Ｂを入手→素材Ａが入った保存庫に保管という機能

・素材Ａと素材Ｂを消費して商品Ａを生みだす(↑ができれば簡単だけど)

とりあえずこんぐらいまで作りたいんですが、---複雑---以降がどうしてもわからないです。
特に"素材"をデータとして扱う方法が・・・

**名前は開発中のものです。** · 2006/12/01(金) 08:40:31

素材に番号付けとく

**名前は開発中のものです。** · 2006/12/01(金) 08:48:12

俺初心者で携帯だから見づらいけど
>･年数と月日のｶｳﾝﾄ
rpeat
　rpeat 13,1
　　rpeat 30,1
　　　DAY =cnt
　　loop
　　MONTH = cnt
　loop
　YEARS = cnt
loop
か
*MAIN
　DAY++
　　if DAY = 31 {
　　　MONTH++
　　　DAY = 0
　　}
　　if MONTH = 13
　　　YEARS++
　　　MONTH = 1
　　}
　goto *MAIN

**名前は開発中のものです。** · 2006/12/01(金) 08:49:55

と考えてみたけどどうだろ?
と素人考だけど

**名前は開発中のものです。** · 2006/12/01(金) 12:53:37

>>176
1度に全てを考えないで、そうやって少しずつ作っていくと先が見えそうだ。やる気湧いてきた。

**名前は開発中のものです。** · 2006/12/01(金) 18:05:22

>176
>・素材Ａを入手→保存庫に保管→更に素材Ｂを入手→素材Ａが入った保存庫に保管という機能
#enum 素材Ａ=0
#enum 素材Ｂ
#enum 素材Ｃ
#enum 素材終

#enum 個数=0
#enum 値段
#enum 重量
#enum 素材データ終
dim 素材,素材データ終,素材終:dim itemno,素材終:dim itemnotmp,素材終
itemcnt=0:item="素材Ａ","素材Ｂ","素材Ｃ":itemhlp="素材Ａなんたら","素材Ｂなんたら","素材Ｃなんたら"
素材(値段,素材Ａ)=100,10:素材(値段,素材Ｂ)=500,30:素材(値段,素材Ｃ)=12300,128
pos 50,300:repeat 素材終:button gosub item(cnt),*label:loop:button gosub "ソート",*label2:pos 0,0:mes "保存庫"
stop

*label
if 素材(個数,stat)=0{itemno(itemcnt)=stat:itemcnt++}
素材(個数,stat)++
*label3
color 00,00,150:boxf 0,0,400,100:color 250,250,200:pos 0,0:mes "保存庫("+itemcnt+"種)":color 50,250,250
repeat itemcnt:no=itemno(cnt):if 素材(個数,no){:mes item(no)+"("+素材(個数,no)+"個) "+"("+素材(値段,no)+"円) "+"("+素材(重量,no)+"kg) "+itemhlp(no)}:loop
return
*label2
no=0
repeat 素材終:if 素材(個数,cnt){itemno(no)=cnt:no++}:loop
gosub *label3
return
素材にナンバー付けてそれを基準にデータの入れる場所を決める

**名前は開発中のものです。** · 2006/12/01(金) 18:08:31

あ、使わなくなった配列を消すの忘れてた＞dim itemnotmp,素材終

**名前は開発中のものです。** · 2006/12/02(土) 00:41:23

仕入れ→倉庫から出し入れ→販売まで作ったけど
アイテム名考えるの('A`)ﾏﾝﾄﾞｸｾ

130個考えたけど目標は1000個以上。
何か参考になるもの無いかな？

**名前は開発中のものです。** · 2006/12/02(土) 01:25:07

人名を入れて人身売買

**名前は開発中のものです。** · 2006/12/02(土) 01:31:35

たかはし　まなぶ　￥100

**名前は開発中のものです。** · 2006/12/02(土) 07:31:49

背景/メインウィンドウ/メッセージウィンドウ
進行時間表示/３つのボタン(クリックしたらメッセージ出るだけ)

>>176を参考にして、やっとここまでできた。
今は『特定の時間帯にイベント発生』って機能を製作中・・・
アイテム云々は置いといて、進行時間によって何かが起こるのを観察して楽しめるとこまで作ってみる

**名前は開発中のものです。** · 2006/12/03(日) 11:54:09

>>183
とりあえず130個あればテストするには十分だよ。
システムができてから、ここで募集するとかしてはどうか。
つーかアイテム全部自分で考えるのは無理だって

**183** · 2006/12/03(日) 19:12:41

>>184-185
人身売買か…。それは人道的にどうだろうな…。
アイテム種類別に分けてるけど、種類的には家畜に入りそう。
ちょっと考えときます。
>>187
そうしますか。
生産システムと従業員の雇用解雇も出来たし、
あとは探索と情報表示だけだ。
情報表示が恐ろしく厄介だけど。

**名前は開発中のものです。** · 2006/12/05(火) 19:01:44

何でもいいから動くものをうぷしてほしい

**名前は開発中のものです。** · 2006/12/06(水) 18:25:59

>>124 >>133あたりの書き込みをみて「だんじょん商店会」ってゲームを思い出した。
色んな陣営(勇者、魔王etc)とアイテムを売買したり、時には一緒に冒険したりするゲーム。
レビュー見て興味持った時には既に廃盤で、実際にプレイしたことはないんだが。

俺も完成するかはおいといて作ってみようかな。

**名前は開発中のものです。** · 2006/12/07(木) 08:36:54

何でもいいから動くものをうぷしてほしい

**名前は開発中のものです。** · 2006/12/09(土) 05:54:04

本当に素人の俺がきましたよ。
どうプログラムすればいいかとかまだ全く分からんけど、

タイトル
↓
設定
↓
ゲームオープニング
↓
画面レイアウト
↓
ゲームメニュー設定
↓
ゲーム内容
↓
エンディング

みたいな流れで組んでいけばいいのかな。

普通はどういう風に開発していくものなんだ？
それぞれかもしれんけど。

**名前は開発中のものです。** · 2006/12/10(日) 11:38:38

本当に素人の俺が箱庭運送経営ゲーを作ろうと思ってるんですが、
ここでいろいろ質問してもいいのですか？

**名前は開発中のものです。** · 2006/12/10(日) 14:04:01

>>192
好きなところから作れば。
普通はゲーム本編でなくてはならないところから。
それ以外が出来ていてもゲームとして成立しないが、出来ていればたとえタイトルが
一枚絵でオープニングが無いとしてもゲームとして成立するから。

>>193
質問するのは自由だけど、返事が返ってくるかは君しだい。
初心者でも努力してるやつにはアドバイスくれるよ。

**193** · 2006/12/10(日) 23:11:18

とりあえず最終目標としては、人間一人一人の動きが見える旅客運送都市育成箱庭ゲーです。
プレイヤーは駅やバス停、歩道橋や自転車置き場などを設置して、良好な人の流れを作り上げ都市（町村単位かな）を
発展させていきます。
時には、オフィスビルや学校など、人が多く流れそうな建物を誘致して
利益効率のより交通経路などを作っていきます。

似たようなゲームはよくあると思いますが、このゲームの特徴は一人一人の動き
家から出てバス停まで歩き、バスに乗って駅に向かい、電車に乗ってマップ外にでる。
が一つ一つ見えることです。

とまあ、企画は良いのですが、プログラム未経験者なので、今はかなりしょぼいものしかつくれてません。
とりあえず、ボタンを押すと人と家が生成できて、人が適当に歩き回り疲れたら家まで行って
休むとまた適当にあるくというのを、かなりしょぼいグラフィックで作りました。

これからバスを作って、歩きよりも早くなる場合バスを選択して目的地まで移動するPGを作ろうと思うのですが、
なかなか上手くいきません。

**名前は開発中のものです。** · 2006/12/11(月) 16:55:01

>194
いや、イメージするゲームの流れどおりに作ったほうが、分かりやすいのかなーと思って。
そもそもゲームの部分だけ作るなんて芸当できないしな。
全角スペースあるときちんと動かないとかさっき知ったしな。
俺が今やってるの見るとビビルぞ。素人すぎて。パラメータとか全然分からん。

ところでマジ初心者質問なんだけど、例えば
if a=0 goto *nannchara
if a!0 mes"aは0じゃなーい。"

と
if a=0 goto *nannchara
else : mes "aは0じゃなーい。"

って、コンピュータの出力的には同じなの？
処理が若干違うのはまぁ分かるんだけど(ホントか？

**名前は開発中のものです。** · 2006/12/11(月) 17:39:14

>>196
HSPって論理演算子も = なんだな。
動作的には比較が一回増えるだけ。出力は一緒。

>>195
道とか距離はどう定義してるの？
ただ単に直線距離で移動するなら
人の移動速度v1, バスの移動速度v2, 距離関数d(X, Y)
人の現在地X、目的地Y、現在地最寄のバス停の位置A、目的地最寄のバス停の位置B
として
d(X, Y)/v1 と {d(X,A)+d(B,Y)}/v1+ d(A,B)/v2
を比較するだけなんじゃないかと思うが。

もし道が定義されてて、複数の経路から最短路を求めたいなら
ダイクストラ法とかを参考にするのがいいんじゃないだろうか。
的外れなこと言ってたらすまん。

**名前は開発中のものです。** · 2006/12/11(月) 17:59:41

>>196
HSPが内部で最適化してくれるなら同じになる。
その辺は公式かHSPスレで聞いたほうがいいよ。
つーか素人は細かいこと気にしすぎると先に進まんぞ（俺も良くある）
気にせずどんどんやれ。

>>195
「うまくいきません」じゃあ何も分からんよ。
質問する時はこうやったんだけどうまくいきませんっていう風にしないと。
考え方がそもそも違うのか、プログラムの凡ミスかとかあるし。

そのプログラムをアップして見せたほうが、回答が得られると思う。

**名前は開発中のものです。** · 2006/12/11(月) 19:19:50

>197-198
早いレスｻﾝｷｭ。
他の文を使っても同じ出力できるんだね。
else を　&を使って表せたりするわけね。
こんなことは実際必要になるとは思わないんだけど、
根本的な理解がまだ足りてないから色々不安なんだよ。
考え方があっているのかとかね。
例えると
両方ともりんごに見えるけど本当にりんごに見えるであってるのか？
という感じ。本当そういうレベルで試行錯誤してる。

**名前は開発中のものです。** · 2006/12/13(水) 05:13:49

ゲーム本編用のがそれっぽく書けたんだけど、
ゲーム内の日付進行とか、選択肢でパラメータかえるとか全然ﾜｶﾝﾈ。
そもそも選択肢はどう表現するかわかんね。
とりあえずなんか出来そうなのに。まぁまだ1週間だしあせることないんかな。

**名前は開発中のものです。** · 2006/12/13(水) 17:21:33

repeat ～loop　の部分を32回くらいやるとネストしすぎって怒られる
あーんもーなんなんだよー。

**名前は開発中のものです。** · 2006/12/13(水) 17:25:35

>>200
簡単な選択肢だったら、HSPだとボタン簡単に出せるからそれで処理分ければいいんじゃない。
ループネスト３２回ってなんだよwやりすぎだろ。普通は５回でも多いと思う。

**名前は開発中のものです。** · 2006/12/13(水) 18:27:30

*一番上
repeat
randomize
客=rnd(49)
if客=0 { :あ=10000 :ｂ=6 :ｃ=ｃ+1 :ｄ=(E-ｄ)*2 }
if (客>0)&(客<8)　　 { 上と似たようなの }
if (ｒｙ

if ｆ+1>20) & (ｆ+1<100) {　if cnt=ｆ-1 : break }
f ｆ+1>=100 { if cnt=100-1 :break}
else{if cnt=20-1 :break}
await 10
loop

中略）

repeat
stick a
if a&288 :goto *一番上
if a&128 :end
await 10
loop

ざっくりだけどとこんなかんじでやってみたんだけど、
最初のリピート部分が終わって1ターン。
で下の部分でもどって2ターン目みたいな感じでやってみたんだけど、
こういうのはダメなんか？で、32回目くらいに止まる。
処理をなんかクリアするみたいなことをやるんだろうか。
犬と猫のソフトのイメージだとこういう感じでやるのかと思ってたけど、
違うやり方があるのかな。

**名前は開発中のものです。** · 2006/12/13(水) 18:46:01

>>203
うーん何を作ってるのか良く分からんのだけど、君の言うターンってなに？
あと犬と猫のソフトとか単語がわからなすぎ。
とりあえずHSPの解説サイトなんて山のようにあるんだから全部よんでみれば。

**名前は開発中のものです。** · 2006/12/13(水) 21:53:12

>>203
おいおい、repeatから抜けないで違うrepeat行こうとしてるじゃんｗ
repeat
stick a
if a&288 :break
if a&128 :end
await 10
loop
goto *一番上

少なくてもこんな感じにする必要がある

**名前は開発中のものです。** · 2006/12/13(水) 22:43:59

http://sports2.2ch.net/test/read.cgi/entrance2/1156582008/67

芸能人極秘画像流出！！

**名前は開発中のものです。** · 2006/12/14(木) 05:41:12

>205
できたよー。ありがとー。
一回抜けなきゃいかんのか。

しかし、どこかの初心者用講座HPに描画で抜けないrepeat文があったけど
あれはどうしてﾀﾞｲｼﾞｮﾌﾞなのかという疑問がわいてきた。

>204
本当はゲーム内時間で1分ごとに処理みたいのにしてみたいけど、
よくわからんから、一日とか1週間とか大きく括くって「ターン」って意味。
一日区切りで60日経過させるという処理どころか、
30日で終わっちゃうよてな具合で弱ってた。
あと犬と猫ソフトってフリーのゲーム作ってるところ。
同人ゲー板にスレもある。フリーの経営シミュでは
「レミュオールの錬金術師」っていうのが評価されてる。

>206
いまいち

**名前は開発中のものです。** · 2006/12/14(木) 11:23:17

>>207
疑問はその場で解決したほうがいいんじゃない？

**名前は開発中のものです。** · 2006/12/14(木) 17:03:10

>>207
ちょっと書き方悪かったか・・・

>一回抜けなきゃいかんのか。
別のrepeatに行くのが問題じゃなくて
repeatから抜けないで、同じrepeatを使用している場合、どんどん階層が深くなっていく

repeat 初回
repeat 2回目
repeat 3回目
repeat 4回目って感じでネストが深くなる（32?で限界）

loop
loop
loop
loop

>あれはどうしてﾀﾞｲｼﾞｮﾌﾞなのかという疑問がわいてきた。
onclick とかbuttonで、gotoするとネストが初期化される

*A
clrobj:tim=gettime(7):c++
repeat
tim2=gettime(7):if tim2>=tim{timtim+=tim2-tim}else{timtim+=tim2+1000-tim}
title "回数"+c+" TIME"+timtim+" ネストレベル"+looplev
if timtim>=1000{timtim=0:break}
await 10
loop
pos 0,0:button goto "next",*A
repeat:await 10:loop

**名前は開発中のものです。** · 2006/12/15(金) 11:10:20

>>209
HSPってちょっとメンドインだな。
確か内部的にループが数えられてるから、それを一回初期化しないといけないって事か。

**名前は開発中のものです。** · 2006/12/16(土) 06:05:44

ttp://gamdev.org/up/img/8369.png
大して出来てないけど作ってるということで状況を。
アトリエっぽいのを目指してる。

**名前は開発中のものです。** · 2006/12/17(日) 03:33:43

素敵な俺にHSPで経営シミュを作らせるスレに見えた

**名前は開発中のものです。** · 2006/12/26(火) 09:29:56

ちょいと熱意が急速に失せてきたので手をつけずにいた。
遅レスだけど

>209
よくよく考えてみれば当たり前なんだけど、
その時はREPEATを処理することが良くわかってなかった。（いまでもまだまだだけど）
repeatを重ねることが悪いのではなくて、
それがきちんと処理されていないから怒られたんだってことだよね。

>onclick とかbuttonで、gotoするとネストが初期化される
なるほど。そういう仕組みなのね。わかったyo

あと下の部分が何を表してるのかはまだ良くわからんです。

**名前は開発中のものです。** · 2006/12/26(火) 09:30:53

改行多いって怒られたorz

今、ゲームの処理？部分を少しいじってみてるんだけど、
プログラム的には100の処理を100回繰り返すのと
最初から10000回で処理させるのってどちらがいいとかってあるの?
ゲームを一日ずつ進めるのじゃめんどいので、
四半期1ターンくらいにしようと思って

repeat
repaet
a=rnd(49) {
以下略
　　　　　}
await 10
loop
if cnt=100 :break
await　10
loop

この文が本当に大丈夫かはおいといて、上みたいにしたんだけど、
処理に思った以上に時間がかかって、ゲームにならん。一回20秒くらい？
単純に日にち分倍にすることも考えたんだけど、
それだと、ランダムの分バランスがおかしくなる可能性が高くてやめた。
ランダムのパイは実際はもっと大きくするつもりだし、
最初のリピート部分にまだ色々というか
根幹になるようなものを付け足そうと思ってたんだけど、
なにか根本的にやろうとしてることがダメなんだろうか。

**名前は開発中のものです。** · 2006/12/26(火) 11:11:43

ループするたびにwaitかかるんだから遅くて当然。

**名前は開発中のものです。** · 2006/12/26(火) 15:24:31

ホントだ。orz
最後のだけawait 1　にして他消したら遅くない。
awaitって結構時間食うのか。　ｱﾘｶﾞﾄﾝ

**名前は開発中のものです。** · 2006/12/27(水) 06:07:08

処理としては小数点までやってるんだけど、
表示する際には自然数のままにしたくて、

a=b-b\1
mes "+a+"

という感じにして見たんだけどだめといわれた。
どこがダメなのか全然わからん。

**名前は開発中のものです。** · 2006/12/27(水) 14:32:42

>>217
\は実数(小数点数)には使えない

a=int(b)
mes ""+a

**名前は開発中のものです。** · 2006/12/27(水) 15:35:44

>>1-218
日本語でおｋ

**名前は開発中のものです。** · 2006/12/27(水) 22:20:17

>218
そうだったのかー。ｱﾘｶﾞﾄﾝ。できたよ。
ただこれやると、前日比が小数点分ずれるのが難点か。
まぁ、最終的なバランスはあとでいいか。

つか、やり始めて、ふつーにやってたゲームが
実はスゲーんだなっていうことはわかった。
自分の頭の中にあることをどう表現すればいいかが、
さっぱりわからん。あれはどういう風に表現すんだろうとか。

**名前は開発中のものです。** · 2007/01/26(金) 18:54:57

HSPはじめたてのプログラミング初心者の俺が言う。
一体どうなってんのかしらねぇが>>181はスゴイ。

**名前は開発中のものです。** · 2007/01/30(火) 04:16:41

ちょっと質問さ。
例えば

if a=b {
if cnt=a :break
}

という文を一行に表示できないかな？
：これつければいいのかと思いきやダメっていわれた。
if の｛　｝がよくわかんね。

if a=1{ b=2 :c=3 :d=4}

とかはできたのに。

**名前は開発中のものです。** · 2007/01/30(火) 14:13:40

>>222

if a=b {if cnt=a {break}}

たぶん : だと
if a=b {if cnt=a {break }
な感じで、}が一つ足りない状態になる

**名前は開発中のものです。** · 2007/01/30(火) 16:04:26

>223
一行にできたよ。ｱﾘｶﾞﾄﾝ
何故かはまだわからないけど、
ifのbreakの時は：じゃなくて
｛｝を使うと憶えておくよ。

今ボタン勉強してるんだけど、
標準のじゃなくて、ゲームであるような、
アイコンを押すみたいなのって、
標準の絵、カーソルがあわさった時、押された時の絵
みたいな感じで絵を三つ用意して、
それを一つ一つ設定するというやり方になるの？
どう表現するかはさっぱりだけど。

**名前は開発中のものです。** · 2007/01/30(火) 17:02:56

>>224
いやいやｗ(俺も223の解釈は間違いだがｗ)
breakが問題じゃなくて
: と { で ifの閉じ方が違うからだよ
{}使わなくても
if a=b :if cnt=a :break
これでもいい

if ; は次の行に移るとifが終わる
if { は } で終わる

if a=b {if cnt=a :break}
ってやると、if cnt=a :は行が変わらないと終わらないのに } が先に見つかってしまう
でも } では終われないので、if以外では{}が使えないとエラーが出る
(これはコンパイラの仕様というかバグと言うか・・・)

>みたいな感じで絵を三つ用意して、
3つ用意する事もあるだろうし
一つの絵を表示する時に加工したりもある

**名前は開発中のものです。** · 2007/01/30(火) 23:56:11

>225
あーなるほど。なんとなくわかったよ。
｛｝で括らなくてもいいのか。ifは。。。。
ということは複数行になるような時は、
｛｝使う方が見やすくできるということか。

＞一つの絵を表示する時に加工したりもある
絵に何らかの加工もプログラムでできるのか…。プログラムエライな。
シムシティとかみたいなアイコンボタンにしてみたくてね。

**名前は開発中のものです。** · 2007/01/31(水) 04:06:17

脱初心者講座なるものを見た。

ＯＴＬ　マッタクﾜｶﾗﾅｽ。

**名前は開発中のものです。** · 2007/01/31(水) 04:58:41

>>226
>シムシティとかみたいなアイコンボタンにしてみたくてね。
シムシティのアイコンボタンは知らないが、基本的にHSPで表示できる画像なら何でもボタンに出来る
ボタンオブジェクトの絵を差し替える方法もあるけど、ゲームなら自前で作った方がいいと思う
screen 1 :picload dir_exe+"\\sample\\demo\\hsplogo8.bmp" :screen 0 :sizex=80 :sizey=800/16 :bposx=200 :bposy=200
repeat :redraw 0 :color 0,60,60 :boxf
gosub *butsub
butcnt+stat:pos 0,0:color 250,250,250:mes "ボタン "+butcnt+"回"
redraw 1 :await 15 :getkey ml,1 :loop
*butsub
buton=0
if (mousex>bposx) and (mousex<(sizex+bposx)) and (mousey>bposy) and (mousey<(sizey+bposy)){
if ml{cntt=0:if ml!mlbak {buton=1}
color 50,100,150:boxf bposx,bposy,bposx+sizex,bposy+sizey:color 60,70,80:boxf bposx+1,bposy+1,bposx+sizex-1,bposy+sizey-1
pos bposx+2,bposy+4 :gmode 2 :gcopy 1,0,0,sizex,sizey :gmode 6,,,60 :gcopy 1,0,0,sizex,sizey
}else{cntt++
color 50,100,150:boxf bposx,bposy,bposx+sizex,bposy+sizey:color 60,70,80:boxf bposx+1,bposy+1,bposx+sizex-1,bposy+sizey-1
pos bposx+4,bposy+8 :gmode 6,,,255 :gcopy 1,0,sizey*(cntt/8\16),sizex,sizey
pos bposx,bposy :gmode 2 :gcopy 1,0,sizey*(cntt/8\16),sizex,sizey
if (cntt*6\512)<256{gmode 5,,,(cntt*6\256)}else{gmode 5,,,256-(cntt*6\256)}
gcopy 1,0,sizey*(cntt/8\16),sizex,sizey
}
}else{cntt=0
color 50,100,150:boxf bposx,bposy,bposx+sizex,bposy+sizey:color 60,70,80:boxf bposx+1,bposy+1,bposx+sizex-1,bposy+sizey-1
pos bposx+4,bposy+8 :gmode 6,,,255 :gcopy 1,0,0,sizex,sizey
pos bposx,bposy :gmode 2 :gcopy 1,0,0,sizex,sizey
}
mlbak=ml
return buton

もっと単純なのにした方がよかったかな・・・
何やってるか読みたい場合は一命令づつ改行してくれ

**名前は開発中のものです。** · 2007/01/31(水) 05:05:02

このスレの人達は皆親切ですね( つД｀)
保存しました。これからできるだけ解読してみる。

**名前は開発中のものです。** · 2007/02/02(金) 14:54:28

アイテム考えるのがめんどうだね
どこかまとめてあるところないのかな

**名前は開発中のものです。** · 2007/02/03(土) 13:13:59

大まかに>228で何をやらせているのかわかってきた。
絵をずらしながら表示してアニメーションができるとか、
押した時の絵をすこしずらして、ちょっと色変えてるとか。
すごいな。

ただ、命令文もさる事ながら、つかわれてる変数がどうなってるのかもｻﾊﾟｰﾘだ。
スクリーン1の意味からもうなんだかわからない。無いと止まるし。

**名前は開発中のものです。** · 2007/02/03(土) 16:04:39

>>231
>ただ、命令文もさる事ながら、つかわれてる変数がどうなってるのかもｻﾊﾟｰﾘだ。
>スクリーン1の意味からもうなんだかわからない。無いと止まるし。
screen 1は、使ってる画像を分かりやすくする為に見えるようにしただけ(デバッグする時とかに有効)
普通はbuffer 1とかやって見えないウィンドウを作って、そこに画像を読み込んで
gcopy等を使って表示に使ってるウィンドウにコピーする

>if (mousex>bposx) and (mousex<(sizex+bposx)) and (mousey>bposy) and (mousey<(sizey+bposy)){
変数は、ボタンサイズ、ボタンポジションとシステムのマウス座標
ボタンの位置からボタンサイズ以内にマウスカーソルが有るかを比較してる

cnttはアニメーションのカウンタとして
mlはマウスの左クリック
mlbakは前回の左クリックの状態を保存（前回押されてない時だけボタン操作を有効にする為）

**名前は開発中のものです。** · 2007/02/03(土) 17:41:30

ご教授ありがとうございます

絵を表示するってそういう風にやるものなのか。
絵はまだ詳しくやってないので勉強になった。

マウスの部分はなんとなくわかるんだけど、
やっぱり指定の仕方大変なんだなーと思った。
ボタン一つ一つに指定することになるんだよね。うーん。

そして今俺は何故か素数プログラムを組んでみたり。
一つ一つ憶えていくだけでも大変だ。

**名前は開発中のものです。** · 2007/02/12(月) 16:54:40

C#かJavaでやってみようと思ってるんだけどここでやってもいい?
経営シミュは見た目を気にせずコードに集中できて良さそうだと思ってるんだけど

**名前は開発中のものです。** · 2007/02/14(水) 10:26:35

アクションとかああいうゲームに比べて、見た目作った上で内部まで設計しなきゃならないんだぜ
利用できるGUIあるならいいけど、意外とﾏﾝﾄﾞｸｾかったりする

**名前は開発中のものです。** · 2007/02/14(水) 13:16:48

んじゃ俺はJavaScriptでやってみるか
ありえないラーメン屋でも想定して事実に即さないイベントばかり起こるようなタイプで

**名前は開発中のものです。** · 2007/02/14(水) 20:17:38

似而非脱サララーメン経営シミュ
とりあえずひな形でけた
http://www.nonchang.net/_test/GameDesigner/_simUI.html

ひな形であってあんまゲームになってない　我ながら操作しにくい
保存とかできないよ　実装するとしたらクッキーかな　ﾒﾝﾄﾞｸｻｽ
せめて客くらいprototypeでオブジェクト化しとかんとな
あと作業員やタスク割も換算せんとな　開店中にどう仕込みするか
ひどく手抜きなターン制だ　判りやすさを維持しつつどうパラメータ増やすかだな
パラメータ影響もろくな計算式作ってないから滅茶苦茶だな
目標から逆算した計算式のバランス調整シミュも作っとかんと
絵くらい欲しいな

……経営シミュとか言える域まで作り込むのは手間だな
まあちまちま進めます

**名前は開発中のものです。** · 2007/02/15(木) 14:19:18

俺も作ってみようかな。
複雑でなくコマンド選択して進めていくだけの単純なもの。

**名前は開発中のものです。** · 2007/02/15(木) 17:51:21

カイロソフトのまんが　奥の細道的なシミュ作りたいと思って、昨日からhspインスコした。

**名前は開発中のものです。** · 2007/02/16(金) 14:21:27

HSPじゃないけどここでいいのかな？

**名前は開発中のものです。** · 2007/02/16(金) 17:37:03

いんじゃね
それで誰か困りそうなほどは人いなさそうだし。

実際に迷惑に感じる奴が出て来てから、移動考えればいいと思ふ

**名前は開発中のものです。** · 2007/02/17(土) 22:30:29

http://kasamatusan.sakura.ne.jp/cgi-bin2/src/ichi75506.zip.html
時刻のカウントをするプログラム作ってみた。
初HSPでの本格的なプログラム。。

**名前は開発中のものです。** · 2007/02/17(土) 23:20:55

部分部分テストしながら作っていき、最終的にそれらを統合したプログラムを作ろうと思ってます。
目指すは>>239