CoRサンプル集: 日本語ノベルえでぃた
日本語でノベルゲームがつくれる
サンプルゲームです
なお、RmakeからCoRへの移植作品のため
旧バージョンと比較して
一部の機能に制限があります
Ver.2.09_更新情報
スクリプト
詳細情報
wiki：日本語ノベルえでぃた
ご要望・ご意見受付
ご質問・エラー報告受付
サンプルゲームです
なお、RmakeからCoRへの移植作品のため
旧バージョンと比較して
一部の機能に制限があります
Ver.2.09_更新情報
スクリプト
詳細情報
wiki：日本語ノベルえでぃた
ご要望・ご意見受付
ご質問・エラー報告受付
プレー：205
(人数：65)
クリア：21
評価： 60 (6回)
≪手作りチョコのプレゼント
|
守護妖精診断≫
$scrkbd_layer = nil #create内のレイヤーで設定をする（最前面推奨）
$SKB_st_flg = nil #実行中はこの変数がオンになります
$SKB_bg_sp_spr = []
$SKB_msgA_sp_spr = []
$SKB_msgB_sp_spr = []
$SKB_msg_kana_sp_spr = nil
$SKB_msg_min_sp_spr = nil
$SKB_key_flg_z_s = nil
$SKB_key_flg_z_e = nil
$SKB_key_flg_x_old = nil
$SKB_key_flg_y_old = nil
$SKB_tap_flg_z_s = nil
$SKB_tap_flg_z_e = false
$SKB_tap_flg_z_c = nil
$SKB_tap_flg_z_f = nil
$SKB_key_flg_l_s = nil; $SKB_key_flg_l_e = nil
$SKB_key_flg_r_s = nil; $SKB_key_flg_r_e = nil
$SKB_key_flg_u_s = nil; $SKB_key_flg_u_e = nil
$SKB_key_flg_d_s = nil; $SKB_key_flg_d_e = nil
$SKB_tbT_A = nil; $SKB_tbT_B = nil; $SKB_tbT_C = nil; $SKB_tbT_D = nil; $SKB_tbT_Z = nil
$SKB_tbM_A = nil; $SKB_tbM_B = nil; $SKB_tbM_C = nil; $SKB_tbM_D = nil; $SKB_tbM_Z = nil
$SKB_tbS_A = []; $SKB_tbS_B = []; $SKB_tbS_C = []; $SKB_tbS_D = []; $SKB_tbS_Z = []
$SKB_tbB_A = []; $SKB_tbB_B = []; $SKB_tbB_C = []; $SKB_tbB_D = []; $SKB_tbB_Z = []
$SKB_msg_ptn = nil
$SKB_msg_kana = nil
$SKB_msg_min = nil
$SKB_msg_str = []
$SKB_msg_str_bk = nil
$SKB_msg_setpos = nil
$SKB_msg_setposl = nil
$SKB_msg_max = nil
$SKB_msg_mins = nil
$SKB_msg_num_only = nil
$SKB_cr_time_count = nil
$SKB_cr_view = nil
$SKB_oldsel_b = nil
#_/_/_/_/_/_/ ユーザ関数の定義 _/_/_/_/_/_/
def scrKbdSetSpritePZR(spr,px,py,z,rx1,ry1,rw1,rh1,rx2,ry2,rw2,rh2)
#camera_fixedが入ったままだと
#positionが動作しないので一旦解除する
obj = spr.instance_variable_get('@js_sprite')
f = obj.fixedToCamera
spr.camera_fixed! false
spr.layer_index(z)
#setSpriteZOrder(id,z)
spr.src_rect(rx1, ry1, rw1, rh1)
#setSpriteRect(id,rx1,ry1,rw1,rh1,rx2,ry2,rw2,rh2)
spr.scale((rw2 / rw1), (rh2 / rh1))
spr.position((px + rx2), (py + ry2))
#setSpritePosition(id,px,py)
if f then spr.camera_fixed!; end
end
def scrKbdStrSplit(t)
t_arr = splitString(t,"")
new_t = []
counter = 0
t_arr.each_with_index do |item, i|
if counter > 0
counter = counter - 1
else
if !(("a".."z") === item || ("A".."Z") === item || ("0".."9") === item || ("!".."~") === item)
new_t << (t_arr[i] + t_arr[(i + 1)] + t_arr[(i + 2)]).to_s
counter = 2
else
new_t << item.to_s
end
end
end
t_arr.clear
return new_t
end
#----- スクリーンキーボードの初期設定（create内で呼び出す） -----
def scrKbdLoad()
i = 0; ilen = 8
while i < ilen do
id = format("spr_img_scrkbd_bg%02d", (i + 1))
spr = put_sprite id do
position 800, 600
camera_fixed!
end
$scrkbd_layer.add spr
$SKB_bg_sp_spr[i] = spr
i += 1
end
i = 0; ilen = 4
while i < ilen do
id = format("spr_img_scrkbd_msgA_%02d", (i + 1))
spr = put_sprite id do
position 800, 600
camera_fixed!
end
$scrkbd_layer.add spr
$SKB_msgA_sp_spr[i] = spr
id = format("spr_img_scrkbd_msgB_%02d", (i + 1))
spr = put_sprite id do
position 800, 600
camera_fixed!
end
$scrkbd_layer.add spr
$SKB_msgB_sp_spr[i] = spr
i += 1
end
id = "spr_img_scrkbd_msg_kana"
spr = put_sprite id do
position 800, 600
camera_fixed!
end
$scrkbd_layer.add spr
$SKB_msg_kana_sp_spr = spr
id = "spr_img_scrkbd_msg_min"
spr = put_sprite id do
position 800, 600
camera_fixed!
end
$scrkbd_layer.add spr
$SKB_msg_min_sp_spr = spr
end
#----- スクリーンキーボードの実行（update内で呼び出す） -----
def scrKbdStart(top,color,max_str,def_str,min_str,num_only)
r = []; r[0] = false
maxs = 0
mins = 0
#_/_/_/_/_/ 初期設定 _/_/_/_/_/
if !$SKB_st_flg
#画像の初期設定
c_ptn = 0
case color
when "黒" then
c_ptn = 1
when "青" then
c_ptn = 2
when "紫" then
c_ptn = 3
when "桃" then
c_ptn = 4
when "赤" then
c_ptn = 5
when "黄" then
c_ptn = 6
when "緑" then
c_ptn = 7
else #白
end
scrKbdSetSpritePZR($SKB_bg_sp_spr[c_ptn],0,0,0,0,0,800,600,0,0,800,600)
$SKB_msg_ptn = 0
scrKbdSetSpritePZR($SKB_msgA_sp_spr[$SKB_msg_ptn],0,0,1,0,0,800,600,0,0,800,600)
#読み込みデータの初期設定
$SKB_msg_str = scrKbdStrSplit(def_str)
$SKB_msg_str_bk = def_str
$SKB_msg_setpos = getArrayLength($SKB_msg_str)
#if $SKB_msg_setposl > 0
# $SKB_msg_setposl -= 1
#end
$SKB_msg_max = max_str
if $SKB_msg_max > 24
$SKB_msg_max = 24
end
maxs = $SKB_msg_max + 1
$SKB_msg_mins = min_str
if $SKB_msg_mins < 0
$SKB_msg_mins = 0
end
mins = $SKB_msg_mins
$SKB_msg_num_only = num_only
#テキストの初期設定
w = 500
h = 80
setTextFontColor(5,40,77)
setTextFontSize(17)
$SKB_tbT_A = createText(29, 10, w, h)
$SKB_tbT_B = createText(29, 12, w, h)
$SKB_tbT_C = createText(28, 11, w, h)
$SKB_tbT_D = createText(30, 11, w, h)
$SKB_tbM_A = createText(260, 572, w, h)
$SKB_tbM_B = createText(260, 570, w, h)
$SKB_tbM_C = createText(259, 571, w, h)
$SKB_tbM_D = createText(261, 571, w, h)
w = 30
h = 30
setTextFontSize(27)
i = 0
while i < maxs do
$SKB_tbS_A[i] = createText((29 + i * 31), 29, w, h)
$SKB_tbS_B[i] = createText((29 + i * 31), 31, w, h)
$SKB_tbS_C[i] = createText((28 + i * 31), 30, w, h)
$SKB_tbS_D[i] = createText((30 + i * 31), 30, w, h)
$SKB_tbB_A[i] = createText((29 + i * 31), 57, w, h)
$SKB_tbB_B[i] = createText((29 + i * 31), 59, w, h)
$SKB_tbB_C[i] = createText((28 + i * 31), 58, w, h)
$SKB_tbB_D[i] = createText((30 + i * 31), 58, w, h)
i += 1
end
w = 500
h = 80
setTextFontColor(245,245,255)
setTextFontSize(17)
$SKB_tbT_Z = createText(29, 11, w, h)
$SKB_tbM_Z = createText(260, 571, w, h)
w = 30
h = 30
setTextFontSize(27)
i = 0
while i < maxs do
$SKB_tbS_Z[i] = createText((29 + i * 31), 30, w, h)
$SKB_tbB_Z[i] = createText((29 + i * 31), 58, w, h)
i += 1
end
#テキストの初期表示
s = top
setText($SKB_tbT_A, s)
setText($SKB_tbT_B, s)
setText($SKB_tbT_C, s)
setText($SKB_tbT_D, s)
setText($SKB_tbT_Z, s)
s = ""
if mins == 0
s = "最大 " + $SKB_msg_max.to_s + " 文字まで入力することができます"
else
s = $SKB_msg_mins.to_s + " ～ " + $SKB_msg_max.to_s + " 文字まで入力することができます"
end
setText($SKB_tbM_A, s)
setText($SKB_tbM_B, s)
setText($SKB_tbM_C, s)
setText($SKB_tbM_D, s)
setText($SKB_tbM_Z, s)
#i = 0; ilen = $SKB_msg_setpos + 1
#if ilen == maxs
# i = $SKB_msg_setpos - 1
#else
# i = $SKB_msg_setpos
#end
#s = "￣"
#setText($SKB_tbB_A[i], s)
#setText($SKB_tbB_B[i], s)
#setText($SKB_tbB_C[i], s)
#setText($SKB_tbB_D[i], s)
#setText($SKB_tbB_Z[i], s)
i = 0; ilen = $SKB_msg_setpos
while i < maxs do
if i < ilen
s = $SKB_msg_str[i].to_s
else
s = ""
$SKB_msg_str[i] = s
end
setText($SKB_tbS_A[i], s)
setText($SKB_tbS_B[i], s)
setText($SKB_tbS_C[i], s)
setText($SKB_tbS_D[i], s)
setText($SKB_tbS_Z[i], s)
i += 1
end
i = (maxs - 1)
if $SKB_msg_setpos == i
$SKB_msg_setpos -= 1
end
$SKB_msg_setposl = $SKB_msg_setpos
$SKB_cr_time_count = 0
$SKB_cr_view = true
$SKB_oldsel_b = 0
$SKB_msg_kana = false
$SKB_msg_min = false
#クリック判定
$SKB_key_flg_z_s = false
$SKB_key_flg_z_e = false
$SKB_key_flg_x_old = pointer.x
$SKB_key_flg_y_old = pointer.y
$SKB_tap_flg_z_s = false
#$SKB_tap_flg_z_e = false
$SKB_tap_flg_z_c = false
$SKB_tap_flg_z_f = false
$SKB_key_flg_l_s = false; $SKB_key_flg_l_e = false
$SKB_key_flg_r_s = false; $SKB_key_flg_r_e = false
$SKB_key_flg_u_s = false; $SKB_key_flg_u_e = false
$SKB_key_flg_d_s = false; $SKB_key_flg_d_e = false
$SKB_st_flg = true
debug_log "load_skb"
else
maxs = $SKB_msg_max
mins = $SKB_msg_mins
num_only = $SKB_msg_num_only
sel_k = $SKB_msg_ptn
sel_b = 0
kf_m = false
p_m = []; p_m[0] = pointer.x; p_m[1] = pointer.y
sx1 = 184; sy = 35; sx2 = 72
canFl = false
oldsel_b = $SKB_oldsel_b
#s_l = []
#i = 0
#while i < maxs
# $SKB_msg_str[i] = ""
# i += 1
#end
nsp = $SKB_msg_setpos; lsp = $SKB_msg_setposl
cstno = 0
sel_k01 = $SKB_msg_min; sel_k02 = $SKB_msg_kana
cr_ido = 0
s = ""
#_/_/_/_/_/ 入力判定 _/_/_/_/_/
#スマートフォン用の判定処理
$SKB_tap_flg_z_f = $SKB_tap_flg_z_s
if $SKB_tap_flg_z_e then
$SKB_tap_flg_z_s = pointer.down?
else
if pointer.down? then
$SKB_tap_flg_z_e = true
$SKB_tap_flg_z_s = true
elsif $SKB_key_flg_x_old != pointer.x || $SKB_key_flg_y_old != pointer.y then
if $SKB_tap_flg_z_c then
$SKB_tap_flg_z_e = true
$SKB_tap_flg_z_s = false
else
$SKB_tap_flg_z_c = true
$SKB_tap_flg_z_s = false
end
else
if $SKB_tap_flg_z_c then
$SKB_tap_flg_z_c = false
$SKB_tap_flg_z_s = true
else
$SKB_tap_flg_z_s = false
end
end
end
$SKB_key_flg_x_old = pointer.x
$SKB_key_flg_y_old = pointer.y
if $SKB_tap_flg_z_f then
$SKB_tap_flg_z_f = false
elsif $SKB_tap_flg_z_s then
$SKB_tap_flg_z_f = true
end
#一般用の判定処理
if keyboard.down?('Z') || $SKB_tap_flg_z_f
$SKB_key_flg_z_s = true
if keyboard.down?('Z') || pointer.down?
$SKB_tap_flg_z_e = true #このスイッチが入ったら以降キーボードとマウスのみ判定
end
else
$SKB_key_flg_z_s = false
$SKB_key_flg_z_e = false
end
if keyboard.down?('LEFT')
$SKB_key_flg_l_s = true
else
$SKB_key_flg_l_s = false
$SKB_key_flg_l_e = false
end
if keyboard.down?('RIGHT')
$SKB_key_flg_r_s = true
else
$SKB_key_flg_r_s = false
$SKB_key_flg_r_e = false
end
if keyboard.down?('UP')
$SKB_key_flg_u_s = true
else
$SKB_key_flg_u_s = false
$SKB_key_flg_u_e = false
end
if keyboard.down?('DOWN')
$SKB_key_flg_d_s = true
else
$SKB_key_flg_d_s = false
$SKB_key_flg_d_e = false
end
#操作関連
if ($SKB_key_flg_z_s && !$SKB_key_flg_z_e)
kf_m = true
end
#_/_/_/_/_/ 入力の判定 _/_/_/_/_/
if p_m[0] > 611 && p_m[0] < 795 && p_m[1] > 528 && p_m[1] < 563
sel_b = 1
if kf_m
if mins > 0
if $SKB_msg_str[(mins - 1)] != ""
#se_id = playSound(se_enter)
#setSoundVolume(se_id, 1)
$SKB_st_flg = false
end
else
$SKB_st_flg = false
end
end
elsif p_m[0] > 418 && p_m[0] < 602 && p_m[1] > 528 && p_m[1] < 563
sel_b = 2
if kf_m
#se_id = playSound(se_enter)
#setSoundVolume(se_id, 1)
canFl = true
$SKB_st_flg = false
end
elsif p_m[0] > 225 && p_m[0] < 409 && p_m[1] > 528 && p_m[1] < 563 && (nsp < (lsp + 1) && $SKB_msg_str[nsp] != "") && nsp < (maxs - 1)
sel_b = 3
if kf_m
#se_id = playSound(se_enter)
#setSoundVolume(se_id, 1)
cr_ido = 1
end
elsif p_m[0] > 32 && p_m[0] < 216 && p_m[1] > 528 && p_m[1] < 563 && nsp > 0
sel_b = 4
if kf_m
#se_id = playSound(se_enter)
#setSoundVolume(se_id, 1)
cr_ido = 2
end
elsif p_m[0] > 32 && p_m[0] < 100
if p_m[1] > 98 && p_m[1] < 133
sel_b = 15
if kf_m
if sel_k == 0
s = "わ"
elsif sel_k == 1
s = "ゎ"
elsif sel_k == 2
s = "ワ"
else
s = "ヮ"
end
end
elsif p_m[1] > 138 && p_m[1] < 173
sel_b = 16
if kf_m
if sel_k == 0 || sel_k == 1
s = "を"
else
s = "ヲ"
end
end
elsif p_m[1] > 178 && p_m[1] < 213
sel_b = 17
if kf_m
if sel_k == 0 || sel_k == 1
s = "ん"
else
s = "ン"
end
end
elsif p_m[1] > 218 && p_m[1] < 253
sel_b = 10
if kf_m
#se_id = playSound(se_enter)
#setSoundVolume(se_id, 1)
cstno = nsp
cstflg = false
if $SKB_msg_str[nsp] == "" && nsp == lsp
cstno = (nsp - 1)
end
if $SKB_msg_str[cstno] == "か"
$SKB_msg_str[cstno] = "が"
cstflg = true
end
if $SKB_msg_str[cstno] == "き"
$SKB_msg_str[cstno] = "ぎ"
cstflg = true
end
if $SKB_msg_str[cstno] == "く"
$SKB_msg_str[cstno] = "ぐ"
cstflg = true
end
if $SKB_msg_str[cstno] == "け"
$SKB_msg_str[cstno] = "げ"
cstflg = true
end
if $SKB_msg_str[cstno] == "こ"
$SKB_msg_str[cstno] = "ご"
cstflg = true
end
if $SKB_msg_str[cstno] == "カ"
$SKB_msg_str[cstno] = "ガ"
cstflg = true
end
if $SKB_msg_str[cstno] == "キ"
$SKB_msg_str[cstno] = "ギ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ク"
$SKB_msg_str[cstno] = "グ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ケ"
$SKB_msg_str[cstno] = "ゲ"
cstflg = true
end
if $SKB_msg_str[cstno] == "コ"
$SKB_msg_str[cstno] = "ゴ"
cstflg = true
end
if $SKB_msg_str[cstno] == "さ"
$SKB_msg_str[cstno] = "ざ"
cstflg = true
end
if $SKB_msg_str[cstno] == "し"
$SKB_msg_str[cstno] = "じ"
cstflg = true
end
if $SKB_msg_str[cstno] == "す"
$SKB_msg_str[cstno] = "ず"
cstflg = true
end
if $SKB_msg_str[cstno] == "せ"
$SKB_msg_str[cstno] = "ぜ"
cstflg = true
end
if $SKB_msg_str[cstno] == "そ"
$SKB_msg_str[cstno] = "ぞ"
cstflg = true
end
if $SKB_msg_str[cstno] == "サ"
$SKB_msg_str[cstno] = "ザ"
cstflg = true
end
if $SKB_msg_str[cstno] == "シ"
$SKB_msg_str[cstno] = "ジ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ス"
$SKB_msg_str[cstno] = "ズ"
cstflg = true
end
if $SKB_msg_str[cstno] == "セ"
$SKB_msg_str[cstno] = "ゼ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ソ"
$SKB_msg_str[cstno] = "ゾ"
cstflg = true
end
if $SKB_msg_str[cstno] == "た"
$SKB_msg_str[cstno] = "だ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ち"
$SKB_msg_str[cstno] = "ぢ"
cstflg = true
end
if $SKB_msg_str[cstno] == "つ"
$SKB_msg_str[cstno] = "づ"
cstflg = true
end
if $SKB_msg_str[cstno] == "て"
$SKB_msg_str[cstno] = "で"
cstflg = true
end
if $SKB_msg_str[cstno] == "と"
$SKB_msg_str[cstno] = "ど"
cstflg = true
end
if $SKB_msg_str[cstno] == "タ"
$SKB_msg_str[cstno] = "ダ"
cstflg = true
end
if $SKB_msg_str[cstno] == "チ"
$SKB_msg_str[cstno] = "ヂ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ツ"
$SKB_msg_str[cstno] = "ヅ"
cstflg = true
end
if $SKB_msg_str[cstno] == "テ"
$SKB_msg_str[cstno] = "デ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ト"
$SKB_msg_str[cstno] = "ド"
cstflg = true
end
if $SKB_msg_str[cstno] == "ウ"
$SKB_msg_str[cstno] = "ヴ"
cstflg = true
end
if $SKB_msg_str[cstno] == "☆"
$SKB_msg_str[cstno] = "★"
cstflg = true
end
if $SKB_msg_str[cstno] == "；"
$SKB_msg_str[cstno] = "："
cstflg = true
end
if $SKB_msg_str[cstno] == "○"
$SKB_msg_str[cstno] = "●"
cstflg = true
end
if $SKB_msg_str[cstno] == "△"
$SKB_msg_str[cstno] = "▲"
cstflg = true
end
if $SKB_msg_str[cstno] == "▽"
$SKB_msg_str[cstno] = "▼"
cstflg = true
end
if $SKB_msg_str[cstno] == "は" || $SKB_msg_str[cstno] == "ぱ"
$SKB_msg_str[cstno] = "ば"
cstflg = true
end
if $SKB_msg_str[cstno] == "ひ" || $SKB_msg_str[cstno] == "ぴ"
$SKB_msg_str[cstno] = "び"
cstflg = true
end
if $SKB_msg_str[cstno] == "ふ" || $SKB_msg_str[cstno] == "ぷ"
$SKB_msg_str[cstno] = "ぶ"
cstflg = true
end
if $SKB_msg_str[cstno] == "へ" || $SKB_msg_str[cstno] == "ぺ"
$SKB_msg_str[cstno] = "べ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ほ" || $SKB_msg_str[cstno] == "ぽ"
$SKB_msg_str[cstno] = "ぼ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ハ" || $SKB_msg_str[cstno] == "パ"
$SKB_msg_str[cstno] = "バ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ヒ" || $SKB_msg_str[cstno] == "ピ"
$SKB_msg_str[cstno] = "ビ"
cstflg = true
end
if $SKB_msg_str[cstno] == "フ" || $SKB_msg_str[cstno] == "プ"
$SKB_msg_str[cstno] = "ブ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ヘ" || $SKB_msg_str[cstno] == "ペ"
$SKB_msg_str[cstno] = "ベ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ホ" || $SKB_msg_str[cstno] == "ポ"
$SKB_msg_str[cstno] = "ボ"
cstflg = true
end
if $SKB_msg_str[cstno] == "♪" || $SKB_msg_str[cstno] == "♭"
$SKB_msg_str[cstno] = "♯"
cstflg = true
end
if $SKB_msg_str[cstno] == "＠" || $SKB_msg_str[cstno] == "＄"
$SKB_msg_str[cstno] = "￥"
cstflg = true
end
if $SKB_msg_str[cstno] == "＾" || $SKB_msg_str[cstno] == "”"
$SKB_msg_str[cstno] = "’"
cstflg = true
end
if $SKB_msg_str[cstno] == "・" || $SKB_msg_str[cstno] == "。"
$SKB_msg_str[cstno] = "、"
cstflg = true
end
if $SKB_msg_str[cstno] == "（" || $SKB_msg_str[cstno] == "『"
$SKB_msg_str[cstno] = "「"
cstflg = true
end
if $SKB_msg_str[cstno] == "）" || $SKB_msg_str[cstno] == "』"
$SKB_msg_str[cstno] = "」"
cstflg = true
end
if $SKB_msg_str[cstno] == "＜" || $SKB_msg_str[cstno] == "《"
$SKB_msg_str[cstno] = "［"
cstflg = true
end
if $SKB_msg_str[cstno] == "＞" || $SKB_msg_str[cstno] == "》"
$SKB_msg_str[cstno] = "］"
cstflg = true
end
if $SKB_msg_str[cstno] == "聖" || $SKB_msg_str[cstno] == "輝"
$SKB_msg_str[cstno] = "光"
cstflg = true
end
if $SKB_msg_str[cstno] == "闇" || $SKB_msg_str[cstno] == "幻"
$SKB_msg_str[cstno] = "影"
cstflg = true
end
if $SKB_msg_str[cstno] == "天" || $SKB_msg_str[cstno] == "空"
$SKB_msg_str[cstno] = "地"
cstflg = true
end
if $SKB_msg_str[cstno] == "使" || $SKB_msg_str[cstno] == "龍"
$SKB_msg_str[cstno] = "神"
cstflg = true
end
if $SKB_msg_str[cstno] == "男" || $SKB_msg_str[cstno] == "弟"
$SKB_msg_str[cstno] = "兄"
cstflg = true
end
if $SKB_msg_str[cstno] == "女" || $SKB_msg_str[cstno] == "妹"
$SKB_msg_str[cstno] = "姉"
cstflg = true
end
if $SKB_msg_str[cstno] == "愛" || $SKB_msg_str[cstno] == "変"
$SKB_msg_str[cstno] = "恋"
cstflg = true
end
if $SKB_msg_str[cstno] == "悪" || $SKB_msg_str[cstno] == "義"
$SKB_msg_str[cstno] = "正"
cstflg = true
end
if $SKB_msg_str[cstno] == "申" || $SKB_msg_str[cstno] == "水"
$SKB_msg_str[cstno] = "火"
cstflg = true
end
if $SKB_msg_str[cstno] == "子" || $SKB_msg_str[cstno] == "嫁"
$SKB_msg_str[cstno] = "娘"
cstflg = true
end
if $SKB_msg_str[cstno] == "魔" || $SKB_msg_str[cstno] == "雷"
$SKB_msg_str[cstno] = "風"
cstflg = true
end
if $SKB_msg_str[cstno] == "号" || $SKB_msg_str[cstno] == "初"
$SKB_msg_str[cstno] = "機"
cstflg = true
end
if $SKB_msg_str[cstno] == "式" || $SKB_msg_str[cstno] == "者"
$SKB_msg_str[cstno] = "勇"
cstflg = true
end
if $SKB_msg_str[cstno] == "人" || $SKB_msg_str[cstno] == "犬"
$SKB_msg_str[cstno] = "猫"
cstflg = true
end
if cstflg
s = $SKB_msg_str[cstno]
setText($SKB_tbS_A[cstno], s)
setText($SKB_tbS_B[cstno], s)
setText($SKB_tbS_C[cstno], s)
setText($SKB_tbS_D[cstno], s)
setText($SKB_tbS_Z[cstno], s)
end
end
elsif p_m[1] > 258 && p_m[1] < 293
sel_b = 11
if kf_m
#se_id = playSound(se_enter)
#setSoundVolume(se_id, 1)
cstno = nsp
cstflg = false
if $SKB_msg_str[nsp] == "" && nsp == lsp
cstno = (nsp - 1)
end
if $SKB_msg_str[cstno] == "△"
$SKB_msg_str[cstno] = "▽"
cstflg = true
end
if $SKB_msg_str[cstno] == "▽"
$SKB_msg_str[cstno] = "△"
cstflg = true
end
if $SKB_msg_str[cstno] == "▲"
$SKB_msg_str[cstno] = "▼"
cstflg = true
end
if $SKB_msg_str[cstno] == "▼"
$SKB_msg_str[cstno] = "▲"
cstflg = true
end
if $SKB_msg_str[cstno] == "は" || $SKB_msg_str[cstno] == "ば"
$SKB_msg_str[cstno] = "ぱ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ひ" || $SKB_msg_str[cstno] == "び"
$SKB_msg_str[cstno] = "ぴ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ふ" || $SKB_msg_str[cstno] == "ぶ"
$SKB_msg_str[cstno] = "ぷ"
cstflg = true
end
if $SKB_msg_str[cstno] == "へ" || $SKB_msg_str[cstno] == "べ"
$SKB_msg_str[cstno] = "ぺ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ほ" || $SKB_msg_str[cstno] == "ぼ"
$SKB_msg_str[cstno] = "ぽ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ハ" || $SKB_msg_str[cstno] == "バ"
$SKB_msg_str[cstno] = "パ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ヒ" || $SKB_msg_str[cstno] == "ビ"
$SKB_msg_str[cstno] = "ピ"
cstflg = true
end
if $SKB_msg_str[cstno] == "フ" || $SKB_msg_str[cstno] == "ブ"
$SKB_msg_str[cstno] = "プ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ヘ" || $SKB_msg_str[cstno] == "ベ"
$SKB_msg_str[cstno] = "ペ"
cstflg = true
end
if $SKB_msg_str[cstno] == "ホ" || $SKB_msg_str[cstno] == "ボ"
$SKB_msg_str[cstno] = "ポ"
cstflg = true
end
if $SKB_msg_str[cstno] == "♪" || $SKB_msg_str[cstno] == "♯"
$SKB_msg_str[cstno] = "♭"
cstflg = true
end
if $SKB_msg_str[cstno] == "＠" || $SKB_msg_str[cstno] == "￥"
$SKB_msg_str[cstno] = "＄"
cstflg = true
end
if $SKB_msg_str[cstno] == "＾" || $SKB_msg_str[cstno] == "’"
$SKB_msg_str[cstno] = "”"
cstflg = true
end
if $SKB_msg_str[cstno] == "・" || $SKB_msg_str[cstno] == "、"
$SKB_msg_str[cstno] = "。"
cstflg = true
end
if $SKB_msg_str[cstno] == "（" || $SKB_msg_str[cstno] == "「"
$SKB_msg_str[cstno] = "『"
cstflg = true
end
if $SKB_msg_str[cstno] == "）" || $SKB_msg_str[cstno] == "」"
$SKB_msg_str[cstno] = "』"
cstflg = true
end
if $SKB_msg_str[cstno] == "＜" || $SKB_msg_str[cstno] == "［"
$SKB_msg_str[cstno] = "《"
cstflg = true
end
if $SKB_msg_str[cstno] == "＞" || $SKB_msg_str[cstno] == "］"
$SKB_msg_str[cstno] = "》"
cstflg = true
end
if $SKB_msg_str[cstno] == "聖" || $SKB_msg_str[cstno] == "光"
$SKB_msg_str[cstno] = "輝"
cstflg = true
end
if $SKB_msg_str[cstno] == "闇" || $SKB_msg_str[cstno] == "影"
$SKB_msg_str[cstno] = "幻"
cstflg = true
end
if $SKB_msg_str[cstno] == "天" || $SKB_msg_str[cstno] == "地"
$SKB_msg_str[cstno] = "空"
cstflg = true
end
if $SKB_msg_str[cstno] == "使" || $SKB_msg_str[cstno] == "神"
$SKB_msg_str[cstno] = "龍"
cstflg = true
end
if $SKB_msg_str[cstno] == "男" || $SKB_msg_str[cstno] == "兄"
$SKB_msg_str[cstno] = "弟"
cstflg = true
end
if $SKB_msg_str[cstno] == "女" || $SKB_msg_str[cstno] == "姉"
$SKB_msg_str[cstno] = "妹"
cstflg = true
end
if $SKB_msg_str[cstno] == "愛" || $SKB_msg_str[cstno] == "恋"
$SKB_msg_str[cstno] = "変"
cstflg = true
end
if $SKB_msg_str[cstno] == "悪" || $SKB_msg_str[cstno] == "正"
$SKB_msg_str[cstno] = "義"
cstflg = true
end
if $SKB_msg_str[cstno] == "申" || $SKB_msg_str[cstno] == "火"
$SKB_msg_str[cstno] = "水"
cstflg = true
end
if $SKB_msg_str[cstno] == "子" || $SKB_msg_str[cstno] == "娘"
$SKB_msg_str[cstno] = "嫁"
cstflg = true
end
if $SKB_msg_str[cstno] == "魔" || $SKB_msg_str[cstno] == "風"
$SKB_msg_str[cstno] = "雷"
cstflg = true
end
if $SKB_msg_str[cstno] == "号" || $SKB_msg_str[cstno] == "機"
$SKB_msg_str[cstno] = "初"
cstflg = true
end
if $SKB_msg_str[cstno] == "式" || $SKB_msg_str[cstno] == "勇"
$SKB_msg_str[cstno] = "者"
cstflg = true
end
if $SKB_msg_str[cstno] == "人" || $SKB_msg_str[cstno] == "猫"
$SKB_msg_str[cstno] = "犬"
cstflg = true
end
if cstflg
s = $SKB_msg_str[cstno]
setText($SKB_tbS_A[cstno], s)
setText($SKB_tbS_B[cstno], s)
setText($SKB_tbS_C[cstno], s)
setText($SKB_tbS_D[cstno], s)
setText($SKB_tbS_Z[cstno], s)
end
end
elsif p_m[1] > 308 && p_m[1] < 343
sel_b = 12
if kf_m
#se_id = playSound(se_enter)
#setSoundVolume(se_id, 1)
scrKbdSetSpritePZR($SKB_msgA_sp_spr[sel_k], 800, 600, 1, 0, 0, 0, 0, 0, 0, 0, 0)
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], 800, 600, 2, 0, 0, 0, 0, 0, 0, 0, 0)
sel_k01 = !(sel_k01)
if !(sel_k01) && !(sel_k02)
sel_k = 0
elsif sel_k01 && !(sel_k02)
sel_k = 1
elsif !(sel_k01) && sel_k02
sel_k = 2
else
sel_k = 3
end
scrKbdSetSpritePZR($SKB_msgA_sp_spr[sel_k], 0, 0, 1, 0, 0, 800, 600, 0, 0, 800, 600)
if sel_k01
scrKbdSetSpritePZR($SKB_msg_min_sp_spr, 29, 308, 2, 29, 308, sx2, sy, 0, 0, sx2, sy)
else
scrKbdSetSpritePZR($SKB_msg_min_sp_spr, 800, 600, 2, 0, 0, 0, 0, 0, 0, 0, 0)
end
$SKB_msg_ptn = sel_k
end
elsif p_m[1] > 348 && p_m[1] < 383
sel_b = 13
if kf_m
#se_id = playSound(se_enter)
#setSoundVolume(se_id, 1)
scrKbdSetSpritePZR($SKB_msgA_sp_spr[sel_k], 800, 600, 1, 0, 0, 0, 0, 0, 0, 0, 0)
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], 800, 600, 2, 0, 0, 0, 0, 0, 0, 0, 0)
sel_k02 = !(sel_k02)
if !(sel_k01) && !(sel_k02)
sel_k = 0
elsif sel_k01 && !(sel_k02)
sel_k = 1
elsif !(sel_k01) && sel_k02
sel_k = 2
else
sel_k = 3
end
scrKbdSetSpritePZR($SKB_msgA_sp_spr[sel_k], 0, 0, 1, 0, 0, 800, 600, 0, 0, 800, 600)
if sel_k02
scrKbdSetSpritePZR($SKB_msg_kana_sp_spr, 29, 348, 2, 29, 348, sx2, sy, 0, 0, sx2, sy)
else
scrKbdSetSpritePZR($SKB_msg_kana_sp_spr, 800, 600, 2, 0, 0, 0, 0, 0, 0, 0, 0)
end
$SKB_msg_ptn = sel_k
end
elsif p_m[1] > 388 && p_m[1] < 423
sel_b = 18
if kf_m
s = " "
end
elsif p_m[1] > 428 && p_m[1] < 463
sel_b = 14
if kf_m
#se_id = playSound(se_enter)
#setSoundVolume(se_id, 1)
if nsp > 0
i = (nsp - 1)
while i < lsp
$SKB_msg_str[i] = $SKB_msg_str[(i + 1)]
s = $SKB_msg_str[i]
if s == " "
s = "□"
setText($SKB_tbS_A[i], "")
setText($SKB_tbS_B[i], "")
setText($SKB_tbS_C[i], "")
setText($SKB_tbS_D[i], "")
else
setText($SKB_tbS_A[i], s)
setText($SKB_tbS_B[i], s)
setText($SKB_tbS_C[i], s)
setText($SKB_tbS_D[i], s)
end
setText($SKB_tbS_Z[i], s)
i += 1
end
$SKB_msg_str[lsp] = ""
s = ""
setText($SKB_tbS_A[i], s)
setText($SKB_tbS_B[i], s)
setText($SKB_tbS_C[i], s)
setText($SKB_tbS_D[i], s)
setText($SKB_tbS_Z[i], s)
lsp -= 1
cr_ido = 2
end
end
elsif p_m[1] > 468 && p_m[1] < 503
sel_b = 19
if kf_m
s = ""
end
end
elsif p_m[0] > 107 && p_m[0] < 175
if p_m[1] > 98 && p_m[1] < 133
sel_b = 20
if kf_m
if sel_k == 0 || sel_k == 1
s = "ら"
else
s = "ラ"
end
end
elsif p_m[1] > 138 && p_m[1] < 173
sel_b = 21
if kf_m
if sel_k == 0 || sel_k == 1
s = "り"
else
s = "リ"
end
end
elsif p_m[1] > 178 && p_m[1] < 213
sel_b = 22
if kf_m
if sel_k == 0 || sel_k == 1
s = "る"
else
s = "ル"
end
end
elsif p_m[1] > 218 && p_m[1] < 253
sel_b = 23
if kf_m
if sel_k == 0 || sel_k == 1
s = "れ"
else
s = "レ"
end
end
elsif p_m[1] > 258 && p_m[1] < 293
sel_b = 24
if kf_m
if sel_k == 0 || sel_k == 1
s = "ろ"
else
s = "ロ"
end
end
elsif p_m[1] > 308 && p_m[1] < 343
sel_b = 25
if kf_m
if sel_k == 0
s = "６"
elsif sel_k == 1
s = "Ⅵ"
elsif sel_k == 2
s = "六"
else
s = "拾"
end
end
elsif p_m[1] > 348 && p_m[1] < 383
sel_b = 26
if kf_m
if sel_k == 0
s = "７"
elsif sel_k == 1
s = "Ⅶ"
elsif sel_k == 2
s = "七"
else
s = "零"
end
end
elsif p_m[1] > 388 && p_m[1] < 423
sel_b = 27
if kf_m
if sel_k == 0
s = "８"
elsif sel_k == 1
s = "Ⅷ"
elsif sel_k == 2
s = "八"
else
s = "号"
end
end
elsif p_m[1] > 428 && p_m[1] < 463
sel_b = 28
if kf_m
if sel_k == 0
s = "９"
elsif sel_k == 1
s = "Ⅸ"
elsif sel_k == 2
s = "九"
else
s = "式"
end
end
elsif p_m[1] > 468 && p_m[1] < 503
sel_b = 29
if kf_m
if sel_k == 0
s = "０"
elsif sel_k == 1
s = "Ⅹ"
elsif sel_k == 2
s = "十"
else
s = "人"
end
end
end
elsif p_m[0] > 182 && p_m[0] < 250
if p_m[1] > 98 && p_m[1] < 133
sel_b = 30
if kf_m
if sel_k == 0
s = "や"
elsif sel_k == 1
s = "ゃ"
elsif sel_k == 2
s = "ヤ"
else
s = "ャ"
end
end
elsif p_m[1] > 138 && p_m[1] < 173
sel_b = 31
if kf_m
if sel_k == 0 || sel_k == 1
s = "ゐ"
else
s = "ヰ"
end
end
elsif p_m[1] > 178 && p_m[1] < 213
sel_b = 32
if kf_m
if sel_k == 0
s = "ゆ"
elsif sel_k == 1
s = "ゅ"
elsif sel_k == 2
s = "ユ"
else
s = "ュ"
end
end
elsif p_m[1] > 218 && p_m[1] < 253
sel_b = 33
if kf_m
if sel_k == 0 || sel_k == 1
s = "ゑ"
else
s = "ヱ"
end
end
elsif p_m[1] > 258 && p_m[1] < 293
sel_b = 34
if kf_m
if sel_k == 0
s = "よ"
elsif sel_k == 1
s = "ょ"
elsif sel_k == 2
s = "ヨ"
else
s = "ョ"
end
end
elsif p_m[1] > 308 && p_m[1] < 343
sel_b = 35
if kf_m
if sel_k == 0
s = "１"
elsif sel_k == 1
s = "Ⅰ"
elsif sel_k == 2
s = "一"
else
s = "壱"
end
end
elsif p_m[1] > 348 && p_m[1] < 383
sel_b = 36
if kf_m
if sel_k == 0
s = "２"
elsif sel_k == 1
s = "Ⅱ"
elsif sel_k == 2
s = "二"
else
s = "弐"
end
end
elsif p_m[1] > 388 && p_m[1] < 423
sel_b = 37
if kf_m
if sel_k == 0
s = "３"
elsif sel_k == 1
s = "Ⅲ"
elsif sel_k == 2
s = "三"
else
s = "参"
end
end
elsif p_m[1] > 428 && p_m[1] < 463
sel_b = 38
if kf_m
if sel_k == 0
s = "４"
elsif sel_k == 1
s = "Ⅳ"
elsif sel_k == 2
s = "四"
else
s = "伍"
end
end
elsif p_m[1] > 468 && p_m[1] < 503
sel_b = 39
if kf_m
if sel_k == 0
s = "５"
elsif sel_k == 1
s = "Ⅴ"
elsif sel_k == 2
s = "五"
else
s = "魔"
end
end
end
elsif p_m[0] > 257 && p_m[0] < 325
if p_m[1] > 98 && p_m[1] < 133
sel_b = 40
if kf_m
if sel_k == 0 || sel_k == 1
s = "ま"
else
s = "マ"
end
end
elsif p_m[1] > 138 && p_m[1] < 173
sel_b = 41
if kf_m
if sel_k == 0 || sel_k == 1
s = "み"
else
s = "ミ"
end
end
elsif p_m[1] > 178 && p_m[1] < 213
sel_b = 42
if kf_m
if sel_k == 0 || sel_k == 1
s = "む"
else
s = "ム"
end
end
elsif p_m[1] > 218 && p_m[1] < 253
sel_b = 43
if kf_m
if sel_k == 0 || sel_k == 1
s = "め"
else
s = "メ"
end
end
elsif p_m[1] > 258 && p_m[1] < 293
sel_b = 44
if kf_m
if sel_k == 0 || sel_k == 1
s = "も"
else
s = "モ"
end
end
elsif p_m[1] > 308 && p_m[1] < 343
sel_b = 45
if kf_m
if sel_k == 0
s = "ー"
elsif sel_k == 1
s = "～"
elsif sel_k == 2
s = "ー"
else
s = "＾"
end
end
elsif p_m[1] > 348 && p_m[1] < 383
sel_b = 46
if kf_m
if sel_k == 0
s = "＠"
elsif sel_k == 1
s = "＼"
elsif sel_k == 2
s = "天"
else
s = "申"
end
end
elsif p_m[1] > 388 && p_m[1] < 423
sel_b = 47
if kf_m
if sel_k == 0
s = "（"
elsif sel_k == 1
s = "＜"
elsif sel_k == 2
s = "使"
else
s = "子"
end
end
elsif p_m[1] > 428 && p_m[1] < 463
sel_b = 48
if kf_m
if sel_k == 0
s = "）"
elsif sel_k == 1
s = "＞"
elsif sel_k == 2
s = "男"
else
s = "♂"
end
end
elsif p_m[1] > 468 && p_m[1] < 503
sel_b = 49
if kf_m
if sel_k == 0
s = "・"
elsif sel_k == 1
s = "；"
elsif sel_k == 2
s = "女"
else
s = "♀"
end
end
end
elsif p_m[0] > 332 && p_m[0] < 400
if p_m[1] > 98 && p_m[1] < 133
sel_b = 50
if kf_m
if sel_k == 0 || sel_k == 1
s = "は"
else
s = "ハ"
end
end
elsif p_m[1] > 138 && p_m[1] < 173
sel_b = 51
if kf_m
if sel_k == 0 || sel_k == 1
s = "ひ"
else
s = "ヒ"
end
end
elsif p_m[1] > 178 && p_m[1] < 213
sel_b = 52
if kf_m
if sel_k == 0 || sel_k == 1
s = "ふ"
else
s = "フ"
end
end
elsif p_m[1] > 218 && p_m[1] < 253
sel_b = 53
if kf_m
if sel_k == 0 || sel_k == 1
s = "へ"
else
s = "ヘ"
end
end
elsif p_m[1] > 258 && p_m[1] < 293
sel_b = 54
if kf_m
if sel_k == 0 || sel_k == 1
s = "ほ"
else
s = "ホ"
end
end
elsif p_m[1] > 308 && p_m[1] < 343
sel_b = 55
if kf_m
if sel_k == 0
s = "Ｚ"
elsif sel_k == 1
s = "ｚ"
elsif sel_k == 2
s = "Ж"
else
s = "！"
end
end
elsif p_m[1] > 348 && p_m[1] < 383
sel_b = 56
if kf_m
if sel_k == 0
s = "♪"
elsif sel_k == 1
s = "○"
elsif sel_k == 2
s = "Щ"
else
s = "？"
end
end
elsif p_m[1] > 388 && p_m[1] < 423
sel_b = 57
if kf_m
if sel_k == 0
s = "☆"
elsif sel_k == 1
s = "△"
elsif sel_k == 2
s = "Я"
else
s = "＝"
end
end
elsif p_m[1] > 428 && p_m[1] < 463
sel_b = 58
if kf_m
if sel_k == 0
s = "＋"
elsif sel_k == 1
s = "－"
elsif sel_k == 2
s = "聖"
else
s = "愛"
end
end
elsif p_m[1] > 468 && p_m[1] < 503
sel_b = 59
if kf_m
if sel_k == 0
s = "＊"
elsif sel_k == 1
s = "／"
elsif sel_k == 2
s = "闇"
else
s = "悪"
end
end
end
elsif p_m[0] > 407 && p_m[0] < 475
if p_m[1] > 98 && p_m[1] < 133
sel_b = 60
if kf_m
if sel_k == 0 || sel_k == 1
s = "な"
else
s = "ナ"
end
end
elsif p_m[1] > 138 && p_m[1] < 173
sel_b = 61
if kf_m
if sel_k == 0 || sel_k == 1
s = "に"
else
s = "ニ"
end
end
elsif p_m[1] > 178 && p_m[1] < 213
sel_b = 62
if kf_m
if sel_k == 0 || sel_k == 1
s = "ぬ"
else
s = "ヌ"
end
end
elsif p_m[1] > 218 && p_m[1] < 253
sel_b = 63
if kf_m
if sel_k == 0 || sel_k == 1
s = "ね"
else
s = "ネ"
end
end
elsif p_m[1] > 258 && p_m[1] < 293
sel_b = 64
if kf_m
if sel_k == 0 || sel_k == 1
s = "の"
else
s = "ノ"
end
end
elsif p_m[1] > 308 && p_m[1] < 343
sel_b = 65
if kf_m
if sel_k == 0
s = "Ｕ"
elsif sel_k == 1
s = "ｕ"
elsif sel_k == 2
s = "Φ"
else
s = "φ"
end
end
elsif p_m[1] > 348 && p_m[1] < 383
sel_b = 66
if kf_m
if sel_k == 0
s = "Ｖ"
elsif sel_k == 1
s = "ｖ"
elsif sel_k == 2
s = "Χ"
else
s = "χ"
end
end
elsif p_m[1] > 388 && p_m[1] < 423
sel_b = 67
if kf_m
if sel_k == 0
s = "Ｗ"
elsif sel_k == 1
s = "ｗ"
elsif sel_k == 2
s = "Ψ"
else
s = "ψ"
end
end
elsif p_m[1] > 428 && p_m[1] < 463
sel_b = 68
if kf_m
if sel_k == 0
s = "Ｘ"
elsif sel_k == 1
s = "ｘ"
elsif sel_k == 2
s = "Ω"
else
s = "ω"
end
end
elsif p_m[1] > 468 && p_m[1] < 503
sel_b = 69
if kf_m
if sel_k == 0
s = "Ｙ"
elsif sel_k == 1
s = "ｙ"
elsif sel_k == 2
s = "Д"
else
s = "д"
end
end
end
elsif p_m[0] > 482 && p_m[0] < 550
if p_m[1] > 98 && p_m[1] < 133
sel_b = 70
if kf_m
if sel_k == 0 || sel_k == 1
s = "た"
else
s = "タ"
end
end
elsif p_m[1] > 138 && p_m[1] < 173
sel_b = 71
if kf_m
if sel_k == 0 || sel_k == 1
s = "ち"
else
s = "チ"
end
end
elsif p_m[1] > 178 && p_m[1] < 213
sel_b = 72
if kf_m
if sel_k == 0
s = "つ"
elsif sel_k == 1
s = "っ"
elsif sel_k == 2
s = "ツ"
else
s = "ッ"
end
end
elsif p_m[1] > 218 && p_m[1] < 253
sel_b = 73
if kf_m
if sel_k == 0 || sel_k == 1
s = "て"
else
s = "テ"
end
end
elsif p_m[1] > 258 && p_m[1] < 293
sel_b = 74
if kf_m
if sel_k == 0 || sel_k == 1
s = "と"
else
s = "ト"
end
end
elsif p_m[1] > 308 && p_m[1] < 343
sel_b = 75
if kf_m
if sel_k == 0
s = "Ｐ"
elsif sel_k == 1
s = "ｐ"
elsif sel_k == 2
s = "Π"
else
s = "π"
end
end
elsif p_m[1] > 348 && p_m[1] < 383
sel_b = 76
if kf_m
if sel_k == 0
s = "Ｑ"
elsif sel_k == 1
s = "ｑ"
elsif sel_k == 2
s = "Ρ"
else
s = "ρ"
end
end
elsif p_m[1] > 388 && p_m[1] < 423
sel_b = 77
if kf_m
if sel_k == 0
s = "Ｒ"
elsif sel_k == 1
s = "ｒ"
elsif sel_k == 2
s = "Σ"
else
s = "σ"
end
end
elsif p_m[1] > 428 && p_m[1] < 463
sel_b = 78
if kf_m
if sel_k == 0
s = "Ｓ"
elsif sel_k == 1
s = "ｓ"
elsif sel_k == 2
s = "Τ"
else
s = "τ"
end
end
elsif p_m[1] > 468 && p_m[1] < 503
sel_b = 79
if kf_m
if sel_k == 0
s = "Ｔ"
elsif sel_k == 1
s = "ｔ"
elsif sel_k == 2
s = "Υ"
else
s = "υ"
end
end
end
elsif p_m[0] > 557 && p_m[0] < 625
if p_m[1] > 98 && p_m[1] < 133
sel_b = 80
if kf_m
if sel_k == 0 || sel_k == 1
s = "さ"
else
s = "サ"
end
end
elsif p_m[1] > 138 && p_m[1] < 173
sel_b = 81
if kf_m
if sel_k == 0 || sel_k == 1
s = "し"
else
s = "シ"
end
end
elsif p_m[1] > 178 && p_m[1] < 213
sel_b = 82
if kf_m
if sel_k == 0 || sel_k == 1
s = "す"
else
s = "ス"
end
end
elsif p_m[1] > 218 && p_m[1] < 253
sel_b = 83
if kf_m
if sel_k == 0 || sel_k == 1
s = "せ"
else
s = "セ"
end
end
elsif p_m[1] > 258 && p_m[1] < 293
sel_b = 84
if kf_m
if sel_k == 0 || sel_k == 1
s = "そ"
else
s = "ソ"
end
end
elsif p_m[1] > 308 && p_m[1] < 343
sel_b = 85
if kf_m
if sel_k == 0
s = "Ｋ"
elsif sel_k == 1
s = "ｋ"
elsif sel_k == 2
s = "Λ"
else
s = "λ"
end
end
elsif p_m[1] > 348 && p_m[1] < 383
sel_b = 86
if kf_m
if sel_k == 0
s = "Ｌ"
elsif sel_k == 1
s = "ｌ"
elsif sel_k == 2
s = "Μ"
else
s = "μ"
end
end
elsif p_m[1] > 388 && p_m[1] < 423
sel_b = 87
if kf_m
if sel_k == 0
s = "Ｍ"
elsif sel_k == 1
s = "ｍ"
elsif sel_k == 2
s = "Ν"
else
s = "ν"
end
end
elsif p_m[1] > 428 && p_m[1] < 463
sel_b = 88
if kf_m
if sel_k == 0
s = "Ｎ"
elsif sel_k == 1
s = "ｎ"
elsif sel_k == 2
s = "Ξ"
else
s = "ξ"
end
end
elsif p_m[1] > 468 && p_m[1] < 503
sel_b = 89
if kf_m
if sel_k == 0
s = "Ｏ"
elsif sel_k == 1
s = "ｏ"
elsif sel_k == 2
s = "Ο"
else
s = "ο"
end
end
end
elsif p_m[0] > 632 && p_m[0] < 700
if p_m[1] > 98 && p_m[1] < 133
sel_b = 90
if kf_m
if sel_k == 0 || sel_k == 1
s = "か"
else
s = "カ"
end
end
elsif p_m[1] > 138 && p_m[1] < 173
sel_b = 91
if kf_m
if sel_k == 0 || sel_k == 1
s = "き"
else
s = "キ"
end
end
elsif p_m[1] > 178 && p_m[1] < 213
sel_b = 92
if kf_m
if sel_k == 0 || sel_k == 1
s = "く"
else
s = "ク"
end
end
elsif p_m[1] > 218 && p_m[1] < 253
sel_b = 93
if kf_m
if sel_k == 0 || sel_k == 1
s = "け"
else
s = "ケ"
end
end
elsif p_m[1] > 258 && p_m[1] < 293
sel_b = 94
if kf_m
if sel_k == 0 || sel_k == 1
s = "こ"
else
s = "コ"
end
end
elsif p_m[1] > 308 && p_m[1] < 343
sel_b = 95
if kf_m
if sel_k == 0
s = "Ｆ"
elsif sel_k == 1
s = "ｆ"
elsif sel_k == 2
s = "Ζ"
else
s = "ζ"
end
end
elsif p_m[1] > 348 && p_m[1] < 383
sel_b = 96
if kf_m
if sel_k == 0
s = "Ｇ"
elsif sel_k == 1
s = "ｇ"
elsif sel_k == 2
s = "Η"
else
s = "η"
end
end
elsif p_m[1] > 388 && p_m[1] < 423
sel_b = 97
if kf_m
if sel_k == 0
s = "Ｈ"
elsif sel_k == 1
s = "ｈ"
elsif sel_k == 2
s = "Θ"
else
s = "θ"
end
end
elsif p_m[1] > 428 && p_m[1] < 463
sel_b = 98
if kf_m
if sel_k == 0
s = "Ｉ"
elsif sel_k == 1
s = "ｉ"
elsif sel_k == 2
s = "Ι"
else
s = "ι"
end
end
elsif p_m[1] > 468 && p_m[1] < 503
sel_b = 99
if kf_m
if sel_k == 0
s = "Ｊ"
elsif sel_k == 1
s = "ｊ"
elsif sel_k == 2
s = "Κ"
else
s = "κ"
end
end
end
elsif p_m[0] > 707 && p_m[0] < 775
if p_m[1] > 98 && p_m[1] < 133
sel_b = 100
if kf_m
if sel_k == 0
s = "あ"
elsif sel_k == 1
s = "ぁ"
elsif sel_k == 2
s = "ア"
else
s = "ァ"
end
end
elsif p_m[1] > 138 && p_m[1] < 173
sel_b = 101
if kf_m
if sel_k == 0
s = "い"
elsif sel_k == 1
s = "ぃ"
elsif sel_k == 2
s = "イ"
else
s = "ィ"
end
end
elsif p_m[1] > 178 && p_m[1] < 213
sel_b = 102
if kf_m
if sel_k == 0
s = "う"
elsif sel_k == 1
s = "ぅ"
elsif sel_k == 2
s = "ウ"
else
s = "ゥ"
end
end
elsif p_m[1] > 218 && p_m[1] < 253
sel_b = 103
if kf_m
if sel_k == 0
s = "え"
elsif sel_k == 1
s = "ぇ"
elsif sel_k == 2
s = "エ"
else
s = "ェ"
end
end
elsif p_m[1] > 258 && p_m[1] < 293
sel_b = 104
if kf_m
if sel_k == 0
s = "お"
elsif sel_k == 1
s = "ぉ"
elsif sel_k == 2
s = "オ"
else
s = "ォ"
end
end
elsif p_m[1] > 308 && p_m[1] < 343
sel_b = 105
if kf_m
if sel_k == 0
s = "Ａ"
elsif sel_k == 1
s = "ａ"
elsif sel_k == 2
s = "Α"
else
s = "α"
end
end
elsif p_m[1] > 348 && p_m[1] < 383
sel_b = 106
if kf_m
if sel_k == 0
s = "Ｂ"
elsif sel_k == 1
s = "ｂ"
elsif sel_k == 2
s = "Β"
else
s = "β"
end
end
elsif p_m[1] > 388 && p_m[1] < 423
sel_b = 107
if kf_m
if sel_k == 0
s = "Ｃ"
elsif sel_k == 1
s = "ｃ"
elsif sel_k == 2
s = "Γ"
else
s = "γ"
end
end
elsif p_m[1] > 428 && p_m[1] < 463
sel_b = 108
if kf_m
if sel_k == 0
s = "Ｄ"
elsif sel_k == 1
s = "ｄ"
elsif sel_k == 2
s = "Δ"
else
s = "δ"
end
end
elsif p_m[1] > 468 && p_m[1] < 503
sel_b = 109
if kf_m
if sel_k == 0
s = "Ｅ"
elsif sel_k == 1
s = "ｅ"
elsif sel_k == 2
s = "Ε"
else
s = "ε"
end
end
end
else
sel_b = 0
end
if sel_b > 14 && kf_m && ((!num_only) || (sel_b == 19) || (s == "０" || s == "１" || s == "２" || s == "３" || s == "４" || s == "５" || s == "６" || s == "７" || s == "８" || s == "９"))
#se_id = playSound(se_enter)
#setSoundVolume(se_id, 1)
$SKB_msg_str[nsp] = s
if sel_b == 18
s = "□"
setText($SKB_tbS_A[nsp], "")
setText($SKB_tbS_B[nsp], "")
setText($SKB_tbS_C[nsp], "")
setText($SKB_tbS_D[nsp], "")
else
setText($SKB_tbS_A[nsp], s)
setText($SKB_tbS_B[nsp], s)
setText($SKB_tbS_C[nsp], s)
setText($SKB_tbS_D[nsp], s)
end
setText($SKB_tbS_Z[nsp], s)
if sel_b != 19
cr_ido = 1
elsif nsp != lsp
i = nsp
while i < lsp
$SKB_msg_str[i] = $SKB_msg_str[(i + 1)]
s = $SKB_msg_str[i]
if s == " "
s = "□"
setText($SKB_tbS_A[i], "")
setText($SKB_tbS_B[i], "")
setText($SKB_tbS_C[i], "")
setText($SKB_tbS_D[i], "")
else
setText($SKB_tbS_A[i], s)
setText($SKB_tbS_B[i], s)
setText($SKB_tbS_C[i], s)
setText($SKB_tbS_D[i], s)
end
setText($SKB_tbS_Z[i], s)
i += 1
end
$SKB_msg_str[lsp] = ""
s = ""
setText($SKB_tbS_A[i], s)
setText($SKB_tbS_B[i], s)
setText($SKB_tbS_C[i], s)
setText($SKB_tbS_D[i], s)
setText($SKB_tbS_Z[i], s)
lsp -= 1
end
end
if oldsel_b != sel_b
case sel_b
when 0 then
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], 800, 600, 2, 0, 0, 0, 0, 0, 0, 0, 0)
when 1 then
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], 608, 528, 2, 608, 528, sx1, sy, 0, 0, sx1, sy)
when 2 then
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], 415, 528, 2, 415, 528, sx1, sy, 0, 0, sx1, sy)
when 3 then
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], 222, 528, 2, 222, 528, sx1, sy, 0, 0, sx1, sy)
when 4 then
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], 29, 528, 2, 29, 528, sx1, sy, 0, 0, sx1, sy)
when 15 then
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], 29, 98, 2, 29, 98, sx2, sy, 0, 0, sx2, sy)
when 16 then
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], 29, 138, 2, 29, 138, sx2, sy, 0, 0, sx2, sy)
when 17 then
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], 29, 178, 2, 29, 178, sx2, sy, 0, 0, sx2, sy)
when 10 then
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], 29, 218, 2, 29, 218, sx2, sy, 0, 0, sx2, sy)
when 11 then
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], 29, 258, 2, 29, 258, sx2, sy, 0, 0, sx2, sy)
when 12 then
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], 29, 308, 2, 29, 308, sx2, sy, 0, 0, sx2, sy)
when 13 then
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], 29, 348, 2, 29, 348, sx2, sy, 0, 0, sx2, sy)
when 18 then
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], 29, 388, 2, 29, 388, sx2, sy, 0, 0, sx2, sy)
when 14 then
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], 29, 428, 2, 29, 428, sx2, sy, 0, 0, sx2, sy)
when 19 then
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], 29, 468, 2, 29, 468, sx2, sy, 0, 0, sx2, sy)
else
x = 104 + (floor(sel_b / 10) - 2) * 75
y = 98 + (sel_b % 10) * 40 + (floor((sel_b % 10) / 5)) * 10
scrKbdSetSpritePZR($SKB_msgB_sp_spr[sel_k], x, y, 2, x, y, sx2, sy, 0, 0, sx2, sy)
end
if sel_b > 0
#se_id = playSound(se_select)
#setSoundVolume(se_id, 1)
end
oldsel_b = sel_b
end
#if kf_m
# kf_m = false
#end
if cr_ido > 0
s = ""
setText($SKB_tbB_A[nsp], s)
setText($SKB_tbB_B[nsp], s)
setText($SKB_tbB_C[nsp], s)
setText($SKB_tbB_D[nsp], s)
setText($SKB_tbB_Z[nsp], s)
if cr_ido == 1 && nsp < (maxs - 1)
nsp = nsp + 1
if lsp < nsp
lsp = nsp
end
elsif cr_ido == 2
nsp = nsp - 1
if $SKB_msg_str[lsp] == ""
lsp = nsp
end
end
$SKB_cr_view = true
s = "￣"
setText($SKB_tbB_A[nsp], s)
setText($SKB_tbB_B[nsp], s)
setText($SKB_tbB_C[nsp], s)
setText($SKB_tbB_D[nsp], s)
setText($SKB_tbB_Z[nsp], s)
$SKB_cr_time_count = 0
#cr_ido = 0
else
$SKB_cr_time_count = $SKB_cr_time_count + 1
if $SKB_cr_time_count > 7
$SKB_cr_view = !($SKB_cr_view)
if $SKB_cr_view
s = "￣"
else
s = ""
end
setText($SKB_tbB_A[nsp], s)
setText($SKB_tbB_B[nsp], s)
setText($SKB_tbB_C[nsp], s)
setText($SKB_tbB_D[nsp], s)
setText($SKB_tbB_Z[nsp], s)
$SKB_cr_time_count = 0
end
end
$SKB_msg_setpos = nsp
$SKB_msg_setposl = lsp
$SKB_msg_min = sel_k01; $SKB_msg_kana = sel_k02
$SKB_oldsel_b = oldsel_b
#_/_/_/_/_/ 終了処理 _/_/_/_/_/
if !$SKB_st_flg
if !(canFl)
sets = ""
i = 0
while i < maxs
sets = sets + $SKB_msg_str[i].to_s
i += 1
end
else
sets = $SKB_msg_str_bk
end
scrKbdEnd()
r[0] = true
r[1] = sets
end
p_m.clear
end
return r
end
#----- スクリーンキーボードの終了 -----
def scrKbdEnd()
#画像の削除
i = 0; ilen = 8
while i < ilen do
scrKbdSetSpritePZR($SKB_bg_sp_spr[i],800,600,0,0,0,0,0,0,0,0,0)
i += 1
end
i = 0; ilen = 4
while i < ilen do
scrKbdSetSpritePZR($SKB_msgA_sp_spr[i], 800, 600, 1, 0, 0, 0, 0, 0, 0, 0, 0)
scrKbdSetSpritePZR($SKB_msgB_sp_spr[i], 800, 600, 2, 0, 0, 0, 0, 0, 0, 0, 0)
i += 1
end
scrKbdSetSpritePZR($SKB_msg_kana_sp_spr, 800, 600, 2, 0, 0, 0, 0, 0, 0, 0, 0)
scrKbdSetSpritePZR($SKB_msg_min_sp_spr, 800, 600, 2, 0, 0, 0, 0, 0, 0, 0, 0)
#テキストの削除
deleteText($SKB_tbT_A)
deleteText($SKB_tbT_B)
deleteText($SKB_tbT_C)
deleteText($SKB_tbT_D)
deleteText($SKB_tbT_Z)
deleteText($SKB_tbM_A)
deleteText($SKB_tbM_B)
deleteText($SKB_tbM_C)
deleteText($SKB_tbM_D)
deleteText($SKB_tbM_Z)
maxs = $SKB_msg_max + 1
i = 0
while i < maxs do
deleteText($SKB_tbS_A[i])
deleteText($SKB_tbS_B[i])
deleteText($SKB_tbS_C[i])
deleteText($SKB_tbS_D[i])
deleteText($SKB_tbS_Z[i])
deleteText($SKB_tbB_A[i])
deleteText($SKB_tbB_B[i])
deleteText($SKB_tbB_C[i])
deleteText($SKB_tbB_D[i])
deleteText($SKB_tbB_Z[i])
i += 1
end
$SKB_msg_str.clear
$SKB_msg_str = []
$SKB_tap_flg_z_c = false
end
#_/_/_/_/_/_/ メイン処理 _/_/_/_/_/_/
scene 'sc_scrkbd' do
preload do
#_/_/_/ 素材のロード _/_/_/
if NNE_scrkbd_flg
scrkbd_bg_id = [108639,108646,108653,108660,108667,108674,108681,108688]
i = 0; ilen = 8
while i < ilen do
id = format("img_scrkbd_bg%02d", (i + 1))
image id, id: scrkbd_bg_id[i]
i += 1
end
scrkbd_msgA_id = [108695,108751,108767,108781]
scrkbd_msgB_id = [108702,108760,108774,108788]
i = 0; ilen = 4
while i < ilen do
id = format("img_scrkbd_msgA_%02d", (i + 1))
image id, id: scrkbd_msgA_id[i]
id = format("img_scrkbd_msgB_%02d", (i + 1))
image id, id: scrkbd_msgB_id[i]
i += 1
end
id = "img_scrkbd_msg_kana"
image id, id: scrkbd_msgB_id[0]
id = "img_scrkbd_msg_min"
image id, id: scrkbd_msgB_id[0]
end
end
create do
#_/_/_/ 変数の初期化 _/_/_/
#_/_/_/ 素材の初期化 _/_/_/
end
update do
#_/_/_/ メインループ _/_/_/
change_scene "sc_main"
end
render do
#_/_/_/ 描画 _/_/_/
end
end
sprite 'spr_img_scrkbd_bg01' do
image 'img_scrkbd_bg01'
origin :left_top
end
sprite 'spr_img_scrkbd_bg02' do
image 'img_scrkbd_bg02'
origin :left_top
end
sprite 'spr_img_scrkbd_bg03' do
image 'img_scrkbd_bg03'
origin :left_top
end
sprite 'spr_img_scrkbd_bg04' do
image 'img_scrkbd_bg04'
origin :left_top
end
sprite 'spr_img_scrkbd_bg05' do
image 'img_scrkbd_bg05'
origin :left_top
end
sprite 'spr_img_scrkbd_bg06' do
image 'img_scrkbd_bg06'
origin :left_top
end
sprite 'spr_img_scrkbd_bg07' do
image 'img_scrkbd_bg07'
origin :left_top
end
sprite 'spr_img_scrkbd_bg08' do
image 'img_scrkbd_bg08'
origin :left_top
end
sprite 'spr_img_scrkbd_msgA_01' do
image 'img_scrkbd_msgA_01'
origin :left_top
end
sprite 'spr_img_scrkbd_msgB_01' do
image 'img_scrkbd_msgB_01'
origin :left_top
end
sprite 'spr_img_scrkbd_msgA_02' do
image 'img_scrkbd_msgA_02'
origin :left_top
end
sprite 'spr_img_scrkbd_msgB_02' do
image 'img_scrkbd_msgB_02'
origin :left_top
end
sprite 'spr_img_scrkbd_msgA_03' do
image 'img_scrkbd_msgA_03'
origin :left_top
end
sprite 'spr_img_scrkbd_msgB_03' do
image 'img_scrkbd_msgB_03'
origin :left_top
end
sprite 'spr_img_scrkbd_msgA_04' do
image 'img_scrkbd_msgA_04'
origin :left_top
end
sprite 'spr_img_scrkbd_msgB_04' do
image 'img_scrkbd_msgB_04'
origin :left_top
end
sprite 'spr_img_scrkbd_msg_kana' do
image 'img_scrkbd_msg_kana'
origin :left_top
end
sprite 'spr_img_scrkbd_msg_min' do
image 'img_scrkbd_msg_min'
origin :left_top
end
プレー内容を公開する
プレー履歴
-
PAPEL3:
パペルさん Thank you for playing !
(11/25 15:14) -
minionclover:
Thank you for playing !
(08/06 22:54) -
なとおとき:
ひろゆきさん Thank you for playing !
(07/24 01:40) -
なとおとき:
Thank you for playing !
(07/24 01:38)
-
キューマル:
キューマルさん Thank you for playing !
(03/17 20:55) -
井戸乃博士:
ＩＤＯさんThank you for playing !
(02/18 17:58) -
aoihikawa:
あおいさんThank you for playing !
(02/17 11:29) -
mochi3kan:
Thank you for playing !
(02/07 17:13) -
井戸乃博士:
Thank you for playing !
(02/06 19:56)
-
光楼（114）:
Thank you for playing !
(02/06 14:19)
新着レビュー
レビューはまだ投稿されていません。 作品の感想を作者に伝えるためにレビューを投稿してみませんか？
フォロー/シェア
ウィンドウ
https://rmake.jp/published_items/37210
オプション
https://rmake.jp/published_items/38572
背景
https://rmake.jp/published_items/34427
https://rmake.jp/published_items/34426
立ち絵
https://rmake.jp/published_items/37145
https://rmake.jp/published_items/37447
ありがとうございます
追加で
ウインドウ
拡張メッセージウインドウ_02
背景
背景_夜
立ち絵
浜谷ルメ子
拡張画像
イベントアイテム_アイテム枠_03_赤
イベントアイテム_マグカップ_にぃみゃん
集中線_黒