プログラムのコーディング - ゲーム（仮）

---

第2波

---

;value300
;変数300以降はグローバル変数
*define
	caption "ゲーム（仮）"				;	タイトル
	versionstr "ゲーム（仮）Pre.1","(C)2009 雪猫堂"	;	バージョン情報

	globalon		;	グローバル変数有効
	kidokuskip		;	既読スキップ有効
	transmode alpha		;	画像透過はαチャンネル
	clickstr "』」。！？",2	;	クリック待ち文字
	defaultspeed 10,25,50	;	早い/通常/遅い 設定の文字速度msec
	maxkaisoupage 10	;	回想できるページ数
	humanz 100		;	スプライト100以降はテキストより下
	rmenu "選択肢まで進む",skip,"ソフトリセット",resetdlg,"ロード",load,"回想",lookback,"ビューモード",windowerase
	automode
	automode_time 2000

	effect	2,2,700		;	No.2は右→左シャッターを0.7secで
	effect	3,10,1500	;	No.3はフェードインを1.5secで

	;キャラクタ画像
	;n/ノーマル,k/喜,d/怒,i/哀,r/楽,s/シリアス,g/ギャグ顔,t/照れ
	stralias yuto_n,"chr/yuto_n.bmp"
	stralias crt_blc,":c;dummy_black.bmp"

	;メニューセット
	resetmenu
	insertmenu "終了(&X)",END
	insertmenu "バージョン情報(&V)",VERSION
	insertmenu "リセット(&R)",RESET
	insertmenu "オート開始(&A)",AUTO
	insertmenu "選択肢までスキップ(&S)",SKIP
	insertmenu "各種設定(&C)",SUB
	insertmenu "ボリューム設定(&V)",DWAVEVOLUME,1
	insertmenu "スキップ設定(&S)",SUB,1
	insertmenu "全て",KIDOKUOFF,2
	insertmenu "既読のみ",KIDOKUON,2
	insertmenu "フォント(&F)",FONT,1
	insertmenu "テキスト速度(&T)",SUB,1
	insertmenu "瞬間表示",TEXTSLOW,2
	insertmenu "普通",TEXTMIDDLE,2
	insertmenu "早い",TEXTFAST,2
	insertmenu "画面(&W)",SUB,1
	insertmenu "フルスクリーン",FULL,2
	insertmenu "ウィンドウ",WINDOW,2

	;主要サブルーチン
	;window_novel	全画面文章表示モード
	;window_talk	セリフ調表示モード
	;softSave	自前セーブ画面

	;試作段階使用変数

	;必要と思われるステータス
	;Lv,atk,def,magicatk?,magicdef?,speed,luc,lovelity
	;1 ,2  ,3  ,4        ,5        ,6    ,7  ,8           ,9,10
	;x6キャラ

	;texting rule
	;\ クリック待ち＋改ページ
	;@ クリック待ち
	;_ クリック待ちしない
	;!s change text speed by msec
	;!w wait text by msec
	;#NNNNNN change color
	;文字数
	;ウィンドウ＝novelモード→31文字20行
	;ウィンドウ＝talk モード→30文字 7行

	;テンプレ
	;setwindow 文字左上座標Ｘ,左上Y,横の文字数,縦,文字サイズ横,縦,文字間,行間,表示速度,太字フラグ0|1,影フラグ0|1,画像,色#NNNNNN,ウィンドウ左上座標Ｘ,Y,左下X,Y
	;lsp スプライト番号,画像|スプライト文字列,左上X,Y,不透過度
	;spbtn スプライト番号,ボタン番号

game
*start
	gosub *window_novel
	bg "test_bg_02.bmp",2
	wait 300
	bg #000000,2
	btndef clear
	lsp 15,":s#808080#C0C0C0はじめから",240,280
	lsp 16,":s#808080#C0C0C0つづきから",240,320
	vsp 15,1
	vsp 16,1
	spbtn 15,1
	spbtn 16,2
	bg "test_bg_01.bmp",0
	print 3
	btnwait %0
	if %0 ==-1 goto *loadLoop
	if %0 == 0 goto *loadLoop
	if %0 == 1 goto *gameStart
		lsp 1,":s#FFFFFFＤａｔａＬｏａｄ",400,50
		lsp 2,crt_blc,0,0
		systemcall load
		csp 1
		csp 2
		print 1
	goto *loadLoop
*loadLoop
	btndef clear
	lsp 15,":s#808080#C0C0C0はじめから",240,280
	lsp 16,":s#808080#C0C0C0つづきから",240,320
	vsp 15,1
	vsp 16,1
	spbtn 15,1
	spbtn 16,2
	bg "test_bg_01.bmp",0
	print 1
	btnwait %0
	if %0 ==-1 goto *loadLoop
	if %0 == 0 goto *loadLoop
	if %0 == 1 goto *gameStart
		lsp 1,":s#FFFFFFＤａｔａＬｏａｄ",400,50
		lsp 2,crt_blc,0,0
		systemcall load
		csp 1
		csp 2
		print 1
	goto *loadLoop
*gameStart
	csp -1
	bg #000000,0
	print 3
	bg "test_bg_01.bmp",0
lsp 5,":a;test_h_01.bmp",0,160
vsp 5,1
	print 3
	gosub *window_talk
	　こういう感じで進むのね。
*crash
end
	;	サブルーチン
*window_novel
	setwindow 38,46,31,20,18,18,0,2,20,1,1,#333333,30,30,610,460
	textspeeddefault
return;-----
*window_talk
	setwindow 38,316,30,7,18,18,0,2,20,1,1,#333333,30,310,610,460
	textspeeddefault
return;-----
*softSave
	lsp 1,":s#FFFFFFＤａｔａＳａｖｅ",50,50
	lsp 2,":c;dummy_black.bmp",0,0
	systemcall save
	csp 1
	csp 2
return;-----

---

• とりあえずロゴ、ロード画面、他作って見栄えのする程度の起動はできるかしら？ -- ゆ (2009-03-30 23:35:07)