独自言語なんて言うとばかにされますよ……
と、ばかにされる前にやわらかく言っておくことによってばかにされることを防ぎつつ、
とりあえず一番簡単なのは以下の例だと思います。
Source = " Font {\nメッセージを表示\n改行\n}\n"
notesel Source
repeat notemax
noteget ThisLine, cnt
;命令開始
if instr( ThisLine, 0, "{" ) != -1 {
ThisLine = strtrim( ThisLine, 3, ' ' )
ThisLine = strtrim( ThisLine, 3, ' ' )
ThisLine = strtrim( ThisLine, 3, '{' )
NowFunc = ThisLine
continue
}
;命令終了
if instr( ThisLine, 0, "}" ) != -1 {
NowFunc = -1
continue
}
;命令実行
;Font命令
if NowFunc == "Font" {
mes ThisLine
}
loop
noteunsel