update 6.7

Data/Scripts/052_InfiniteFusion/Gameplay/Features/WallpaperLottery.rb

@@ -0,0 +1,75 @@
+class PokemonStorage
+  def wallpaperLottery
+    cmd_play = _INTL("Play!")
+    cmd_info = _INTL("Info")
+    cmd_cancel = _INTL("Cancel")
+    commands = [cmd_play, cmd_info, cmd_cancel]
+
+    $Trainer.quest_points = initialize_quest_points unless $Trainer.quest_points
+    choice = pbMessage(_INTL("\\qpWould you like to play the Wallpaper Lottery? (Costs \\C[1]1 Quest point\\C[0])"),commands,2)
+
+    case commands[choice]
+    when cmd_play
+      if $Trainer.quest_points <= 0
+        pbMessage(_INTL("You don't have any \\C[1]Quest points\\C[0]. Complete quests to obtain more!"))
+        return
+      end
+
+      locked_wallpapers = []
+      for i in BASICWALLPAPERQTY..allWallpapers.length-1
+        locked_wallpapers << i unless isAvailableWallpaper?(i)
+      end
+      if locked_wallpapers.empty?
+        pbMessage(_INTL("You don't have any wallpapers left to unlock!"))
+        return
+      end
+
+      unlocked_index = locked_wallpapers.sample
+      $Trainer.quest_points -= 1
+
+
+      $game_system.bgm_memorize
+      $game_system.bgm_stop
+
+      pbWait(8)
+      pbSEPlay("BW_exp")
+      pbWait(90)
+      $game_system.bgm_restore
+      obtain_wallpaper(unlocked_index)
+    when cmd_info
+      pbMessage(_INTL("The Wallpaper Lottery allows you to unlock \\C[1]new wallpapers\\C[0] for your PC boxes background."))
+      pbMessage(_INTL("Participating in the lottery costs \\C[1]1 Quest point\\C[0]. You obtain one Quest Point per quest that you complete."))
+
+    end
+  end
+
+  def obtain_wallpaper(wallpaper_id)
+    wallpaper_name = allWallpapers[wallpaper_id]
+    pbUnlockWallpaper(wallpaper_id)
+    path = "Graphics/Pictures/Storage/Wallpapers/box_#{wallpaper_id}"
+    pictureViewport = showPicture(path, 50,-45)
+    musical_effect = "Key item get"
+    pbMessage(_INTL("\\qp\\me[{1}]Obtained a new wallpaper: \\c[1]{2}\\c[0]!", musical_effect, wallpaper_name))
+    pictureViewport.dispose if pictureViewport
+  end
+end
+
+class WallpaperLotteryPC
+  def shouldShow?
+    return player_has_quest_journal?
+  end
+
+  def name
+    return _INTL("Wallpaper Lottery")
+  end
+
+  def access
+    pbMessage(_INTL("\\se[PC access]Accessed the Wallpaper Lottery."))
+    $PokemonStorage.wallpaperLottery
+  end
+end
+
+#===============================================================================
+#
+#===============================================================================
+PokemonPCList.registerPC(WallpaperLotteryPC.new)