CoRサンプル集: 日本語ノベルえでぃた

日本語でノベルゲームがつくれる
サンプルゲームです

なお、RmakeからCoRへの移植作品のため
旧バージョンと比較して
一部の機能に制限があります

Ver.2.09_更新情報
スクリプト

詳細情報
wiki:日本語ノベルえでぃた
ご要望・ご意見受付
ご質問・エラー報告受付
プレー:203 (人数:63) クリア: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 = "6" 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 = "7" 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 = "8" 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 = "9" 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 = "0" 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 = "1" 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 = "2" 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 = "3" 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 = "4" 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 = "5" 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 = "Z" elsif sel_k == 1 s = "z" 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 = "U" elsif sel_k == 1 s = "u" 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 = "V" elsif sel_k == 1 s = "v" 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 = "W" elsif sel_k == 1 s = "w" 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 = "X" elsif sel_k == 1 s = "x" 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 = "Y" elsif sel_k == 1 s = "y" 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 = "P" elsif sel_k == 1 s = "p" 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 = "Q" elsif sel_k == 1 s = "q" 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 = "R" elsif sel_k == 1 s = "r" 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 = "S" elsif sel_k == 1 s = "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 = "T" elsif sel_k == 1 s = "t" 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 = "K" elsif sel_k == 1 s = "k" 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 = "L" elsif sel_k == 1 s = "l" 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 = "M" elsif sel_k == 1 s = "m" 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 = "N" elsif sel_k == 1 s = "n" 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 = "O" elsif sel_k == 1 s = "o" 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 = "F" elsif sel_k == 1 s = "f" 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 = "G" elsif sel_k == 1 s = "g" 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 = "H" elsif sel_k == 1 s = "h" 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 = "I" elsif sel_k == 1 s = "i" 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 = "J" elsif sel_k == 1 s = "j" 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 = "A" elsif sel_k == 1 s = "a" 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 = "B" elsif sel_k == 1 s = "b" 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 = "C" elsif sel_k == 1 s = "c" 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 = "D" elsif sel_k == 1 s = "d" 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 = "E" elsif sel_k == 1 s = "e" 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 == "0" || s == "1" || s == "2" || s == "3" || s == "4" || s == "5" || s == "6" || s == "7" || s == "8" || s == "9")) #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
コード一覧
投稿者:Cdv30200 aoi icon mini aoihikawa 対象Lv1 公開日:2021年02月06日 10:31:42
プレー内容を公開する

違反を通報する

コメントする

コメントするには、ログインする必要があります。

コメント一覧

Material 204926 1 mini 井戸乃博士(投稿日:2021/02/21 16:30, 履歴)
Cdv30200 aoi icon mini aoihikawa(投稿日:2021/02/21 16:46, 履歴)
これは、御丁寧に!
ありがとうございます

追加で

ウインドウ
拡張メッセージウインドウ_02

背景
背景_夜

立ち絵
浜谷ルメ子

拡張画像
イベントアイテム_アイテム枠_03_赤
イベントアイテム_マグカップ_にぃみゃん
集中線_黒
Material 303531 2 mini mochi3kan(投稿日:2021/02/07 17:22, 履歴)
すごい、移植お疲れ様です!
あとBGMのフェードイン・フェードアウトってCoRでも出来るんですね!
プレー履歴

全てのプレー履歴を見る

新着レビュー

レビューはまだ投稿されていません。 作品の感想を作者に伝えるためにレビューを投稿してみませんか?

全てのレビュー

フォロー/シェア

ブログ/Wiki/掲示板で共有する

Rmake内(ブログ/Wiki/掲示板)に貼り付ける場合は以下のタグを利用してください。

リンク

プレイヤー

外部ホームページに貼り付ける

外部ホームページに貼り付ける場合は以下のタグを利用してください。