知識も無し。他言語の経験も無し。金も無し。
あるのは時間とやる気だけのﾋｯｷｰな漏れが、
HSPで戦略シミュレーションを作ろうと思う。
漏れの進行度に合わせて、
おまいらが具体的な課題を出して欲しい。
ググる。それで分からなければココで質問する。
課題をうｐする。間違っていたら改良してうｐする。
HSPの知識はテキストを表示させるところまで。
宜しく頼む。
まとめページ
ttp://www.geocities.jp/ttanihata/index.html
話はそれからだ。
２ゲット。
いくらなんでもまとめサイトさえ作れば、何でもスレ立てしていいというもんじゃないぞ。
基礎って何だ？
覚えてきた証拠にどんなものをうｐすればいいんだ？
具体的に頼む。
と出力するプログラム作ってこい。
mes "「今日は>>6にいじめられた。」"
wait 300
mes "欝だ死のう"
stop
とりあえずソース晒し。死んでたまるか。
戦略SLGが三国志や信長の野望みたいなやつで、
戦術SLGがファイアーエムブレムやタクティクスオウガのようなやつだっけ。
えーと。あれだ。
何も考えずに「戦略」と言っていた。
漏れが目指してるのはﾌｧｰｱｰｴﾑﾌﾞﾚﾑとかﾀｸﾃｨｸｽｵｳｶﾞみたいなもの。
三国志や信長はどうも好きになれん。
http://pc5.2ch.net/test/read.cgi/gamedev/1079745509/l50
↑このスレでつくり方や課題がだされている。
課題1から順にやればきっとつくれるよ。
とりあえずこのスレ削除して移動するのを勧める…。
課題：
戦術と作戦と戦略の違いを３００文字程度にまとめて、それを２０文字１行で１行づつ表示し、Enterを押すたびに次の行が表示されるようなアプリを作れ
戦略SLGをうぷすれば過程がどうであろうと大概丸く収まる。
目標物こそが最も有効な証拠。
課題とかやらないで、いきなりゲーム作りに突っ込んで挫折するのも得られるものがあってGOOD。
まあ、がんばってください。
試しに作ってみた。
途中までしか出来てないが頼む。
;Enterを押すたびに次の行が表示されるようなアプリを作れ
font"MS ゴシック",20,1
mes"戦略と戦術の違い"
*kadai1
getkey enter,13
if enter=1 : goto *kadai2
wait 1
goto *kadai1
*kadai2
font"MS ゴシック",15
mes"戦略とは"
*kadai3
getkey key,13
if key=1 : goto *kadai4
wait 1
goto *kadai3
*kadai4
font"MS ゴシック",12
mes"なんちゃらかんちゃら"
stop
kadai1でenterを押すと
"戦略とは"と"なんちゃらかんちゃら"が一気に表示されてしまうわけだが。
おまいら何でですか？
stick
;Enterを押すたびに次の行が表示されるようなアプリを作れ
font"MS ゴシック",20,1
mes"戦略と戦術の違い"
*kadai1
stick key
if key&32 : goto *kadai2
wait 1
goto *kadai1
*kadai2
font"MS ゴシック",15
mes"戦略とは"
*kadai3
stick key
if key&32 : goto *kadai4
wait 1
goto *kadai3
*kadai4
font"MS ゴシック",12
mes"長期的・全体的展望に立った闘争の準備・計画・運用の方法。"
*kadai5
stick key
if key&32 : goto *kadai6
wait 1
goto *kadai5
*kadai6
font"MS ゴシック",12
mes"戦略の具体的遂行である戦術とは区別される。"
stop
なんとなく理解できたような希ガス。
だがもっとスマートにはできんのだろうか。
;短くしたけどもっと効率の良い方法は無いかな？
flg = 0
font"MS ゴシック",20,1
mes"戦略と戦術の違い"
repeat
stick key
if key = 32 {
if flg = 2 : font"MS ゴシック",12 : mes"戦略の具体的遂行である戦術とは区別される。" : flg = 3
if flg = 1 : font"MS ゴシック",12 : mes"長期的・全体的展望に立った闘争の準備・計画・運用の方法。" : flg = 2
if flg = 0 : font"MS ゴシック",15 : mes"戦略とは" : flg = 1
}
wait 1
loop
激しくthx。自分のがどれだけ稚拙な造りか分かったよ。
;enterを押すたびに次の行が表示されるようなアプリを作れ
;短くしたけどもっと効率の良い方法は無いかな？
flg = 0
font"MS ゴシック",20,1
mes"戦略と戦術の違い"
repeat
stick key
if key = 32 {
if flg = 2 : font"MS ゴシック",12 : mes"戦略の具体的遂行である戦術とは区別される。" : flg = 3 : if flg=3 : break
if flg = 1 : font"MS ゴシック",12 : mes"長期的・全体的展望に立った闘争の準備・計画・運用の方法。" : flg = 2
if flg = 0 : font"MS ゴシック",15 : mes"戦略とは" : flg = 1
}
wait 1
loop
repeat
stick key
if key = 32 {
if flg = 5 : font"MS ゴシック",12 : mes"(2)一定の目的を達成するためにとられる手段・方法" : flg = 6
if flg = 4 : font"MS ゴシック",12 : mes"(1)個々の具体的な戦闘における戦闘力の使用法。普通、長期・広範の展望をもつ戦略の下位に属する。" : flg = 5
if flg = 3 : font"MS ゴシック",15 : mes"戦術とは" : flg = 4
}
wait 1
loop
こんな感じだろうか。
flg = 0 : max = 0 : index = 0
sdim message,1024
message={"
・戦略とは
長期的・全体的展望に立った闘争の準備・計画・運用の方法。
戦略の具体的遂行である戦術とは区別される。\n
・戦術とは
(1)個々の具体的な戦闘における戦闘力の使用法。普通、長期・広範の展望をもつ戦略の下位に属する。
(2)一定の目的を達成するためにとられる手段・方法
"}
notesel message : notemax max
font"MS ゴシック",20,1 : mes"戦略と戦術の違い"
font"MS ゴシック",12
repeat
stick key
if key = 32 : if index!max : noteget add,index : mes add : index++
wait 1
loop
うほっ。配列変数とかわけわかんね。
一応調べてみるが、どこがどうなってるか解説してくれんだろうか。
解説付けたけど読みにくいしワケワカランかも(;´Д`)
//変数の値を設定しておく。0だから別にいらないけどね。変数の意味は
//flg=使ってない。消すの忘れた○|￣|＿ max=文字列の行数を入れる変数。index=現在の行番号を入れる変数。
flg = 0 : max = 0 : index = 0
//オーバーフロウするので1024だけ確保。配列1つなのでalloc message,1024でもいいけどsdim使う癖をつけた方がイイと思う。
sdim message,1024
//変数messageに複数行の文字列を突っ込む。{"から"}で囲むと複数行出来るって覚えとくと便利。
message={"
・戦略とは
長期的・全体的展望に立った闘争の準備・計画・運用の方法。
戦略の具体的遂行である戦術とは区別される。\n
・戦術とは
(1)個々の具体的な戦闘における戦闘力の使用法。普通、長期・広範の展望をもつ戦略の下位に属する。
(2)一定の目的を達成するためにとられる手段・方法
"}
//noteselでメモリノートパッド命令を使う変数に指定してnotemaxで行数を調べる。HSP3.0だとmax=noteinfo(0)
notesel message : notemax max
font"MS ゴシック",20,1 : mes"戦略と戦術の違い"
font"MS ゴシック",12
//repeat-loop間を無限ループ
repeat
stick key
//Enterキーonで、indexとmaxの値が違う場合に、変数addに行indexの文字列を突っ込む。変数addを出力し、indexに+1
//indexがmaxと同じ値になるということは最後の行まで出力したことになる。
//index++はindex+1と同じ意味。確か++の方が高速だったとか。気にする事ではないのでどっちでもいい。
if key = 32 : if index!max : noteget add,index : mes add : index++
wait 1
loop
bloadとかで突っ込むなどの応用も効く。
Enterを押すたびに次の行が表示されるようなアプリの完成。
どうよ>>12
Thx!!
とりあえずnote系の命令についてもう少し勉強してくるよ。
こういう物を見るとショート作品てのは
かなり難しい物だと実感するよ。
if at<0 mes "ノーダメージ" : goto *sentou
計算式でエラーが出るんだがどうスレばいいデすか？
if at<0 : mes "ノーダメージ" : goto *sentou
ifの次に:入れて命令してね。
at<0
０以下はノーダメージ
at<=0
ありがとう！
おまいらｲｲﾔｼだなぁ。
画像表示してキー入力で動かす。
ﾋｯｷｰｶﾞﾝｶﾞﾚ｡
今日と明日と用事があって出かける。
決して逃げるわけでは無いから宜しく。
ﾋｯｷｰが外に出るのか？という突っ込みは無しで。
クリスマスぐらいは外へ出るんだよ('A`)
逃げてないYO!!
画像表示から勉強してんだよﾊﾞｶﾔﾛ('A`)
今日にでも講座本買ってきまつorz
本買おうとも思ったが、金も無いしこのスレの趣旨がぶち壊しだ。
とりあえず画像の表示のさせ方は
picload "test.jpg"
stop
でおｋだな？
も少し調べてくるよ('A`)
;キー入力で動かすテスト
screen 0,320,320,0
cls 4
x=10:y=10:vx=1:vy=0:s=0
*main
stick key,0,1
if key=1:vx=-1:vy= 0
if key=4:vx= 1:vy= 0
if key=2:vx= 0:vy=-1
if key=8:vx= 0:vy= 1
x=x+vx:y=y+vy
color 255,255,255
boxf x*16,y*16,x*16+15,y*16+15
await 100
goto *main
スネークみたいな簡単なgameを作ろうと思う。
まだ不完全だがな('A`)
とりあえずgameとして問題なのは
・画面の端っこをはみ出す。
・点数表示が無い。
・自分にぶつかっても死なない
ぐらいだろうか。
もっと頑張ってくるよ！ヽ(｀д´）ノ
クイックスが作りたいのか
あ、ちなみにループはrepeat〜loopでやった方が良いよ。
サブルーチンのネストが一つ浮くだけだけど。
戻ってくるなら戻ってこい。
ﾋｯｷｰ、お前の根性はドシタドシタ。
*saisho
wx=200:wy=200
screen 0,wx,wy,0:cls
x=wx/2:y=wy/2:ix=0:iy=1:tensu=0
*main
x+=ix:y+=iy
pget x,y
if rval=0:goto *owari
if (x<0)|(x>wx):goto *owari
if (y<0)|(y>wy):goto *owari
pset x,y
stick key
if key ! 0 : gosub *check
wait 1
goto *main
*check
if key=1:ix=-1:iy=0
if key=2:iy=-1:ix=0
if key=4:ix=1:iy=0
if key=8:iy=1:ix=0
tensu++
return
*owari
mes "GAME OVER スコア"+tensu+"点"
button "RESTART",*saisho
stop
今の状況説明させてくれ。うざいと思う香具師はスルーで。
ﾌﾘｰｽｸｰﾙに通うことになった。というか今現在通ってる。
クリスマスにﾌﾘｰｽｸｰﾙのｲﾍﾞﾝﾄに出かけたわけだ。
皆いい香具師で、そこに通うことになった。
正月から行き始めて、今必死になって学力の遅れを取り戻そうとしてるとこ。
電車に乗って、何時間か勉強をする。当たり前なんだけど、
引き篭もってた漏れにとってかなりきつくて。
今までこのスレを覗くどころか、PCをつける余裕さえなかった。
帰ったら即寝る、状態。今ようやっと余裕がでてきて、状況を書き込んだ次第。
やる気はまだあるんで、書き込む速度は落ちるだろうが、
これからも宜しく頼むおまいら。
引きこもってなかった人間でも新しいことを複数始めようとするとｷﾂｲ。
ﾌﾘｰｽｸｰﾙの生活に慣れてから始めては？
３ヶ月もあれば慣れるじゃろ。
同じくヒッキ-から抜け出した者です。
なんか応援したくなった。
ゆっくり頑張って。
見てたら作りたくなったんでHSP速攻落としてきて、俺なりに作ってみた。戦術について書くの忘れた。
;Msg_Next_001
;**********************************変数定義START*******************************
int Int_Msg_No : Int_Msg_No = 0 ;メッセージ番号
;**********************************変数定義END*********************************
;**********************************本処理START*********************************
;メッセージ送り処理
goto *Mes_Int_Msg_No_Cln ;変数初期化
*Main_Msg_Next
mes "さあはじまるよ"
goto *Ent_Msg_Next
*Main_Sam_Msg_1
if Int_Msg_No <= 1 : mes "といってもねぇ" : goto *Ent_Msg_Next
if Int_Msg_No <= 2 : mes "ラベル名に変数つかえたら" : goto *Ent_Msg_Next
if Int_Msg_No <=3 : mes "もっとすっきりするんだがな" : goto *Ent_Msg_Next
stop
;**********************************本処理END************************************
;**********************************メソッドSTART********************************
;メッセージENTER送り
*Ent_Msg_Next
stick key
if key&32 : Int_Msg_No += 1 :goto *Main_Sam_Msg_1
wait 1
goto Ent_Msg_Next
;メッセージ番号初期化
*Mes_Int_Msg_No_Cln
Int_Msg_No = 0
goto Main_Msg_Next
;**********************************メソッドEND**********************************
;Msg_Next_001
;**********************************変数定義START*******************************
int Int_Msg_No : Int_Msg_No = 0 ;メッセージ番号
;**********************************変数定義END*********************************
;**********************************本処理START*********************************
;メッセージ送り処理
;goto *Mes_Int_Msg_No_Cln ;変数初期化
;*Main_Msg_Next
mes "さあはじまるよ"
goto *Mes_Ent_Msg_Next
*Main_Msg_Print
if Int_Msg_No <= 1 : mes "といってもねぇ" : goto *Mes_Ent_Msg_Next
if Int_Msg_No <= 2 : mes "ラベル名に変数つかえたら" : goto *Mes_Ent_Msg_Next
if Int_Msg_No <=3 : mes "もっとすっきりするんだがな" : goto *Mes_Ent_Msg_Next
stop
;**********************************本処理END************************************
;**********************************メソッドSTART********************************
;メッセージENTER送り
*Mes_Ent_Msg_Next
stick key
if key&32 : Int_Msg_No += 1 :goto *Main_Msg_Print
wait 1
goto *Mes_Ent_Msg_Next
;メッセージ番号初期化
;*Mes_Int_Msg_No_Cln
;Int_Msg_No = 0
;goto *Main_Msg_Next
;**********************************メソッドEND**********************************
変数初期化に飛ぶと、ラベルが無いみたいなエラーがでるからコメントにしといた。
なぜだ！？エディター探そ・・・
このへんに
↓
goto *Mes_Int_Msg_No_Cln ;変数初期化
ほんの少しずつだけれど
多少慣れてきたような気がしないでもない。
それでもまだ通うだけで精一杯なんだけども。
今の気分はなんだか世界が広まった感でいっぱい。
ギターに手をだしたり。絵を描いたり。
もちろん勉強もなんだけれども。
引き篭もってたせいで、これだけ自分をダメにしてたんだなぁ、と実感。
復帰はまだもうしばらくかかりそうです
短いのならほんの数行で作れるわけであって・・・
ただHSPで作れるのかなと・・
俺がHSPでSLGを作れるようになるまで頑張ってみるか
スクウェアマップを一列づつ1/2マスだけずらせばよい
やっぱりインデックスを持って、HP.index. MP.index, ATK.index, DEF.index
これしかない？どうにかしてまとめらんないかな。
print"鬱だ死のう"
goto *main
まずこれ書け
アクションとかSTGならHSPだと他の言語に比べてだいぶ楽できるんだけどね･･･
SLGだと敵AIの確立やらユニット管理やらで、反ってHSPのが難しくなっちゃうかも。
前ちょっと触ろうとしてそれが無さそうなので
ツカエネーと思ってやめたような記憶が…
それないのってかなりキツいよねー
クラスがほしいよﾏﾏｿ
waitはいらないだろ・・・・・
きれいな顔してるだろ。
死んでるんだぜ、それで…嘘みたいだろ。
たいした怪我もないのに、ただ、ちょっと打ち所が悪かっただけで
動かないんだぜ。な、嘘みたいだろ。
文字列型配列に全部まとめて押し込め
ｽﾃｰﾀｽ０\nｽﾃｰﾀｽ１\n…
取り出すのとかがめんどうか。
ならば、10000倍とかして足せ。…オーバーフローするな。
あれはHSPで作ってたと思ったが
あれはメイン・戦闘・イベントをそれぞれ別個に作ってたが
なら参考にはならんな・・・
カプセルモンスターっぽいSLGが作りたくなったので
挑戦してみる。
↓のようなゲームが作れればいいが、初心者ではｱﾘｴﾅｲ
のでｼｮﾎﾞｲ規模で作ってみる。
ttp://www.konami.jp/gs/game/yugioh_cmc/
そしていつかは3Dに……
ttp://www7a.biglobe.ne.jp/~PutiMonster/index.html
がんばれ。
しかし、いくつプロジェクトの失敗を見てきただろう。
なので、ちょっとしたものでいいから完成させてくれ。
知識も無し。HSPの経験も無し。金も無し。
あるのは時間とやる気だけのﾋｯｷｰな漏れが監督な。
監督やるのは結構だがプログラマとかも兼任するんだよね？当然
/ ￣￣￣￣￣￣￣￣￣￣ /
/ このスレは無事に /
/ 終了いたしました /
/ ありがとうございました /
/ /
/ モララーより /
/￣￣￣￣￣￣￣￣￣￣￣/
∧＿∧ / /∧＿∧
（ ･∀･） / /（･∀･ ）
（ ）つ ⊂（ ）
｜ ｜ ｜ ｜ ｜ ｜
（_＿）＿） （＿（＿_）
HSPでしょぼいシミュレーションゲーム作ってみるわ。
頑張ろうぜ…俺一人で。
これは禁句
