-- WR Seed Getter
-- by Zamiel

-- This mod will look for a world record seed.
local WRSeedGetter = RegisterMod("Racing+", 1)

-- Global variables
WRSeedGetter.restart = false
WRSeedGetter.attempts = 0
WRSeedGetter.seeds = {
"B92M LXW0",
"B8S1 4YL3",
"B89N NX3M",
"BV4H CNBG",
"B497 VPB2",
"B1PT F92K",
"B1LP LMZA",
"BXNP 3FEC",
"BXJ8 AN7A",
"BT07 JQG8",
"BQE2 Z89F",
"BPAY DQ8E",
"BNZC ZALX",
"BK0X KDJG",
"BJ63 C6EJ",
"BJBX 8A77",
"BH0Z FZWJ",
"BHXQ E9SF",
"BHM1 LXJE",
"BF1K KLXJ",
"BEVP M8B1",
"BCAW KFN7",
"BCP6 G1VH",
"BBBB DDAR",
"A926 QGBT",
"A7BZ JXMK",
"A6A7 CZHJ",
"AVZJ HH6R",
"A36X 8894",
"A2BW NM2P",
"A181 0LHR",
"A1FM EB08",
"AYXL 98XQ",
"AXGG PKPQ",
"AXCY DCA2",
"ATZ6 2PQ7",
"ATZC QVSN",
"ATE8 0XF0",
"AQM7 SP19",
"AP3C WGTH",
"APQY 8D02",
"AFHD J4N7",
"AE4J VVLP",
"AEAD E9WS",
"AB3T PD3X",
"AAHE PYKF",
"D9J6 NFR8",
"D6Q9 1ER6",
"D0W3 Y4F7",
"DZHP DM4L",
"DWWG P36M",
"DRF0 FDEK",
"DNSM RXNP",
"DNLK GAQA",
"DL0F BMWL",
"DLAA S8VD",
"DKHQ 1R1W",
"DF2E FSQC",
"DFPF NVS0",
"DANK F3EL",
"DAKG PMNF",
"C9JG Q2DQ",
"C8VC 0KBS",
"C7NS MHV8",
"CY2V FJKW",
"CXQ2 B40A",
"CRSS 7PJK",
"CPVR L9G3",
"CLAW M3P9",
"CGX0 GY9L",
"CGH1 G8NT",
"CGK8 DS0Z",
"CCFW NQ2B",
"F980 2616",
"F6NE CF4W",
"FV8B W9QK",
"F319 T134",
"FZZF ZLJA",
"FXJE 1W43",
"FWMB RJ2C",
"FRQS 7CM2",
"FP81 BSQN",
"FP7G CZA0",
"FMZP JETJ",
"FMTW MTPR",
"FM70 4YQE",
"FLAH 9K39",
"FJ0M ZCED",
"FJ3E 2J0R",
"FG21 EE4R",
"FFVR Q41K",
"FF3Q WA0Q",
"E96B P8D9",
"E9FM KYRF",
"E739 24QC",
"E72S QKBZ",
"E7NV EDRQ",
"EVYV J04D",
"E3WR KKXD",
"E3C8 6JS7",
"E2S1 C89H",
"E0RX 0QQL",
"EZQQ QZ1Z",
"EZJJ BSBH",
"EX3G W34A",
"EWYE 6E11",
"EWL1 4FP7",
"ERJY VTJG",
"EQ6R GBV0",
"EN8B B09W",
"EKK2 HF4Q",
"EJ3N ZVE7",
"EJHR CR49",
"EGX4 0BXK",
"EDMH CC38",
"EBDH 1TZH",
"EAJW 2N1L",
"H96N T9NX",
"H7QD 34GN",
"HVG4 222T",
"HVFT 7QNQ",
"H46M FWTL",
"H2ME V303",
"H1Q1 TGL0",
"HZJ7 7QN9",
"HYZS FJFF",
"HW1C 9EP1",
"HWLK 7NN0",
"HRJN EELF",
"HQGD 897K",
"HNZW 9Z67",
"HL00 622V",
"HL9S E87R",
"HKDE 4BV8",
"HGGH RY87",
"HGKA 077S",
"HC78 N4TH",
"HC30 L1VP",
"HCHL ESL0",
"HA0N 0Q6T",
"G78W 13ZD",
"G38S 3ZHQ",
"G0VN VQFY",
"GXXE CX17",
"GXDX VNQZ",
"GWTR V2RN",
"GT3Z G770",
"GPY2 9XX6",
"GMLQ XGB3",
"GLJ0 J6WR",
"GKMR 4VZJ",
"GFA0 PJNB",
"GEBZ 1PW6",
"GA3Z 3JAM",
"K9WX 4XGX",
"K62N XE1J",
"K3ZH SRD6",
"K3HM Y2DR",
"K28P ETRW",
"K1GQ VAMV",
"KY9A D2YB",
"KYQZ C6EX",
"KXHH WQ0Z",
"KSHP NY66",
"KSBM 2JJG",
"KNBM HRPT",
"KNKX SMTA",
"KMXR B3QN",
"KMDM TB0E",
"KLMF 6RLT",
"KF2T 3EAL",
"KE2Y EEQB",
"KDE3 V6DS",
"J8W6 N8ZE",
"J83H 7DZ8",
"J8GJ GQXS",
"J7QJ LQDZ",
"J6GX BZYK",
"JVC3 BQMN",
"J40J KLYT",
"J073 MNZ3",
"JYVD JBV4",
"JT3V VBB1",
"JTG4 1WBQ",
"JRZR ZZ7Y",
"JQLC CGZ6",
"JP3Z YBSR",
"JNQ6 ENF1",
"JJNY 0Y6G",
"JDX0 QJN9",
"JBHK LTND",
"JBCM DJQN",
"M9X6 TT7E",
"M8XR 6KDJ",
"M46T S7HN",
"M2FQ MTG7",
"M2Q2 AG9Y",
"M09V 6KCS",
"MXCM K10X",
"MSW2 VNDE",
"MN2T XTHE",
"MGRB BRXX",
"MGNG 2LEX",
"MF90 1K3Q",
"MFR9 MV03",
"MCJE 7X31",
"MB8R L3AV",
"L9PD R1YT",
"L8TC AD16",
"L0PY GWXB",
"LZFE FREZ",
"LYNT AE07",
"LX7X G4NN",
"LST8 KJSK",
"LSQQ FKA9",
"LP3V ZAVY",
"LNXS EEK2",
"LJNN 8QDG",
"LH7L 6RWN",
"LHET HVKL",
"LFFN QXYV",
"LFPE VMWY",
"LDWL JABF",
"LCL9 GPE2",
"LAY0 10VD",
"P9YR 6S1C",
"P8YF ER28",
"P8FC 8R86",
"P6MN QAHJ",
"PVTF VFCH",
"P3YE 922P",
"P3MJ VYPN",
"P2WS DMMZ",
"PYXQ 1JSC",
"PST6 44ZJ",
"PR06 9WEP",
"PRB6 6VGV",
"PPVT K602",
"PP4X BWY6",
"PNP9 RDDB",
"PNK1 84ES",
"PM4H 4RBH",
"PMP7 NQZJ",
"PH3D K7P3",
"PF4Y WNWE",
"PFD4 LNB0",
"PE6H 73Y6",
"PDV4 B203",
"PBZX CKK1",
"PB69 7YPT",
"PBVC 1P9Z",
"PACV 7MP2",
"N9DB 2T7D",
"N8RN X6EF",
"N7DD RQ30",
"N7JQ SKNR",
"N0Z6 EL0K",
"N0TR JRWX",
"NTF3 PH4E",
"NS9V KF9J",
"NNY3 HNFJ",
"NL1V FGWC",
"NKKD DK4P",
"NFAJ BFX2",
"NFMV 8NFM",
"NCDH 3P09",
"NCRR J3SC",
"R9CM 3Y7X",
"R9R1 D1B4",
"R76M 417Q",
"R6C0 CQ1L",
"R3YY N2V2",
"R0BE LCTT",
"R0NQ K1EQ",
"RTWH TS6H",
"RR4K SCSM",
"RQ36 CGB1",
"RP7P V03E",
"RJHJ MX3H",
"RJQZ GM02",
"RHQH YVWP",
"REFY 6EH4",
"RC19 LXS4",
"RC97 WJ7W",
"Q7HB AL7B",
"Q7KB RT69",
"QVV6 PM8M",
"QZLR JB27",
"QWBL HS12",
"QTZW FMT6",
"QS2E ANAK",
"QQA8 TC6Z",
"QN48 TN8W",
"QNMV 1PGX",
"QMB6 NWVX",
"QKEH M9RQ",
"QKMJ JADR",
"QJ92 8J0E",
"QH16 TQLE",
"QH98 1ZY0",
"QHE0 QGQH",
"QATH HTGZ",
"T9FD 18RP",
"T8LB F1MC",
"T76E T32B",
"T6D4 G3PQ",
"T4ZP P0EN",
"T3WH TYCA",
"TYHN 4RXV",
"TXH8 6961",
"TPYZ VZ04",
"TNK3 PWQL",
"TMLV D9MT",
"TMKA DQBL",
"TJWV MRY7",
"TJP3 TTKE",
"TF1K 62CF",
"TFFD NEL7",
"TE0K 0HZ1",
"TA81 HFMJ",
"S939 YPP6",
"S6TV AWEX",
"S0Z6 VHJ3",
"SW3T TY8C",
"STBB SQSV",
"SRZL D677",
"SRWJ 8TQK",
"SQV0 6PAH",
"SQM0 47LA",
"SP81 8RAY",
"SPQ9 3LHQ",
"SMDK 8ZMF",
"SL68 80B1",
"SE4E 6PZ0",
"SBCW F33N",
"X9PG NMME",
"XVTH 83A3",
"XVMG N8YS",
"XVJS NLYY",
"X4KJ GLHB",
"X3WN NKRS",
"XZ4Q PMZ8",
"XT84 Y70J",
"XT6J 94AN",
"XTNQ N1ZV",
"XS97 6F4V",
"XNFD GKVZ",
"XNEN NAAK",
"XMQV NAG8",
"XHGQ 64AV",
"XHNL 0M7S",
"XGMH T7CG",
"XFCN ALP3",
"XDZF 47PH",
"XDMB 2LC3",
"XCBZ 1YQ3",
"XBTC BJFQ",
"W8FW VPRE",
"W6DP 0TBL",
"WV9E 61JZ",
"WVEV PFPM",
"W4EX 2CBV",
"W2DK MRKV",
"WYT7 NTKB",
"WYB1 HCL9",
"WYAE DKYN",
"WNPR P2CR",
"WMWS WGWW",
"WMSS 4SA3",
"WK14 K3CZ",
"WGD3 PFAJ",
"WFPL 1V29",
"WE0H MH21",
"WDRZ 46Y2",
"WBHT NKEY",
"WBKA B4T0",
"WAHE K4E1",
"Z91F WMVF",
"Z8CY MB40",
"Z62R Z78A",
"Z4W9 QTJ7",
"Z4F0 GDSH",
"Z4J7 979H",
"Z3EE GTL4",
"Z3L1 PNZ9",
"Z1RZ B6XR",
"ZZNR DK19",
"ZY9Z KBQN",
"ZTR6 8ZHA",
"ZR2K K7BB",
"ZRAS M6YA",
"ZNQD XCJR",
"ZM2H WQ8A",
"ZKDV R0C0",
"ZHTE B4DE",
"ZG0D 6DJM",
"ZG8H P9J7",
"ZFBL BFES",
"ZEFH T8NT",
"ZENZ 2ZYT",
"ZDKA V1HS",
"ZCNZ PK8A",
"Y8GR J7NF",
"Y79J DXRR",
"Y68B K364",
"Y6PC RH23",
"Y40A GDLY",
"Y2BT H24W",
"YZ14 6PRS",
"YXCJ 17J6",
"YW0T XZWS",
"YWVW W10M",
"YWBN KE1Y",
"YWPB GNW4",
"YSVR YTGQ",
"YP4B A12X",
"YNBJ JVBF",
"YM0A 3GSW",
"YLB2 ZV12",
"YJFB DVAF",
"YH88 39HZ",
"YE9Y WESL",
"171T VEBA",
"17CF 02AJ",
"17LR 42MS",
"16CQ KWGN",
"16K1 917Q",
"14QJ TLWG",
"14KN 6V8H",
"1ZG1 FFKQ",
"1XEL 83CJ",
"1WB3 H1AF",
"1S4M G71V",
"1MZN 6KRZ",
"1M2W 1WBP",
"1JFL WJHR",
"1JM9 DMLY",
"1H1N SSQ9",
"1FTJ 1EQA",
"1F4P 2RJT",
"03YG LGXZ",
"01DZ DQ1J",
"0YHF XGJM",
"0YDA 3VWH",
"0W9V Q6WN",
"0WR9 VFK4",
"0TC3 BAWW",
"0NT4 F7VV",
"0KK8 MAPD",
"0H72 7FMP",
"0H7D RAGA",
"0G3E YZ1Q",
"0ERN MC9A",
"0DD4 XQ42",
"0A2C 03HF",
"39KD Y1RN",
"388L RYFH",
"34VM 8R06",
"33AP L1FT",
"3233 FR2M",
"3003 HSB9",
"3Z6Z 6DTW",
"3XN6 DRML",
"3RSE 8GD3",
"3QE2 F8N8",
"3P7F NYHH",
"3NWW SLAS",
"3JHZ 468M",
"3HTA P4FA",
"3F2C LW2E",
"3FAL YBNV",
"3E9Q HJCF",
"3EA6 Y882",
"3C1L WXA6",
"3CHY 93XQ",
"3CLC YBHT",
"3BMD LCDB",
"3AXE KM83",
"297R G0ML",
"28VZ MNPQ",
"2842 4H67",
"26B9 EVG3",
"2V3E 3RCS",
"24RT ZC3R",
"2Y7R 4NBE",
"2SE0 XY38",
"2PTR P1FW",
"2NHC AXN6",
"2MDY P8ZG",
"2L1M 4ESQ",
"2K73 PYN2",
"2J9W JPKD",
"2HVV XLN0",
"2EDL 0TMY",
"2DSB 6DF6",
"2CLF WS6A",
"2B3A A73V",
"V9QG XP0A",
"V81F ZCCL",
"V77T Y3XL",
"V613 1F3F",
"V6Y0 SVWG",
"VVZF ALRV",
"V48Y BJ3G",
"V4HA TQPS",
"VZWA 9WF6",
"VYTZ JPWF",
"VX61 S20W",
"VSW1 TNSZ",
"VNZ2 6CZK",
"VNJ3 XTNT",
"VKPP 3DJ7",
"VHT3 1V6A",
"VGW4 46EQ",
"VEZE 8ZRC",
"VCF0 JF8T",
"VBVR YXV9",
"4009 68H8",
"40ZM FS4T",
"4XHA GTQL",
"4TEM PASM",
"4R6N KVBZ",
"4N8S EKF6",
"4KPG HQS8",
"4E07 9JJV",
"4EH7 BSJT",
"4EEZ PRQX",
"4DXS HYMW",
"4D64 W1V1",
"4DE7 P088",
"4B3G RWF8",
"4BPW V2W2",
"4AXW V16Y",
"4ATP M0ET",
"4A3V 3VGM",
"4AG7 0DKX",
"78EB VLH4",
"77GW J0TG",
"76TD BHD1",
"76R8 TYKX",
"76JX Q76J",
"7V8G GPHK",
"740H 2GYE",
"72HP CMKA",
"72J6 V1H0",
"71QA W31B",
"70RG Z03K",
"7Z7Z T38M",
"7XL1 TP1S",
"7RZ7 QCBY",
"7R9M B183",
"7R4N PXLZ",
"7Q8N MPB1",
"7Q70 4M79",
"7QBL PVS0",
"7PGG ZFD4",
"7L2N EB17",
"7GXN LCYV",
"7G9Z 6FFQ",
"7F6B Q9VV",
"7DYA RCCV",
"7AF0 A8HL",
"6492 PTTC",
"63WS LJAW",
"60D1 VGX4",
"6ZPW 34HQ",
"6WME 6VPF",
"6TT0 J424",
"6TTM 0VP8",
"6RC2 61MC",
"6QGR 9XCX",
"6PA1 ZDRL",
"6NYP 8FMG",
"6MDL CH7T",
"6L61 QKVS",
"6LKA 1AWG",
"6C4F SBYP",
"6BV7 9WXV",
"6B42 GCX6",
"977V PQTV",
"961V 1JFP",
"960J WP3R",
"9640 62H7",
"9467 M77K",
"94H4 BMKQ",
"9386 K7XY",
"93K3 CLMX",
"92AG CA8N",
"9Y73 LEF9",
"9TST CQP8",
"9THM HQXY",
"9RZP 1C6R",
"9RJD 6CY1",
"9P09 GP8Z",
"9LRH KNBL",
"9HD4 A9G8",
"9HAG TSQT",
"9G7E CEQX",
"9C9M GDZ1",
"9C73 F86W",
"8987 8QGM",
"88BQ PGNR",
"84SW G1WN",
"84CY VDZT",
"81M8 AS6R",
"8ZWF 2ABQ",
"8Z8N 8QDZ",
"8Y2A 3DA2",
"8XDC B6AL",
"8XMB AJXH",
"8WEP L8KR",
"8S9H Y9MV",
"8S7J D3NE",
"8Q4N QTXC",
"8P1E EMKN",
"8NS6 8MV2",
"8NDR EXTP",
"8KP2 81S2",
"8H4G ZCR9",
"8FFM 7FRN",
"8E1J ESXW",
"8AEH MM8C"}

-- ModCallbacks.MC_POST_RENDER (2)
function WRSeedGetter:PostRender()
  if WRSeedGetter.restart and WRSeedGetter.attempts < #WRSeedGetter.seeds then
    WRSeedGetter.restart = false
    WRSeedGetter.attempts = WRSeedGetter.attempts + 1

        local seed = WRSeedGetter.seeds[WRSeedGetter.attempts]
        Isaac.DebugString("On attempt: " .. seed)
    Isaac.ExecuteCommand("seed " .. seed)
    return
  end
end

-- ModCallbacks.MC_POST_GAME_STARTED (15)
function WRSeedGetter:PostGameStarted(saveState)
  if WRSeedGetter:Check() then
    local game = Game()
    local seeds = game:GetSeeds()
    local seed = seeds:GetStartSeedString()
    Isaac.DebugString("Found good seed: " .. seed)
        WRSeedGetter.restart = true
  else
    -- Doing a "restart" here does not work for some reason, so mark to do it on the next frame
    WRSeedGetter.restart = true
  end
end

function WRSeedGetter:Check()
  -- We need an Emperor card
  local game = Game()
  local player = game:GetPlayer(0)
  local card = player:GetCard(0)


  -- We need Scapular and Mega Blast
  --[[if player:HasCollectible(CollectibleType.COLLECTIBLE_SCAPULAR) == false or -- 142
     player:HasCollectible(CollectibleType.COLLECTIBLE_MEGA_SATANS_BREATH) == false then -- 441

    return false
  end]]

  -- We need a Sacrifice Room attached
  local room = game:GetRoom()
  local sacRoomAttached = false
  for i = 0, 3 do -- The starting room will only ever have 4 doors
    local door = room:GetDoor(i)
    if door ~= nil and
       door.TargetRoomType == RoomType.ROOM_SACRIFICE then -- 13

      sacRoomAttached = true
      break
    end
  end
  if sacRoomAttached == false then
    return false
  end

  return true

  -- This other method is probably slower
  --[[
  -- We need a seed with at least 2 red heart containers
  local maxHearts = player:GetMaxHearts()
  if maxHearts < 4 then
    return false
  end

  -- Check for the presence of a Sacrifice Room
  local level = game:GetLevel()
  local rooms = level:GetRooms()
  local foundSacRoom = false
  for i = 0, rooms.Size - 1 do -- This is 0 indexed
    local roomDesc = rooms:Get(i)
    local roomData = roomDesc.Data
    local roomType = roomData.Type
    local roomVariant = roomData.Variant
    if roomType == RoomType.ROOM_SACRIFICE and -- 13
       roomVariant == 9 then -- This is the room with 4 Scared Hearts

      foundSacRoom = true
      break
    end
  end
  if foundSacRoom == false then
    return false
  end
  Isaac.DebugString("Found good Sacrifice Room on attempt: " .. tostring(WRSeedGetter.attempts))

  -- Make sure that we have a good card
  local card = player:GetCard(0)
  local deck = false
  if player:HasCollectible(CollectibleType.COLLECTIBLE_STARTER_DECK) then -- 251
    deck = true
  end
  if card ~= Card.CARD_EMPEROR and -- 5
     deck == false then

    return false
  end
  local chaos = false
  if deck then
    -- Find the identity of the dropped card
    local entities = Isaac.FindByType(EntityType.ENTITY_PICKUP, PickupVariant.PICKUP_TAROTCARD, -- 5.300
                                      -1, false, false)
    local droppedCard = entities[1].SubType
    if (card == Card.CARD_EMPEROR and -- 5
        droppedCard == Card.CARD_CHAOS) or -- 42
       (card == Card.CARD_CHAOS and -- 42
        droppedCard == Card.CARD_EMPEROR) then -- 5

      chaos = true
    end
    if chaos == false then
      return false
    end
  end
  Isaac.DebugString("Found good Sacrifice Room AND good card(s) on attempt: " .. tostring(WRSeedGetter.attempts))

  -- We need a seed with killing power
  local knife = false
  if player:HasCollectible(CollectibleType.COLLECTIBLE_MOMS_KNIFE) then -- 114
    knife = true
  end
  local dagger = false
  if player:HasCollectible(CollectibleType.COLLECTIBLE_SACRIFICIAL_DAGGER) then -- 172
    dagger = true
  end
  local bloodRights = false
  if player:HasCollectible(CollectibleType.COLLECTIBLE_BLOOD_RIGHTS) then -- 186
    bloodRights = true
  end
  local isaacsHeart = false
  if player:HasCollectible(CollectibleType.COLLECTIBLE_ISAACS_HEART) then -- 276
    isaacsHeart = true
  end
  local megaBlast = false
  if player:HasCollectible(CollectibleType.COLLECTIBLE_MEGA_SATANS_BREATH) then -- 441
    megaBlast = true
  end
  local planC = false
  if player:HasCollectible(CollectibleType.COLLECTIBLE_PLAN_C) then -- 475
    planC = true
  end

  if chaos or
     knife or
     dagger or
     (bloodRights and isaacsHeart) or
     megaBlast then

    return true
  end
  --]]
end

WRSeedGetter:AddCallback(ModCallbacks.MC_POST_RENDER, WRSeedGetter.PostRender) -- 2
WRSeedGetter:AddCallback(ModCallbacks.MC_POST_GAME_STARTED, WRSeedGetter.PostGameStarted) -- 15

Isaac.DebugString("+-----------------------------+")
Isaac.DebugString("| WR Seed Getter initialized. |")
Isaac.DebugString("+-----------------------------+")