[RMXP Project] Kyonides's Series of Demos

Code:
# * Karta XP - Alpha Stage

#   Scripter : Kyonides Arkanthes

#   2021-03-12



# * Script Calls * #



# $game_party.add_kard(Number)

# It won't add a card to your deck if:

# - Your deck reached the CARD_MAX limit

# - You've got CARD_TYPE_MAX cards of the same kind



# $game_party.enough_kards?

# $game_party.kards_max = Number

# $game_party.kards_max += Number

# $game_party.kards_max -= Number



module Karta

  BASE_CARD = 'card base.jpg'

  CARD_MIN = 3

  CARD_MAX = 20

  CARD_TYPE_MAX = 3

  NPC_CARD_X = [200, -200]

  NPC_CARD_Y = [40]

  PLAYER_CARD_X = [200, -200]

  PLAYER_CARD_Y = [320]

  CARD_NAMES = []

  CARD_FILENAMES = [BASE_CARD, BASE_CARD]

end



class Array

  def count(n)

    group = select{|m| m == n }

    group.size

  end

end



module RPG::Cache

  def self.kard(kid)

    self.load_bitmap('Graphics/Kards/' + Karta::CARD_FILENAMES[kid])

  end

end



class Kard

  attr_reader :id, :attack, :defense

  def initialize(cid=0)

    @id = cid

    @attack = 0

    @defense = 0

  end

  def <=>(other) other.id <=> @id end

  def name() Karta::CARD_NAMES[@id] || '?' end

end



class Game_Party

  alias :kyon_karta_gm_pty_init :initialize

  def initialize

    kyon_karta_gm_pty_init

    @kards = []

    @kards_max = 0

  end



  def add_kard(n)

    return nil if Karta::CARD_MAX + @kards_max == @kards.size

    temp_kard = Kard.new(n)

    return false if Karta::CARD_TYPE_MAX == @kards.count(temp_kard)

    @kards << temp_kard

  end

  def enough_kards?() Karta::CARD_MIN <= @kards.size end

  attr_reader :kards

  attr_accessor :kards_max

end



class KardSprite < RPG::Sprite

  def initialize(cid=nil)

    super(nil)

    return unless cid

    @id = cid

    self.bitmap = RPG::Cache.kard(Karta::BASE_CARD)

  end

end



class KartaScene

  include Karta

  def make_npc_cards

    @npc_card_data = [1,2,3]

    card_max = @npc_card_data.size

    card_max.times do |n|

      n = @npc_card_data[n]

      @npc_cards << card = KardSprite.new(n)

      card.x = NPC_CARD_X[0]

      card.y = NPC_CARD_Y[0]

    end

  end



  def make_player_cards

    @player_card_data = $game_party.kards.dup

    card_max = @player_card_data.size

    card_max.times do |n|

      n = @player_card_data[n]

      @player_cards << card = KardSprite.new(n)

      card.x = PLAYER_CARD_X[0]

      card.y = PLAYER_CARD_Y[0]

    end

  end

  

  def main

    @npc_cards = []

    @player_cards = []

    make_npc_cards

    make_player_cards

    Graphics.transition

    loop do

      Graphics.update

      Input.update

      update

      break if @exit

    end

    Graphics.freeze

    dispose

  end



  def dispose

    @player_cards.each{|c| c.dispose }

    @npc_cards.each{|c| c.dispose }

  end



  def update

    if Input.trigger?(Input::B)

      $game_system.se_play($data_system.cancel_se)

      $scene = Scene_Map.new

      return @exit = true

    end

  end

end