アドベンチャーエンジン/モジュール開発室

モジュール開発 †

[編集]

　ここはHSP開発wikiで研究中のアドベンチャーエンジンに使用するモジュールの開発室です。
必要なモジュールのリストアップや開発したモジュールの公開・検討など、モジュール開発に使用してください。

↑

描画系 †

[編集]

装飾文字系のモジュールです。
装飾文字とは、代表的なものに袋文字や影文字などがあります。
例えばこのような文字のことを言います。

他にも囲み文字（①*1とか②など）や立体文字などの種類があります。

↑

袋文字 †

[編集]

正式名称がなんというか分かりませんが袋文字などと言われているやつです。
とりあえず実行して頂ければ分かってもらえると思います。

袋文字0.5.hsp

hukuro_moji05.hsp

    #module
 
    //二乗マクロ
    #define ctype JIJOU(%1) ((%1)*(%1))
 
    //囲み文字命令
    //hukuro_moji "表示文字列",文字枠の太さ,枠色赤,枠色緑,枠色青,枠の角 0=有り/1=無し
    #deffunc hukuro_moji str txt,int bld,int r,int g,int b,int type
        //エラー処理
        if bld<0    :return -1
        if type<0    :return -2
 
        //各種情報を保存
        cy=ginfo_cy
        cx=ginfo_cx
        rr=ginfo_r
        gg=ginfo_g
        bb=ginfo_b
 
        color r,g,b        //枠色指定
        bld2=bld/2        //計算量減少の為の悪あがき
 
        //文字の枠を描画
        //type=0 :角有り　なら bld*bld の全座標に描画。
        //type=1 :角無し　なら bld*bld の座標に収まる円形内のみに描画。
        repeat bld :cnt0=cnt
        repeat bld
            if (type=0) | ( (sqrt(JIJOU(bld2-cnt) + JIJOU(bld2-cnt0)) < bld2) & type>0 ) {
                pos cx+cnt,cy+cnt0    :mes txt
            }
        loop
        loop
 
        //中心の文字を描画
        color rr,gg,bb
        pos cx+bld-(bld/2)-1,cy+bld-(bld/2)-1
        mes txt
 
        //カレントポジションを設定
        pos cx,ginfo_cy+(bld/2)
 
    return
 
    #global
//------------------
//モジュール使用例
 
    color 255,255,0
    pos 10,10
    hukuro_moji "袋文字テスト表示",3,0,0,0
 
    font "",40  :pos 50
    color 0,255,255    :hukuro_moji "フォント大きく設定",3,0,0,0
    color 0,255,0    :hukuro_moji "枠なしにしてみる",0
 
    repeat 8
        color 255-cnt*36,255,cnt*36
        hukuro_moji "色を変えてみる"+cnt,5,cnt*36,0,255
    loop
 
    font "",30  :pos 370,3
    color 255,255,100
 
    repeat 8
        hukuro_moji "枠を太くしてみる"+(cnt*2-1),cnt*2-1,200,0,0
    loop
 
    pos 350
    font "",72
    color 0,255,0    :hukuro_moji "角有り",25,,,255,0
    color 0,255,0    :hukuro_moji "角を丸く",25,,,255,1

まだコメントなしです。（-x-）--osakana (2006/10/24)
- コメントなしっ　∑（￣▽￣　--りさ
- これって、hsp3util よりキレイに表示できてるんじゃないでスか（＾ｗ＾！？
- コメントはいずれ・・・必ず・・・
- hsp3util見てみましたが、太い輪郭を考慮してないんですね。
  これはキレイですが重いんです、もう少し早くできそうですが。 -- osakana
- コメントつけましたよ (遅) --osakana (2006/11/09)

袋文字0.6.hsp

hukuro_moji06.hsp

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
|
-
-
|
|
-
|
|
|
|
!
|
|
!

    #module
 
    //二乗マクロ
    #define ctype JIJOU(%1) ((%1)*(%1))
 
    //囲み文字命令
    //hukuro_moji "表示文字列",文字枠の太さ,枠色赤,枠色緑,枠色青,枠の角 0=有り/1=無し
    #deffunc hukuro_moji str txt,int bld,int r,int g,int b,int type
        //エラー処理
        if bld<0    :return -1
        if type<0    :return -2
 
        //各種情報を保存
        cy=ginfo_cy
        cx=ginfo_cx
        rr=ginfo_r
        gg=ginfo_g
        bb=ginfo_b
 
        color r,g,b        //枠色指定
        bld2=bld/2        //計算量減少の為の悪あがき
 
        //文字の枠を描画
        //type=0 :角有り　なら bld*bld の全座標に描画。
        //type=1 :角無し　なら bld*bld の座標に収まる円形内のみに描画
        if type=0 {
            repeat bld :cnt0=cnt
            repeat bld
                pos cx+cnt,cy+cnt0    :mes txt
            loop
            loop
        }else {
        if type>0 {
            repeat bld2 :cnt0=cnt-bld2
            repeat bld2
                if sqrt( JIJOU(cnt) + JIJOU(cnt0) ) < bld2    {
                    pos cx+bld2+cnt,cy+bld2+cnt0    :mes txt
                    pos cx+bld2-cnt,cy+bld2+cnt0    :mes txt
                    pos cx+bld2+cnt,cy+bld2-cnt0    :mes txt
                    pos cx+bld2-cnt,cy+bld2-cnt0    :mes txt
                }else :break
            loop
            loop
        }}
 
        //中心の文字を描画
        color rr,gg,bb
        pos cx+bld-(bld/2)-1,cy+bld-(bld/2)-1
        mes txt
 
        //カレントポジションを設定
        pos cx,ginfo_cy+(bld/2)
 
    return
 
    #global
//------------------
//モジュール使用例
 
    color 255,255,0
    pos 10,10
    hukuro_moji "袋文字テスト表示",3,0,0,0
 
    font "",40  :pos 50
    color 0,255,255    :hukuro_moji "フォント大きく設定",3,0,0,0
    color 0,255,0    :hukuro_moji "枠なしにしてみる",0
 
    repeat 8
        color 255-cnt*36,255,cnt*36
        hukuro_moji "色を変えてみる"+cnt,5,cnt*36,0,255
    loop
 
    font "",30  :pos 370,3
    color 255,255,100
 
    repeat 8
        hukuro_moji "枠を太くしてみる"+(cnt*2-1),cnt*2-1,200,0,0
    loop
 
    pos 350
    font "",72
    color 0,255,0    :hukuro_moji "角有り",25,,,255,0
    color 0,255,0    :hukuro_moji "角を丸く",25,,,255,1

コードは増えましたが、少しだけ早くなりました。
repeat の中に wait を入れて遅くすれば、何をやっているか分かり易いかも知れません
でも大した事やってないけど(・_・） --osakana (2006/11/13)
break するの忘れてたので修正しました。 --osakana (2006/11/15)

↑

影文字 †

[編集]

こちらの正式名称も分かりませんが、実行してもらえれば分かると思います。

//仕様
color 影R,影G,影B
kage_moji 文字列,影の位置X,影の位置Y,文字R,文字G,文字B

影文字0.5.hsp

kage_moji05.hsp

    #module
    //影文字表示命令
    //kage_moji "表示文字列",影の位置X,影の位置Y,影色赤,影色緑,影色青
    #deffunc kage_moji str txt,int sx,int sy,int r,int g,int b
 
        //各種情報保存
        cx=ginfo_cx    
        cy=ginfo_cy
        rr=ginfo_r
        gg=ginfo_g
        bb=ginfo_b
 
        //マイナスの時
        if sy>>31 & 1    :cy-sy
 
        //影の位置が 0,0 じゃ無ければ、影描画
        if (sx!0)|(sy!0)    :color r,g,b    :pos cx+sx,cy+sy    :mes txt
 
        //文字本体描画
        color rr,gg,bb    :pos cx,cy    :mes txt
 
        //カレントポジション移動
        //影の位置Yが０以上ならその分プラス
        if sy>0    {pos cx,ginfo_cy+sy}
        else       {pos cx,ginfo_cy   }
 
    return
    #global
//------------------
    color 255,255,0
    pos 10,10
    kage_moji "影文字テスト表示",1,1,0,0,0
 
    font "",40  :pos 50
    color 0,255,255    :kage_moji "フォント大きく設定",3,3,0,0,0
    color 255,0,0    :kage_moji "影なしにしてみる"
 
    repeat 8
        color 255-cnt*36,255,cnt*36
        kage_moji "色を変えてみる"+cnt,6,3,cnt*36,0,255-cnt*36
    loop
 
    font "",25  :pos 370,20
    color 100,100,255
 
    repeat 3  :cnt0=cnt
    repeat 5
        kage_moji "影の位置を変えてみる",(cnt-2)*4,(cnt0-1)*8,200,200,200
    loop
    loop

コメントなし・・・・（スマン） --osakana (2006/10/24)
- 「ん」になってる！ --osakana
- 　↑（爆）
- コメント追加 --osakana (2006/11/09)
マイナスの時の処理が間違ってたので修正しました。 --osakana (2006/11/18)

簡単なものなら #define を使ったマクロでもいいかも。 --osakana
- 影文字ってマクロになるくらい簡単に出来るんですね～（＾＾／コメント必要なかったデス --りさ
- マクロにして見ました。横に長いので \ をはさんで改行した方が見やすいかな？。 --osakana (2006/10/20)
- 影文字モジュールとの違い>影色と本体色の指定が逆。単純化のため影の位置にX,Yで同じ値を使用 --osakana

//仕様
color 文字R,文字G,文字B
kage_moji 文字列,影の位置,影R,影G,影B

影文字マクロ.hsp

kage_moji_macro.hsp

    #define kage_moji(%1="",%2=0,%3=0,%4=0,%5=5) cx=ginfo_cx :cy=ginfo_cy :rr=ginfo_r :gg=ginfo_g :bb=ginfo_b :pos cx+%2,cy+%2 :mes %1 :pos cx,cy :color %3,%4,%5 :mes %1 :color rr,gg,bb
 
 
    pos 10,10  :color 255,255,0
    kage_moji "影文字テスト表示",1,0,0,0
 
    font "",40  :pos 50  :color 0,0,0
    kage_moji "フォント大きく設定",3,0,255,255
    kage_moji "影なしにしてみる",,255,0,0
 
    repeat 8
        color cnt*36,0,255-cnt*36
        kage_moji "色を変えてみる"+cnt,6,255-cnt*36,255,cnt*36
    loop
 
    font "",28  :pos 370,20  :color 200,200,200
 
    repeat 5
        kage_moji "影の位置を変えてみる",(cnt-2)*6,100,100,255
    loop

↑

装飾文字モジュール †

[編集]

上の袋文字と影文字の２つを１つにまとめた物です。あんまり検証してませんので、おかしい所があったら教えて下さい。

装飾文字1.0.hsp

sousyoku_moji1.0.hsp

    #module "sousyoku"
 
    //二乗マクロ
    #define ctype JIJOU(%1) ((%1)*(%1))
 
    //文字を太く描画（sousyoku_moji 命令内で使っています）
    //bold "表示したい文字列" , 太さ , タイプ (0=角有り / 1=角無し)
    #deffunc bold str txt2,int prm1,int prm2
    
        //各種情報保存
        posx=ginfo_cx
        posy=ginfo_cy
 
        //文字を重ねて太くする。
        if prm2=0 {
            //large*large の全座標に描画。
            repeat prm1 :cnt0=cnt
            repeat prm1
                pos posx+cnt,posy+cnt0    :mes txt2
            loop
            loop
 
        } else :if prm2=1 {
            //計算量減少の為の悪あがき
            bld2=prm1/2
 
            //large*large の座標に収まる円形内のみに描画
            repeat bld2+1 :cnt0=cnt-bld2
            repeat bld2+1
 
                if sqrt( JIJOU(cnt) + JIJOU(cnt0) ) < bld2 {
                    pos posx+bld2+cnt,posy+bld2+cnt0    :mes txt2
                    pos posx+bld2-cnt,posy+bld2+cnt0    :mes txt2
                    pos posx+bld2+cnt,posy+bld2-cnt0    :mes txt2
                    pos posx+bld2-cnt,posy+bld2-cnt0    :mes txt2
                }
                else :break
 
            loop
            loop
 
            //カレントポジション移動
            pos posx,posy+ginfo_mesy+prm1/2
 
        } else :if prm2=2 {
            
        }
        
    return
 
    //影の設定
    //kage 影色R,影色G,影色G,影位置X,影位置Y,太さ,タイプ 0=角有り / 1=角無し
    #deffunc kage int prm1,int prm2,int prm3,int prm4,int prm5,int prm6,int prm7
 
        //各種情報保存
        kage_r=prm1
        kage_g=prm2
        kage_b=prm3
        kage_x=prm4
        kage_y=prm5
 
        if prm6<=2    :kage_bld=2  : else :kage_bld=prm6
        if prm7<0    :kage_type=0 : else :kage_type=prm7
 
    return
 
    //袋の設定
    //hukuro 枠色R,枠色G,枠色B,太さ,タイプ 0=角有り / 1=角無し
    #deffunc hukuro int prm1,int prm2,int prm3,int prm4,int prm5
 
        //各種情報保存
        hukuro_r=prm1
        hukuro_g=prm2
        hukuro_b=prm3
 
        if prm4<0    :hukuro_bld=0  : else :hukuro_bld=prm4
        if prm5<0    :hukuro_type=0 : else :hukuro_type=prm5
 
    return
 
    //装飾文字描画
    //sousyoku_moji "表示文字列",太さ,タイプ 0=角有り / 1=角無し
    #deffunc sousyoku_moji str txt,int prm1,int prm2
 
        if txt=""    :return -1
 
        //各種情報保存
        rr=ginfo_r
        gg=ginfo_g
        bb=ginfo_b
        cx=ginfo_cx    
        cy=ginfo_cy
        if prm1<=2    :bld=2  : else :bld=prm1
        if prm2<0    :type=0 : else :type=prm2
 
        //// 影文字の処理 ////
 
        //影位置Yがマイナスの時、その分下方向にずらす
        if kage_y>>31 & 1    :cy-kage_y
 
        //影の位置が 0,0 じゃ無ければ、影描画
        if (kage_x) | (kage_y) {
            color kage_r,kage_g,kage_b
            pos cx+kage_x,cy+kage_y
            bold txt,kage_bld,kage_type
        }
 
 
        //// 袋文字の処理 ////
 
        //文字の枠を描画
        color hukuro_r,hukuro_g,hukuro_b
        pos cx,cy
        bold txt,hukuro_bld,hukuro_type
 
        //中心の文字を描画
        color rr,gg,bb
        pos cx+hukuro_bld/2-bld/2, cy+hukuro_bld/2-bld/2
        bold txt,bld,type
 
        //カレントポジション移動。 影の位置Yが０以上ならその分プラス
        if kage_y>0    {pos cx, ginfo_cy + hukuro_bld/2 + kage_y}
        else        {pos cx, ginfo_cy + hukuro_bld/2         }
 
    return
 
    #global
//------------------------------
/*
	font "",48
	pos 4,32
 
	color 255,255,0
	hukuro 100,100,255,5,0
	kage 128,128,128,12,10,2,01
	sousyoku_moji "装飾文字表示モジュールテスト",0,0
 
	font "",70
	pos 64
 
	hukuro
	kage 170,170,255,25,0,15,1
	color 255,145,0
	sousyoku_moji "枠なし影あり表示",4,0
 
 
	color 210,255,230
	kage
	hukuro 0,255,255,15,1
	sousyoku_moji "影なし枠あり表示",7,0
 
	repeat 20
		color 64,cnt*12,255-cnt*12
		boxf 10,250+cnt*11,630,258+cnt*10
	loop
 
	font "",120
	pos ,280
	color 30,80,30
 
	hukuro 255,100,255,4,0
	kage 255,255,255,64,22,12,0
	sousyoku_moji "ビューン!!",0,0
*/

上のモジュールを使ったサンプルを作ってみました。
画面も見辛く　色々と変な作りになっちゃってますが、もっと良いやり方があったらツッコミ入れて下さい。（・。・

装飾文字モジュールサンプル

sousyoku_moji1.2_sample.hsp

 
    #include "sousyoku_moji1.0.hsp"
 
//------------------------------
#module "_trackbar_"
    //トラックバー管理ＩＤ
    #enum ID_FONTS=0
    #enum ID_POSX
    #enum ID_POSY
    //ほんたい
    #enum ID_H_BLD
    #enum ID_H_MARU
    #enum ID_H_R
    #enum ID_H_G
    #enum ID_H_B
    //かげ
    #enum ID_KAGEX
    #enum ID_KAGEY
    #enum ID_K_BLD
    #enum ID_K_MARU
    #enum ID_K_R
    #enum ID_K_G
    #enum ID_K_B
    //わく
    #enum ID_W_BLD
    #enum ID_W_MARU
    #enum ID_W_R
    #enum ID_W_G
    #enum ID_W_B
 
    //トラックバー作成。
    //trackbar サイズX,サイズY,数の最小値,数の最大値,初期値,管理ＩＤ
    #deffunc trackbar int p1,int p2,int p3,int p4,int p5,int p6
        winobj "msctls_trackbar32", "", , $50000000 | $1,p1,p2
        hTrackbar(p6) = objinfo (stat, 2)
        track_date(p6)=p5
        sendmsg hTrackbar(p6), $407, 1,p3
        sendmsg hTrackbar(p6), $408, 1,p4
        sendmsg hTrackbar(p6), $405, 1,p5
        sendmsg hTrackbar(p6), $414, 10
    return
 
*vscroll
    foreach hTrackbar
        if lparam = hTrackbar(cnt) {
            sendmsg hTrackbar(cnt), $400
            title ""+cnt+"_"+stat
            track_date(cnt)=stat
            gosub *draw
            break
        }
    loop
    return
 
*draw
 
    gsel 1
    color 255,255,255    :boxf
 
 
    font "",track_date(ID_FONTS)
    color track_date(ID_H_R),track_date(ID_H_G),track_date(ID_H_B)
    hukuro track_date(ID_W_R),track_date(ID_W_G),track_date(ID_W_B),track_date(ID_W_BLD),track_date(ID_W_MARU)
    kage track_date(ID_K_R),track_date(ID_K_G),track_date(ID_K_B),track_date(ID_KAGEX),track_date(ID_KAGEY),track_date(ID_K_BLD),track_date(ID_K_MARU)
    pos track_date(ID_POSX),track_date(ID_POSY)
    sousyoku_moji "装飾文字表示モジュールテスト",track_date(ID_H_BLD),track_date(ID_H_MARU)
 
    gsel 0
    pos 10,10
    gcopy 1,0,0,620,200
 
    return
#global
//------------------------------
    //トラックバー管理ＩＤ
    #enum ID_FONTS = 0
    #enum ID_POSX
    #enum ID_POSY
    //ほんたい
    #enum ID_H_BLD
    #enum ID_H_MARU
    #enum ID_H_R
    #enum ID_H_G
    #enum ID_H_B
    //かげ
    #enum ID_KAGEX
    #enum ID_KAGEY
    #enum ID_K_BLD
    #enum ID_K_MARU
    #enum ID_K_R
    #enum ID_K_G
    #enum ID_K_B
    //わく
    #enum ID_W_BLD
    #enum ID_W_MARU
    #enum ID_W_R
    #enum ID_W_G
    #enum ID_W_B
 
    oncmd gosub *vscroll@_trackbar_, $114
 
    buffer 1,640,200
    
    gsel 0    :syscolor 30 :boxf
    color    :boxf 9,9,630,210
 
    font "",15
    pos 5,220
    color 255,255,255
    hukuro 0,0,0,3,0
    kage 128,128,128,5,4
 
    sousyoku_moji "文字の大きさ"
    trackbar 140*2+20,28,1,100,45,ID_FONTS
    sousyoku_moji "表示位置X"
    trackbar 140,28,0,640,0,ID_POSX
    sousyoku_moji "表示位置Y"
    trackbar 140,28,0,150,50,ID_POSY
    
 
    sousyoku_moji "本体の太さ"
    trackbar 140,28,0,20,0,ID_H_BLD
    sousyoku_moji "本体の丸み"
    trackbar 140,28,0,1,0,ID_H_MARU
 
    pos 165,271
    sousyoku_moji "陰の位置X"
    trackbar 140,25,-50,100,12,ID_KAGEX
    sousyoku_moji "陰の位置Y"
    trackbar 140,25,-50,100,10,ID_KAGEY
    sousyoku_moji "陰の太さ"
    trackbar 140,25,0,20,2,ID_K_BLD
    sousyoku_moji "陰の丸み"
    trackbar 140,25,0,1,1,ID_K_MARU
 
    pos 325,220
    sousyoku_moji "本体の色R"
    trackbar 96,25,0,255,255,ID_H_R
    pos 421,220
    sousyoku_moji "本体の色G"
    trackbar 96,25,0,255,255,ID_H_G
    pos 517,220
    sousyoku_moji "本体の色B"
    trackbar 96,25,0,255,0,ID_H_B
 
    pos 325,270
    sousyoku_moji "陰の色R"
    trackbar 96,25,0,255,128,ID_K_R
    pos 421,270
    sousyoku_moji "陰の色G"
    trackbar 96,25,0,255,128,ID_K_G
    pos 517,270
    sousyoku_moji "陰の色B"
    trackbar 96,25,0,255,128,ID_K_B
 
    pos 325,320
    sousyoku_moji "枠の色R"
    trackbar 96,25,0,255,100,ID_W_R
    pos 421,320
    sousyoku_moji "枠の色G"
    trackbar 96,25,0,255,100,ID_W_G
    pos 517,320
    sousyoku_moji "枠の色B"
    trackbar 96,25,0,255,255,ID_W_B
    
    pos 325,371
    sousyoku_moji "枠の太さ"
    trackbar 140,25,0,20,5,ID_W_BLD
    sousyoku_moji "枠の丸み"
    trackbar 140,25,0,1,0,ID_W_MARU
 
    pos 500,400
    objsize 100,25
    button "BMPで保存",*save_bmp
 
    gosub *draw@_trackbar_
    stop
 
*save_bmp
 
    dialog "bmp",17
    if stat=-1 :stop
 
    gsel 1
    bmpsave ""+refstr
    gsel 0
 
    stop

↑今見ると色々酷い・・・。作りもおかしいけど、track_dateとか書いてるし [tere] -- osakana

実行するには上の２つのファイル
sousyoku_moji1.0.hsp
sousyoku_moji1.2_sample.hsp
を同じフォルダーに入れて、sousyoku_moji1.2_sample.hspの方を実行します。

↑

文字列操作 †

[編集]

↑

スペースを除去する †

[編集]

文字列の前後にある半角の空白を削除するモジュールです。
第二引数に指定した文字列を変換して第一引数の変数に代入します。
たとえば

   	    test 123 , 456, "789"

と言う文字列に対して実行したら、

test 123 , 456, "789"

に成ります。文字の真ん中の空白は消しません。あくまで前後だけに機能します。
というかそうなるように作ったので・・・。
ダブルクォーテーション内（囲まれた）の空白のみ残して
全ての空白を取るモジュールも作りたいと思います。実験的に・・・。

DelSpace? を若干変更しました。
タブも空白として削除します。 --osakana

デルスペース

mdl_delspace.as

    #define __ANALYZE_BASIC__
 
    #module
        #define SPACE $20
        #define TAB $9
 
        // 前後の空白を取り除く（真ん中の半角空白に対応）
        #defcfunc DelSpace var p1, str p2
            string = p2
            prmlen = strlen( p2 )
            index = 0
            last = 0
 
            // 区切～引数までの空白数を調べる
            repeat prmlen
                byte=peek( string, cnt )
                if (byte != SPACE) & (byte != TAB) { index = cnt  :break }
            loop
 
            // 引数～区切までの空白数を調べる
            repeat prmlen-index
                byte=peek( string, prmlen-cnt-1 )
                if (byte != SPACE) & (byte != TAB) { last = prmlen-cnt  :break }
            loop
 
            // 引数に使われている文字数を調べる
            prmsize = last-index
 
            // 文字があれば、引数を取得する。無ければ SC を代入
            if prmsize > 0 {
                p1 = strmid( string, index, prmsize )
            } else {
                p1 = str( SC )
            }
 
            return prmsize
    #global

↑

スペースを除去する2 †

[編集]

ダブルクォーテーション内にある空白以外全ての空白を取るモジュール
少しずつ作ってました。もう直ぐ出来きる。 --osakana

↑

命令を取得 †

[編集]

命令を取得するモジュールです。（最終的にはHTML形式も）
モジュールにする必要は無いんですが、そこはそっとしといて下さい(^^;
相変わらずネーミングセンスが無いので、良いのあったらお願いします

少し変えてみました。今度はコメントつき（-o-)(2006/10/24)

mdl_meirei.as

    #define global TOKEN_LEN    128  // １トークンの最大文字数
    #define global TOKEN_NUM     16  // トークンの最大要素数
    #define global NULL 0
    #define global SC -1
 
    #include "mdl_delspace.as"
 
    #module
    #deffunc get_meirei array token,array len,str p1,int p2
        //変数初期化
        sentence = p1
        l = strlen(sentence)
        size = 0
        owari = 0
        i = 0
 
        //空行ならリターン
        if DelSpace(sentence,sentence)=0 :return -1
 
        //変数初期化
        repeat TOKEN_NUM :token(cnt)="" :len(cnt)=0 :loop
 
        //命令取得
        getstr token(0) , sentence , 0 , p2
        size=strsize
        len(0) = DelSpace( token(0) , token(0) )
 
        if token(0) = ""+SC    :return -2
 
        //パラメーター取得
        repeat TOKEN_NUM-1,1
 
            if owari=1    :break
 
            //パラメーター分解
            flg=0
            repeat TOKEN_LEN
                byte=peek(sentence,size+cnt)
                //','があったら空白を含む文字数とパラメータ数を設定
                if (byte= ',')    :flg=cnt  :i++  :break
                //最終なら空白を含む文字数とowariに１をセット
                if (byte=NULL) {
                    //パラメーターを全て省略した場合、パラメーター数を加算しない
                    if (i > 0)    :i++
                    flg=cnt  :owari=1  :break
                }
            loop
 
            //パラメータを１つ取り出す
            token(cnt) = strmid(sentence, size, flg )
            //空白を取りつつ有効な文字数を代入
            len(cnt) = DelSpace(token(cnt),token(cnt))
            //インデックス移動
            size+=flg+1
 
        loop
 
    return i
    #global
;-------------------------------------------------
    screen 0,640,600
 
    scenario="print = \"txt file\" , 10,30,50 ,\n    	mes = \"message\" , 50 ,60 , 70  \n\ntest2 \n  test3 = \"\",,\"\" \n    test4= ,,"
    sdim token , TOKEN_LEN , TOKEN_NUM
    dim len , TOKEN_NUM
 
    font "",16
    mes "[オリジナル]"
    mes scenario
 
    mes "[加工後]"
 
    repeat
        mes "----------"
 
        //一行分切り出し
        getstr sentence , scenario , size
        if strsize=0    :break
        size+=strsize
 
        //get_meirei 文字を入れる配列、文字数を入れる配列、分解する文字列、命令と引数の区切り文字
        get_meirei token , len , sentence , '='
 
        if stat=-1 :mes "有効な文字が見当たりませぬ。"        :continue
        if stat=-2 :mes "命令に相当する物がありませぬ。"    :continue
        if stat=0  :mes "パラメーターに相当する物がありませぬ。\n"+token(0)+" 命令 "+len(0)+"バイト;"    :continue
 
        mes token(0) + " 命令  :"+len(0)+"バイト  :パラメーター数:"+stat
 
        repeat stat,1
            //パラメーター文字数が０より多く、token が存在していたら
            if ( len(cnt) > 0 ) | (token(cnt) != "" ) {
                mes ""+cnt+"->"+token(cnt)+";  "+len(cnt)+"バイト;"
            }
        loop
 
    loop

＜引数＞
　　引数は、命令によって型が違うが、常に値だけを代入している状態が理想かと（￣▽￣ヾ (りさ)
　　整数はそのまま文字列、文字列はダブルクォーテーションを外した文字列とすれば便利なのですが。

全てはlbl_basic内での処理ですので、そこを追加・変更したいと思います☆
まだどうやって使えば効率がいいのか、分からないので・・・（＾＾；

以下に命令の取得とスペース削除のHSP2版サンプル。

命令の取得とスペース削除 for HSP2

moji01.as

//シナリオファイルの命令の処理のサポート
//psb_textspcut p1	p1（文字列変数）の前後にある半角スペースやタブを消します。
//psb_textcmd p1,p2	p1（文字列変数）：１行分のテキスト、p2（文字列変数）：命令部分を摘出
//psb_textpara p1	p1（文字列型配列変数）：255文字×１０個の配列変数。パラメータ部分を変数に入れます。
 
#module
///////////////////////////////////////////////////////////////////
//テキストコマンドの処理
//文字列(moji)の前後にある半角スペースやタブを消します。
#deffunc psb_textspcut val
    mref p0,24
    sdim moji,255
    moji = p0    //対象文字列
    //a:１文字取り出して入れておく
    //b:mojiの長さ
 
    //mojiの前後にあるスペースやタブを消します。
    a = " ":j=0    //スペースやパラメータの前にはいっていたら削除する。
    while@ (a=" ")|(a="\t")
        strmid a, moji, j, 1
        if (a=" ")|(a="\t") :j++
    wend@
    strlen b, moji
    strmid moji, moji, j, b-j
 
    strlen b, moji
    a = " ":j=b-1    //スペースやタブがパラメータの後ろにはいっていたら削除する。
    while@ (a=" ")|(a="\t")
        strmid a, moji, j, 1
        if (a=" ")|(a="\t") :j--
    wend@
    strmid moji, moji, 0, j+1
 
    p0 = moji
    return
 
//１行分の文字列の登録とコマンドの読み取り
#deffunc psb_textcmd val,val
    mref p1,24    //１行
    mref p2,25    //コマンド
    mline = p1
    mcmd = p2
    //c：パラメータの始まり位置
    c = 0
 
    psb_textspcut mline
    //コマンド取得（半角スペースもしくはタブで区切る。）
    getstr mcmd1, mline, c, ' ' : nagasa1 = strsize
    getstr mcmd2, mline, c, 9 : nagasa2 = strsize        //asciiコード9は「    」
    if nagasa1 <= nagasa2 : getstr mcmd, mline, c, ' '
    if nagasa2 <= nagasa1 : getstr mcmd, mline, c, 9
 
 
    c+strsize        //c+=strsize　や　c = c + strsize　と同じでもこれが一番早いらしい。
    psb_textspcut mcmd
 
    p2 = mcmd
    return
 
//パラメータの取得
#deffunc psb_textpara val
    mref p3,56    //文字列型配列変数。これに取得したパラメータを入れます。
            //この命令で指定する変数はあらかじめ
            //sdim p3,255,10
            //この形式で配列変数を作成しておかないといけない。
    sdim mpara,255,10                //パラメータ
    //d：パラメータの読み取り位置
 
    //パラメータを取得
    i=0:d=c
    repeat
        getstr mpara.i, mline, d, ','        //基本的にコンマ「,」区切り。
        d + strsize
        if strsize=0:break
        psb_textspcut mpara.i
        i++
    loop
 
    repeat 10
        p3.cnt = mpara.cnt
    loop
    return
 
 
///////////////////////////////////////////////////////////////////
#global
 
 
;sample
 
sdim stra, 256
sdim strb, 256
sdim strc, 256, 10
 
;文字列(moji)の前後にある半角スペースやタブを消します。
mes "■文字列(moji)の前後にある半角スペースやタブを消します。"
mes " ※タブは\tと表示されます。\n"
stra = "  abc def	ghi        "
mes "[" + stra + "]"
psb_textspcut stra
mes "→[" + stra + "]"
mes "--------------------"
stra = "	abc def\tghi  \t  	      "
mes "[" + stra + "]"
psb_textspcut stra
mes "→[" + stra + "]"
 
;HSP形式命令の読み取り
mes "\n\n--------------------\n■HSP形式命令の読み取り"
stra = "abc def, ghi, 123"
mes stra
psb_textcmd stra, strb
psb_textpara strc
mes "["+strb+"] "+"/"+strc.0+"/"+strc.1+"/"+strc.2
 
stop

↑

小文字に変換する †

[編集]

命令名などを小文字に変換するモジュール

mdl_lowercase.hsp

#module
    // Lower Case
    #defcfunc LowerCase str p1
 
        s = p1
        v = 0
        n = strlen( s )
        sdim string, n
 
        repeat n
            v = peek( s, cnt )
            if ( v >= 'A' ) & ( v <= 'Z' ) :v += 32
            poke string, cnt, v
        loop
 
        return string
#global

命令名などを小文字に変換するモジュール(短くしてみました)

mdl_lowercase2.hsp

#module
    // Lower Case
    #defcfunc LowerCase str p1
 
        string = p1
        //v=0
 
        repeat strlen( string )
            v = peek( string, cnt )
            if ( v >= 64 ) & ( v <= 90 ) :poke string, cnt, v+32
        loop
 
        return string
#global

命令名などを小文字に変換するモジュール(さらに短くしてみました)

mdl_lowercase3.hsp

#module
    // Lower Case
    #deffunc LowerCase3 var string
  
        repeat strlen( string )
            v = peek( string, cnt )
            if ( v >= 64 ) & ( v <= 90 ) :poke string, cnt, v+32
        loop
 
        return
#global

標準命令のgetpathを使用（処理できる文字列の長さはMAX_PATHまでみたいなのでこの目的で使用する場合は注意^^;）
+

getpath
getpathで代用できたので一応・・・。

1 2

a="ABCdef" mes getpath(a,16)

WinAPIを使用して命令名などを小文字に変換するサンプル

APIを使用した例

;for HSP3
#uselib "user32.dll"
#func global charlower "CharLowerA" var
;-----
a="ABCdef"
mes a
charlower a
mes a

参考資料：HSPWiKi:HSP3用llmodモジュール互換ライブラリ

一応速度計ってみたので、ついでに載せておきます。(1000000回実行)
1000分の1秒です。
mdl_lowercase = 8219
mdl_lowercase2 = 6000
mdl_lowercase3 = 4547
getpath = 1172
charlower(API) = 406
API使っときましょう！って事かな？

しかしあたしのと２０倍も違うって・・・違いスギｗ（りさ）

当然、普通に考えても API でしょうね(自前でやる人なんてほとんどいないと)。
ただ、単に文字列を小文字に変換する場合、文字列内の(スクリプトにおける)文字列の中("～")まで変換
してしまうのでご注意下さい。この辺り、構文解析と非常に関係した部分で面倒なんですよね。

API知らないとヒドイことに（笑）

↑

ローマ字をカナに変換する †

[編集]

ユーザーからの入力が必要になる場合に使えるかもと。

API使えば早いと思いますが、このAPIは使い方分からないので（涙）

ローマ字をカタカナに変換する

mdl_rtk.hsp

 
#ifndef __ROMAJI__
#define __ROMAJI__
 
#module
 
#define _LENGTH 64
 
    // ■■■■■■■■■■■■■■■■■■■■/*  by りさ */■■■
    // ■ ローマ字 ⇒ カナ変換モジュール
    // ■
    // ■ RV = RomaToKana( str p1 )
 
    // ■ p1 : カナに変換するローマ字（小文字のみ対応）
    // ■ RV : 変換したカナ
 
    // ■ p1 のローマ字をカナ変換して返します。
    // ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
 
#defcfunc RomaToKana str v1
 
sdim text, _LENGTH                 // 入力文字列（ローマ字）
sdim roma, ( _LENGTH * 2 )         // 出力文字列（カナ）
 
text = v1
c = ""
 
repeat strlen( text )
 
    letter = strmid( text, cnt, 1 )
 
    switch ( letter )
        case "a"
            if c == ""   :roma += "ア"
            if c == "b"  :roma += "バ"
            if c == "c"  :roma += "カ"
            if c == "d"  :roma += "ダ"
            if c == "f"  :roma += "ファ"
            if c == "g"  :roma += "ガ"
            if c == "h"  :roma += "ハ"
            if c == "j"  :roma += "ジャ"
            if c == "k"  :roma += "カ"
            if c == "l"  :roma += "ァ"
            if c == "m"  :roma += "マ"
            if c == "n"  :roma += "ナ"
            if c == "p"  :roma += "パ"
            if c == "q"  :roma += "クァ"
            if c == "r"  :roma += "ラ"
            if c == "s"  :roma += "サ"
            if c == "t"  :roma += "タ"
            if c == "v"  :roma += "ヴァ"
            if c == "w"  :roma += "ワ"
            if c == "x"  :roma += "ァ"
            if c == "y"  :roma += "ヤ"
            if c == "z"  :roma += "ザ"
            
            if c == "by" :roma += "ビャ"
            if ( c == "cy" ) | ( c == "ty" ) :roma += "チャ"
            if c == "dy" :roma += "ヂャ"
            if c == "fy" :roma += "フャ"
            if c == "gy" :roma += "ギャ"
            if c == "hy" :roma += "ヒャ"
            if c == "jy" :roma += "ジャ"
            if c == "ky" :roma += "キャ"
            if ( c == "ly" ) | ( c == "xy" ) :roma += "ャ"
            if c == "my" :roma += "ミャ"
            if c == "ny" :roma += "ニャ"
            if c == "py" :roma += "ピャ"
            if c == "qy" :roma += "クャ"
            if c == "ry" :roma += "リャ"
            if c == "sy" :roma += "シャ"
            if c == "vy" :roma += "ヴャ"
            if c == "zy" :roma += "ジャ"
 
            if c == "ch" :roma += "チャ"
            if c == "dh" :roma += "デャ"
            if c == "sh" :roma += "シャ"
            if c == "th" :roma += "テャ"
            if c == "wh" :roma += "ウァ"
 
            c = ""
            swbreak
        case "i"
            if c == ""   :roma += "イ"
            if c == "b"  :roma += "ビ"
            if c == "c"  :roma += "シ"
            if c == "d"  :roma += "ヂ"
            if c == "f"  :roma += "フィ"
            if c == "g"  :roma += "ギ"
            if c == "h"  :roma += "ヒ"
            if c == "j"  :roma += "ジ"
            if c == "k"  :roma += "キ"
            if c == "l"  :roma += "ィ"
            if c == "m"  :roma += "ミ"
            if c == "n"  :roma += "ニ"
            if c == "p"  :roma += "ピ"
            if c == "q"  :roma += "クィ"
            if c == "r"  :roma += "リ"
            if c == "s"  :roma += "シ"
            if c == "t"  :roma += "チ"
            if c == "v"  :roma += "ヴィ"
            if c == "w"  :roma += "ウィ"
            if c == "x"  :roma += "ィ"
            if c == "y"  :roma += "イ"
            if c == "z"  :roma += "ジ"
 
            if c == "by" :roma += "ビィ"
            if ( c == "cy" ) | ( c == "ty" ) :roma += "チィ"
            if c == "dy" :roma += "ヂィ"
            if c == "fy" :roma += "フィ"
            if c == "gy" :roma += "ギィ"
            if c == "hy" :roma += "ヒィ"
            if c == "jy" :roma += "ジィ"
            if c == "ky" :roma += "キィ"
            if ( c == "ly" ) | ( c == "xy" ) :roma += "ィ"
            if c == "my" :roma += "ミィ"
            if c == "ny" :roma += "ニィ"
            if c == "py" :roma += "ピィ"
            if c == "qy" :roma += "クィ"
            if c == "ry" :roma += "リィ"
            if c == "sy" :roma += "シィ"
            if c == "vy" :roma += "ヴィ"
            if c == "zy" :roma += "ジィ"
 
            if c == "ch" :roma += "チ"
            if c == "dh" :roma += "ディ"
            if c == "sh" :roma += "シ"
            if c == "th" :roma += "ティ"
            if c == "wh" :roma += "ウィ"
 
            c = ""
            swbreak
        case "u"
            if c == ""   :roma += "ウ"
            if c == "b"  :roma += "ブ"
            if c == "c"  :roma += "ク"
            if c == "d"  :roma += "ヅ"
            if c == "f"  :roma += "フ"
            if c == "g"  :roma += "グ"
            if c == "h"  :roma += "フ"
            if c == "j"  :roma += "ジュ"
            if c == "k"  :roma += "ク"
            if c == "l"  :roma += "ゥ"
            if c == "m"  :roma += "ム"
            if c == "n"  :roma += "ヌ"
            if c == "p"  :roma += "プ"
            if c == "q"  :roma += "ク"
            if c == "r"  :roma += "ル"
            if c == "s"  :roma += "ス"
            if c == "t"  :roma += "ツ"
            if c == "v"  :roma += "ヴ"
            if c == "w"  :roma += "ウ"
            if c == "x"  :roma += "ゥ"
            if c == "y"  :roma += "ユ"
            if c == "z"  :roma += "ズ"
 
            if c == "by" :roma += "ビュ"
            if ( c == "cy" ) | ( c == "ty" ) :roma += "チュ"
            if c == "dy" :roma += "ヂュ"
            if c == "fy" :roma += "ヂュ"
            if c == "gy" :roma += "ギュ"
            if c == "hy" :roma += "ヒュ"
            if c == "jy" :roma += "ジュ"
            if c == "ky" :roma += "キュ"
            if ( c == "ly" ) | ( c == "xy" ) :roma += "ュ"
            if c == "my" :roma += "ミュ"
            if c == "ny" :roma += "ニュ"
            if c == "py" :roma += "ピュ"
            if c == "qy" :roma += "クュ"
            if c == "ry" :roma += "リュ"
            if c == "sy" :roma += "シュ"
            if c == "vy" :roma += "ヴュ"
            if c == "zy" :roma += "ジュ"
 
            if c == "ch" :roma += "チュ"
            if c == "dh" :roma += "デュ"
            if c == "sh" :roma += "シュ"
            if c == "th" :roma += "テュ"
            if c == "wh" :roma += "ウ"
 
            c = ""
            swbreak
        case "e"
            if c == ""   :roma += "エ"
            if c == "b"  :roma += "ベ"
            if c == "c"  :roma += "セ"
            if c == "d"  :roma += "デ"
            if c == "f"  :roma += "フェ"
            if c == "g"  :roma += "ゲ"
            if c == "h"  :roma += "ヘ"
            if c == "j"  :roma += "ジェ"
            if c == "k"  :roma += "ケ"
            if c == "l"  :roma += "ェ"
            if c == "m"  :roma += "メ"
            if c == "n"  :roma += "ネ"
            if c == "p"  :roma += "ペ"
            if c == "q"  :roma += "クェ"
            if c == "r"  :roma += "レ"
            if c == "s"  :roma += "セ"
            if c == "t"  :roma += "テ"
            if c == "v"  :roma += "ヴェ"
            if c == "w"  :roma += "ウェ"
            if c == "x"  :roma += "ェ"
            if c == "y"  :roma += "イェ"
            if c == "z"  :roma += "ゼ"
 
            if c == "by" :roma += "ビェ"
            if ( c == "cy" ) | ( c == "ty" ) :roma += "チェ"
            if c == "dy" :roma += "ヂェ"
            if c == "fy" :roma += "フェ"
            if c == "gy" :roma += "ギェ"
            if c == "hy" :roma += "ヒェ"
            if c == "jy" :roma += "ジェ"
            if c == "ky" :roma += "キェ"
            if ( c == "ly" ) | ( c == "xy" ) :roma += "ェ"
            if c == "my" :roma += "ミェ"
            if c == "ny" :roma += "ニェ"
            if c == "py" :roma += "ピェ"
            if c == "qy" :roma += "クェ"
            if c == "ry" :roma += "リェ"
            if c == "sy" :roma += "シェ"
            if c == "vy" :roma += "ヴェ"
            if c == "zy" :roma += "ジェ"
 
            if c == "ch" :roma += "チェ"
            if c == "dh" :roma += "デェ"
            if c == "sh" :roma += "シェ"
            if c == "th" :roma += "テェ"
            if c == "wh" :roma += "ウェ"
 
            c = ""
            swbreak
        case "o"
            if c == ""   :roma += "オ"
            if c == "b"  :roma += "ボ"
            if c == "c"  :roma += "コ"
            if c == "d"  :roma += "ド"
            if c == "f"  :roma += "フォ"
            if c == "g"  :roma += "ゴ"
            if c == "h"  :roma += "ホ"
            if c == "j"  :roma += "ジョ"
            if c == "k"  :roma += "コ"
            if c == "l"  :roma += "ォ"
            if c == "m"  :roma += "モ"
            if c == "n"  :roma += "ノ"
            if c == "p"  :roma += "ポ"
            if c == "q"  :roma += "クォ"
            if c == "r"  :roma += "ロ"
            if c == "s"  :roma += "ソ"
            if c == "t"  :roma += "ト"
            if c == "v"  :roma += "ヴォ"
            if c == "w"  :roma += "ヲ"
            if c == "x"  :roma += "ォ"
            if c == "y"  :roma += "ヨ"
            if c == "z"  :roma += "ゾ"
 
            if c == "by" :roma += "ビョ"
            if ( c == "cy" ) | ( c == "ty" ) :roma += "チョ"
            if c == "dy" :roma += "ヂョ"
            if c == "fy" :roma += "フョ"
            if c == "gy" :roma += "ギョ"
            if c == "hy" :roma += "ヒョ"
            if c == "jy" :roma += "ジョ"
            if c == "ky" :roma += "キョ"
            if ( c == "ly" ) | ( c == "xy" ) :roma += "ョ"
            if c == "my" :roma += "ミョ"
            if c == "ny" :roma += "ニョ"
            if c == "py" :roma += "ピョ"
            if c == "qy" :roma += "クョ"
            if c == "ry" :roma += "リョ"
            if c == "sy" :roma += "ショ"
            if c == "vy" :roma += "ヴョ"
            if c == "zy" :roma += "ジョ"
 
            if c == "ch" :roma += "チョ"
            if c == "dh" :roma += "デョ"
            if c == "sh" :roma += "ショ"
            if c == "th" :roma += "テョ"
            if c == "wh" :roma += "ウォ"
 
            c = ""
            swbreak
        case "n"
            if c == "n" {
                // 『"n"』 + 『"n"』 の場合、「ン」を加えて子音を初期化する
                roma += "ン"
                c = ""
            } else {
                // 『"n"』 + 『"n"以外』 の場合、"n" を子音にする
                c = "n"
            }
            swbreak
        case "b"
        case "c"
        case "d"
        case "f"
        case "g"
        case "h"
        case "j"
        case "k"
        case "l"
        case "m"
        case "p"
        case "q"
        case "r"
        case "s"
        case "t"
        case "v"
        case "w"
        case "x"
        case "z"
            // 『"n"』 + 『 x 』 の場合、「ン」を加えて子音を初期化する
            if c == "n" {
                roma += "ン"
                c = ""
            }
        case "y"
            // 『 x 』 + 『 x 』 の場合、「ッ」を加えて子音を初期化する
            if c == letter {
                roma += "ッ"
                c = ""
            }
            // 子音に現在の文字を加え、新しい子音にする
            c += letter
            swbreak
        case "!"
            roma += "！"
            c = ""
            swbreak
        case "-"
            roma += "ー"
            c = ""
            swbreak
        default
            // それ以外の文字は、そのままにする
            roma += letter
            c = ""
            swbreak
        swend
 
loop
 
if c != "" {
    // 末尾の『"n"』は「ン」とする
    if c = "n" {
        roma += "ン"
    } else {
    // 未完成の場合は、そのまま表示する
        roma += c
    }
}
 
return roma
 
#global
 
#endif
 
 
// ■ サンプル ■ //
mes "＜ローマ字サンプル＞"
mes
mes "aiueo           : " + RomaToKana( "aiueo" )
mes "eichiesupi-     : " + RomaToKana( "eichiesupi-" )
mes "sari-chan       : " + RomaToKana( "sari-chan" )
mes "inta-netto      : " + RomaToKana( "inta-netto" )
mes "konnnichiwa     : " + RomaToKana( "konnnichiwa" )
mes
mes "nippon          : " + RomaToKana( "nippon" )
mes "rounyakunannnyo : " + RomaToKana( "rounyakunannnyo" )
mes "shunkashuutou   : " + RomaToKana( "shunkashuutou" )
mes "joushoukiryuu   : " + RomaToKana( "joushoukiryuu" )
mes "shuugakuryokou  : " + RomaToKana( "shuugakuryokou" )
mes
mes "myu-tanto       : " + RomaToKana( "myu-tanto" )
mes "dhizuni-rando   : " + RomaToKana( "dhizuni-rando" )
mes "who-minguappu   : " + RomaToKana( "who-minguappu" )
mes
mes "＜未完成なローマ字サンプル＞"
mes
mes "konpyu-t        : " + RomaToKana( "konpyu-t" )
mes "dhisupur        : " + RomaToKana( "dhisupur" )
 
/* ■ 補足 ■ //
 
    「 n 」の扱いは、
 
        n + 母音         で「ナ・ニ・ヌ・ネ・ノ」
        n + n            で「ン」
        n + y + 母音     で「ニャ・ニィ・ニュ・ニェ・ニョ」
        n + y以外の子音  で「ン」+ 「～」
 
    となります。
 
    例えば、コンニチワ の場合は、konnnichiwa です。
 
// ■ＥＯＦ■ */

サンプルを含めたスクリを載せておきます。
かなり強引なんで、訂正・修正して頂けると嬉しいです。
最低レベルのアルゴリズムしか思い浮かばなかったので・・・ -- りさ

力ずくな分だけ読みやすかったです（＾＾
これ以上どこを修正していいのか思いつきましぇん。 --osakana

無理矢理過ぎて、少し恥ずかしいです（＾＾；； -- りさ

↑

かなカナ変換 †

[編集]

ひらがなとカタカナを双方向変換します。まぜこぜの文字も変換可。
IEMの文字一覧と睨めっこしながら勘で作ったので恥ずかしい所があるかもしれません。

かなとカナを変換

kana0.3.2.hsp

 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
|
|
|
|
|
|
-
|
|
|
|
!
|
|
-
|
|
|
|
!
|
|
|
!

    #module "kana_kana"
    /*
        kana 変換したい文字の入った変数 , 変換モード
        変換モードの値：0=ひらがなに変換 / 1=カタカナに変換 / 2=ひらがなとカタカナを反転
    */
        #deffunc kana var v,int mode
        mode_=mode
 
            repeat strlen(v)
                //先頭バイトと後続バイトを記憶
                byte0=peek(v,cnt  )
                byte1=peek(v,cnt+1)
 
                //半角か全角か。0=半角 / 1=全角
                if ( ($81<=byte0)&(byte0<=$9f) | ($e0<=byte0) ) {
 
                    //ひらがなかカタカナか。ひらがな:flg=0、カタカナ:flg=1、それ以外:flg=-1
                    flg = -1
                    if (byte0 = $82) & (byte1 >= $9f)&(byte1 <= $f1)    :flg=0
                    if (byte0 = $83) & (byte1 >= $40)&(byte1 <= $96)    :flg=1
 
                    //反転モードなら
                    if mode=2    :mode_=flg!1
 
                    //ひらがなに変換
                    if mode_=0 & flg=1 {
                        if byte1 < $7e  { a = byte1-$a1 + 256*(byte1<$a1) }
                        else            { a = byte1-$a0 + 256*(byte1<$a1) }
                        poke v,cnt  ,a/256+byte0-(byte1<$a1)
                        poke v,cnt+1,a\256
                    }
 
                    //カタカナに変換
                    if mode_=1 & flg=0 {
                        if byte1 < $dd  { a = byte1+$a1 }
                        else            { a = byte1+$a2 }
                        poke v,cnt  ,a/256+byte0
                        poke v,cnt+1,a\256
                    }
 
                    //全角なので2バイト進む
                    continue cnt+2
                }
 
            loop
 
        return
    #global
 
    mes "原文　　：えイちえスぴ～"
 
    a="えイちえスぴ～"
    kana a,0
    mes "モード0 ："+a
 
    a="えイちえスぴ～"
    kana a,1
    mes "モード1 ："+a
 
    a="えイちえスぴ～"
    kana a,2
    mes "モード2 ："+a
 
    mes "\nまぜこぜ 原文　　：えHイSちPえ素ス敵ぴ～"
    a="えHイSちPえ素ス敵ぴ～"
    kana a,2
    mes "まぜこぜ モード2 ："+a

半角・全角チェックもしてるとはステキですね（＾＾／
色々試したんですが、バグは見つかりませんでした！ -- りさ

チェック有難うございます。
実はこれローマ字をカナに変換するに触発されて作ったのでした（☆_☆
誰にも分からない所で微修正しました（美修正ならいいのに・・・）
しかも kana04 から kana0.3.2 にダウングレード！・・・した訳じゃなく、
ファイルをリネームしてたらこうなっちゃいました。 --osakana^

↑

自動改行 †

[編集]

HSP2用のサンプルです。
コンテスト終了後にHSP3用に移殖しようかと思っていましたが、進行状況が早いようなのでHSP2版をそのまま（実行サンプルつき）で貼り付けておきます。

自動改行 for HSP2

kaigyo.as

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
!
-
|
!
-
|
!
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
-
|
!
|
|
-
-
|
-
|
|
|
|
-
|
|
|
|
|
|
|
|
|
!
|
-
|
|
|
|
|
-
|
|
|
|
!
!
|
-
|
-
|
|
|
!
|
!
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
-
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
|
|
|
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
|
|
|
|
!

 
//////////////////////////////////////////////////////////////////////
//◆指定文字数での自動改行（簡易禁則処理に対応）
//
//psb_kaigyo2 p1, p2, p3, p4
//p1=文字列変数	：結果の出力用変数。
//p2=文字列変数	：変換対象文字列の変数
//p3=20(0～255)	：改行する文字数。省略時 20(Byte単位)
//p4=0 or 1	：禁則処理のon/off(0:on/1:off)(初期値：0(on))
//
//禁則処理の対象となる文字
//	、。，．・？！゛゜ヽヾゝゞ々ー）］｝」』
//禁則処理をonにすると、これらの文字をできるだけ行末に収めるようにします。
//
//＊p1はp2よりも改行が加わる分大きくなるのでオーバーフローしないように
//十分おおきなメモリを確保しておいてください．
 
#module
#deffunc psb_kaigyo2 val,val,int,int
    mref outmes, 24        //出力用変数
    mref p1, 25        //変換対象文字列
    mref mojisu_max, 2    //改行文字数
    mref fpkins, 3        //禁則処理のon/off(0:on/1:off)(初期値：0(on))
    mref st,64        //statには行数を返す。
 
sdim getmes,256        //ここのせいで文字数に制限が出来てしまった。
 
//パラメータ省略時の処理
if mojisu_max <= 0 {
    mojisu_max = 20
}
if mojisu_max >= 255 {
    mojisu_max = 255
}
if fpkins ! 1 {
    fpkins = 0    //1意外なら禁則処理on
}
 
 
p2=0    //改行の次の位置
strlen lp1, p1
i=0    //p1を検査している位置
a=1    //p1のi文字目のコード
repeat lp1        //文字列の長さ分繰り返す。
    peek a, p1, i
    if a=0 :break    //文字列が終わったらループを出る。
 
    //１文字づつ、「改行」か「全角」か「半角」かしらべる。
    if a=13 {
        //改行だった場合。
        strmid getmes, p1, p2, i-p2
        outmes = outmes + getmes +"\n"
        peek aa, p1, i+1
        if aa=10 {
            i++
        }
        p2 = i + 1
        i++
    } else {
        if (((a>=129)&(a<=159))|((a>=224)&(a<=252))){
            //全角だった場合。
            if (i-p2+1) >= mojisu_max {
 
                //禁則文字対象文字かどうか調べる。
                //禁則処理とは「。、」などは必ず行末に収めるようにする処理のこと。
                fkins = 0    //禁則処理用フラグ
                if fpkins = 0 {
                    strmid kins, p1, i, 2
                    kinsoku = "、。，．・？！゛゜ヽヾゝゞ々ー）］｝」』"    //対象文字（２バイト文字のみ可）
                    strlen lkinsoku, kinsoku
                    j=0
                    repeat lkinsoku/2
                        strmid kins_a, kinsoku, j,2
                        if kins_a = kins : fkins = 1    //禁則処理適用をonにする。
                        j=j+2
                    loop
                }
 
                if fkins = 1 {
                    //禁則処理を行う場合。
                    strmid getmes, p1, p2, i-p2+1+1
                    i=i+2            //２バイト追加したのでここでも追加。
                    p2 = i
                    outmes = outmes + getmes +"\n"
                } else {
                    //禁則処理を行わない場合。
                    strmid getmes, p1, p2, i-p2
                    p2 = i
                    outmes = outmes + getmes +"\n"
                }
            }
            i=i+2    //２バイト文字
        } else {
            //半角だった場合。
            if (i-p2+1) >= mojisu_max {
                strmid getmes, p1, p2, i-p2+1
                outmes = outmes + getmes +"\n"
                p2 = i + 1
            }
            i++
        }
    }
loop
 
strmid getmes, p1, p2, i-p2
outmes = outmes + getmes
 
notesel outmes
notemax st
return
#global
//////////////////////////////////////////////////////////////////////
 
 
//////////////////////////////////////////////////////////////////////
//◆　文字列を３行づつに分割
//psb_cmesline p1,p2,p3
//p1=入力文字列
//p2=出力用文字列変数
//p3=0(0～)	：1,2,3...番目は順に0,1,2...となる。
//stat		：何分割したかが入る。(p3の最大値に相当する。)
#module
#deffunc psb_cmesline val,val,int
    mref p1, 24        //入力文字列
    mref cget, 25        //出力用文字列変数
    mref cmaxg, 2        //取り出すメッセージ番号(0～)0とすると１番目が返る。
    mref st, 64        //stat：分割数。メッセージ番号最大値。
 
sdim outmes, 255*3*40        //3*40行分確保
psb_kaigyo2 outmes,p1,mb_xmax@psbsm1    //最大文字数で改行。
max=stat
 
maxl=max/3
maxa=max\3
if maxa=0 {    //cmax：何分割する必要があるか、分割数。
    cmax = maxl
} else {
    cmax = maxl + 1
}
;cmaxg = 1	//ほしいもの
 
 
sdim gyou3,256*3    //最大３行分のメッセージが入る。
 
cmaxl=0            //３行の塊の個数のカウント用
i=0
repeat maxl            //3行づつ取り出す。
    repeat 2
        noteget gyou,i
        gyou3 = gyou3 + gyou +"\n"
        i++
    loop
    noteget gyou,i
    gyou3 = gyou3 + gyou
 
    if cmaxg = cmaxl : cget=gyou3
 
    gyou3="" : gyou = ""
    i++
    cmaxl++
 
loop
 
//３行未満のところがあったときの処理。
if maxa >= 1 {
    repeat maxa-1            //3行づつ取ったあまり行
        noteget gyou,i
        gyou3 = gyou3 + gyou +"\n"
        i++
    loop
    noteget gyou,i
    gyou3 = gyou3 + gyou
 
    if cmaxg = cmaxl : cget=gyou3
}
 
st = cmax-1    ;stat
return
#global
//////////////////////////////////////////////////////////////////////
 
 
;sample
 
sdim stra,256
sdim strb,256
sdim strc,256
 
;	自動改行サンプル
mes "■自動改行サンプル"
stra = "こんにちわ、世界。アドベンチャーエンジンを作りましょう！\nエンジンの世界は広大です。"
mes stra
mes ""
 
psb_kaigyo2 strb, stra, 20
mes "12345678901234567890123456"
mes strb
mes "12345678901234567890123456"
 
 
;	３行づつ取り出しサンプル
mes "\n------------------------------\n■３行づつ取り出しサンプル"
strb = {"
1行目
2行目
3行目
4行目
5行目
6行目
7行目
8行目
"}
psb_cmesline strb, strc, 0
tmax = stat+1
i++
repeat tmax
    mes "-------------"
    mes ""+strc
    psb_cmesline strb, strc, i
    i++
loop
 
 
 
stop

自動改行はもともとはどなたかが公開されていたものだったと思います。どこだったか忘れたしまいました。すみません。(- -;　これはそれに若干手を加えたものだったと思います。（どの程度手を加えたのかすら忘れてしまった…orz） -- GENKI?
HSP3用のものはString/改行にあります。より高機能になっています。

↑

コメント †

[編集]

命令形式の取得を出来たとこまでアップしました。
形式：get_meirei 解析データを入れる変数,シナリオ１行,命令を区切るキャラクタ~ -- osakana 2006-10-20 (金) 10:53:56
感想とかおねがいします。 -- osakana 2006-10-20 (金) 10:56:58
どちらかといえば、構文解析でしょうか（＾＾☆　（できればでいいんですが、）ちょっとした要望を書きましたんで、見てみてくだサイ☆ -- りさ 2006-10-20 (金) 12:50:52
要望と意見有難うございます。私もどれが良いのだろう？と思いながらなので、色々突っ込んでくれると助かります。 -- osakana 2006-10-20 (金) 13:16:44
私のイメージとしては、main内で、命令1つ、2つで必要な命令データを取得できれば、すっきりするのでは？と言った感じなのでわざとここに書いてます。 -- osakana 2006-10-20 (金) 13:18:32
パラメータ省略時に-1だと、パラメーターに-1を使いたい時に困りそうなので、別に省略かどうかを保持しています。どうなんでしょう？自分でもよく分からん（＠_＠） -- osakana 2006-10-20 (金) 13:35:09
シナリオから読み取るデータは文字列ですから、トークンに分解した時、パラメータが空なら省略。たとえば『color 1,,2』だと文字列としてトークン分解で得られるのは"color", "1", "", "2"だから、省略かどうかは文字列が空かどうかで判断できます。 -- 2006-10-20 (金) 13:47:41
見直したら保持してませんでした。保持してるのは文字数でした。おさわがせでした。 -- osakana 2006-10-20 (金) 13:53:02
どの命令が、引数をいくつ持つのか、をプログラム内で定義しとけば読み取るパラメータはパラメータの最大数でなく、その命令が必要とする数だけ読み取ればよかったりします。 -- 2006-10-20 (金) 13:53:22
そっか！、たしかにそれが正攻法かも。 -- osakana 2006-10-20 (金) 13:53:57
どこで、どういう形で定義するのが理想的でしょうか？ -- osakana 2006-10-20 (金) 13:57:18

理想は分からないので、例としては

; コマンドとコマンドが要するパラメータの数を一元管理(モジュール)して
cmd_list = "color", "font", "pos"
prm_list = 3, 3, 2
; get_prmmax() コマンド名を引数に与えると必要なパラメータ数を返す。
repeat get_prmmax(command)
    ; シナリオ一行からパラメータ取得
loop

とか？

と言う事は別にテキストファイルに命令名とパラメーター数を書いておいて、読み込むのでもよさそうね。 -- osakana 2006-10-20 (金) 14:13:59
たとえば、
```
;text file
mes 1
pos 2
Frame 4
```
て、かんじで。 -- osakana 2006-10-20 (金) 14:20:10
開発時はそんな感じですね。 -- 2006-10-20 (金) 14:22:50
どうでしょう（＾＾？数多くの命令の分だけの多次元配列を用意して判定するロスと、TOKEN_NUM分だけループするロス（＾＾；どっちが優位だと思いますか？？ -- りさ 2006-10-21 (土) 13:27:43
決して反論してるわけではないので、ご理解ください☆ -- りさ 2006-10-21 (土) 13:28:16
分かります。たしかに、そこなんですよね　今の所全トークン処理でやって、連想配列とか実装されたらまた考えれば良いですね。 -- osakana 2006-10-21 (土) 18:37:40
私も日に日に考えが変わってきてます。いい意味で[^^]（サンプル書き直し中・・・） -- osakana 2006-10-21 (土) 19:03:42
若干変更でいささか読み良くなりやした。どうでしょうか？ -- osakana 2006-10-24 (火) 11:16:30
しばらくたって、トークン分解をモジュールにする必要が無いのに気が付いた。 -- osakana 2006-10-24 (火) 11:18:53
DelSpace? をタブ対応にしました。どうだしょう？（だ？ -- osakana 2006-10-24 (火) 11:19:55
囲み文字と、影文字のモジュールを追加しました。お口に合いますでしょうか？（笑） -- osakana 2006-10-24 (火) 11:53:18
あっ～こういうのも欲しかったんです☆tStrと融合させるのがイイんでしょうか（＾＾？それともこのモジュールからtstrを呼び出せばいいのかな？？ -- りさ 2006-10-24 (火) 12:02:51
ん～どっちがいいんでしょうね？このままモジュールが増えていったらファイルが多くなってきますしフォルダに分けてしまうとか、たとえばmdlフォルダとlblフォルダにそれぞれまとめる。それか雑用モジュールを１つのファイルにまとめるとか？ -- osakana 2006-10-24 (火) 13:43:45
あ、使う時はいつもの様にナイスネーミングにしといてくださいね（~n~; -- osakana 2006-10-24 (火) 14:04:49
あと修正も。（コラ) -- osakana 2006-10-24 (火) 14:07:11
一番ソースの量が少なくて済むように、tStr命令の中で展開しました（＾＾☆ ポイントだけ抑えて、内部で使用させていただきますねっ -- りさ 2006-10-24 (火) 16:41:26
あと、DelSpace? はまったく問題なかったので、そのまま使わせて頂くことにしました☆ TAB と SPACE の定義をmain に移させて貰いました。このマクロは便利デスね～★どうしていままで思い浮かばなかったんでしょうアタシ（笑） -- りさ 2006-10-24 (火) 16:42:43
この便利マクロ？は結構思いつきで書いたんですが、昇進出来たようで嬉しく思います。 -- osakana 2006-10-25 (水) 02:26:09
通常記号はいいんですが（逆にマクロ化すると読み辛い）、タブ・スペース・セミコロン・ダブルクォーテーション・シングルクォーテーションだけは、マクロの方が読みやすいデスね（＾＾☆エディタの色分けもハッキリしますし♪ -- りさ 2006-10-25 (水) 14:00:24
昔作ったAVGもどきのモジュールから使えそうなのを引っ張り出してきました。スペース削除と自動改行です。参考に…なるでしょうか。HSP2用なのはご容赦を。 -- GENKI? 2006-10-26 (木) 23:11:07
今更ながらコメント追加しました。でももう解析済みでしょう（＝x＝）今後の方の為に！と言う事にしとこう（エ_エ） -- osakana 2006-11-09 (木) 02:39:22
袋文字と影文字を少し整理しました。 -- osakana 2006-11-13 (月) 21:29:46
袋文字若干速度アップアップ（ーxー;) -- osakana 2006-11-13 (月) 21:31:26
「囲み文字」は①とか②とかのことで、ここにある囲み文字のモジュールが出力するヤツは「袋文字」と言うようです。 -- GENKI? 2006-11-13 (月) 21:31:41
袋文字と影文字は組み合わせて使いたい場合もあると思うので（実際ペイントソフトでは組み合わせる）、１個の命令にまとまるといいな、思うのですが…どうでしょう？ -- GENKI? 2006-11-13 (月) 21:43:40
袋文字というんですね！有難うございます。では後でごっそり直しておきたいと思います。それと袋文字とか囲み文字の違いをどこかに書いてもらえると助かります。 -- osakana 2006-11-13 (月) 22:21:19
なるほど、１つの命令にするのは良さそうですね。お互いのパラメーターとかをどう統合すれば一番良いのかまだ思い付きませんが、ちょっくら取り掛かってみます。アイデアがあったら教えて下さい。 -- osakana 2006-11-13 (月) 22:26:19
輪郭文字は袋文字の中色を透明色にした文字のこと…っぽい感じ。検索しても明確な説明の記述見つけられなかった。 -- GENKI? 2006-11-13 (月) 23:50:04
勘違いしてました。①とか②の見た目そのものが例だったんですね。①や②の例がどこにあるのか探してしまいました（恥）輪郭文字は真ん中を抜いた物だったのですね、これはgcopyとか使えば出来そうですね。 -- osakana 2006-11-14 (火) 00:49:15
上の説明有難うございますしかも画像入り。私も詳しく無いのに作っちゃっているので、色々な助言助かります。 -- osakana 2006-11-14 (火) 00:55:29
直しておきました。 -- osakana 2006-11-14 (火) 04:49:47
一個にまとめるのに苦戦してます。処理じゃなく仕様に・・・。たとえば引数山盛りにして一個の命令にするか、それとも　別に色などを設定する命令を作るべきか・・・どうしましょう？ -- osakana 2006-11-17 (金) 10:07:29
そうですね。毎回引数てんこもりだとちょっと困りものですね。分けたほうがいいと思います。２つぐらい？使用頻度で分けたらこんなかんじでしょうか。 -- GENKI? 2006-11-17 (金) 20:31:57
- 文字色　…これはcolor命令が反映されるのが自然な感じです。
- 影の色、枠色、影の位置、枠の太さ、枠の角　…この辺はあまり頻繁に変えなさそう。
- 文字列　…変更頻度が高いのはコレぐらいでしょうか？
私も分けるとしたら3つ位かなと思ってましたが、やはり３つで良さそうですね。 -- osakana 2006-11-18 (土) 01:46:08
あっ、２つでした・・・。でも３つバージョンで作ってます・・。 -- osakana 2006-11-18 (土) 21:16:41
一応完成ましたので公開しました。 -- osakana 2006-11-23 (木) 03:24:04
影と袋のそれぞれの設定と出力とで３つでしたか。分かりやすくていい感じです。 -- GENKI? 2006-11-23 (木) 20:54:03
ダメと言われたらどうしようかと.....(^^)。後はもう少し解説書いたりこれを使ったサンプルを作ろうかと思ったりしてます。 -- osakana 2006-11-24 (金) 01:18:59
袋文字の角を丸くする方は自分では作れないorz　ルートを利用するなんて自分には思いつかなかった。年が少なすぎたかｗ -- 七次元? 2006-11-24 (金) 17:09:42
これはピタゴラスの定理に基づいた有名な公式みたいです（違うか？）。そういう私も割と最近知りました。（殆ど勉強して来なかったので私にとっては皆優秀に見えて仕方ない） -- osakana 2006-11-24 (金) 18:07:42
あっ。長さが分かるならば、片方の端を固定したひもをピーンと張って回せば円になる、というのがもしかしたら使えるのでは？と思い付いて試したら出来たみたいな・・・。（sin cosを使った方が素直なのでしょうが。） -- osakana 2006-12-04 (月) 19:48:15
装飾文字モジュールのサンプルがやっと出来たので更新しました。 -- osakana 2006-12-04 (月) 20:23:01
こんにちは。開発とは関係がないのですがひらがなカタカナ変換モジュールを自身のプログラムに使わせていただいてよろしいでしょうか？？ -- As 2007-01-28 (日) 02:44:30
Asさんこんにちは、こんなのでよければ自由にお使い下さい。自分で作っといて言うのもおかしいですが正直あんまり使い道が思いつかなかったので（^^)お役に立てればどうぞです。 -- osakana 2007-01-28 (日) 14:28:22
有難うございます wpeekを使って作っていたのですが、どうもうまくいかず挫折してしまいまして何かないかと探しておりました(笑) -- As 2007-01-28 (日) 15:35:08
行頭と行末のタブとスペースを取り除くモジュールを行頭と行末のタブとスペースを取り除くモジュールに書かせていただきました。2byte文字のも対応しました -- y.tack? 2008-12-18 (木) 11:36:58

↑

参考モジュール †

[編集]

String	文字列操作関連。シフト、矩形、置換、比較、連結、CSV形式データの読み込みなど。
文字列の計算モジュール	文字列で記述した計算式を計算するモジュール。
構文解析

*1 丸で囲んだ数字の１。PCによっては文字化けを起こすためネット上などではあまり使われない。

添付ファイル:

sousyoku_moji1.2_sample.hsp 263件 [詳細]

sousyoku_moji1.0.hsp 269件 [詳細]

moji01.as 264件 [詳細]

mdl_rtk.hsp 267件 [詳細]

mdl_delspace.as 248件 [詳細]

kana0.3.2.hsp 248件 [詳細]

kaigyo.as 267件 [詳細]

kage_moji_macro.hsp 293件 [詳細]

kage_moji05.hsp 279件 [詳細]

kage.png 231件 [詳細]