エラーが発生しています。

newlabを使ったサンプルコード その2

by mjhd, at 2017年12月 2日 20:48:05

powered by hsp3dish.js / OpenHSP

コメント
説明

newlabの使い道を頑張って考えてみる - Qiitaより。

#include "hsp3dish.as"

caption = "" // ステージ名
bgcolor = 0  // 背景色

// レベル1のステージ読み込み処理を呼び出す
gosub *level1

goto *main

*level1 
    caption = "LEVEL1"
    bgcolor = 40
    // レベル1のステージ読み込み処理
    newlab nextlevel, 1: return

    caption = "LEVEL2"
    bgcolor = 80
    // レベル2のステージ読み込み処理
    newlab nextlevel, 1: return

    caption = "LEVEL3"
    bgcolor = 120
    // レベル3のステージ読み込み処理
    newlab nextlevel, 1: return

    caption = "LEVEL4"
    bgcolor = 160
    // レベル4のステージ読み込み処理
    newlab nextlevel, 1: return

    caption = "CLEAR"
    bgcolor = 191
stop

*main

    redraw 0

    // 背景塗りつぶし
    hsvcolor bgcolor, 200, 50
    boxf

    // 文字表示
    hsvcolor bgcolor, 200, 230
    pos 100, 100
    mes "現在のレベル:"+caption

    // クリックされたら次のステージへ
    stick key
    if (key & 256) {
        gosub nextlevel
    }

    redraw 1

    await 33

goto *main

作成者
icon

mjhd

ここはユーザの紹介文

詳しく...


関連プログラム