feat: 整地報酬ガチャ券受取ボタンに右クリックして1スタックだけ引き出せるようにする機能を追加

src/main/scala/com/github/unchama/seichiassist/menus/stickmenu/FirstPage.scala

@@ -8,7 +8,8 @@ import com.github.unchama.menuinventory.router.CanOpen
 import com.github.unchama.menuinventory.slot.button.action.{
   ClickEventFilter,
   FilteredButtonEffect,
-  LeftClickButtonEffect
+  LeftClickButtonEffect,
+  RightClickButtonEffect
 }
 import com.github.unchama.menuinventory.slot.button.{Button, RecomputedButton, action}
 import com.github.unchama.seichiassist.data.descrptions.PlayerStatsLoreGenerator
@@ -522,6 +523,9 @@ object FirstPage extends Menu {
       val effect: FilteredButtonEffect = LeftClickButtonEffect(
         environment.gachaPointApi.receiveBatch
       )
+      val rightEffect: FilteredButtonEffect = RightClickButtonEffect(
+        environment.gachaPointApi.receiveOneStackBatch
+      )
 
       val computeItemStack: IO[ItemStack] =
         environment.gachaPointApi.gachaPoint(player).read.toIO.map { point =>
@@ -534,8 +538,10 @@ object FirstPage extends Menu {
 
             val requiredToNextTicket =
               s"$RESET${AQUA}次のガチャ券まで:${point.amountUntilNextGachaTicket.amount}ブロック"
+            val recvGachaTicketDetail =
+              s"$RESET${GRAY}左クリックで最大9st、右クリックで最大1stのガチャ券を受け取ります"
 
-            List(gachaTicketStatus, requiredToNextTicket)
+            List(gachaTicketStatus, requiredToNextTicket, recvGachaTicketDetail)
           }
 
           new SkullItemStackBuilder(SkullOwners.unchama)
@@ -545,7 +551,7 @@ object FirstPage extends Menu {
         }
 
       val computeButton: IO[Button] = computeItemStack.map { itemStack =>
-        Button(itemStack, effect)
+        Button(itemStack, effect, rightEffect)
       }
 
       RecomputedButton(computeButton)

src/main/scala/com/github/unchama/seichiassist/subsystems/gachapoint/GachaPointApi.scala

@@ -17,6 +17,11 @@ trait GachaPointApi[F[_], G[_], Player] {
    */
   val receiveBatch: Kleisli[F, Player, Unit]
 
+  /**
+   * プレーヤーのガチャポイントをガチャ券に変換して一括で受け取る作用。
+   */
+  val receiveOneStackBatch: Kleisli[F, Player, Unit]
+
   /**
    * プレーヤーのガチャポイントを増やす作用。
    */

src/main/scala/com/github/unchama/seichiassist/subsystems/gachapoint/System.scala

@@ -90,6 +90,13 @@ object System {
               .as(())
           }
 
+          override val receiveOneStackBatch: Kleisli[F, Player, Unit] = Kleisli { player =>
+            gachaPointRepositoryControlsRepository
+              .lift(player)
+              .traverse { _.semaphore.tryOneStackBatchTransaction }
+              .as(())
+          }
+
           override def addGachaPoint(point: GachaPoint): Kleisli[F, Player, Unit] =
             Kleisli { player: Player =>
               ContextCoercion(

src/main/scala/com/github/unchama/seichiassist/subsystems/gachapoint/domain/BatchUsageSemaphore.scala

@@ -27,6 +27,12 @@ class BatchUsageSemaphore[F[_]: FlatMap, G[_]: ContextCoercion[*[_], F]](
       }.flatTap(grantAction.give)
     }(BatchUsageSemaphore.usageInterval)
 
+  def tryOneStackBatchTransaction: F[Unit] =
+    recoveringSemaphore.tryUse {
+      ContextCoercion {
+        gachaPointRef.modify { _.useInOneStackBatch.asTuple }
+      }.flatTap(grantAction.give)
+    }(BatchUsageSemaphore.usageInterval)
 }
 
 object BatchUsageSemaphore {

src/main/scala/com/github/unchama/seichiassist/subsystems/gachapoint/domain/gachapoint/GachaPoint.scala

@@ -5,7 +5,7 @@ import com.github.unchama.seichiassist.subsystems.breakcount.domain.level.Seichi
 /**
  * ガチャポイントとはプレーヤーが持つ「消費可能な整地経験量」である。
  *
- * プレーヤーは576個(= 64 * 9スタック)のバッチにてガチャポイントをガチャ券に交換できる。
+ * プレーヤーは576個(= 64 * 9スタック)のバッチもしくは、64個(1スタック)のバッチにてガチャポイントをガチャ券に交換できる。
  */
 case class GachaPoint(exp: SeichiExpAmount) {
 
@@ -16,7 +16,7 @@ case class GachaPoint(exp: SeichiExpAmount) {
     (exp.amount /% GachaPoint.perGachaTicket.exp.amount)._1.toBigInt
 
   /**
-   * ガチャポイントをバッチでガチャ券に変換した際のポイントの変化を計算する。
+   * ガチャポイントを576個(= 64 * 9スタック)のバッチでガチャ券に変換した際のポイントの変化を計算する。
    */
   lazy val useInBatch: GachaPoint.Usage = {
     val ticketCount = availableTickets.min(GachaPoint.batchSize).toInt
@@ -27,6 +27,18 @@ case class GachaPoint(exp: SeichiExpAmount) {
     GachaPoint.Usage(remaining, ticketCount)
   }
 
+  /**
+   * ガチャポイントを64個(1スタック)のバッチでガチャ券に変換した際のポイントの変化を計算する。
+   */
+  lazy val useInOneStackBatch: GachaPoint.Usage = {
+    val ticketCount = availableTickets.min(GachaPoint.batchSizeOneStack).toInt
+
+    val expToUse = GachaPoint.perGachaTicket.exp.amount * ticketCount
+    val remaining = GachaPoint.ofNonNegative(exp.amount - expToUse)
+
+    GachaPoint.Usage(remaining, ticketCount)
+  }
+
   /**
    * 次にガチャ券を利用できるようになるまでに必要な整地経験値量
    */
@@ -63,6 +75,11 @@ object GachaPoint {
    * ガチャ券へのポイント交換にて一度に得られるガチャ券の上限
    */
   final val batchSize = 9 * 64
+
+  /**
+   * ガチャ券へのポイント交換にて一度に得られるガチャ券の上限
+   */
+  final val batchSizeOneStack = 64
 
   /**
    * ガチャポイントの初期値