> For the complete documentation index, see [llms.txt](https://steeber.gitbook.io/chaos-birds/llms.txt). Markdown versions of documentation pages are available by appending `.md` to page URLs; this page is available as [Markdown](https://steeber.gitbook.io/chaos-birds/collaborations.md).

# Collaborations

### Fungus Among Us 🍄

<div><figure><img src="/files/8nLVfMUldK4OPLReDYkK" alt=""><figcaption><p>14438863-8876ae3e-FUNGUS_AMONG_US-RED-00000005 with glowing cap thing collab item</p></figcaption></figure> <figure><img src="/files/dAUtFisIj7nZmdzSOSni" alt=""><figcaption></figcaption></figure></div>

[Hog Lordz DAO](https://twitter.com/HogLordz) has partnered with Chaos Birds to create themed equippable "Things" for the [Fungus Among Us](https://singular.app/collectibles/kusama/8876ae3e-FUNGUS_AMONG_US) collection! Chaos Birds holders will be able to participate in an emote contest to be entered to win a Chaos Birds Cap Thing or a glowing Fungus Among Us NFT!

To earn an entry in the Cap Things and Fungus giveaway you must:

* Own at least one [Chaos Bird](https://singular.app/collectibles/kusama/8ef755e9850dd2d573-%F0%9F%A6%9C)
* Emote a 🍄 on any [Fungus Among Us](https://singular.app/collectibles/kusama/8876ae3e-FUNGUS_AMONG_US) NFT

Users will be given one entry per Chaos Bird owned per emoted Fungus. Entries were recorded at block **15413089**. There will be a total of 25 winners:

* 1 winner - [Fungus Among Us NFT #5](https://singular.app/collectibles/kusama/8876ae3e-FUNGUS_AMONG_US/14438863-8876ae3e-FUNGUS_AMONG_US-RED-00000005) + [Night Bird Cap](https://singular.app/collectibles/kusama/8876ae3e-FUNGUS_CAP/14695764-8876ae3e-FUNGUS_CAP-CHAOS_GLOW-00000150)
* 3 winners - [Chaos Cap Thing](https://singular.app/collectibles/kusama/8876ae3e-FUNGUS_CAP/14695764-8876ae3e-FUNGUS_CAP-CHAOS_RAINBOW-00000147)
* 4 winners - [Kusama Cap Thing](https://singular.app/collectibles/kusama/8876ae3e-FUNGUS_CAP/14695764-8876ae3e-FUNGUS_CAP-CHAOS_DARK-00000143)
* 7 winners - [Blue Bird Cap Thing](https://singular.app/collectibles/kusama/8876ae3e-FUNGUS_CAP/14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000136)
* 10 winners - [Grey Brid Cap Thing](https://singular.app/collectibles/kusama/8876ae3e-FUNGUS_CAP/14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000126)

Winners will be drawn **with replacement** and the drawing script will be published here.

*Example: a user owns 2 Chaos birds and emotes a 🍄 on 10 Fungus Among Us NFTs. They will be given 20 entries!*

<figure><img src="/files/QBlmh8T1I41ujMhVExfA" alt=""><figcaption><p>10 grey caps, 7 blue caps, 4 dark caps, and 3 rainbow caps to giveaway!</p></figcaption></figure>

## Winners

### Due to low participation rate, the emote participants (6 total) were considered only for the 15 rarer Cap Things. Two participants weren't drawn, so they were given 1 Grey Cap Thing each. Of the remaining 8 Grey Cap Things, they were given away to active Chaos Bird holders (i.e. wallets that have submitted a RMRK interaction after October 1st).

#### Winners

<table><thead><tr><th width="576">NFT ID</th><th width="578">Wallet</th></tr></thead><tbody><tr><td>14438863-8876ae3e-FUNGUS_AMONG_US-RED-00000005</td><td>Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_RAINBOW-00000149</td><td>Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_RAINBOW-00000148</td><td>ED751GW6YrkjZf8FX3LDF3RbiXZAmnt4J19qx5mW943w6Ac</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_RAINBOW-00000147</td><td>Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_DARK-00000146</td><td>GqC37KSFFeGAoL7YxSeP1YDwr85WJvLmDDQiSaprTDAm8Jj</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_DARK-00000145</td><td>ED751GW6YrkjZf8FX3LDF3RbiXZAmnt4J19qx5mW943w6Ac</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_DARK-00000144</td><td>Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_DARK-00000143</td><td>ED751GW6YrkjZf8FX3LDF3RbiXZAmnt4J19qx5mW943w6Ac</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000142</td><td>Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000141</td><td>Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000140</td><td>ED751GW6YrkjZf8FX3LDF3RbiXZAmnt4J19qx5mW943w6Ac</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000139</td><td>Ds1USGkVgc17xMkLntEbq4bxfJgq159tTRXkjsyUHstAyUF</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000138</td><td>Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000137</td><td>Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000136</td><td>Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000135</td><td>DizreWTsALNRLApQwYpH4TWUogaoR8RvUx4diXK2ff51KQa</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000134</td><td>GPsLmP2RoPCFMoKzdkGnbiz93xEFo9VL3rMTyWwbw2yLadU</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000133</td><td>DMu47ao6p1HRPcamjmSDzahN7Jhri1vC18CS8ceGXips8nd</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000132</td><td>GAYBQX5f7NXS4dv5EnL7NRSGLnAQmoDqajx998nYLv8QoJT</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000131</td><td>JL1MJjFdruafKg3bdxwcPGmXkLj6yS3HyuexNuTWCnPrDEh</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000130</td><td>DSKK9i2KdyyJ1xrDkcuLSNacLFAhq23TJkDsxtNDvKKR2qY</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000129</td><td>EtVXiEWm9T9zKgha1mA9hTZZFoUBa6DThD6nPVNcHN1zxTX</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000128</td><td>EqjwmRHoob8QJph2oCSdHsdfrJj6uAuTGadov7vdSceV986</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000127</td><td>Fw1YWyW2Mf2qMcZeEsVpqbXYHTRvtJnQ47xcsajEJpY6w1p</td></tr><tr><td>14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000126</td><td>GA9b4Z86es13jA9tZwakX6fjjo4ZxXVjPPKBsg8iTNYaqcM</td></tr></tbody></table>

#### Script

{% file src="/files/oCnqJlbTNJfOjik8bvWp" %}
RMRK data used for the drawing
{% endfile %}

```
#R version 4.2.1 (2022-06-23) -- "Funny-Looking Kid"
#Copyright (C) 2022 The R Foundation for Statistical Computing
#Platform: x86_64-pc-linux-gnu (64-bit)

#load data
load("RMRK.RData")
library(tidyverse)

#declare vars
NULL ->
  wallets ->
  fungus_emotes ->
  bird_counts ->
  ids ->
  entries

#get chaos bird owners and fungus emotes
for(a in RMRK$nfts) {
  if(a$collection == "8ef755e9850dd2d573-🦜" &
     a$burned == "") {
    wallets <- c(wallets,a$rootowner)
  }
  if(a$collection == "8876ae3e-FUNGUS_AMONG_US" &
     a$burned == "") {
    fungus_emotes <- c(fungus_emotes,a$reactions$`1f344`,a$reactions$`1F344`)
    ids <- c(ids,a$id)
  }
}

#count birds per wallet
for(a in wallets) {
  bird_counts <- c(bird_counts, sum(wallets == a))
}

bird_counts_df <- distinct(data.frame(wallets,bird_counts))

#count entries for drawing
for(a in bird_counts_df$wallets) {
  entries <- c(entries, sum(fungus_emotes == a) * bird_counts_df[bird_counts_df$wallets == a,"bird_counts"])
}

bird_counts_df$Entries <- entries

final <- bird_counts_df[bird_counts_df$Entries != 0,c("wallets","Entries")]
colnames(final)[1] <- "Wallets"
row.names(final) <- c(1:nrow(final))

total <- sum(final$Entries)

#set seed and draw winners with replacement
set.seed(87810719)

samples <- sample(1:total, 15, replace = TRUE)

winners <- NULL
for(a in samples) {
  b <- 1
  while(b != nrow(final) + 1) {
    if(a <= sum(final$Entries[1:b])) {
      winners <- c(winners, final$Wallets[b])
      b <- nrow(final) + 1
    } else {
      b <- b + 1
    }
  }
}

#everyone who entered is guaranteed a cap, so wallets that didn't get drawn get a grey cap
#15 rarer caps given away to winners

ids <- c("14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000126",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000127",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000128",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000129",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000130",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000131",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000132",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000133",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000134",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000135",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000136",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000137",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000138",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000139",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000140",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000141",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000142",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_DARK-00000143",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_DARK-00000144",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_DARK-00000145",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_DARK-00000146",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_RAINBOW-00000147",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_RAINBOW-00000148",
"14695764-8876ae3e-FUNGUS_CAP-CHAOS_RAINBOW-00000149",
"14438863-8876ae3e-FUNGUS_AMONG_US-RED-00000005")

ids <- ids[length(ids):1]

#for the rest of the caps, chaos bird owners who have submitted a RMRK interaction after
#October 1st are eligible for a cap

#this takes a long time...
callers <- NULL
for(a in RMRK$nfts) {
  for(b in a$changes) {
    if(b$block > 14683829) {
      callers <- c(callers, b$caller)
    }
  }
}

unique_callers <- unique(callers)

active_bird_owners <- unique(wallets[wallets %in% callers])

#draw 8 grey cap winners
grey_winners <- active_bird_owners[sample(1:length(active_bird_owners),8)]

giveaway <- c(winners,final$Wallets[!(final$Wallets %in% winners)],grey_winners)

all_winners <- data.frame("Wallet" = giveaway, "NFT" = ids)

write.csv(all_winners, file="fungus_winners.csv",row.names=FALSE)

q()

```

{% file src="/files/rPKJ5hoE9qQy2LpWe9bV" %}
CSV of winners
{% endfile %}

[Receipt of sent NFTs](https://kusama.subscan.io/extrinsic/0x09e9c8b208441fcfbce4d2156ba99d9d86c6edf76e0a554fe15eab2b7daa6b9e)