CoRサンプル集: Rmakeクイズ!

汎用メッセージウィンドウと選択肢ウィンドウが完成したので、そのお披露目としてちょっとしたクイズゲームを作ったぞ!ちょっと難しい問題もあるぞ!ぜひ全問正解を目指してくれたまえ!

関数についての説明:光楼式汎用CoR関数
ソースコードを表示
使いたい方はどうぞ使ってください。
プレー:19 (人数:12) クリア:6 評価: 30 (3回)
scene 'start' do preload do #背景塗り潰し用画像素材用意 FillingMaterial_Set() #各種アイコン素材用意 TextWindowIcons_Set() end create do #========== レイヤーの生成 ==========# $system_layer = add_layer #テキストウィンドウを表示するレイヤーを設定 TextWindow_LayerSet($system_layer) end update do #ゲームの中身 message("ようこそ、Rmakeクイズへ!!!", {:size => 45, :c => '#ff2222'}) message("私はついにCoR用「汎用メッセージウィンドウ」と\n「汎用選択肢メッセージウィンドウ」関数を完成させた!") message("しっかりデバッグしたわけじゃないので、バグがあれば教えてください……", {:size => 12, :c => '#333333'}) message("完成を記念し、これの披露も兼ねて「Rmakeクイズ」を作って来たぞ!") message("だから音楽とか余計なものは全て省いたぞ。\n選択肢の位置がコロコロ変わるけど気にしないでね(∀`*ゞ)テヘッ", {:size => 12, :c => '#333333'}) message("問題は全部で10問!\nぜひとも全問正解を目指してくれたまえ。") message("で は い く ぞ !", {:txt_wait => 250}) point = 0 #正解数カウント good = {:c => '#00FF00'} #文字色 緑 bad = {:c => '#FF0000'} #文字色 赤 #1 message("問題") case messageWithSelect(["2008/07/17", "2009/07/17", "2010/07/15", "2010/07/17"], "Rmakeのサービス開始はいつ?") when 1 message("正解!", good) point += 1 else message("残念!", bad) message("正解は「2009/07/17」でした!") end #2 message("問題") case messageWithSelect(["Code on Rmake", "Code of Rmake", "Cod on Rmeke", "Code out Rmake"], "CoRと略される、Rmakeでは作れなかったシューティングゲーム等を作れるように\nした、高性能でスマートフォンでも動くゲームエンジンは何?", {:bg_opacity => 20, :bg_c => 5}) when 0 message("正解!", good) point += 1 else message("残念!", bad) message("正解は「Code on Rmake」でした!") end #3 message("問題", {:x => 380, :w => 60, :h => 60}) case messageWithSelect(["VBA", "JavaScript", "rmake", "arrp"], "Rmakeのスクリプト言語の名前は何?") when 3 message("正解!", good) point += 1 else message("残念!", bad) message("正解は「arrp」でした!") end #4 message("問題") case messageWithSelect(["C#", "Java", "Ruby", "PHP"], "Rmakeのスクリプト言語は、とあるプログラミング言語のサブセット(機能限定版)\nとなるように開発されていた。\nさて、何の言語?", {}, {:left => 50, :right => nil}) when 2 message("正解!", good) point += 1 else message("残念!", bad) message("正解は「Ruby」でした!") end #5 message("問題") case messageWithSelect(["4問目", "5問目", "6問目", "7問目"], "今、何問目?", {}, {:slct_h => 50, :size => 46}) when 1 message("正解!", good) point += 1 else message("残念!", bad) message("正解は「5問目」でした!") end #6 message("問題") case messageWithSelect(["Rmake株式会社", "株式会社Rmake", "有限会社Rmake", "一般社団法人Rmake", "R株式会社", "Rmake財団"], "2011/06/01、Rmakeの運営が個人からとある組織に変わった。\nその組織の名前は?") when 1 message("正解!", good) point += 1 else message("残念!", bad) message("正解は「株式会社Rmake」でした!") end #7 message("問題") case messageWithSelect(["サイトの大幅リニューアルを行った", "サーバーを倍に増やした", "アメリカにおいていたサーバーを日本に持ってきた", "サイトを一から作り直した"], "2011/04/08にサイトの高速化が行われた。\nその内容とは?") when 2 message("正解!", good) point += 1 else message("残念!", bad) message("正解は「アメリカにおいていたサーバーを日本に持ってきた」でした!") end #8 message("問題") case messageWithSelect(["2013/07/17", "2014/07/17", "2015/07/17", "2016/07/17"], "Code on Rmakeの公開アルファテストが開始されたのは何時?", {:frame_c => 3}) when 0 message("正解!", good) point += 1 else message("残念!", bad) message("正解は「2013/07/17」でした!") end #9 message("問題") case messageWithSelect(["6問目", "7問目", "8問目", "9問目"], "今、何問目?", {:y => 50}, {:up => 180, :down => nil}) when 3 message("正解!", good) point += 1 else message("残念!", bad) message("正解は「9問目」でした!") end #10 message("と、いうことで……") message("最 終 問 題", {:size => 50, :x => 205, :w => 390, :c => '#FFFF00', :txt_wait => 300}) case messageWithSelect(["start_scene:シーンを開始する", "tap_down?:特定のスプライトがタップされているかどうかを取得", "loading_code:シーンに含まれるソースファイルを読み込む", "debug_log:ログエリアにデバッグログを出力する"], "CoRのメソッドとその説明のうち、間違っているものはどれ?", {:x => 0, :y => 0, :w => 800, :h => 450}, {:up => 50, :down => nil, :left => 100, :slct_c => 2}) when 2 message("正解!", good) point += 1 else message("残念!", bad) message("正解は「loading_code:シーンに含まれるソースファイルを読み込む」でした!\n\n実際にソースファイルの読込みに使われるメソッドは「require_code」です!") end #終了 message("全問終了しました!") message("あなたの得点は……") message("#{point}点です!") send_activity_feed("#{point}問正解しました。") game_clear end render do end end #ソースファイルの読込み require_code '光楼式汎用CoR関数.rb' #シーンスタート start_scene 'start'
コード一覧
投稿者:    mini 光楼(114) 対象Lv1 公開日:2021年02月04日 22:58:02
プレー内容を公開する

違反を通報する

コメントする

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

コメント一覧

コメントはありません。

プレー履歴
  • Material 303531 2 mini mochi3kan: 6問正解しました。
    (02/07 16:51)
  • Cdv30200 aoi icon mini aoihikawa: 5問正解しました。
    (02/06 11:27)
  • Material 204926 1 mini 井戸乃博士: 4問正解しました。
    (02/05 20:58)
  • Rmakeic1 mini muga: 4問正解しました。
    (02/04 23:33)
  •     mini 光楼(114): 10問正解しました。
    (02/04 23:00)

全てのプレー履歴を見る

新着レビュー

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

全てのレビュー

フォロー/シェア

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

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

リンク

プレイヤー

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

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