2011年09月13日投稿 / 投稿者 : 名無しさん / タグ : 投稿プログラム ツール 初代対応 QRコード
簡単なフォントエディタのようなものを作ってみました。
簡易なので使える色は白だけです。
作ったフォントはSTARTボタンでファイルメニューを開いてセーブできます
Rボタン+左ボタン+STARTボタンでリセットできます。
十字キーで選んで
タッチパネルで入力して下さい。
ドラクエのフォントを打ち込んでみたりしたけど、これだと逆にカタカナが使えなくなる
RPG作ろうと思ったらBGUを使ったほうがいいと思う。
キーボードのデザインを変更できたらもうちょっと使いやすいんだけど。
- CLS:CLEAR
- PNLTYPE ”OFF”
- GPAGE 1:GCLS 5
- BGPAGE 1
- COLSET ”BG”,0,”000000”
- COLSET ”GRP”,0,”000000”
- COLSET ”GRP”,15,”FFFFFF”
- COLSET ”GRP”,2,”AAAAAA”
- GOSUB @FOC
- GOTO @START
- @FOC
- LOCATE 0,15
- FOR I=0 TO 255
- ?CHR$(I);
- NEXT
- RETURN
- @START
- PX=256/2:PY=192/2
- S=8*8:SL=S/4:SF=8*15
- GBOX PX−S,PY−S,PX+S,PY+S,2
- FOR I=0 TO 7
- GLINE PX−S+SL*I,PY−S,PX−S+SL*I,PY+S,2
- GLINE PX−S,PY−S+SL*I,PX+S,PY−S+SL*I,2
- NEXT
- FOR I=0 TO 7
- FOR J=0 TO 7
- GPAINT PX−S+4+SL*I,PY−S+4+SL*J,0
- NEXT:NEXT
- GOSUB @BGF
- @LOOP
- VSYNC 1
- TCT=TCHTIME
- IF TCT==1 THEN GOSUB @TC
- IF TCHST THEN GOSUB @MJS
- GOSUB @BTN
- IF BTN THEN GOSUB @BGF
- GOTO @LOOP
- @BTN
- GPAGE 0:GCLS 0
- BTN=BUTTON()
- IF BTN THEN BTF=BTF+1
- IF BTN==0 THEN BTF=0:BTC=1
- GFILL 8*(FN%32),SF+FLOOR(FN/32)*8,8*(FN%32)+7,SF+FLOOR(FN/32)*8+7,2
- IF (BTN AND 1)!=0 AND BTF%5==1 THEN FN=FN−32
- IF (BTN AND 2)!=0 AND BTF%5==1 THEN FN=FN+32
- IF (BTN AND 4)!=0 AND BTF%5==1 THEN FN=FN−1
- IF (BTN AND 8)!=0 AND BTF%5==1 THEN FN=FN+1
- IF FN>255 THEN FN=255
- IF FN<0 THEN FN=0
- IF (BTN AND 1024)!=0 AND BTC THEN GOSUB @FM
- LOCATE 0,0:?”FONT ”;FN;” ”
- GPAGE 1
- RETURN
- @TC
- X=TCHX:Y=TCHY
- IF GSPOIT(X,Y)==15 THEN GPAINT X,Y,0:GOTO @SL
- IF GSPOIT(X,Y)==0 THEN GPAINT X,Y,15
- @SL
- RETURN
- `−−−ファイル モート゛
- @FM
- LOCATE 0,5:?”ファイル モート゛”
- LOCATE 0,6:?”S = フォント セーフ゛”
- LOCATE 0,7:?”L = フォント ロート゛”
- LOCATE 0,8: ?”−−−−−−−−−−−−−−−−−−−−”
- INPUT F$
- IF F$==”L”THEN INPUT ”ヨミコム ナマエ”;F$:F$=”BGF0:”+F$:LOAD F$,0:BGPAGE 0:LOAD F$:BGPAGE 1
- IF F$==”S”THEN INPUT ”カキコム ナマエ”;F$:F$=”BGF0:”+F$:SAVE F$
- CLS:GOSUB @FOC
- RETURN
- `−−−BGF0 ニ カキコミ
- @MJS
- FO$=””
- FOR J=0 TO 7
- FOR I=0 TO 7
- FO$=FO$+HEX$(GSPOIT(PX−S+4+SL*I,PY−S+4+SL*J))
- NEXT:NEXT
- BGPAGE 0:CHRSET ”BGF0”,FN,FO$
- BGPAGE 1:CHRSET ”BGF0”,FN,FO$
- RETURN
- `−−−ヨミコンテ゛ ヒョウシ゛
- @BGF
- CHRREAD (”BGF0”,FN),FO2$
- FOR I=0 TO 7
- FOR J=0 TO 7
- IF MID$(FO2$,J*8+I,1)==”0”THEN GPAINT PX−S+4+SL*I,PY−S+4+SL*J,0
- IF MID$(FO2$,J*8+I,1)!=”0”THEN GPAINT PX−S+4+SL*I,PY−S+4+SL*J,15
- NEXT:NEXT
- RETURN
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.107 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:16 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30