実験 800x450 公開中

じゃんけんゲーム

投稿者:takumi2310 投稿日時: 2013/07/19 23:26:49
閲覧: 137 評価: 20
  • Starwhite
  • Starwhite
  • Starwhite
  • Starwhite
  • Starwhite
  • Starwhite
  • Starwhite
  • Starwhite
  • Starwhite
  • Starwhite
あなたはまだ評価していません。
game.loading do |loader| loader.add :window, :system => "window" loader.add :gui_item, :system => "gui_item" loader.add :aite, 0 loader.add :you, 1 loader.add :win_count, 2 loader.add :lose_count, 3 loader.add :chain_count, 4 end # ゲーム全体で使うデータ # 定数に入れておいて、関数で同じインスタンスを返すようにする LOCAL_DATA_CONSTANT = {} def local_data LOCAL_DATA_CONSTANT end #変数初期化 local_data[:win_count] = 0 local_data[:lose_count] = 0 game.on_init do set_window_image :window set_gui_image :gui_item speak("じゃんけんゲームへようこそ") scene_change :serect_scene end scene :serect_scene do |scene| #連勝カウント初期化 local_data[:chain_count] = 0 #何するか選択 text = scene.text :position => [300, 410] text.set_text_area_size 250, 200 text.set_font_point_size 32 text.set_text ("どうしますか?") text = scene.text :position => [50, 100] text.set_text_area_size 250, 80 text.set_font_point_size 32 text.set_text ("じゃんけんする") text.event :on_click do |event| scene_change :battle_scene end text = scene.text :position => [50, 180] text.set_text_area_size 250, 80 text.set_font_point_size 32 text.set_text ("戦績を見る") text.event :on_click do |event| scene_change :log_scene end text = scene.text :position => [50, 260] text.set_text_area_size 250, 80 text.set_font_point_size 32 text.set_text ("終了する") text.event :on_click do |event| speak("プレーありがとうございました。") scene_change :end_scene end end scene :battle_scene do |scene| local_data[:aite] = rand(3) #相手の手 #出す手を選択 text = scene.text :position => [170, 410] text.set_text_area_size 400, 200 text.set_font_point_size 32 text.set_text ("出す手を選択してください。") text = scene.text :position => [50, 100] text.set_text_area_size 250, 200 text.set_font_point_size 32 text.set_text ("グー") text.event :on_click do |event| local_data[:you] = 0 scene_change :result_scene end text = scene.text :position => [250, 100] text.set_text_area_size 250, 200 text.set_font_point_size 32 text.set_text ("チョキ") text.event :on_click do |event| local_data[:you] = 1 scene_change :result_scene end text = scene.text :position => [450, 100] text.set_text_area_size 250, 200 text.set_font_point_size 32 text.set_text ("パー") text.event :on_click do |event| local_data[:you] = 2 scene_change :result_scene end end scene :result_scene do |scene| #相手の手を表示 case local_data[:aite] when 0 speak("相手はグーを出した!") when 1 speak("相手はチョキを出した!") when 2 speak("相手はパーを出した!") end #勝敗表示 if (local_data[:aite] - local_data[:you]) == 1 speak("あなたの勝ち") local_data[:win_count] += 1 local_data[:chain_count] += 1 elsif (local_data[:aite] - local_data[:you]) == -2 speak("あなたの勝ち") local_data[:win_count] += 1 local_data[:chain_count] += 1 elsif (local_data[:aite] - local_data[:you]) == -1 speak("あなたの負け") local_data[:lose_count] += 1 local_data[:chain_count] = 0 elsif (local_data[:aite] - local_data[:you]) == 2 speak("あなたの負け") local_data[:lose_count] += 1 local_data[:chain_count] = 0 elsif (local_data[:aite] == local_data[:you]) speak("あいこ") end scene_change :more_scene end scene :more_scene do |scene| if (local_data[:aite] != local_data[:you]) if local_data[:chain_count] > 0 speak("現在、" + local_data[:chain_count].to_s + "連勝中!") #連勝表示 end #続けるか選択 text = scene.text :position => [300, 410] text.set_text_area_size 250, 200 text.set_font_point_size 32 text.set_text ("続けますか?") text = scene.text :position => [50, 100] text.set_text_area_size 250, 80 text.set_font_point_size 32 text.set_text ("はい") text.event :on_click do |event| scene_change :battle_scene end text = scene.text :position => [50, 180] text.set_text_area_size 250, 80 text.set_font_point_size 32 text.set_text ("いいえ") text.event :on_click do |event| scene_change :serect_scene end else scene_change :battle_scene #あいこなら強制的にもう1回 end end scene :log_scene do |scene| #戦績表示 #コンマを使うと動作しないっぽい speak("あなたの戦績は" + local_data[:win_count].to_s + "勝" + local_data[:lose_count].to_s + "敗です。") scene_change :serect_scene end scene :end_scene do |scene| game.change_project "start_menu" #ゲーム終了 end
コード一覧
  • start.rb

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

コメント一覧
お知らせ

2014/03/04 ver. 0.1.39 を公開しました!
・0.1.36でWindowsで起動しない問題を修正しました
(Android版はバージョン番号のみの変更です。)

2014/03/04 ver. 0.1.36 を公開しました!
・アプリケーションアイコンを変更しました
・セーブ・ロードを繰り返すとアプリが強制終了する問題を修正しました
・他、重大なバグを修正しました

ダウンロードはこちらから。

2013/07/17 Code on Rmakeをα公開しました!