Collaborations

Information on all past, present, and future collaborations

Fungus Among Us 🍄

14438863-8876ae3e-FUNGUS_AMONG_US-RED-00000005 with glowing cap thing collab item

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!

10 grey caps, 7 blue caps, 4 dark caps, and 3 rainbow caps to giveaway!

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

NFT ID	Wallet
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

97MB

RMRK.RData

RMRK data used for the drawing

#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()

3KB

fungus_winners.csv

CSV of winners

Receipt of sent NFTs