Commit: 2 - yarhalla_no_omoti (svn)

ヤルハラのおもち

Commit MetaInfo

• Revision: 2 (tree)
• Time: 2013-12-15 15:37:52
• Author: syun77

Log Message

オリジナル版のソースコードを追加

Change Summary

• added: original/mikan.cpp

Incremental Difference

--- original/mikan.cpp	(nonexistent)
+++ original/mikan.cpp	(revision 2)
@@ -0,0 +1,261 @@
+//初期化・定義****************************************
+
+//画面初期化と部品ロード
+	// 画面サイズ設定
+	scr_width = 400
+	scr_height = 300
+
+	// 画面作成
+	screen 0,scr_width,scr_height
+	// キャプション設定
+	title "ヤルハラのおもち"
+	buffer 2,scr_width,scr_height //合成用バッファ
+	buffer 3,scr_width,scr_height //背景
+	picload "bg.bmp"
+	buffer 4 //メイン部品
+	picload "mikan.bmp"
+
+//パーツ定義
+	chrpattern = 12
+	psize_x = 64
+	psize_y = 32
+	// パーツ配列定義
+	dim parts_x,chrpattern // 座標(X)
+	dim parts_y,chrpattern // 座標(Y)
+	dim parts_probability,chrpattern // 出現確率
+//キャラクタ配置テーブル
+	parts_x =  0, 64,128,192,  0, 64,128,192,  0, 64,128,192
+	parts_y =  0,  0,  0,  0, 32, 32, 32, 32, 64, 64, 64, 64
+//キャラクタ生起確率
+	parts_probability=18,8,3,1, 25,3,1,1, 25,3,1,1
+	probability_max=90
+
+//遷移 (0:タイトル画面,1:ゲーム,2:ゲームオーバー)
+	scene = 0
+
+//スコア　セーブはまだ
+	score = 0
+
+//変数初期化
+	parts_now = 0
+	parts_pos_x = 0
+	speed = 10
+	mode = 0
+	parts_spr = 0
+	// 配置した製品の管理
+	dim product,3
+	product = -1,-1,-1 //製品　下・中・上の順
+	randomize
+
+// BGM読み込み
+mmload "omoti_lofi.wav",0,1
+
+
+*titlesc
+//タイトル
+gsel 0
+repeat
+	cls 4
+	color 255,255,255
+	mes "ヤルハラのおもち"
+	mes "キー操作"
+	mes "→：右へ"
+	mes "↓：下へ"
+	wait 10
+	stick key
+	if (key != 0) {
+		// BGM再生開始
+		mmplay 0
+		// メインゲームへ
+		goto *gameloop
+	}
+loop
+
+*gameover
+//ゲームオーバー
+gsel 0
+mmstop
+repeat
+	cls 4
+	color 255,255,255
+	mes "ゲームオーバー"
+	wait 10
+	stick key
+	if (key != 0) {
+		// 失敗フラグを初期化
+		error_product = 0
+		// スコアを初期化
+		score = 0
+		// タイトル画面へ
+		goto *titlesc
+	}
+loop
+
+
+
+//メインループ
+*gameloop
+
+repeat
+	// スコア表示
+	title "ヤルハラのおもち　SCORE:"+score+"円"
+	await 1
+	// 背景描画
+	gosub *draw_bg
+
+	switch mode
+	case 0
+		// 部品移動中
+		parts_pos_x += speed
+		if (parts_pos_x > scr_width/2-32) {
+			// 移動完了・プレイヤー入力へ
+			mode = 1
+		}
+	swbreak
+	
+	case 1
+		stick key,39
+		if key&4 {
+			// 部品を捨てる
+			mode = 2
+		}
+		if key&8 {
+			// 
+			parts_pos_x=0
+			mode = 0
+			// 部品を配置する
+			gosub *put_product
+			// 次の部品を取り出す
+			gosub *partsmake
+		}
+	swbreak
+
+	case 2
+		// 画面外に部品を移動させる
+		parts_pos_x += speed
+		if (parts_pos_x > scr_width) {
+			// 画面外まで移動した
+			parts_pos_x=0
+			mode = 0
+			// 次の部品を取り出す
+			gosub *partsmake
+		}
+	swbreak
+	swend
+
+	if error_product = 1 : break // 失敗したら処理を中断
+
+	// 部品の座標を設定
+	pos parts_pos_x,50
+	
+	// パーツを設定
+	parts_spr = parts_now
+	gosub *draw_chr
+	gosub *draw_product
+	gosub *maindraw
+loop
+
+if error_product = 1 : goto *gameover // ゲームオーバー処理へ
+
+// -----------------------------------------------
+// 部品の配置
+*put_product
+	if ( product(2) == -1 ) { putpos = 2 } // 一番上が空いている
+	if ( product(1) == -1 ) { putpos = 1 } // 真ん中が空いている
+	if ( product(0) == -1 ) { putpos = 0 } // 一番下が空いている
+
+	// 現在の部品を製品として配置
+	product(putpos) = parts_now
+
+	if ( product(2) > -1 ) {
+
+		// 一番上に部品を配置した
+//		gosub *draw_chr
+		gosub *draw_product
+		gosub *maindraw
+		wait 50
+
+		// 失敗判定
+		gosub *scan_product
+
+		// 製品を初期化
+		product = -1,-1,-1
+	}
+return
+
+*scan_product
+	// 失敗フラグを初期化
+	error_product = 0
+
+	if product(0)!8 : error_product = 1 // 一番下がおモチでない
+	if product(1)!4 : error_product = 1 // 真ん中がおモチでない
+	if product(2)=2 : error_product = 1 // カビみかんを選んだ
+	if product(2)=3 : error_product = 1 // タコを選んだ
+	if error_product = 0 : score += 3 // 正しく作れたらスコアアップ
+return
+
+
+*draw_product
+	if ( product(0) > -1 ) {
+		// 一番下の製品を描画
+		pos scr_width/2-32,200
+		parts_spr = product(0)
+		gosub *draw_chr
+	}
+	if ( product(1) > -1 ) {
+		// 真ん中の製品を描画
+		pos scr_width/2-32,175
+		parts_spr = product(1)
+		gosub *draw_chr
+	}
+	if ( product(2) > -1 ) {
+		// 一番上の製品を描画
+		pos scr_width/2-32,150
+		parts_spr = product(2)
+		gosub *draw_chr
+	}
+
+	return
+
+
+
+//ゲームシステム関連****************************************
+*partsmake
+	// 乱数取得
+	dice=rnd(probability_max)
+	protemp=0
+
+	repeat chrpattern
+		protemp+=parts_probability(cnt)
+		if (dice<protemp) {
+			// 部品を引き当てたので、部品IDを設定
+			parts_now = cnt
+			break
+		}
+	loop
+return
+
+
+//描画モジュール****************************************
+
+*maindraw
+
+	//バッファのコピー
+	gsel 0 : pos 0,0 : gmode 0 //通常描画
+	gcopy 2 , 0 , 0 , scr_width , scr_height
+	return
+
+*draw_bg
+	//背景コピー
+	gsel 2 : pos 0,0 : gmode 0 //通常描画
+	gcopy 3 , 0 , 0 , scr_width , scr_height
+	return
+
+*draw_chr
+	//キャラクタコピー
+	gsel 2 : gmode 2 //透明色付きコピー
+	gcopy 4 , parts_x(parts_spr) , parts_y(parts_spr) , psize_x , psize_y
+	return
+
+
+