Collaborations
Information on all past, present, and future collaborations
Fungus Among Us 🍄
Hog Lordz DAO has partnered with Chaos Birds to create themed equippable "Things" for the 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
Emote a 🍄 on any 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 + Night Bird Cap
3 winners - Chaos Cap Thing
4 winners - Kusama Cap Thing
7 winners - Blue Bird Cap Thing
10 winners - Grey Brid Cap Thing
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!
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
14438863-8876ae3e-FUNGUS_AMONG_US-RED-00000005
Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG
14695764-8876ae3e-FUNGUS_CAP-CHAOS_RAINBOW-00000149
Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG
14695764-8876ae3e-FUNGUS_CAP-CHAOS_RAINBOW-00000148
ED751GW6YrkjZf8FX3LDF3RbiXZAmnt4J19qx5mW943w6Ac
14695764-8876ae3e-FUNGUS_CAP-CHAOS_RAINBOW-00000147
Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG
14695764-8876ae3e-FUNGUS_CAP-CHAOS_DARK-00000146
GqC37KSFFeGAoL7YxSeP1YDwr85WJvLmDDQiSaprTDAm8Jj
14695764-8876ae3e-FUNGUS_CAP-CHAOS_DARK-00000145
ED751GW6YrkjZf8FX3LDF3RbiXZAmnt4J19qx5mW943w6Ac
14695764-8876ae3e-FUNGUS_CAP-CHAOS_DARK-00000144
Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG
14695764-8876ae3e-FUNGUS_CAP-CHAOS_DARK-00000143
ED751GW6YrkjZf8FX3LDF3RbiXZAmnt4J19qx5mW943w6Ac
14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000142
Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG
14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000141
Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG
14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000140
ED751GW6YrkjZf8FX3LDF3RbiXZAmnt4J19qx5mW943w6Ac
14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000139
Ds1USGkVgc17xMkLntEbq4bxfJgq159tTRXkjsyUHstAyUF
14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000138
Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG
14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000137
Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG
14695764-8876ae3e-FUNGUS_CAP-CHAOS_BLUE-00000136
Eo96PoiAKdjLK5ameARaP2Ahr2ezA6pSv32gBcX2YXu6QPG
14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000135
DizreWTsALNRLApQwYpH4TWUogaoR8RvUx4diXK2ff51KQa
14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000134
GPsLmP2RoPCFMoKzdkGnbiz93xEFo9VL3rMTyWwbw2yLadU
14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000133
DMu47ao6p1HRPcamjmSDzahN7Jhri1vC18CS8ceGXips8nd
14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000132
GAYBQX5f7NXS4dv5EnL7NRSGLnAQmoDqajx998nYLv8QoJT
14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000131
JL1MJjFdruafKg3bdxwcPGmXkLj6yS3HyuexNuTWCnPrDEh
14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000130
DSKK9i2KdyyJ1xrDkcuLSNacLFAhq23TJkDsxtNDvKKR2qY
14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000129
EtVXiEWm9T9zKgha1mA9hTZZFoUBa6DThD6nPVNcHN1zxTX
14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000128
EqjwmRHoob8QJph2oCSdHsdfrJj6uAuTGadov7vdSceV986
14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000127
Fw1YWyW2Mf2qMcZeEsVpqbXYHTRvtJnQ47xcsajEJpY6w1p
14695764-8876ae3e-FUNGUS_CAP-CHAOS_GREY-00000126
GA9b4Z86es13jA9tZwakX6fjjo4ZxXVjPPKBsg8iTNYaqcM
Script
#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()
Last updated