スクリプト/かな・カナ入力(履歴ID:676)

最終投稿者:Material 185033 3 mini 光楼(114) 更新:2017/02/04 19:47:04
画像のクリップ不要、RPG・ノベル対応の、かな・カナ・全角英数の入力が出来る関数です。

まず下のスクリプトを開始スクリプトにコピペしてください。
#この関数はikosamiさんの配列を一気に設定する関数を使用しています。
def Array(a) #配列設定用関数
return splitString(a, ",")
end

def nyuuryoku(a,segen) #文字入力関数Ver4
OutputTextColorR=255;OutputTextColorG=255;OutputTextColorB=255
TextSizeColorR=255;TextSizeColorG=127;TextSizeColorB=0
TextTypeColorR=0;TextTypeColorG=255;TextTypeColorB=255
InputTextColorR=255;InputTextColorG=255;InputTextColorB=0
UpDownColorR=100;UpDownColorG=255;UpDownColorB=100
Fsiz=getTextFontSize();FBold=getTextFontBold();FItlc=getTextFontItalic()
CR=getTextFontColorR();CG=getTextFontColorG();CB=getTextFontColorB()
setTextFontBold(false)
setTextFontItalic(false)
case a when 0 bay=1.5625;OutputTextSize=48;UpAmount=20;when 1 bay=1;OutputTextSize=30;UpAmount=0;end
setTextFontSize(OutputTextSize)
setTextFontColor(OutputTextColorR,OutputTextColorG,OutputTextColorB)
OutPoint=0;GoMove=false
PointXmr=4*bay;PointYmr=21*bay-UpAmount;PointWmr=504*bay;PointHmr=110*bay
mr=createText(PointXmr,PointYmr,PointWmr,PointHmr)
case a when 0 InputTextSize=60;when 1 InputTextSize=38;end
setTextFontSize(InputTextSize)
BlockSize=42*bay
HalfBlockSize=21*bay
PointUp=168*bay-UpAmount
PointDown=378*bay-UpAmount
setTextFontColor(TextSizeColorR,TextSizeColorG,TextSizeColorB)
PointX1=4;PointY1=168*bay-UpAmount;PointW1=BlockSize;PointH1=BlockSize
s1=createText(PointX1,PointY1,PointW1,PointH1)
setTextFontColor(TextTypeColorR,TextTypeColorG,TextTypeColorB)
PointX8=46*bay;PointY8=168*bay-UpAmount;PointW8=BlockSize;PointH8=BlockSize
s8=createText(PointX8,PointY8,PointW8,PointH8)
setTextFontSize(InputTextSize/2)
setTextFontColor(UpDownColorR,UpDownColorG,UpDownColorB)
PointXup=470*bay;PointYup=138*bay-UpAmount;PointWup=HalfBlockSize;PointHup=HalfBlockSize
TextUp=createText(PointXup,PointYup,PointWup,PointHup)
PointXdw=491*bay;PointYdw=138*bay-UpAmount;PointWdw=HalfBlockSize;PointHdw=HalfBlockSize
TextDown=createText(PointXdw,PointYdw,PointWdw,PointHdw)
setTextFontColor(InputTextColorR,InputTextColorG,InputTextColorB)
setTextFontBold(true)
bou=createText(4,126*bay+21*bay-UpAmount,600*bay,HalfBlockSize)
setTextFontBold(false)
setTextFontSize(InputTextSize)
PointX2=4;PointY2=210*bay-UpAmount;PointW2=BlockSize*2;PointH2=BlockSize
s2=createText(PointX2,PointY2,PointW2,PointH2)
PointX3=4;PointY3=252*bay-UpAmount;PointW3=BlockSize*2;PointH3=BlockSize
s3=createText(PointX3,PointY3,PointW3,PointH3)
PointX4=4;PointY4=294*bay-UpAmount;PointW4=BlockSize;PointH4=BlockSize
s4=createText(PointX4,PointY4,PointW4,PointH4)
PointX5=46*bay;PointY5=294*bay-UpAmount;PointW5=BlockSize;PointH5=BlockSize
s5=createText(PointX5,PointY5,PointW5,PointH5)
PointX6=4;PointY6=336*bay-UpAmount;PointW6=BlockSize;PointH6=BlockSize
s6=createText(PointX6,PointY6,PointW6,PointH6)
PointX7=46*bay;PointY7=336*bay-UpAmount;PointW7=BlockSize;PointH7=BlockSize
s7=createText(PointX7,PointY7,PointW7,PointH7)
mi=createArray()
bango=0;loops=0
Dan0=168*bay-UpAmount;Dan1=210*bay-UpAmount;Dan2=252*bay-UpAmount;Dan3=294*bay-UpAmount;Dan4=336*bay-UpAmount
while bango<50
mx=466-42*loops
mi[bango]=createText(mx*bay,Dan0,BlockSize,BlockSize)
mi[bango+1]=createText(mx*bay,Dan1,BlockSize,BlockSize)
mi[bango+2]=createText(mx*bay,Dan2,BlockSize,BlockSize)
mi[bango+3]=createText(mx*bay,Dan3,BlockSize,BlockSize)
mi[bango+4]=createText(mx*bay,Dan4,BlockSize,BlockSize)
bango=bango+5
loops=loops+1
end
m=createArray()
r=0
while r<10 do m[r]=createArray();r=r+1;end
#0大文字かな 1大文字カナ 2小文字かな 3小文字カナ 4濁点かな 5濁点カナ 6半濁点かな 7半濁点カナ 8大文字英数 9小文字英数
m[0][0]=Array("あ,ア,ぁ,ァ,あ,ア,あ,ア,0,0")
m[0][1]=Array("い,イ,ぃ,ィ,い,イ,い,イ,P,p")
m[0][2]=Array("う,ウ,ぅ,ゥ,ゔ,ヴ,う,ウ,+,+")
m[0][3]=Array("え,エ,ぇ,ェ,え,エ,え,エ,¥,\")
m[0][4]=Array("お,オ,ぉ,ォ,お,オ,お,オ,Κ,κ")
m[1][0]=Array("か,カ,か,カ,が,ガ,か,カ,9,9")
m[1][1]=Array("き,キ,き,キ,ぎ,ギ,き,キ,O,o")
m[1][2]=Array("く,ク,く,ク,ぐ,グ,く,ク,L,l")
m[1][3]=Array("け,ケ,け,ケ,げ,ゲ,け,ケ,/,/")
m[1][4]=Array("こ,コ,こ,コ,ご,ゴ,こ,コ,Ι,ι")
m[2][0]=Array("さ,サ,さ,サ,ざ,ザ,さ,サ,8,8")
m[2][1]=Array("し,シ,し,シ,じ,ジ,し,シ,I,i")
m[2][2]=Array("す,ス,す,ス,ず,ズ,す,ス,K,k")
m[2][3]=Array("せ,セ,せ,セ,ぜ,ゼ,せ,セ,.,.")
m[2][4]=Array("そ,ソ,そ,ソ,ぞ,ゾ,そ,ソ,Θ,θ")
m[3][0]=Array("た,タ,た,タ,だ,ダ,た,タ,7,7")
m[3][1]=Array("ち,チ,ち,チ,ぢ,ヂ,ち,チ,U,u")
m[3][2]=Array("つ,ツ,っ,ッ,づ,ヅ,つ,ツ,J,j")
m[3][3]=Array("て,テ,て,テ,で,デ,て,テ,M,m")
m[3][4]=Array("と,ト,と,ト,ど,ド,と,ト,Η,η")
m[4][0]=Array("な,ナ,な,ナ,な,ナ,な,ナ,6,6")
m[4][1]=Array("に,ニ,に,ニ,に,ニ,に,ニ,Y,y")
m[4][2]=Array("ぬ,ヌ,ぬ,ヌ,ぬ,ヌ,ぬ,ヌ,H,h")
m[4][3]=Array("ね,ネ,ね,ネ,ね,ネ,ね,ネ,N,n")
m[4][4]=Array("の,ノ,の,ノ,の,ノ,の,ノ,Ζ,ζ")
m[5][0]=Array("は,ハ,は,ハ,ば,バ,ぱ,パ,5,5")
m[5][1]=Array("ひ,ヒ,ひ,ヒ,び,ビ,ぴ,ピ,T,t")
m[5][2]=Array("ふ,フ,ふ,フ,ぶ,ブ,ぷ,プ,G,g")
m[5][3]=Array("へ,ヘ,へ,ヘ,べ,ベ,ぺ,ぺ,B,b")
m[5][4]=Array("ほ,ホ,ほ,ホ,ぼ,ボ,ぽ,ポ,Ε,ε")
m[6][0]=Array("ま,マ,ま,マ,ま,マ,ま,マ,4,4")
m[6][1]=Array("み,ミ,み,ミ,み,ミ,み,ミ,R,r")
m[6][2]=Array("む,ム,む,ム,む,ム,む,ム,F,f")
m[6][3]=Array("め,メ,め,メ,め,メ,め,メ,V,v")
m[6][4]=Array("も,モ,も,モ,も,モ,も,モ,Δ,δ")
m[7][0]=Array("や,ヤ,ゃ,ャ,や,ヤ,や,ヤ,3,3")
m[7][1]=Array("!, ,!, ,<,゛,<,゜,E,e")
m[7][2]=Array("ゆ,ユ,ゅ,ュ,ゆ,ユ,ゆ,ユ,D,d")
m[7][3]=Array("?,~,?,~,>,*,>,*,C,c")
m[7][4]=Array("よ,ヨ,ょ,ョ,よ,ヨ,よ,ヨ,Γ,γ")
m[8][0]=Array("ら,ラ,ら,ラ,ら,ラ,ら,ラ,2,2")
m[8][1]=Array("り,リ,り,リ,り,リ,り,リ,W,w")
m[8][2]=Array("る,ル,る,ル,る,ル,る,ル,S,s")
m[8][3]=Array("れ,レ,れ,レ,れ,レ,れ,レ,X,x")
m[8][4]=Array("ろ,ロ,ろ,ロ,ろ,ロ,ろ,ロ,Β,β")
m[9][0]=Array("わ,ワ,ゎ,ヮ,わ,ワ,わ,ワ,1,1")
m[9][1]=Array("ゐ,ヰ,-,-,「,;,[,;,Q,q")
m[9][2]=Array("ゑ,ヱ,ー,―,」,:,],:,Z,z")
m[9][3]=Array("を,ヲ,を,ヲ,を,ヲ,を,ヲ,A,a")
m[9][4]=Array("ん,ン,ん,ン,ん,ン,ん,ン,Α,α")
if segen==-1
sm="字数制限なし"
else
sm=segen+"文字まで入力可"
end
i=0;boo=sm
while i<20 do boo=boo+"―";i=i+1;end
setText(bou,boo)
setText(s2,"削除");setText(s3,"終了");setText(s4,"゛");setText(s5,"゜");setText(s6,"、");setText(s7,"。");setText(TextUp,"▲");setText(TextDown,"▼")
rui=0
moziretu=createArray()
kaz=0
main=true
while main
if (rui==2)||(rui==3)||(rui==9)
setText(s1,"大")
else
setText(s1,"小")
end
if (rui==1)||(rui==3)||(rui==5)||(rui==7)
setText(s8,"英")
elsif (rui==8)||(rui==9)
setText(s8,"平")
else
setText(s8,"片")
end
gyo=0
loopst=0
while gyo<10
setText(mi[loopst],m[gyo][0][rui]);setText(mi[loopst+1],m[gyo][1][rui]);setText(mi[loopst+2],m[gyo][2][rui]);setText(mi[loopst+3],m[gyo][3][rui]);setText(mi[loopst+4],m[gyo][4][rui])
gyo=gyo+1
loopst=loopst+5
end
startInput();loop=true
while loop
while hasInput()
takeInput()
if isMouseDown()
pos=getMousePosition()
if ((pos[0]>=PointX1)&&(pos[0]<PointX8))&&((pos[1]>=PointY1)&&(pos[1]<PointY2))
if rui==2
rui=0
elsif rui==3
rui=1
elsif (rui==0)||(rui==4)||(rui==6)
rui=2
elsif rui==8
rui=9
elsif rui==9
rui=8
else
rui=3
end
loop=false
elsif ((pos[0]>=PointX8)&&(pos[0]<88*bay))&&((pos[1]>=PointY8)&&(pos[1]<PointY2))
if (rui==0)||(rui==2)||(rui==4)||(rui==6)
rui=rui+1
elsif (rui==1)||(rui==5)||(rui==7)
rui=8
elsif rui==3
rui=9
elsif rui==8
rui=0
elsif rui==9
rui=2
end
loop=false
elsif ((pos[0]>=PointX4)&&(pos[0]<PointX5))&&((pos[1]>=PointY4)&&(pos[1]<PointY6))
if rui==4
rui=0
elsif rui==5
rui=1
elsif (rui==0)||(rui==2)||(rui==6)
rui=4
elsif (rui==1)||(rui==3)||(rui==7)
rui=5
end
loop=false
elsif ((pos[0]>=PointX5)&&(pos[0]<88*bay))&&((pos[1]>=PointY5)&&(pos[1]<PointY7))
if rui==6
rui=0
elsif rui==7
rui=1
elsif (rui==0)||(rui==2)||(rui==4)
rui=6
elsif (rui==1)||(rui==3)||(rui==5)
rui=7
end
loop = false
elsif ((pos[0]>=PointX2)&&(pos[0]<88*bay))&&((pos[1]>=PointY2)&&(pos[1]<PointY3))
if kaz>0
kaz=kaz-1;popArray(moziretu)
end
elsif ((pos[0]>=PointX3)&&(pos[0]<88*bay))&&((pos[1]>=PointY3)&&(pos[1]<PointY4))
loop=false;main=false
elsif ((pos[0]>=PointX6)&&(pos[0]<PointX7))&&((pos[1]>=PointY6)&&(pos[1]<PointDown))&&((kaz<segen)||(segen==-1))
moziretu[kaz]="、";kaz=kaz+1
elsif ((pos[0]>=PointX7)&&(pos[0]<88*bay))&&((pos[1]>=PointY7)&&(pos[1]<PointDown))&&((kaz<segen)||(segen==-1))
moziretu[kaz]="。";kaz=kaz+1
elsif ((pos[0]>=88*bay)&&(pos[0]<508*bay))&&((pos[1]>=PointUp)&&(pos[1]<PointDown))&&((kaz<segen)||(segen==-1))
G=9-floor((pos[0]-88*bay)/BlockSize)
D=floor((pos[1]-PointUp)/BlockSize)
moziretu[kaz]=m[G][D][rui]
kaz=kaz+1
elsif (((pos[0]>=PointXup)&&(pos[0]<(PointXup+PointWup)))&&((pos[1]>=PointYup)&&(pos[1]<(PointYup+PointHup))))&&(OutPoint>0)
OutPoint=OutPoint-1
GoMove=true
elsif ((pos[0]>=PointXdw)&&(pos[0]<(PointXdw+PointWdw)))&&((pos[1]>=PointYdw)&&(pos[1]<(PointYdw+PointHdw)))
OutPoint=OutPoint+1
GoMove=true
end
if GoMove
deleteText(mr)
setTextFontSize(OutputTextSize);setTextFontColor(OutputTextColorR,OutputTextColorG,OutputTextColorB)
amt=OutPoint*OutputTextSize
mr=createText(PointXmr,PointYmr-amt,PointWmr,PointHmr+amt)
GoMove=false
end
setText(mr,joinArray(moziretu, ""))
end
end
waitTime(30)
end
endInput()
end
setTextFontSize(Fsiz)
setTextFontColor(CR,CG,CB)
setTextFontBold(FBold)
setTextFontItalic(FItlc)
deleteTextAll()
MOZI=joinArray(moziretu,"")
setVariable("文字列",MOZI)
return getVariable("文字列")
end

↑は好きなように改造していただいても構いません。

そして、使いたい場所に以下のものを書きます。
  • ノベルゲームの場合(文字数制限は20に設定)
nyuuryoku(0,20)

  • RPGの場合(文字数制限は無しに設定)
nyuuryoku(1,-1)

#第1引数をノベルなら0、RPGなら1にする。
#第2引数は制限文字数。無制限にするには-1を設定。

見にくい場合は後ろに黒い画像を表示させることをおすすめします。

入力した文字をspeak文で表示するには、
speak(getVariable("文字列")) #getVariable("文字列")には、入力した文字列が入っています。


speak(nyuuryoku(1,-1)) #文字入力を終了した直後に表示

の二通りの方法があります。

  • 使い方の例
    • その1
speak("伝言を教えてくれ。")
nyuuryoku(1,10)
if getVariable("文字列") == "ホゲホゲ"
 speak("そうかそうか、ありがとな!")

elsif getVariable("文字列") == "ゲホゲホ"
 speak("出直して来い!!")

elsif getVariable("文字列") == "いちいちよん"
 speak("それは伝言じゃない、ワシの名だ")

else
 speak("う~ん、よくわからんな……")

end


    • その2
speak("よし、お前の名前を教えてくれ!")
speak("ちなみにマウスで入力だ!")
speak("名前は"+nyuuryoku(1,8)+"か……")
speak("よし、ここに勇者"+getVariable("文字列")+"の誕生だ!!")


    • その3
speak("パスワードをマウスで入力してください。")
if nyuuryoku(1,-1) == "ハロー アールメイクワールド!"
 speak("正解です")
else
 speak("不正解です") 
end


これで終わりです。

テストゲームを用意しています。
かな・カナ入力テストゲーム - 【ノベルゲーム】

  • 更新履歴
バージョン更新内容
4.0文字の縦スクロールを可能に, 文字の並び変更, ゔとヴの追加, 記号を少々追加, ノベルゲームだと下のほうが入力しづらい問題の修正, 文字数削減
3.1つ・ツが小さくならないバグを修正
3.0全角英数・一部のギリシャ文字に対応
2.0文字数削減
1.0公開
#過去のバージョンのスクリプトが欲しい場合、連絡下さい。