アドベンチャーエンジン

アドベンチャーエンジン †

[編集]

アドベンチャーエンジン

↑

目的 †

[編集]

シナリオファイルを読み込み、それに対応する処理を結びつけることで、エンジンを実現します。
開発するエンジンは「アドベンチャーエンジン」で、以下の処理を最低限含みたいと考えています。

構文解析モジュール　　　（テキストデータを処理に対応させる）
文字解析モジュール　　　（日本語を表示する際に使用する）
暗号化・複合化モジュール（外部ファイルを外部から遠ざける）

開発と同時に、これらのことを学べたらヨイなぁ、とも考えています。

↑

プロジェクト開発分室 †

[編集]

ページ名	内容
アドベンチャーエンジン	このページです。アドベンチャーエンジンの開発を行なっています。
アドベンチャーエンジン/シナリオスクリプト	シナリオスクリプトの書式や仕様などについて。
アドベンチャーエンジン/モジュール開発室	アドベンチャーエンジンで使用するモジュールの開発を行なっています。命令の取得や小文字変換など。
アドベンチャーエンジン/変数・演算	変数および演算処理について。
アドベンチャーエンジン/参考資料	AVGエンジン開発にあたっての参考資料など。
アドベンチャーエンジン/進捗状況	予定および完成した部分の履歴など

↑

環境 †

[編集]

HSP3.0 (拡張マクロ使用)
プラグイン等は一切使用せず、標準命令だけで実装する。
(ユーザー定義系や、HSPがサポートする全てのWindows上で動作するAPIまたはCOMを含む。)

○　「起動時にメインウィンドゥを非表示にする」
×　「起動時のディレクトリ移動を無効にする」

↑

プログラムの流れ †

[編集]

<メインルーチン>

main.hsp 内では、必要最小限のサイズに抑えるのがいいと思います。
基本的な処理や命令は、外部ファイルで定義するようにします☆

<シナリオ>

シナリオスクリプトを読み込み、変数 scenario に代入します。
scenario の内容を１バイト毎に読み込み、以下の３つの状態に振り分けます。

コメント/ラベル
無視してメインに戻る。
命令
lbl_cmdprcs で命令郡に対応させる。マッチしない場合は、改行する。
終了後はメインに戻る。
文字列
上記２点に当てはまらなかった場合、文字列として表示し、メインに戻る。

↑

HSPコーディングルール †

[編集]

書式を統一したほうが、みんなが読みやすいんじゃないでしょうか（＾＾？
というわけで、プログラムを書くときの簡単なルールです☆

インデント
- インデントは半角空白'４'つ
- ラベルや特別な場合はインデント無し。ネスト１つにつき１インデント。それ以外は、適当にお願いします。
名前
- 一時的な変数はエルとオー以外の一文字とする( 例：x , y , i )
- ユーザー定義系やAPI／COMはキャメルケース*1とする( 例：LowerCase , CreateWindow )
- マクロは大文字とする( 例：FILE_SIZE , WINX )
- 標準命令は小文字とする( 例：gcopy , mes )

空白

２つめ以降の引数は頭に空白を設ける

  1
  2

pos x, y ; OK
pos x,y  ; NG

代入時には=の前後に空白を設ける

  1
  2

n = WINX ; OK
n=WINX   ; NG

関数名と括弧の間には空白を置かない

  1
  2

n = strlen(string)  ; OK
n = strlen (string) ; NG

式と括弧

単項式

  1
  2

n = double(i)   ; 良
n = double( i ) ; 優

多項式

  1
  2
  3

n = (a+b)*i       ; 可
n = ( a+b )*i     ; 良
n = ( a + b ) * i ; 優

モジュール
- ファイル名は接頭辞mdl_のあとにモジュール名をくっつける
- モジュール名を付ける時は接頭辞MDL_のあとにモジュール名をくっつける
ラベル
- ラベル名は接頭辞*lbl_のあとにラベル名をくっつける

↑

プロジェクトファイル一覧 †

[編集]

エンジンの本体となるメインプログラムです。
各自スクリプトを更新したり追加したら、その都度、表を最新の内容に更新し、テストされる方が迷わないようお願いします。
更新内容は変更点記入欄のほうを見てください。
（開発の為、処理毎にファイル分けしてあります。ファイル数が多いですが、ご了承ください）

一括ダウンロード（Ver.2006.12.30.0）
必ず各自でウイルスチェックをして下さい。
ウィルス対策の為exeファイルは入れていません。もし入っていても絶対に実行しないで下さい。
avg_061230.zip
ファイル数が多いので、一括ダウンロードできるよう用意しました。バージョンは作成した日付となっています。
下記表よりファイルが更新された場合は、更新されたファイルのみを個別ダウンロードして上書きしてご利用ください。
（管理用お知らせ　…　「一括ダウンロード」用ファイルはダウンロードの手間を軽減するためのものなので、各ファイル更新ごとに毎回作成する必要はありません。ダウンロードしなければいけないファイルがある程度増えてきたころが、作成のしごろです。）

ファイル名		説明	Ver.	最終更新日
本体スクリプト( .hsp)	main.hsp	メインルーチン	48	2006-12-30
	lbl_command.hsp	命令解析・処理	48	2006-12-30
	lbl_message.hsp	文字解析・処理	48	2006-12-30
モジュールスクリプト( .as)	win32api.as	-Win32API -WindowsMessage?	48	2006-12-30
	mdl_text.as	文字解析・処理	48	2006-12-30
	mdl_mm.as	画像/音操作	48	2006-12-30
	mdl_formula.as	式解析・処理	48	2006-12-30
サンプルシナリオ	scenario.txt	エンジン紹介用	48	2006-12-30
	back1.jpg	サンプル背景画像．１	---
	back2.jpg	サンプル背景画像．２	---
	back3.jpg	サンプル背景画像．３	---
	frame1.jpg	サンプルフレーム．１	---
	frame2.jpg	サンプルフレーム．２	---
	fore1.gif	サンプル前景画像．１	---
	fore2.gif	サンプル前景画像．２	---
	music1.mid	サンプル音楽	---
	sound1.wav	サンプル効果音	---
エディター	editor.hsp	おもちゃのエディタ	30	2006-11-03

エンジンとはどういうものかを試してもらうために、サンプルを用意しました。
全てのファイルを同じディレクトリに入れて、main.hspを実行してください。

（シナリオを差し替えるときは、main.hsp の一番最初に定義してある、ファイル名を変更してください（＾＾／）

サンプルシナリオの実行画面です。

↑

協力 †

[編集]

osakana さん
GENKI? さん
naznyark? さん
kz3 さん
gon? さん

七次元? さん
とほ? さん

グエスト? さん
guest? さん

↑

エディター †

[編集]

miniEditor

（日本語ではエディタと書くほうが正しいんでしょうケド）
ず～っとエディターを作りたいと思ってました。
しかし色分けっていうのは難しいデスよね・・・やっぱり。
それならＣで作ってみようと考えました。
けど色分けはエディットでもリッチでも難しい・・・。
それならコントロール自体を作ってみようかなぁ？
・・・一年くらいかかりそうな予感
ん？それならＨＳＰでも作れたりするんじゃ？？

ってことで、作ってみました。
制作期間、一時間デス（笑）何もできないですが、一応、動きます（爆）
ver.29 から対応デス。 main.hspと同じディレクトリに入れて実行してください（＾＾

editor.hsp

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|

#uselib "comctl32.dll"
    // ステータス
    #func global CreateStatusWindow     "CreateStatusWindow"          int , int , int , int
 
#uselib "user32.dll"
    // タイマー
    #func global SetTimer               "SetTimer"                     int, int, int, int
    #func global KillTimer              "KillTimer"                    int, int
    // メッセージ
    #func global SendMessage            "SendMessageA"                 int, int, int, int
    // メニュー
    #func global CreateMenu             "CreateMenu"
    #func global AppendMenu             "AppendMenuA"                  int, int, int, int
    #func global SetMenu                "SetMenu"                      int, int
    #func global DrawMenuBar            "DrawMenuBar"                  int
 
#module
  // キャレット位置から、ｘ座標を求める
  #defcfunc CarretPosX int p1
      return ( 20 + ( p1 * 8 ) )
  // キャレット位置から、ｙ座標を求める
  #defcfunc CarretPosY int p1
      return ( 20 + ( p1 * 18 ) )
  // ルーラーを描く
  #deffunc DrawRuler
      redraw 2
          color
          boxf
          // メインライン
          color 128, 128, 128
          line  0, 18, 640,  18
          line 15,  0,  15, 480
          // 行番号
          pos 0 ,20
          repeat 26
              pos 0,
            mes strf("%2d", cnt+1 )
          loop
          // 列番号
          pos 5, 0
          repeat 77
              if ((cnt+1)\10) = 0 :color 96 :else :color 128 , 128, 128
              pos GINFO_CX+GINFO_MESX, 0
              mes strf("%1d", (cnt+1)\10 )
          loop
      redraw 1
      return
  // 画面を描く
  #deffunc DrawScreen
      redraw 2
          // 背景色
          color
          boxf 16,20, 640, 480
          // 横グリッド
          color 64, 32, 32
          repeat 32, 1
              line 15, 19+cnt*18,640, 19+cnt*18
          loop
          // 縦グリッド
          repeat 78,1
              line 12+cnt*8, 18, 12+cnt*8, 480
          loop
          color 255, 255, 255
          // 文字を描く
          s = ""
          num_cmd = 0         // 命令数
          repeat numline@+1
              cnt_ = cnt
              f = 0
              repeat strlen ( text@( cnt_ ) )
                  ltr = peek( text@( cnt_ ), cnt )
                  if f != -1 {
                      SWITCH ( ltr )
                          CASE '\\'
                              if s != "\\" :color 160 :else { color 255, 255,255 :f = 1 }
                              SWBREAK
                          CASE '*'
                              if s != "\\" { color 128, 128, 255 :f = -1 } else { color 255,255,255 :f = 1 }
                              SWBREAK
                          CASE '/'
                              if s != "\\" { color 128, 128, 128 :f = -1 } else { color 255, 255,255 :f = 1 }
                              SWBREAK
                          CASE '['
                              num_cmd ++
                          CASE ']'
                          CASE '{'
                          CASE '}'
                              if s != "\\" { color 255 } else { 
                                  color 255, 255,255 :f = 1
                                  if ltr = '[' :num_cmd --
                              }
                              SWBREAK
                          DEFAULT
                              color 255, 255, 255
                              SWBREAK
                      SWEND
                  }
                  pos CarretPosX(cnt), CarretPosY(cnt_)
                  poke s, 0, ltr
                  mes s
                  if f=1 :s = "" :f = 0
              loop
          loop
      redraw 1
      st = "命令数　：　" + num_cmd
      SendMessage hstatus@,0x0401,0,varptr(st)
      return
#global
    screen 0,,,2
    // ウィンドウ初期化
    buffer 10                 // 保存用バッファ
    screen 11, 640, 519, 2    // メインスクリーン
 
    // テキストバッファ
    sdim text, 96,32
 
    // ファイル名
    loadfile = "scenario_.txt"
 
    // キャレット線の現在位置
    carret_cx = 0
    carret_cy = 0
    numline = -1
 
    // メニューバー
    CreateMenu
    hmenu = stat
    s = "Open" :AppendMenu hmenu,0,40,varptr(s)
    s = "Save" :AppendMenu hmenu,0,10,varptr(s)
    s = "Load" :AppendMenu hmenu,0,20,varptr(s)
    s = "Exit" :AppendMenu hmenu,0,30,varptr(s)
    SetMenu hwnd, hmenu
    DrawMenuBar hwnd
 
    // ステータスバー設定
    String = ""
    CreateStatusWindow 0x50000803,varptr(String),hwnd,0
    hstatus = stat
    a1 = ""
    SendMessage stshwnd,0x0404,1,varptr(a1)
 
    gosub *lbl__set
 
stop
 
*lbl__set
    // 画面を描く
    DrawRuler
    DrawScreen
 
    numline ++
 
    // 現在の設定をコピー
    buffer 10
        gcopy 11, 0, 0, 640, 480
    gsel 11, 1
 
    // タイマーＯＮ
    SetTimer hwnd, 1, 500, 0
 
    onexit goto *lbl__exit
    oncmd gosub *lbl__0x0100, 0x0100    // WM_KEYDOWN
    oncmd gosub *lbl__0x0102, 0x0102    // WM_CAHR
    oncmd gosub *lbl__0x0111, 0x0111    // WM_COMMAND
    oncmd gosub *lbl__0x0113, 0x0113    // WM_TIMER
    return
 
//WM_KEYDOWN
*lbl__0x0100
    x = carret_cx
    y = carret_cy
    // キャレットを消す
    carret = 0
    gosub *lbl__0x0113
 
    SWITCH ( wparam )
        // ↑
        CASE 0x26
            if carret_cy > 0 :carret_cy --
            SWBREAK
        // ↓
        CASE 0x28
            if carret_cy < 25 :carret_cy ++
            SWBREAK
        // ←
        CASE 0x25
            if carret_cx > 0 :carret_cx --
            SWBREAK
        // →
        CASE 0x27
            if carret_cx < 77 :carret_cx ++
            SWBREAK
    SWEND
 
    // ｘ軸に対し、有効字数を超えた
    if strlen(text(carret_cy)) < carret_cx :carret_cx = strlen(text(carret_cy))
    // ｙ軸に対し、有効行数を越えた
    if numline < carret_cy { carret_cy = numline :carret_cx = strlen( text( carret_cy ) ) }
 
    // 変更が無かった場合、キャレットを書く。
    if ( x != carret_cx ) | ( y != carret_cy ) { 
        carret = 1
        gosub *lbl__0x0113
    }
    return
 
// WM_CHAR
*lbl__0x0102
    SWITCH ( wparam )
        // Enter
        CASE 0x0D
            carret_cx = 0
            carret_cy ++
            numline ++
            SWBREAK
        // BackSpace
        CASE 0x08
            // 現在の文をコピー
            s = text(carret_cy)
            // キャレットが左端にいたら・・・
            if carret_cx == 0 {
                if carret_cy == 0 :SWBREAK
                carret_cy --
                carret_cx = strlen( text( carret_cy ) )
                numline --
                SWBREAK
            }
            // 文字を消す
            text(carret_cy) = strmid( s, 0, carret_cx-1 ) + strmid( s, carret_cx, strlen(s) )
            DrawScreen
            carret_cx --
            pos carret_cx, carret_cy
            SWBREAK
        DEFAULT
            // それ以外はそのまま表示＆記憶
            x = ""
            wpoke x, 0, ( wparam & 0xFF )
            text(carret_cy) = strmid( text(carret_cy), 0, carret_cx ) +x+ strmid( text(carret_cy), carret_cx, strlen(text(carret_cy)) )
            DrawScreen
            carret_cx ++
            SWBREAK
    SWEND
    color 255,255,255
    // 現在の画面をコピー
    buffer 10
        gcopy 11, 0, 0, 640, 480
    gsel 11
    return
 
// タイマー用（キャレット線描画）
*lbl__0x0113
    if carret = 1 {
        // キャレットを描く（描く前に保存画面にコピー）
        buffer 10
            gcopy 11, 0, 0, 640, 480
        gsel 11
        pos CarretPosX( carret_cx )-3, CarretPosY( carret_cy )
        color 255, 128
        mes "|"
        color 255, 255, 255
    } else {
        // キャレットを消す（保存画面を貼り付ける）
        pos 0, 0
        gcopy 10, 0, 0, 640 ,480
    }
    // フラグ反転
    carret ^= 1
    pos CarretPosX( carret_cx ), CarretPosY( carret_cy )
    return
 
*lbl__exit
    // 非表示にする
    screen wparam,,,2
    // エディター本体なら終了
    if wparam = 11 { KillTimer hwnd, 1 :end }
    // それ以外はエディターに戻す
    gsel 11
    gosub *lbl__set
    stop
 
// WM_COMMAND
*lbl__0x0111
 
    num = wparam
 
    if num == 30 { KillTimer hwnd, 1 :end }
    if num == 40 {
        // ファイル選択
        dialog "txt",16
        // 選択されなかった
        if stat = 0 :return
        // ファイル名を記憶
        loadfile = refstr
        // ロード用バッファ確保＆文字列初期化
        sdim txtSaveA, 32000
        sdim text, 96,32
        // 読み込み
        bload loadfile, txtSaveA
        // ファイル名を検出
        i = 0
        repeat
            j = instr( loadfile, i, "\\" )
            if j == -1 :break
            i += j+1
        loop
        loadfile = strmid( loadfile, i, strlen( loadfile ) )
        // 読み込んだバッファを表示用文字列に振り分ける
        n = 0
        repeat
            getstr text(cnt) ,txtSaveA, n
            n += strsize
            if n >= strlen( txtSaveA ) :break
        loop
        DrawScreen
        carret = 1
        return
    }
 
    // エディターの内容を保存する
 
    // バッファ確保
    s = ""
    sdim txtSaveA, 32000     // エディタ用
    sdim txtSaveB, 32000     // エンジン用
    // 内容を移す
    repeat numline+1
        txtSaveA += text( cnt ) + "\n"
    loop
 
    // エディタ用からエンジン用へ変換（まだ何もしてない）
    i = 0
    repeat strlen( txtSaveA )
        t = peek( txtSaveA, cnt )
        if t = NONE :continue
        poke txtSaveB, i, t
        i ++
    loop
 
    // 保存
    bsave "_"+loadfile, txtSaveA, strlen( txtSaveA )
    bsave loadfile, txtSaveB, strlen( txtSaveB )
    if num == 10 :dialog "file saved..."
 
    if num != 20 :return
 
    // タイマーの破棄
    KillTimer hwnd, 1
 
    #define global SCENARIO_FILE loadfile
    #include "main.hsp"
 
    stop

試しに、HELLO,WORLD[stop] と打って実行してみてください☆

感想）やっぱＨＳＰでは無理かも（笑）-- りさ

感想ありましたら、こちらへお願いシマス☆

↑

コメント †

[編集]

過去ログ

調べながらでここまで作ってみました☆ ラベルを使うとオカシクなるんですが、どうすればいいんでしょう（＾＾？ -- りさ 2006-10-10 (火) 10:18:52
wikiにHSPのソースを直接貼るとき(アップロードでないとき)は行頭に*があると、HSPのラベルでなく、wikiの見出し扱いされてしまうので、スペースなどを入れる必要があります～。(これ直ったとか言ってなかったっけ...) -- kz3 2006-10-10 (火) 10:38:27
ありがとございます～♪　半角空白を入れてみたら、ちゃんとページが形成されました☆ -- りさ 2006-10-10 (火) 10:49:57
簡単なシナリオを再生できるようになりました。つかれたぁ～☆ -- りさ 2006-10-10 (火) 16:16:22
HTMLのimgやaなどの種類も分かればいいとのことなので、構文解析の方のスクリプトを更新しておきました -- 男性Ａ? 2006-10-10 (火) 16:23:54
同時になっちゃいましたネ。main.hspを同じくimg等を取得できるようにしてみました☆　まなさんのモジュールのが便利かもです（＾＾ -- りさ 2006-10-10 (火) 16:39:05
勝手に少し編集しちゃいました（＾＾；編集したのはこっちに載せますネ　>まなさん -- りさ 2006-10-10 (火) 17:20:44
いえいえ、どんどんやっちゃってください。 -- まな(男性Ａ)? 2006-10-10 (火) 21:06:57
形に成って来てますね。 -- osakana 2006-10-11 (水) 04:14:26
このプログラムを加筆する時直接書き換えちゃってもいいのかな？別にした方がいいですか？ -- osakana 2006-10-11 (水) 04:21:37
直接でいいんじゃないですか（＾・＾？微妙なときは別でもいいかと（バグあるときとか） -- りさ 2006-10-11 (水) 04:32:02
なるほろ！微妙なときは別ですね、分かりました。では別で・・・(-o-) -- osakana 2006-10-11 (水) 05:27:46
『変更点記入欄』を設けました（￣n￣ヾ -- りさ 2006-10-11 (水) 15:46:11
いま大体読みおえました。キー入力待ちを解読？するのにてこずりました。コメント入れてほすぃー -- osakana 2006-10-11 (水) 19:12:05
小文字変換はAPIを使ったほうが楽です。 -- GENKI? 2006-10-11 (水) 23:04:33
本当ですね！試しにスピード計って見たら圧倒的でした。 -- osakana 2006-10-12 (木) 01:26:34
mdl_lowercase2、mdl_lowercase3、getpathバージョン書いてみました。決まったら消して下さい -- osakana 2006-10-12 (木) 02:06:12
ごみんなさい（＞＜；コメント入れたのに変更し忘れてました・・・ -- りさ 2006-10-12 (木) 03:03:14
APIスゴイですね☆☆涙がでマスね（＾＾ -- りさ 2006-10-12 (木) 03:04:33
改めてサンプルを見てみると、結構いい感じじゃないですかぁ（￣u￣＠ -- りさ 2006-10-12 (木) 04:57:57
あんまりHTML形式が有利な状況がないんですが・・・構文解析に留めておいて、エンジンではBASIC形式オンリーにしましょうか（＾＾？？ -- りさ 2006-10-12 (木) 16:56:20
ただ、HTMLとBASIC形式で両方をサポートするのもアリですネ☆せっかくだし（＾＾ -- りさ 2006-10-12 (木) 16:59:33
ページを結構いじりましたです。内容は差分から見れますです... -- kz3 2006-10-12 (木) 19:31:24
あ、いや、バックアップでした。いろんな人の編集差分が混ざってます^^; -- kz3 2006-10-12 (木) 19:34:29
やばいです…コンテスト用作品作んなきゃいけないのにこっちに興味が湧いてきました。(^_^;;　テスト前の現実逃避みたいなやつでしょうか…。とりあえずあと半月は我慢だ…うーん、PSBSからモジュール移植したい。(^ ^; -- GENKI? 2006-10-12 (木) 20:44:39
例えば圧縮フォルダにしてそれさえダウンロードしたらすぐサンプルが試せるってして欲しいかも。今は何をダウンロードすればいいかわからない＾＾；面倒くさがりでごめんｗ -- グエスト? 2006-10-13 (金) 16:44:56
いや、多分それは正論...更新頻度が高いと、しかもいろんな人がいろんなスクリ...といっても適当に誰がどのファイルってうまく分担してるみたいなのでソース直貼りじゃなくてもよさ気？各種ファイルにバージョンつけて適当なところで古いものを削除して...あとモジュールはas、本体はhspとしたほうがいいかもですね。 -- kz3 2006-10-13 (金) 17:02:46
圧縮ファイルだと他のファイルの修正や追加などでかなり更新されると思うので、バラでUPして...最新ファイルリストみたいな表でも作っておこうかな...。 -- kz3 2006-10-13 (金) 17:06:17
最新ファイルリストっ！イイ響きっ☆・・・ところでsample画像を家に忘れてきちゃいました・・・とりあえず、反転画像で（笑）・・・（某漫喫にて） -- りさ 2006-10-13 (金) 17:20:12
あとソース直貼りだとソース増えたときに編集するの大変そうだし...wikiの書式の確認とかで^^; -- kz3 2006-10-13 (金) 17:23:59
asの方がよかったりですか（＾＾？スミマセン・・。あたしのパソコンではasファイルはHSPじゃないんです（涙）音楽のファイルに（＾＾；　できるときに直しておきます☆ -- りさ 2006-10-13 (金) 17:26:18
>編集するの大変そうだし< いえ、ほんっと大変なんです（＾＾ｗｗｗ -- りさ 2006-10-13 (金) 17:27:38
コメント消しました！ありがとうございます☆ -- りさ 2006-10-13 (金) 17:36:40
asにすることでこのファイルは他からincludeされて単体では実行されないやこのファイル内の変数は他と衝突がないということがファイル名を見ただけで判断できたりです。 -- kz3 2006-10-13 (金) 17:45:07
なるほどぉ！ではこの場合の _command はどっちがいいのでしょうか（＾＾？ -- りさ 2006-10-13 (金) 17:48:06
プログラム的には間違いじゃないけど、~~_commandのようなモジュールではなくサブルーチンを一つのファイルにした~~場合は、他のサブルーチン(例えばキー入力待ち*lbl_next)もそれ一つでファイルにしちゃって、メインルーチンからサブルーチンファイル#include
#includeってやっちゃったほうがすっきりするような...ま、私はページだけいじる人なので参加者同士で相談してみてください^^; -- kz3 2006-10-13 (金) 17:54:55
_commandはサブルーチンでもなかったですね...間違いじゃないけどファイルには何か単位を持たせるとファイルの整理ができますよ。
ご指摘通りなんです（涙）ただそれをやっちゃうとみんな混乱しちゃうかなぁ～と思って、思い留まっているのが現状なのデス（＾＾；大丈夫ですかネ？ -- りさ 2006-10-13 (金) 17:59:44
そうなんです（笑）サブルーチンですら・・単位を持たせる意味でも、無理矢理サブルーチンにするのもアリですね☆ -- りさ 2006-10-13 (金) 18:01:34
全部アップロードしてみました（￣▽￣ヾ -- りさ 2006-10-13 (金) 18:12:48
テキストファイルは、リンクされないんでしょうか？？ -- りさ 2006-10-13 (金) 18:29:54
アレ？？リンク！　あたしがアップロードしてもリンクされなかったのに・・・ -- りさ 2006-10-13 (金) 18:37:14
BASIC風(せっかくだからHSPと言いたい)のコマンドとHTML風のコマンドの混在がちょっと微妙...HSPにHTML風のコマンドがあったら...微妙ですよね...^^; -- kz3 2006-10-13 (金) 19:36:54
HTML形式にも対応しておきたいので、選択できるようにしてみました☆ -- りさ 2006-10-15 (日) 17:54:11
このAVGEngine ってどなたが製作してくださったんでしょう（＾＾？見やすいし、スゴく分かり易いし、何よりカッコイイ！！ -- りさ 2006-10-15 (日) 17:57:05
チャートがある事で頭がスッキリしますね。いまＨＳＰコンテストの最終段階で参加出来ない・・・。もうちょい・・・。 -- osakana 2006-10-15 (日) 19:34:41
まず、できる限りネット上では丸数字は使用しない方がいいです。実際の所、問題になることは滅多にありませんし、そんなに気にする必要もないとは思うのですがそれでも使用しないに超したことはありません。 -- 2006-10-16 (月) 02:11:26
> 実際の所、問題になることは滅多にありませんし、そんなに気にする必要もないとは思うのですが
それって使用してもいいということでは？ -- guest? 2006-10-16 (月) 10:41:56
丸数字って１に○がついている記号ですか（＾＾？知らなかったです・・・スミマセン。気をつけます（汗） -- りさ 2006-10-16 (月) 16:23:49
- 機種依存文字といって機種によっては化けてしまったりと正常に表示されない可能性のある文字は「ネット上では極力使用しないこと」というのはネチケットの内の一つです。丸数字とは○で囲まれている数字のことでこれらは SJIS に標準では定義されていない(MS拡張SJIS)文字で例えば MacOS では「(日)」や「(月)」に化けたりします。半カナは本来は機種依存文字ではないのですが変換プラグラムなどの問題で正常に表示されないシステムがあるためやはり、使用しない方がいいとされている文字です(機種依存文字と混同されることが多い)。 -- 2006-10-16 (月) 19:07:51
言語解析ってのを追加してみたんですが、上手く説明できないれす（＞＜； -- りさ 2006-10-16 (月) 16:46:39
テーブルがグチャグチャになっちゃったの、直して頂いた方、ありがとうございますm(_ _)m -- りさ 2006-10-16 (月) 16:47:46
サンプルを（画像も）変更しました。余分なものも取り払って、シンプルにしました。問題が無い限りは、これでいっかなぁ・・・ -- りさ 2006-10-17 (火) 16:01:00
ところで、著作権はどうなってるんでしょうか（＾＾？　全放棄なんでしょうか？？ -- りさ 2006-10-17 (火) 16:11:26
wikiの場合共同制作ってことで著作権も共同？よく分かりません。(^ ^;とりあえず、著作権は放棄しても著作人格権は放棄できないので残っているはずです。
ただ、wikiを利用する時点で同一性保持権ってやつを放棄しているので「著作人格権は特に行使しないと」言っているとみなせそう。 -- GENKI? 2006-10-17 (火) 22:25:07
ちなみに著作権を放棄したからといって他人が著作権を主張できるなんてことはありえないのでご安心を。 -- GENKI? 2006-10-17 (火) 22:28:41
GENKIさんお返事どうもです★著作権によって、エンジンを個人的に利用できないと思っている方がいらっしゃったらマズいかなぁと思ったのです（￣▽￣； -- りさ 2006-10-18 (水) 08:51:20
もし勝手に放棄されないのであれば、自由に使えることを明記した方がいいかなぁ～～と思ったりデス★ -- りさ 2006-10-18 (水) 08:52:17
今更、ここ(AVGエンジン)だけ著作権明記(特記)する必要はないと思いますよ。じゃぁ他のページはどうなの、とか出てきちゃうし、盲目的にwiki内のスクリプトなどは改変自由扱いだと思いますよ。改変できなきゃ勉強もできないし。逆に、改変できないものは開発wikiの趣旨に外れると思うし。開発wiki上のコードはすべて「サンプル」ですから。(個人的主観) -- 2006-10-18 (水) 22:44:59
放棄してもしなくても、「権利を行使しない」ことを明記しておけばいいと思いますよ。また、明記してあったほうが安心できると思います。 -- GENKI? 2006-10-18 (水) 23:08:16
プロジェクトファイル一覧に更新日時を作ろうとプレビューしながらやってみましたが、出来ませんでした（^^; どうしても表示が崩れちゃう。。。 -- osakana 2006-10-19 (木) 02:51:28
今回の件（半角表示）で改めて思ったんですけど、やっぱり意見（感想や批判など）はありがたいデス。気付けないこととかもありマスし☆ -- りさ 2006-10-19 (木) 17:53:37
更新日時がある！！どうもありがとうございます。うぃきむずがしい・・・。 -- osakana 2006-10-20 (金) 01:49:02
ホント～～だ！もしかして、アップロードした日時を自動的に表示する、ってことが出来たりはしませんでしょうか（＾＾？？ -- りさ 2006-10-20 (金) 10:42:25
頭が文字列でいっぱいです（笑）助けてぇ・・（＞＜ -- りさ 2006-10-23 (月) 13:02:42
ちょっと早いけど２５日の日付で更新しちゃいます♪ -- りさ 2006-10-24 (火) 16:58:57
おおまかに、「変数対応」と「影文字対応」が変更です。両方のサンプルをご覧頂ければ嬉しい限りです（＾＾★たくさんファイル更新したので、ＤＬが面倒ですが・・・ｎｎ -- りさ 2006-10-24 (火) 17:23:09
変数の計算いいですね。何気に細かいとこまで変わってる。ここまでアドベンチャーエンジンって大変なのですね。とても勉強になりますね。そう思うと、おにたまさんってかなりすごいですね。 -- osakana 2006-10-24 (火) 17:44:53
いや、ホントそうです。ＨＳＰをここまで作り上げた実績はスバラシイいデス。尊敬しますネっ☆ -- りさ 2006-10-24 (火) 18:56:16
HSP独特の \ と ! ( % と != ) は実装しない方向で考えています☆ -- りさ 2006-10-25 (水) 16:24:45
ＨＳＰスクリプトエディタみたいなのを作りたいんですが、色分けって mesbox はもちろん、RichEdit でも困難ですよね。作ったことありましたら、詳しく教えてくださいm(_ _)m -- りさ 2006-10-25 (水) 18:38:25
\ の代わりに % を、! ではなく != を実装しました。他、多くの演算子も実装してみたので、試してもらえたらと思います詳しくはサンプルか更新履歴を見てください★ -- りさ 2006-10-25 (水) 21:24:00
現在、仕様を新書式へ変更し、同時にRPNモジュール開発を進めているので、このページは一時停止させて頂きますm(_ _)m ２日程度で完成すると思います☆ -- りさ 2006-10-28 (土) 10:52:01
お待たせしました☆以前のサンプルが再生できないので、繋ぎ（？）としてscenario5 を付属しました（＾＾　あとアタシ一人じゃとても終わらなそうなので、協力してくださる方がいれば是非☆詳しくは（詳しくないですが）「開発中」のところを見てください（＾＾／ -- りさ 2006-10-29 (日) 18:46:58

このページを作成してから、半月が経ちました☆みなさんのおかげです●＾＾●　エンジンはやっとシナリオ１が再生できるようになりました☆ -- りさ 2006-10-31 (火) 03:13:36

作業ファイルが分裂したり融合したりと非常に分かり辛いかと思いますが、やっと整理できまシタ★当分はこんな感じで（￣ε￣ｖ -- りさ 2006-11-01 (水) 00:29:21

やっと分岐が出来る「ボタン」を実装しました（笑）これでサンプルシナリオが一つで済みマスわ☆ -- りさ 2006-11-05 (日) 12:32:00

サンプルで、起動してから２回続けてループテストをクリックすると、システムエラーになるのですが、確認された方は教えて頂けると助かります☆ちなみに、MEでしか確認できず、XPではエラーがでません・・・（？？） -- りさ 2006-11-08 (水) 00:32:58

言い忘れましたが、システムエラーで formula関数内です（＞＜； -- りさ 2006-11-08 (水) 00:34:02

ユーザー定義関数の呼び出し時に、ユーザー定義関数の戻り値が代入される変数をその関数内で型変換したときに動作が安定しないときがあるようです。
(私の環境で確認。Windows9x 系限定?。2k 系では全く問題は出ないのかな?。) -- naznyark? 2006-11-09 (木) 01:48:25

検証用スクリプト

#module
#defcfunc c0
    sdim v@, 64
    return "abcdefghijkl"
#defcfunc c1
     dim v@, 1
    return 987654321
#global
 
    v = c0() // Windows9x 系では(?)これの動作もおかしい( abcd までしか代入されていない)
    mes v
    v = c1() // Windows9x 系では(?)ここでシステムエラー
    mes v

出来ましたっ！こんなことだったなんて、知りませんデシタ☆ありがとうございます（＾＾検証用のスクリを実行したところ、MEでもXPでもエラーになりました（涙）ちなみに、ループテストの際、MEでも３回目でエラーになったり、１回目でエラーになることがあったりと、マチマチでしたm(_ _)mようするに不安定なんデスね( -- りさ 2006-11-09 (木) 02:52:47

実際のところ、XPでもサンプルは正常に動作していなかったみたいデス（エラーはでなかったですが）。指摘いただした箇所を修正しましたら、考えていた通りの動作が行われました☆ご迷惑おかけしましたm(_ _)m -- りさ 2006-11-09 (木) 04:47:58

ＨＳＰＴＶでは失礼しました。失礼のないよう心掛けますので、これからもどうぞ宜しくお願いします。 -- りさ 2006-11-13 (月) 03:46:32

私は別に気になりませんでしたが・・・。まあ終わった事なので楽しく行きましょう。 -- osakana 2006-11-15 (水) 04:24:18

現在やり残っている事や、実装したいと思っている機能などをどこかにまとめて置いた方がいいかもしれません、あと完成度とかも。 -- osakana 2006-11-15 (水) 04:30:39

早速一部項目を移動してきました。更新履歴もかなり増えてきてたのでちょうどよかったです。 -- GENKI? 2006-11-15 (水) 22:48:11

見やすいよ～！有難うございます。後はりささん待ち？リボ～ン！（ジュセジャポネ・・・？） -- osakana 2006-11-17 (金) 07:41:08

こんにちわ！更新止めちゃってごめんなさい（涙）身体が弱くてずっと病院で・・昨日退院してきましたm(_ _)m スクリを忘れてないか心配です（汗） -- りさ 2006-11-22 (水) 07:55:50 思い出すついでに残しておきます（＾＾ -- りさ

スクリは忘れても大事に至りませんがクスリの服用は忘れずに...お身体お大事に [smile2]

(自分はクスリ嫌いですが...) -- kz3 2006-11-22 (水) 08:52:18

横から失礼いたします。自分もエンジンを作っていてこちらに誘導されてmain.hspを実行してみました。HSPは共同開発に向いていないと聞いていたのですがこれはすごい･･･。それで最初に起動した時、ファイル不足だったのでエラーが出たのですが[HSP]at line 0 【 Adventure Engine 】を強制終了します。と表示されました。line0はどこ？･･･　あとファイルが見つからない場合はどのファイルが見つからないかというエラーが出たらわかりやすいかな？　独り言ですのでお気になさらず･･･　wiki汚しすみませぬ -- 七次元? 2006-11-22 (水) 16:38:17

wikiの書式わからない･･･　汚し申し訳ありませんorz -- 七次元? 2006-11-22 (水) 16:39:58

りささん＞そうだったんですか、なんか急かすような事を書いてすみませんでした。退院とは言えお大事になさって下さいね（私はやっと最近お薬が飲める様に・・・） -- osakana 2006-11-23 (木) 02:00:08

七次元さん＞勝手に書き込み修正しました；＾＾。私も最初は書式がよく分かりませんでした、今もですけどね（泣。どうやらsample1.jpgが無い時にそのエラーが出るようです。やはりシナリオに記された素材ファイルが存在しない場合には「ないよー！」って出てきた方が良いかも知れませんね。 -- osakana 2006-11-23 (木) 02:48:01

ほかにもmusic1.midが無いときにも同じエラーがでました。そのほかの素材ファイルが無い時ではファイル名は出ませんが「画像ファイルがありません」、「音ファイルがありません」と表示されました。 -- osakana 2006-11-23 (木) 02:54:59

osakanaさん修正どもです。修行（?）が足りないのか他人の書いたスクリプトは解読に時間がかかる･･･ -- 七次元? 2006-11-24 (金) 16:55:42

わたしも未だ解読中・・・（@_@;）（１日が５０時間位あれば良いのに！とよく思う） -- osakana 2006-11-24 (金) 17:10:50

エラー処理周りは仕様が確定しきっていないうえに現在の仕様にあわせた書き換えさえも終わっていない状態のようなので・・・。
気になるなら暫定的に main.hsp の一部をを次のように修正しておいてください。
(ファイル名は出ませんが。) -- naznyark? 2006-11-25 (土) 00:42:13

main.hsp 暫定エラー処理修正

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
-
|
|
|
|
|
|

    // 修正点１  200行目あたり
 
    /* ２バイト複行コメントの判定 */
    //if ( c_double == 0x2A2F ) {
    //    repeat
    //        c_at ++
            if wpeek( scenario, c_at ) == ENTER { c_line ++ } // 追加
    //        if wpeek( scenario, c_at ) == 0x2F2A { c_at += 2 :break }
    //    loop
    //    goto *lbl_main
    //}
 
    // 修正点２  310行目あたり 書き換え
 
//#ifndef __RELEASE__
    // デバッグ時有効
    if error =  0 {
        // HSPエラー
        string1 = GetErrorMessage( wparam )
        string2 = "[ HSP ] at line " + lparam
    } else : if error < 64 {
        // HSPエラーと同じエラーをエンジン側で出す
        string1 = GetErrorMessage( error )
        if c_line :string2 = "[ "+SCENARIO_FILE+" ] at line " + c_line :else :string2 = ""
    //} else {
        // メイン用エラー
        //SWITCH ( error )

こっちでいいのかな？とほさん御所望のフェードイン・アウト立ち絵表示モジュールを作ってみました。下のstand.lzhです。立ち絵の画像は添付しておりませんのでご用意ください。画像の形式はgmode 7の形式です。良かったら試してみてください。 -- gon? 2006-12-23 (土) 00:16:37

また退院して戻ってきました！薬とスクリ（笑…クスリッ）>kz3さん

お気遣いありがとうございますm(_ _)m > osakanaさん

こんにちわ、謎なとこはどんどん聞いてください、アタシも謎だったりするかもですが（笑）>七次元さん

修正ありがとうございます。とっても助かります！>nyaznyarkさん

今から拝見させて頂きますっ。ありがとうございますm(__)m>gonさん

なんだか浦島さんになった感じです（☆＾＾☆）-- りさ 2006-12-27 (水) 15:45:57

りささんお帰りなさいです。お体の具合が良くないようで、お大事にしてくださいませ。立ち絵表示モジュールを更新しました。表示位置調整機能とフェードイン・アウトの調整機能を追加しました。良かったら試してみてください。 -- gon? 2006-12-29 (金) 13:41:12

ただいまです！Ｘmasにはギリギリ間に合いませんでしたが、お正月は実家で過ごせそうですっ。立ち絵、試させて貰いました(＾＾／前景の命令も必要だったんでスゴク嬉しいです。ところで、アタシも文字バッファのことを考えたのですが、ある色を指定しなければならなくなってしましますよね？初めはこの指定色を変動させれば出来るかとも考えたのですが、事実上、やはり制限がでることは避けられないようです（＞＜；　なので、そこをどうにかできないか考え中ですっ。ただフェードさせるときでも、画像としてではなく文字として描画することで実装できるかもですよね。とりあえず、そっちの方向で考えているんですが、いい方法あったら教えてくださいm(__)m -- りさ 2006-12-30 (土) 18:11:59

GENKIさんのサンプルとにらめっこしたんですが、どうも禁則処理が試行錯誤の連続で前に進めません。アルゴリズムを完全に理解していないのもありますし、SHIFT-JISについてその他の見落としがあるんじゃないか不安なのもあります（＾＾；；もし時間ありましたら、lbl_message 内の禁則処理を見て頂けませんでしょうか？？宜しくお願いします -- りさ 2006-12-30 (土) 18:15:27

立ち絵はlbl_commandだけ整理しました。モジュールはもう少しエンジン用に書き換えたいので、少し待ってもらえますか？？文字バッファの件もありますし・・・。あとサンプル前景画像を用意したのですが、これでいいですか？ -- りさ 2006-12-30 (土) 18:38:39

ファイルをＵＰしました。背景画像は前回のと同じなので、ファイル名だけ違います（＾＾※あと、残ってるのを下に書き出します（￣▽￣￥ -- りさ 2006-12-30 (土) 18:43:28

ENGINE
              エラーメッセージの統合と処理
              グローバル変数をより分かり易い分け方へ
lbl_main
              見つけたラベル名と行数を配列に保存（シナリオ行数のため）
lbl_message
              折り返し+禁則処理を行う（[[GENKI]]さんの（最新バージョンの）サンプル参考）
              InsertStrInStrを完成させる
lbl_command
              if - else - (endif) の実装
              link (naznyarkさんのカスタムボタン参考）
              input
              load
              save
              fg_ （前景：gonさんのスクリ参考）
              [ 式 ] に対応
mdl_text
              囲・影文字を行ってる tStr 命令を更新する（[[osakana]]さんの（最新バージョンの）サンプル参考）
mdl_formula
              Formula 関数のエラーメッセージを設定する
              関数の追加
mdl_mm
              前景用の関数登録（gonさんのスクリ参考）
EXTERNAL
              エディタの作成

立ち絵関連についてですが、文字バッファを使用する場合はやはり透明色を1つ作らないと難しいでしょう。文字列として表示する場合は、初めに文字を表示させたときと同様の表示形式でフェードイン中も表示させるようにすれば出来そうですが、メンドくさそうですね。 -- 2006-12-31 (日) 02:29:04
立ち絵モジュールですが、実は私の作りたいのはシミュレーションゲームでして、その中で使う立ち絵表示の機能としては現状レベルのもので十分だと思っております。ですので、とりあえず私の立ち絵モジュール開発自体は終了しておりますので、気にせず変更してください。 -- 2006-12-31 (日) 02:29:37
前景画像というのは私の言っている立ち絵のことですよね？うーん、ちょっと違うかも(笑) -- 2006-12-31 (日) 02:29:54
立ち絵のサンプルを下記に添付します(standpic_sample.lzh)。ノベル用素材として神在月Ｋさんが公開されているもので、私が作成したものではありません。モジュール開発もこの素材をつかって作成しておりました。やはり人様の作成したものですので、少し気を使いモジュール公開時も添付しておりませんでした。ですがマスク付き画像の説明しにくいので添付させてもらうことにします。 -- gon? 2006-12-31 (日) 02:32:03
お～更新～！私も本腰入れんとね（＠x＠）。まだ結構残っているのですね、私の袋文字のヤツもうちょっと参考にするの待って下さい　おかしいトコあるんで（；ｎ；） -- osakana 2007-01-05 (金) 06:44:08
立ち絵と前景って同じものだと考えてました（＾＾；；半透明のみで考えていたので、ぜひ参考にさせて頂きますね☆頭悪いのでスクリ解読するのに時間かかっちゃってます（＞＜； -- りさ 2007-01-05 (金) 16:02:17
私も立ち絵と前景について曖昧だったので調べてたら、こんなの見つけました。h ttp://yun.cup.com/karuna11.html なんだか腑に落ちた感じ。 -- osakana 2007-01-05 (金) 17:44:22
という事はとりあえず必要なバッファーは、背景、後景、立ち絵、前景、フレーム、メッセージ　の６つ？ -- osakana 2007-01-05 (金) 17:50:39
私もあまり深く考えていなかったんですが、吉里吉里だと立ち絵と前景は同じというか、前景の一種が立ち絵という感じみたいですね。 -- gon? 2007-01-05 (金) 23:37:40
私のスクリプトですが、HSP初心者なので変なことをしてるかもしれません(deffunc後の引数から変数を毎回取り出しているのはわざとですが・・・変数宣言を強要するモードが欲しい・・・)。人の書いたコードはやはり解読に時間がかかりますから、分かりにくいところは聞いてくださってかまいませんよ。 -- gon? 2007-01-05 (金) 23:38:49
バッファについてですが、立ち絵部分は私のモジュールのままとしたらキャラごとに用意するので、左(Left)、真ん中(Center)、右(Right)の3枚必要です。あとメッセージ用のバッファを作るか作らないかは、りささん次第かな？後景、前景は今のところ使って無いと思いますが、メッセージ用のバッファ有りで、背景、後景、立ち絵(L,C,R)、前景、フレーム、メッセージの8つですね。 -- gon? 2007-01-05 (金) 23:40:47
また変なものを作ってと,りささんに怒れれるかも知れませんが、画像ボタンと選択肢表示を作ってみました。下の添付ファイルのimg_button_070121.lzhです。オリジナルコードのベースが最新のものとは異なるので、すべてのファイルを添付しておりますのでサイズが少々大きいです。ちょっと動作が不安定な部分もあるようで、たまに動作が重くなるときがあるみたいです。デバッグしてくださると助かります(笑)。 -- gon? 2007-01-21 (日) 23:20:52
開発はとまってしまったのでしょうか。そろそろGUIでのスクリプト操作があるといいですね。 -- As 2008-03-13 (木) 00:57:50
初めまして。ノベルスゲームに興味があるので、ここでコソコソと勉強させて頂きたいと思いますm(_ _)mもし開発へ協力できるレベルになったら、自分も手伝わせて頂きます。 -- uhouho? 2008-04-13 (日) 18:59:16