RPG風の名前選択を作りたいのですが
Xで一文字消してCで一文字描画するのですがなぜかひらがなにするとXで2文字消えたりおかしな現象が起こるのですが
screen 0,640,500 w="" namae="" moziretu="" dim key,256 repeat getkey key(13),13 getkey key(67),67 getkey key(88),88 stick ky if ky=1:cur-- //カーソルキーで移動します。 if ky=2:cur-=10 if ky=4:cur++ if ky=8:cur+=10 cur=limit(cur,0,50) redraw 0 pos 0,20 gcopy 10,0,0,640,480 //背景をクリｱします。 p=0 repeat 5:y=cnt repeat 10:x=cnt pos x*40+30+100,y*40+20+270:poke w,0,p-79:mes w//文字を描画してから if cur=p & mc\10<7:pos x*40+30-20+100,y*40+20+270:mes "≫" //カーソルを描画します。 p++ font "MSゴシック",20,1 pos 230,110 mes "名前：" if cur>=0{ if key(67)=1&namae_i<8{ key(67)=0 gosub *timer namae_i=namae_i+1 key(67)=0 if cur=0 : mozi_hairetu="あ" if cur=1 : mozi_hairetu="い" if cur=2 : mozi_hairetu="ｳ" if cur=3 : mozi_hairetu="ｴ" if cur=4 : mozi_hairetu="ｵ" if cur=5 : mozi_hairetu="ｶ" if cur=6 : mozi_hairetu="ｷ" if cur=7 : mozi_hairetu="ｸ" if cur=8 : mozi_hairetu="ｹ" if cur=9 : mozi_hairetu="ｺ" if cur=10 : mozi_hairetu="ｻ" if cur=11 : mozi_hairetu="ｼ" if cur=12 : mozi_hairetu="ｽ" if cur=13 : mozi_hairetu="ｾ" if cur=14 : mozi_hairetu="ｿ" if cur=15 : mozi_hairetu="ﾀ" if cur=16 : mozi_hairetu="ﾁ" if cur=17 : mozi_hairetu="ﾂ" if cur=18 : mozi_hairetu="ﾃ" if cur=19 : mozi_hairetu="ﾄ" if cur=20 : mozi_hairetu="ﾅ" if cur=21 : mozi_hairetu="ﾆ" if cur=22 : mozi_hairetu="ﾇ" if cur=23 : mozi_hairetu="ﾈ" if cur=24 : mozi_hairetu="ﾉ" if cur=25 : mozi_hairetu="ﾊ" if cur=26 : mozi_hairetu="ﾋ" if cur=27 : mozi_hairetu="ﾌ" if cur=28 : mozi_hairetu="ﾍ" if cur=29 : mozi_hairetu="ﾎ" if cur=30 : mozi_hairetu="ﾏ" if cur=31 : mozi_hairetu="ﾐ" if cur=32 : mozi_hairetu="ﾑ" if cur=33 : mozi_hairetu="ﾒ" if cur=34 : mozi_hairetu="ﾓ" if cur=35 : mozi_hairetu="ﾔ" if cur=36 : mozi_hairetu="ﾕ" if cur=37 : mozi_hairetu="ﾖ" if cur=38 : mozi_hairetu="ﾗ" if cur=39 : mozi_hairetu="ﾘ" if cur=40 : mozi_hairetu="ﾙ" if cur=41 : mozi_hairetu="ﾚ" if cur=42 : mozi_hairetu="ﾛ" if cur=43 : mozi_hairetu="ﾜ" if cur=44 : mozi_hairetu="ｦ" if cur=45 : mozi_hairetu="ﾝ" if cur=46 : mozi_hairetu="" if cur=47 : mozi_hairetu="" if cur=48 : mozi_hairetu="" if cur=49 : mozi_hairetu="" namae=namae+mozi_hairetu } pos 300,110 mes ""+namae+"" } loop loop redraw 1:await 30:mc++ if namae_i=7{ dialog "これでいいですか？",2 if stat=6{ break } if stat=7{ namae_i = namae_i-1 namae = strmid (namae,0,namae_i) } } if key(88)=1{ namae_i = namae_i-1 namae = strmid (namae,0,namae_i) gosub *timer } if key(13)=1{ dialog "これでいいですか？",2 if stat=6{ break } } if namae_i<=0{ namae_i=0 } loop cls mes namae stop *timer wait 10 return
原因がわかりません
たぶん文字のバイト数？だと思うのですがどうすれば直るかわかりません
ちなみにｱとｲのところはひらがなにしています
