Update 6.8

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

@@ -6,7 +6,7 @@ class PokemonStorage
     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)
+    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
@@ -16,7 +16,7 @@ class PokemonStorage
       end
 
       locked_wallpapers = []
-      for i in BASICWALLPAPERQTY..allWallpapers.length-1
+      for i in BASICWALLPAPERQTY..allWallpapers.length - 1
         locked_wallpapers << i unless isAvailableWallpaper?(i)
       end
       if locked_wallpapers.empty?
@@ -27,7 +27,6 @@ class PokemonStorage
       unlocked_index = locked_wallpapers.sample
       $Trainer.quest_points -= 1
 
-
       $game_system.bgm_memorize
       $game_system.bgm_stop
 
@@ -47,7 +46,7 @@ class PokemonStorage
     wallpaper_name = allWallpapers[wallpaper_id]
     pbUnlockWallpaper(wallpaper_id)
     path = "Graphics/Pictures/Storage/Wallpapers/box_#{wallpaper_id}"
-    pictureViewport = showPicture(path, 50,-45)
+    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
@@ -56,7 +55,12 @@ end
 
 class WallpaperLotteryPC
   def shouldShow?
-    return player_has_quest_journal?
+    if Settings::KANTO
+      return player_has_quest_journal?
+    end
+    if Settings::HOENN
+      return $game_switches[SWITCH_UNLOCKED_WALLPAPER_LOTTERY]
+    end
   end
 
   def name