HSPでSLGが作れるようになるまで頑張るスレ

[過去ﾛｸﾞ] HSPでSLGが作れるようになるまで頑張るスレ (93ﾚｽ)
上下前次 1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

21: 17 ◆ECMiarG4e2  [sage] 04/12/23 09:57:14 ID:59LXS02V

>>20
解説付けたけど読みにくいしワケワカランかも(;´Д`)

//変数の値を設定しておく。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

http://echo.5ch.net/test/read.cgi/gamedev/1103618349/21

48: 名前は開発中のものです。 [sage] 05/03/06 15:17:35 ID:4iJFfu3u

>>17
見てたら作りたくなったんで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**********************************

http://echo.5ch.net/test/read.cgi/gamedev/1103618349/48

49: 48 [sage] 05/03/06 15:47:55 ID:4iJFfu3u

すまん動かなかった。ちと修正するわー
;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**********************************

変数初期化に飛ぶと、ラベルが無いみたいなエラーがでるからコメントにしといた。
なぜだ！？エディター探そ・・・

http://echo.5ch.net/test/read.cgi/gamedev/1103618349/49

上下前次 1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.009s