ゲームを作りたい人のための ソースコード集

私がその日作った短めのソースを簡単な解説とともに載せていきます
ゲーム制作初心者にとって参考になるかもしれないソースが多いです


<< 一日ゲームNo.9「旅人RPG」 | main | 遠近法 >>



化学式表記

単語を化学式みたいに表示するプログラムです
数字の部分を若干ずらして表示します
あくまでそれっぽい表記が出来るだけです。化学式全てに対応しているわけではないのであしからず



#module
#deffunc chemical str charstr
    mref bmscr,67    ;BMSCR構造体取得
    sdim fontname
    getstr fontname,bmscr,$E0    ;フォント名
    bsize=bmscr(49)                ;英字のフォントサイズ
    ssize=bmscr(49)/4*3            ;数字のフォントサイズ
    tcharstr=charstr
    cx=ginfo(22):cy=ginfo(23)
    tcx=cx:tcy=cy                ;文字描写位置
    repeat strlen(tcharstr)
        ccode=peek(tcharstr,cnt)
        tcy=cy
        if 48<=ccode&ccode<=57{    ;文字が数字の場合
            font fontname,ssize
            tcy+abs(bsize)/2
            pos tcx,tcy:mes""+strf("%c",ccode)
            font fontname,bsize
        }else{                    ;文字が英字の場合
            pos tcx,tcy:mes""+strf("%c",ccode)
        }
        tcx+ginfo(14)
    loop
    return
#global

font msgothic,40
pos 0,0:mes"水"
pos 250,0:chemical "H2O"
pos 0,50:mes"二酸化炭素"
pos 250,50:chemical"CO2"
pos 0,100:mes"酸素"
pos 250,100:chemical"O2"
0
    posted by higashijugem 18:33comments(0)|-|


    この記事に対するコメント