# Collaborations

### Fungus Among Us 🍄

<div><figure><img src="https://3277952833-files.gitbook.io/~/files/v0/b/gitbook-x-prod.appspot.com/o/spaces%2FKt6vGKf8dEEDJbWB63Zg%2Fuploads%2F7O1maWRA24zNZsZOMyGZ%2Ffungus_collab.png?alt=media&#x26;token=b023bb71-fd93-4475-9727-5eaae094162f" alt=""><figcaption><p>14438863-8876ae3e-FUNGUS_AMONG_US-RED-00000005 with glowing cap thing collab item</p></figcaption></figure> <figure><img src="https://3277952833-files.gitbook.io/~/files/v0/b/gitbook-x-prod.appspot.com/o/spaces%2FKt6vGKf8dEEDJbWB63Zg%2Fuploads%2FQrin7y5DrsG42ZPt9rvZ%2FPHASE_2_Chaos_Birds_collabo.png?alt=media&#x26;token=dac4c213-1633-41c1-8efb-2feca190b867" 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="https://3277952833-files.gitbook.io/~/files/v0/b/gitbook-x-prod.appspot.com/o/spaces%2FKt6vGKf8dEEDJbWB63Zg%2Fuploads%2FUd6HAgl02Gf5Dcwqxarg%2Fcapcounts.png?alt=media&#x26;token=b838f47a-af16-4b64-bbda-3f50889ad3af" 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="<https://3277952833-files.gitbook.io/~/files/v0/b/gitbook-x-prod.appspot.com/o/spaces%2FKt6vGKf8dEEDJbWB63Zg%2Fuploads%2FlMxwQA8aGs398Fcki5jP%2FRMRK.RData?alt=media&token=8aafd439-c619-4cc2-9e51-b5c5ac45bb0f>" %}
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="<https://3277952833-files.gitbook.io/~/files/v0/b/gitbook-x-prod.appspot.com/o/spaces%2FKt6vGKf8dEEDJbWB63Zg%2Fuploads%2F8ygWa78TctJqyA67sMmU%2Ffungus_winners.csv?alt=media&token=bd811b8f-6960-4c2a-8957-aa7bf04227be>" %}
CSV of winners
{% endfile %}

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


---

# Agent Instructions: Querying This Documentation

If you need additional information that is not directly available in this page, you can query the documentation dynamically by asking a question.

Perform an HTTP GET request on the current page URL with the `ask` query parameter:

```
GET https://steeber.gitbook.io/chaos-birds/collaborations.md?ask=<question>
```

The question should be specific, self-contained, and written in natural language.
The response will contain a direct answer to the question and relevant excerpts and sources from the documentation.

Use this mechanism when the answer is not explicitly present in the current page, you need clarification or additional context, or you want to retrieve related documentation sections.