2013年2月10日投稿 / 投稿者 : いったん / タグ : 投稿プログラム ツール QRコード mkII専用 MML
最近知ったのですがmml はオンラインゲーム「mabinogi」においても使われているそうです。
が、<>の記号が逆だったりVが1〜15だったりチャンネル指定が「,」だったりしてそのままおちおちコピペすると直すのに時間がかかります。
いやほんとにmml は方言が多いですね。
マビノギのMMLはプチコンと文法が違うのでこのプログラムではそれを直します。
作者はマビノギについてはmml しか知らず、その上マビノギはやっていないのでご了承ください。
プログラム名の先端に「ITNと付けてみました」(他の方と区別するため)
調べてみたら修正しきれていない所ありました。まあそこは手作業で!
実装済み
未実装(実装予定ではない。)
プチコンmkII 向けの QR コードです。
この量で1枚に収まるという不思議。
- ’mabinogi mml →
- ’ petitcomputer mml
- ’ ヘンカン ツ−ル
- ’ by ittan
- ’−−−BGMサイセイヨウ テンフ゜レ−ト−−−
- ’BGMSETD 224,@BGM
- ’BGMPLAY 0,224
- ’ACLS
- ’LOCATE 0,0
- ’?”mml サイセイチュウ。 ホ゛タンヲオスト トマリマス。”
- ’FOR I=0 TO 1
- ’ CNT=CNT+1 AND 31
- ’ FOR _IF=1 TO CNT==0
- ’ LOCATE X,Y:?CHR$(0);
- ’ X=RND(32):Y=RND(23)+1
- ’ LOCATE X,Y:?”♪”;
- ’ NEXT _IF
- ’ I=BTRIG() AND 1023
- ’ VSYNC 1
- ’NEXT I
- ’BGMSTOP 0,2
- ’END
- ’−−−−−−−−−−−−−−−−−−−−−−−
- ’STEP1
- ’APPEND”FILENAME”
- ’STEP2
- ’サイコ゛ニ DATA 0
- ’STEP3
- ’RUN & PAST
- CLS
- ?”マヒ゛ノキ゛ ヨウ MMLヘンカン ツ−ルv2.0”
- ?
- IF LF THEN @KEY
- CLEAR
- DIM A$(100)
- RESTORE @MML
- FOR I=0 TO 99
- READ A$(I)
- IF A$(I)==”0” THEN X=I:I=99
- NEXT
- O=1
- SFLG=0
- IF INSTR(A$(0),”MML@”)==0 THEN A$(0)=RIGHT$(A$(0),LEN(A$(0))−4)
- IF INSTR(A$(0),”:0”)==−1 THEN A$(0)=”:0”+A$(0)
- FOR Y=0 TO X−1
- FOR I=0 TO LEN(A$(Y))−1
- IX=−1
- @LP
- IX=IX+1
- B$=MID$(A$(Y),I+IX,1)
- S$=S$+B$
- IF S$>=”a” AND S$<=”z” THEN S$=CHR$(ASC(S$)−32)
- IF S$==”<” THEN S$=”>” ELSE IF S$==”>” THEN S$=”<”
- IF S$==”,” THEN S$=CHR$(13)+”DATA”+CHR$(34)+”:”+STR$(O):O=O+1
- IF S$==”;” THEN S$=CHR$(0)
- IF SFLG AND B$<=”9” AND B$>=”0” THEN GOTO@LP
- IF SFLG THEN S$=”V”+STR$(VAL(S$)*8)+B$
- IF B$==”V” OR B$==”v” THEN SFLG=1:S$=””:GOTO@LP
- A$(Y)=SUBST$(A$(Y),I,1+IX,S$)
- SFLG=0
- S$=””
- NEXT
- LOCATE 0,CSRY−1
- ?Y/(X−1)*100”%”+CHR$(0)*5
- NEXT
- LF=TRUE
- U=0
- ?
- ?”ヘンカンシュウリョウシマシタ。
- ?”モウイチト゛RUN シテ クタ゛サイ。
- ENDF=FALSE
- FOR I=0 TO X
- K$=”DATA”+CHR$(34)+A$(I)+CHR$(13)
- IF A$(I)==”0” THEN K$=”DATA ”+A$(I)+CHR$(13)
- IF I==0 THEN K$=”@BGM”+CHR$(13)*2+K$
- A$(I)=K$
- NEXT
- END
- @KEY
- FOR I=0 TO 4
- K$=””
- FOR _DO=0 TO 1
- K$=K$+A$(U)
- U=U+1
- ENDF=A$(U)==””
- _DO=(LEN(K$)+LEN(A$(U)))>256 OR ENDF
- NEXT
- KEY I+1,K$
- NEXT
- IF ENDF THEN LF=0:?”サイコ゛ノ テ゛−タ テ゛ス。” ELSE ?”FONC 1―5ヲ ニュウリョクシテ モウイチト゛RUN”
- END
- @MML
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.118 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:15 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30