[FM]FULLMSX for BLOG

詳しいMSXパソコンなどの情報はホームページで!
https://fullmsx.web.fc2.com/

MSX2でアニメを 漢字グラフィック 外字作成で絵文字 マシン語モニタ制作?

2011-03-04 21:15:18 | MSX版GW関連

ブログ編集に使っているHTMLエディタの感想ですが、

今までEnterキーで行間が空いていました。

確かにShift+Enterキーで<BR>は構いませんが、
私はワープロと同じ操作の方がよいと思います。
さて、

今回は絵文字を入れてみることにします。
メッセージに絵文字を多用するのはあまりよくありませんが、
雰囲気をやわらげる効果があると思います。
まず、外字作成プログラムで絵文字枠を作ります。

このように入れたいところでEnterキーを押します。
2箇所以上あっても絵文字枠を作ることができます。
そして、ESCキーで保存したら、DEで外字を作ります。

こうすれば文字の大きさがわかりますね。
ワクを消して保存して、KLDで文字を書きます。

こんな感じに入りました!
少し長いですが、漢字グラフィックファイルを
ロードさせて使ってみてください。

100 'save"kld-oft.bas"
110 LINEINPUT"FILE:";F$
120 SCREEN5:SETPAGE1,1
130 KEY2,F$:COPYF$TO(0,0),1
140 XX=X*16:YY=Y*16
150 COPY(XX,YY)-(XX+15,YY+15),1TO(XX,YY),0
160 LINE(XX,YY)-(XX+15,YY+15),15,B
170 S=STICK(0):I$=INKEY$:IFS=0GOTO250
180 TIME=0:FORZ=0TO10:Z=TIME:NEXT
190 COPY(XX,YY)-(XX+15,YY+15),0TO(XX,YY),1
200 IF S=1ANDY>0  THENY=Y-1
210 IF S=3ANDX<10 THENX=X+1
220 IF S=5ANDY<10 THENY=Y+1
230 IF S=7ANDX>0  THENX=X-1
240 GOTO140
250 IFI$=CHR$(13)THEN140
260 IFI$=CHR$(27)GOTO280
270 GOTO170
280 COPY(XX,YY)-(XX+15,YY+15),0TO(XX,YY),1
285 SCREEN0:LINEINPUT"FILE:";F$
290 SCREEN5:SETPAGE1,1:COPY(0,0)-(190,190)TOF$:END

今回は地味に終わりましたが、
最初にキャラクタの顔を描いたりしてみると
名前の省略にもなるし、誰が話しているかがよくわかります。
特に3人くらいで2キャラクタのみ表示している場合など
シーンで言えば、マスターがいて、2人で酒場で話している場合がよいでしょうね。

こんなことも★

MSXコンテンツのチェックをやっていました。
少し残念な事があります。インフォシークiswebが終了した事で
MSXBASICで使用できたSUPER-Xをダウンロードできなくなりました。
生き残りはSHEMだけとなりました。
SHEMはMSX-DOSがないと起動できないので、
これからマシン語を始めることは難しくなりますねぇ。

SCREEN8の00~FFで16KBでアセンブラを考えているんですけどね。
ブロック転送はCOPY命令でコピペすればできるかなと思ったり
VRAMの8000Hから書いていき、Sオプションを外せば実行できたらなぁ。
このミニアセンブラで組めれば少し楽しさが戻ることもありそうな感じがします。
8000HからD000Hまでなら、書けそうですね。

 

コメント
  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする