コメント
このコメントは、【Wiki】スクリプト/かな・カナ入力へのコメントです。コメントの内容
コメントの内容(一番最初の投稿)
光楼（114）(投稿日：2017/02/05 12:02/05/17)
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
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