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'