APIPack.lua

function tryObjectEnter(enter_object)
 if Global.GetTable("PPacks").on==false then return true end
 return false
end

function onObjectLeaveContainer(cont,leaving)
 settings=Global.GetTable("PPacks")or{energy=1,on=true,spread=false,APICalls=3,hundred=false,debug=false}
 if cont~=self or settings.on==false then return end

 if not settings then
  Global.SetTable("PPacks",settings)
 end

 if not settings.rand then
  local globalMath=Global.getVar("math")
  Global.setVar("PPacks.rand",globalMath.random)
 end

 packPos=self.getPosition()
 cardRot=self.getRotation()
 cardRot[3]=cardRot[3]+180
 ProcessPack(false,false)
 leaving.destruct()
 self.destruct()
end

function ProcessPack(loop,loading)
 local setCache=Global.getTable("PPacksCache["..setName.."]")
 if not setCache or not setCache.cache then
  if setCache and setCache.loading and setCache.loading!=0 then
   if not loading then broadcastToAll("Loading Cards...",{0,1,0})end
   Wait.frames(function()ProcessPack(loop,true)end,10)
   return
  end
  if loop then
   broadcastToAll("Pack loop detected",{1,0,0})
   return
  end
  r={}
  decoded={}
  local orderText="&orderBy=number"
  if setUnordered then orderText=''end
  local callPerSet=settings.APICalls
  local loadingNum=callPerSet
  if subSetID then
   callPerSet=math.ceil(settings.APICalls/2)
   loadingNum=callPerSet*2
  end
  if SMEnergy then loadingNum=loadingNum+1 end
  if BSEnergy then loadingNum=loadingNum+1 end
  if SVEnergy then loadingNum=loadingNum+1 end
  Global.setTable("PPacksCache["..setName.."]",{loading=loadingNum,cache=nil})
  broadcastToAll("Loading Cards...",{0,1,0})
  local count=requestSet(1,callPerSet,setID,setSize,orderText)
  if subSetID then count=requestSet(count,callPerSet,subSetID,subSetSize,orderText) end
  if SMEnergy then requestSMEnergy(count) end
  if BSEnergy then requestBSEnergy(count)end
  if SVEnergy then requestSVEnergy(SVEnergy,count)end
  return
 end
 local setData=setCache.cache.ContainedObjects
 local packs=1
 if settings.hundred then packs=100 end
 openPack(setData,packs)
end

function getSlotFromRatio(slot,ratio)
 local slotpos=1
 local rand=math.random()
 for f=1,#ratio do
  rand=rand-ratio[f]
  if rand<=0 then
   return slot[slotpos]
  end
  slotpos=slotpos+1
 end
 return slot[slotpos]
end

function setBoxData()
 math.randomseed(boxID)
 local box={}
 for c=1,#boxPulls do
  local nums={}
  local total=0
  box[c]={}
  if boxPulls[c].rates then
   for d=1,#boxPulls[c].rates do
    local rate=boxPulls[c].rates[d]
    numToAdd=getBoxPullNum(rate.chances)
    total=total+numToAdd
    if rate.ratio then
     for e=1,numToAdd do
      local slotNum=getSlotFromRatio(rate.slot,rate.ratio)
      if not nums[slotNum]then nums[slotNum]=0 end
      nums[slotNum]=nums[slotNum]+1
     end
    else
     nums[rate.slot]=numToAdd
    end
   end
   if total>36 then total=36 end
   local packs={1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36}
   local targets=randomFromTable(packs,total,#packs,false)
   count=1
   for k,v in pairs(nums)do
    for d=1,nums[k] do
     box[c][targets[count]]=k
     count=count+1
    end
   end
  end
  for d=1,36 do
   if not box[c][d]then
    if boxPulls[c].otherRat then
     box[c][d]=getSlotFromRatio(boxPulls[c].other,boxPulls[c].otherRat)
    else
     box[c][d]=boxPulls[c].other
    end
   end
  end
 end
 Global.SetTable("PPBoxChances["..tostring(boxID).."]",box)
 return box
end

function openPack(setData,packs)
 packFlag=false
 local slotsAdded={}
 local godPack=false
 if godChance and(settings.allGods or Global.call("PPacks.rand")<godChance)then
  godPack=true
 end
 if boxID and boxPulls then
  local box=Global.GetTable("PPBoxChances["..tostring(boxID).."]")
  if not box then
   box=setBoxData()
  end
  for rate=1,#box do
   AddToSlotsAdded(slotsAdded,box[rate][packNum])
  end
 else
  for b=1,#pullRates do
   if not(pullRates[b].noGod and godPack)then
    for c=1,pullRates[b].num do
     slotsAdded=doPullRates(pullRates[b].rates,slotsAdded)
    end
   end
  end
 end
 local packData=getDeckData(packPos,cardRot,true)
 if godPack and not godSlot then
  addGodPack(packData,setData)
 end
 for b=1,#dropSlots do
  local choices=chooseCards(dropSlots[b],slotsAdded[b]or 0)
  for c=1,#choices do
   packData=addCard(packData,setData[choices[c]])
  end
  if godPack and godSlot and godSlot==b then
   addGodPack(packData,setData)
  end
 end
 Wait.frames(function()createPack(packData,setData,packs)end,1)
end

function addCard(packData,cardToAdd)
 packData.DeckIDs[#packData.DeckIDs+1]=cardToAdd.CardID
 packData.CustomDeck[cardToAdd.CardID*0.01]=cardToAdd.CustomDeck[cardToAdd.CardID*0.01]
 packData.ContainedObjects[#packData.ContainedObjects+1]=cardToAdd
 return packData
end

function addGodPack(packData,setData)
 local packChoice=godPacks[randomFromRange(1,#godPacks)]
 for c=1,#packChoice do
  addCard(packData,setData[packChoice[c]])
 end
 return packData
end

function createPack(packData,setData,packs)
 local deck=spawnObjectData({data=packData})
 if settings.spread then Wait.frames(function()deck.spread(2.25)end,1)end
 if packs>1 then
  packPos[2]=packPos[2]+2
  Wait.frames(function()openPack(setData,packs-1)end,1)
 end
end

function requestSet(count,calls,setIDToLoad,size,orderText)
 for c=1,calls do
  local page=count
  r[count]=WebRequest.get('https://api.pokemontcg.io/v2/cards?q=!set.id:"'..setIDToLoad..'"&page='..tostring(c)..'&pageSize='..tostring(math.ceil(size/calls))..orderText.."&select=id,name,images,number,rarity,set,supertype,subtypes,types,nationalPokedexNumbers", function() cacheSet(r[page],page)end)
  count=count+1
 end
 return count
end

function requestSMEnergy(count)
 local page=count
 r[count]=WebRequest.get("https://api.pokemontcg.io/v2/cards?q=number:%5B164%20TO%20172%5D%20!set.id:sm1&order_by=number&select=id,name,images,number,rarity,set,supertype,subtypes,types,nationalPokedexNumbers", function() cacheSet(r[page],page)end)
 count=count+1
 return count
end

function requestBSEnergy(count)
 local page=count
 VStar=true
 r[count]=WebRequest.get("https://api.pokemontcg.io/v2/cards?q=number:%5B152%20TO%20159%5D%20!set.id:swsh12pt5&order_by=number&select=id,name,images,number,rarity,set,supertype,subtypes,types,nationalPokedexNumbers",function()cacheSet(r[page],page)end)
 count=count+1
 return count
end

function requestSVEnergy(num,count)
 local page=count
 r[count]=WebRequest.get("https://api.pokemontcg.io/v2/cards?q=number:%5B"..tostring(num).."%20TO%20"..tostring(num+7).."%5D%20!set.id:sve&order_by=number&select=id,name,images,number,rarity,set,supertype,subtypes,types,nationalPokedexNumbers",function()cacheSet(r[page],page)end)
 count=count+1
 return count
end

function cacheSet(request,page)
 local cache=Global.GetTable("PPacksCache["..setName.."]")
 if request.is_error or request.response_code>=400 or request.response_code==0 then
  log(request.error)
  log(request.text)
  log(request.response_code)
  broadcastToAll("Error: "..tostring(request.response_code),{1,0,0})
  Global.setTable("PPacksCache["..setName.."]",{loading=0,cache=nil})
 else
  decoded[page]=json.parse(string.gsub(request.text,"\\u0026","&"))
--credit to dzikakulka and Larikk
--use the below line in the parse if this line of code ever breaks
--string.gsub(request.text,[[\u([0-9a-fA-F]+)]],function(s)return([[\u{%s}]]):format(s)end)
  if cache.loading==1 then
   local spawnPos={packPos[1],packPos[2],packPos[3]+5}
   local curCard=1
   local deckData=getDeckData(spawnPos,cardRot,false)
   for a=1,#decoded do
    local cardData=decoded[a].data
    for b=1,#cardData do
     local DeckID=999+curCard
     local customData=getCustomData(cardData[b])
     deckData.DeckIDs[curCard]=DeckID*100
     deckData.CustomDeck[DeckID]=customData
     deckData.ContainedObjects[curCard]=getCardData(deckData.Transform,cardData[b],customData,DeckID*100,DeckID)
     deckData.ContainedObjects[curCard]["GUID"]=tostring(123456+curCard)
     curCard=curCard+1
    end
   end
   if VStar then
    local DeckID=999
    local customData={FaceURL="https://steamusercontent-a.akamaihd.net/ugc/2012580224574675678/71C7CEACF71693E12FE3AF2FF32F7A53CF4B5917/",
     BackURL="https://steamusercontent-a.akamaihd.net/ugc/2012580224574713180/BA2458015FEBD79B9D15478AA51316B44B7FCAA4/",
     NumWidth=1,
     NumHeight=1,
     BackIsHidden=true
    }
    deckData.DeckIDs[curCard]=DeckID*100
    deckData.CustomDeck[DeckID]=customData
    deckData.ContainedObjects[curCard]={Name="CardCustom",
     Transform=deckData.Transform,
     Nickname="Vstar Marker",
     CardID=DeckID*100,
     CustomDeck={[DeckID]=customData},
    }
    deckData.ContainedObjects[curCard]["GUID"]=tostring(123456+curCard)
   end
   Global.setTable("PPacksCache["..setName.."]",{loading=nil,cache=deckData})
   ProcessPack(true,false)
  else
  Global.SetTable("PPacksCache["..setName.."]",{loading=cache.loading-1,cache=nil})
  end
 end
end

function getCardData(spawnLoc,cardData,customData,cardID,deckID)
 local cardType=getSubTypeNum(cardData.subtypes)or subTypeNums[cardData.supertype]or 0
 local monType=enumTable(0,cardData.types,TypeNums,10,200)
 if monType==0 then monType=500 end
 local rar=""
 if cardData.rarity then
  rar=" "..string.gsub(cardData.rarity,"[^%u]","")
 end
 return{Name="CardCustom",
 Transform=spawnLoc,
 Nickname=cardData.name,
 Description=cardData.set.name.." #"..cardData.number..rar,
 GMNotes=tostring(cardType)..convertNatDex(cardData.nationalPokedexNumbers,cardData.subtypes),
 Memo=string.gsub(cardData.set.releaseDate,"/","")..buildCardNumber(cardData.number),
 CardID=cardID,
 CustomDeck={[deckID]=customData},
 LuaScriptState=tostring(monType)
}
end

function getCustomData(cardData)
 return{FaceURL=cardData.images.large.."?count="..cardData.number or"",
  BackURL="https://steamusercontent-a.akamaihd.net/ugc/809997459557414686/9ABD9158841F1167D295FD1295D7A597E03A7487/",
  NumWidth=1,
  NumHeight=1,
  BackIsHidden=true
 }
end

function buildCardNumber(cardNum)
 local numOnly=string.gsub(cardNum,"[^%d]","")
 if numOnly!=cardNum then
  local finalNum=(tonumber(numOnly)or 0)+500
  for c in cardNum:gmatch"[^%d]" do
   if c=="?"then c="}"end
   if c=="!"then c="{"end
   finalNum=string.byte(c)-65+finalNum
  end
  cardNum=tostring(finalNum)
 end
 while #cardNum<3 do cardNum="0"..cardNum end
 return cardNum
end

function getDeckData(spawnPos,cardRot,hands)
 return {Name="Deck",
  Transform={posX=spawnPos[1],posY=spawnPos[2],posZ=spawnPos[3],rotX=cardRot[1],rotY=cardRot[2],rotZ=cardRot[3],scaleX=1,scaleY=1,scaleZ=1},
  Hands=hands,
  DeckIDs={},
  CustomDeck={},
  ContainedObjects={}
 }
end

function convertNatDex(dexNums,subTypes)
 if dexNums then dexNum=dexNums[1]else return"0000000"end
 if natDexReplace[dexNum] then
  dexNum=natDexReplace[dexNum]
 else
  dexNum=tostring(dexNum*10)
  while #dexNum<5 do dexNum="0"..dexNum end
 end
 local monSubType=tostring(enumTable(0,subTypes,monSubTypeNums,0,0))
 while #monSubType<2 do monSubType="0"..monSubType end
 return dexNum..monSubType
end

function enumTable(enum,input,values,multi,extramulti)
 if input then
  for c=1,#input do
   if values[input[c]]then
    enum=enum+values[input[c]]*(1+multi)
    if multi==0 then enum=enum+extramulti else multi=0 end
   end
  end
 end
 return enum
end

function getSubTypeNum(subTypes)
 if subTypes then
  for c=1,#subTypes do
   if subTypeNums[subTypes[c]]then return subTypeNums[subTypes[c]]end
  end
 end
 return false
end

function getBoxPullNum(chances)
 local rand=math.random()
 for e=1,#chances do
  rand=rand-(chances[e].odds or 1)
  if rand<=0 then
   return chances[e].num
  end
 end
 return 0
end

function AddToSlotsAdded(slotsAdded,slot)
 if not slotsAdded[slot]then slotsAdded[slot]=0 end
 slotsAdded[slot]=slotsAdded[slot]+1
 return slotsAdded
end

function doPullRates(rates,slotsAdded)
 local rand=Global.call("PPacks.rand")
 local initrand=rand
 for c=1,#rates do
  if not(packFlag and rates[c].flagExclude)then
   if rates[c].remaining then rand=initrand-(rates[c].odds or 1)else rand=rand-(rates[c].odds or 1)end
   if rand<=0 and(settings.energy!=2 or not dropSlots[rates[c].slot].energy)then
    AddToSlotsAdded(slotsAdded,rates[c].slot)
    if rates[c].flag then packFlag=true end
    return slotsAdded
   end
  end
 end
 return slotsAdded
end

function chooseCards(slot,added)
 local choices={}
 if not slot.energy or settings.energy==1 then
  if settings.slotTest then
   choices=randomFromTable(slot.cards,1,slot.size,true)
  elseif slot.fixed then
   local deckPos=randomFromRange(1,#slot.cards,true)
   for c=1,slot.num+added do
    choices[c]=slot.cards[deckPos]
    if deckPos==#slot.cards then deckPos=1 else deckPos=deckPos+1 end
   end
  else
  choices=randomFromTable(slot.cards,slot.num+added,slot.size,true)
  end
 end
 return choices
end

function randomFromTable(options,num,size,useGlobal)
 local choices={}
 local chosen={}
 while #choices<num do
  local choice=nil
  if size then
   choice=chooseRandCard(options,size,useGlobal)
  else
   if useGlobal then
    choice=options[randomFromRange(1,#options)]
   else
    choice=options[math.random(1,#options)]
   end
  end
  if not chosen[choice]then
   chosen[choice]=true
   choices[#choices+1]=choice
  end
 end
 return choices
end

function chooseRandCard(cards,size,useGlobal)
 local rand=nil
 if useGlobal then
  rand=randomFromRange(0,size-1)
 else
  rand=math.random(0,size-1)
 end
 for c=1,#cards do
  if type(cards[c])=="table"then
   local size=cards[c][2]-cards[c][1]+1
   if rand>=size then rand=rand-size else return cards[c][1]+rand end
  else
   if rand==0 then return cards[c]else rand=rand-1 end
  end
 end
end

function randomFromRange(low,high)--Credit dzikakulka
 local rand=Global.call("PPacks.rand")
 local scale=high-low+1
 return math.floor(low+rand*scale)
end

subTypeNums={
 ["Trainer"]=3,
 ["Supporter"]=4,
 ["Stadium"]=5,
 ["Pokémon Tool"]=6,
 ["Technical Machine"]=6,
 ["Special"]=8,
 ["Energy"]=9
}

TypeNums={
 Grass=1,
 Fire=2,
 Water=3,
 Lightning=4,
 Psychic=5,
 Fighting=6,
 Darkness=7,
 Metal=8,
 Fairy=9,
 Dragon=10,
 Colorless=11,
}

monSubTypeNums={
 ["Level-Up"]=1,
 BREAK=2,
 EX=3,
 MEGA=1,
 GX=5,
 ["TAG TEAM"]=1,
 SP=7,
 LEGEND=9,
 V=10,
 VMAX=11,
 VSTAR=12,
}

natDexReplace={
 [172]="00245",
 [173]="00345",
 [174]="00385",
 [169]="00425",
 [182]="00455",
 [863]="00535",
 [186]="00625",
 [199]="00805",
 [462]="00823",
 [865]="00827",
 [208]="00955",
 [236]="01055",
 [237]="01075",
 [463]="01085",
 [464]="01123",
 [440]="01127",
 [242]="01135",
 [465]="01145",
 [230]="01175",
 [439]="01215",
 [866]="01225",
 [212]="01233",
 [238]="01237",
 [239]="01245",
 [466]="01253",
 [240]="01257",
 [467]="01265",
 [196]="01361",
 [197]="01362",
 [470]="01363",
 [471]="01364",
 [700]="01365",
 [233]="01373",
 [474]="01377",
 [446]="01425",
 [468]="01765",
 [298]="01825",
 [438]="01845",
 [424]="01905",
 [469]="01935",
 [430]="01985",
 [429]="02005",
 [360]="02015",
 [472]="02075",
 [461]="02155",
 [473]="02215",
 [864]="02225",
 [458]="02255",
 [862]="02645",
 [475]="02825",
 [476]="02995",
 [406]="03145",
 [407]="03155",
 [477]="03565",
 [433]="03575",
 [478]="03625",
 [867]="05635",
 [899]="02345",
 [900]="01237",
 [901]="02175",
 [902]="05505",
 [903]="02157",
 [904]="02115",
 [979]="00575",
 [980]="01945",
 [981]="02035",
 [982]="02065",
 [983]="06255",
 [1011]="08425",
 [1018]="08845",
 [1019]="08426",
}