alias digicard {
  set %cardnumber 1
  set %cardmultiplier 1
  set %rarity 1
  set %negativecost 0
  write -c BoosterPack.txt 31
  write BoosterPack.txt Booster Card 1
  write BoosterPack.txt Type:
  write BoosterPack.txt Rarity:
  write BoosterPack.txt Extra Qualities:
  write BoosterPack.txt Boosts:
  write BoosterPack.txt Attack Granted:
  write BoosterPack.txt Booster Card 2
  write BoosterPack.txt Type:
  write BoosterPack.txt Rarity:
  write BoosterPack.txt Extra Qualities:
  write BoosterPack.txt Boosts:
  write BoosterPack.txt Attack Granted:
  write BoosterPack.txt Booster Card 3
  write BoosterPack.txt Type:
  write BoosterPack.txt Rarity:
  write BoosterPack.txt Extra Qualities:
  write BoosterPack.txt Boosts:
  write BoosterPack.txt Attack Granted:
  write BoosterPack.txt Booster Card 4
  write BoosterPack.txt Type:
  write BoosterPack.txt Rarity:
  write BoosterPack.txt Extra Qualities:
  write BoosterPack.txt Boosts:
  write BoosterPack.txt Attack Granted:
  write BoosterPack.txt Booster Card 5
  write BoosterPack.txt Type:
  write BoosterPack.txt Rarity:
  write BoosterPack.txt Extra Qualities:
  write BoosterPack.txt Boosts:
  write BoosterPack.txt Attack Granted:
  makecard
}

alias makecard {
  set %cardtype $rand(1,3)
  if (%cardtype == 1) {
    set %cardtype Power
    set %DPP 2
  }
  if (%cardtype == 2) {
    set %cardtype Evolution
    set %evolimit 1
  }
  if (%cardtype == 3) {
    set %cardtype Attack
    set %DPA 4
  }
  set %output $read(BoosterPack.txt, $calc(%cardmultiplier + 1)) %cardtype
  write -l $+ $calc(%cardmultiplier + 2) BoosterPack.txt %output
  rarity
}

alias rarity {
  set %raritylimit 1
  :chance
  set %raritychance $rand(1,100)
  if (%raritylimit == 5) { goto echo }
  if (%raritychance > 75) { set %raritylimit %raritylimit + 1 | goto chance }
  :echo
  echo -a %raritylimit
  modifiers
}

alias modifiers {
  if (%negativecost < 1) {
    set %diginegative $rand(51,100)
    if (%diginegative > 50) {
      set %checktype negative
      set %digicardpos $read(digicard $+ %checktype $+ .txt)
      set %digirank $count(%digicardpos,;)
      set %digirankpos $calc(%digirank - %digirank - %digirank - 1)
      echo -a %digicardpos
      echo -a %digirank
      echo -a %digirankpos
      set %negativestat $left(%digicardpos, %digirankpos)
      echo -a %negativestat
      set %negativecost $right(%digicardpos, 1)
      echo -a %negativecost
      if (^ isin %negativestat) {
        set %digineed $read(digicardneed.txt, s, *Mode Boost*)
        set %digineed2 $count(%digineed,;)
        set %digineed3 $right(%digineed, $calc(%digineed2 * -2))
        echo %digineed3
      }
      $read(BoosterPack.txt, $calc(cardmultiplier + 4))
      set %rarity $calc(%rarity - %negativecost)
      echo -a New Rarity: %rarity
      set %output $read(BoosterPack.txt, $calc(%cardmultiplier + 4)) %negativestat (- $+ %negativecost $+ )
      write -l $+ $calc(%cardmultiplier + 5) BoosterPack.txt %output
    }
  }
  if (%cardnumber = 5) { set %rarity $calc(%rarity + 2) }
  :raritycheck
  if (%rarity != %raritylimit) {
  }
}