sort p1 maps into categories

p1Sorter.lua

-- click category up top to put the map in the bin
-- click print to print out all sorted so far

maps = {1121345,1170748,1180637,1406777,1451107,1583395,1615095,1648676,1771248,1801218,1863140,1869887,1960482,1971455,2059472,2101434,2205190,2230090,2238442,2538612,2712448,2739697,2782039,2913746,2952484,2953143,2954141,3052551,3385539,3489036,3536539,3549686,3562108,3569448,3583410,3586920,3591443,3619335,3620493,3623250,3663013,3666747,3708762,3717518,3827116,3847602,3878078,3908930,3977560,3978302,3980048,4009090,4056746,4058006,4166043,4187625,4231620,4242670,4260278,4272457,4328665,4343711,4390118,445166,4453084,4506450,4547800,4574648,4636013,4642082,4643856,4680427,4725148,4763576,4797308,4808370,4860245,4885091,4902795,4903650,4935178,4937165,4950821,4955735,4979276,4980774,4999920,5000360,5010050,5041541,5054728,5060806,5070777,5073613,5078122,5078438,5088121,5091466,5098693,5103965,5111180,5116976,5165203,5178110,5230388,5269771,5290200,5296535,5310019,5314169,5318080,5364059,5364888,5374261,5403032,5425532,5449912,5459193,5474528,5478255,5483656,5483891,5489621,5492042,5499938,5513487,5522923,5528024,5551443,5551832,5555494,5559459,5572113,5577716,5605031,5610300,5611481,5677679,5677775,5678048,5719711,572642,5737207,5754428,5770709,5771182,5773482,5774310,5781791,5783424,5787896,5805015,5822857,5842221,5844714,5850598,5866430,5873071,5882598,5887169,5887191,5900011,5900019,5913190,5916930,5920948,5922119,5929928,5936437,5940306,5943794,5996509,6000007,600041,6008241,6014853,6030411,6033837,6037775,6039549,6044441,6048269,6054531,6055231,6076769,6088531,6094427,6100222,6105248,6105349,6117506,6126588,6127500,6128896,6137556,6168823,6171840,6209590,6217160,6223253,6241011,6291895,6295878,6300070,6300500,6301633,6316577,6352738,6354645,6356376,6370008,6382568,6389982,6389999,6391066,6393721,6397701,6398916,6403987,6421179,6434798,6436268,6439999,6445926,6446167,6450817,6452070,6460424,6462210,6474177,6476434,6494800,6496373,6496725,6506849,6508837,6509235,6513122,6517443,6520050,6520468,6520798,6524118,6539236,6563018,6585683,6596233,6601407,6616267,6624172,6631206,6636497,6639279,6641031,6649782,6657201,6659658,6660265,6674992,6685409,6686814,6687671,6687836,6699973,6699989,6702163,6705172,6711446,6714452,6716497,6717793,6724509,6725664,6729509,6733656,6737380,6740307,6747612,6750442,6762537,6777095,6779586,677995,6790059,6792763,679507,6796415,6801051,6803737,6807992,6813193,6814181,6818666,6828888,6829707,6830485,6841104,6845242,6848763,6848944,6850312,6853151,6854382,6866244,6866716,6869050,6891929,6896875,6902990,6905128,6905760,6906349,6913268,6918325,6923025,6930548,6936080,6942499,6944011,6944954,6954053,6958321,6960402,6962656,6968010,6968988,6972902,6974905,6978195,6978295,6986667,6989120,6991669,6996696,6999443,6999868,6999903,6999965,7000609,7008055,7009576,7019001,7025166,7026783,7028540,7031805,7032181,7040724,7044125,7049491,7051218,7051762,7058657,7059379,7062323,7063183,7065211,7066252,7070708,7080904,7090900,7095000,7095565,7097000,7098887,7099940,7100030,7100100,710233,7106674,7107858,7110496,7111114,7111771,7111777,7115118,7115443,7116401,7116732,7119801,7121203,7126696,7129283,7131344,7132113,7132120,7140327,7144548,7146001,7146696,7147548,7149662,7150793,7151324,715139,7152344,7152665,7152813,7154981,7155717,7169674,7170498,7172528,7172776,7173979,7178783,7179197,7180884,7180892,7181215,7181236,7181286,7181374,7181715,7183076,7183089,7184023,7187160,7188217,7190395,7191124,7195285,7195590,7196289,7197455,7197691,7204403,7206357,7206685,7206819,7207479,7208985,7209068,7209651,7213253,7213431,7215807,7216512,7218194,7220005,7221038,7222432,7223918,7224476,7225427,7234818,7235243,7239199,7242459,7245200,7246953,7248409,7248540,7250850,7252503,7256313,7257297,7258357,7259934,7259961,7260099,7264781,7265139,7270826,7273431,7275618,7275722,7276535,7276552,7278407,7279409,7282408,7282539,7284159,7284307,7287977,7290161,7292534,7293005,7295719,7297479,7300004,7300073,7300670,7308861,7310431,7317556,7322233,7333313,7337707,7337722,7353052,7353495,7360891,7365491,7368936,7369274,7372257,7374539,7388217,7390668,7390685,7390961,7391291,7391474,7393759,7394944,7396010,7397628,7398884,7399322,7400405,7401779,7402925,7403234,7404982,7410402,7411460,7412330,7412355,7413903,7413916,7416950,7419154,7421802,7422951,7426066,7428305,7429836,7436069,7436403,7436521,7437626,7441160,7441752,7442118,7444053,7444440,7447957,7450645,7450757,7455014,7455544,7455576,7460733,7464055,7468000,7468709,7470784,7472902,7475951,7476424,7477449,7477570,7490694,7494941,7498184,7500030,7502157,7502425,7509764,7516147,7523886,7525105,7532085,7539582,7539932,7543452,7547855,7550397,7556361,7557234,7557583,7560330,7563237,7563930,7565930,7572156,7584030,7589793,7591688,7593788,7602296,7606249,7607604,7608193,7618983,7623058,7626667,7630145,7637706,7641156,7655150,7663009,7665355,7669750,7674245,7680375,7681268,7681742,7683192,7685592,7688917,7688941,7702275,7703954,7707752,7712388,7734196,7751111,7753126,7755803,7759105,7759738,7762510,7763580,7763818,7766307,7766613,7771091,7771177,7775598,7777240,7777983,7778888,7780575,7782625,7786256,7788107,7789247,7792917,7793839,7794668,7802859,7811354,7812020,7814238,7815233,7826759,7837225,7841148,7845819,7905886,7915256,7919556,7921797,7922874,7925333,7925720,7926123,7930018,7941061,7947700,7949908,7952958,7957776,7959954,7961697,7963577,7964053,7964611,7965302,7965307,7965522,7969905,970700,994487}

tfm.exec.disableAutoTimeLeft(true)
tfm.exec.disableAutoNewGame(true)
tfm.exec.disableAutoScore(true)
tfm.exec.disableAfkDeath(true)

mapsSorted = {}
mapsSorted["cats"] = {"building", "racing", "art", "mech", "misc"}
mapsSorted["building"] = {}
mapsSorted["racing"] = {}
mapsSorted["art"] = {}
mapsSorted["mech"] = {}
mapsSorted["misc"] = {}

sorterText = '<font size="16">'
sorterText = sorterText .. '<a href="event:building">building</a> | '
sorterText = sorterText .. '<a href="event:racing">racing</a> | '
sorterText = sorterText .. '<a href="event:art">art</a> | '
sorterText = sorterText .. '<a href="event:mech">mech</a> | '
sorterText = sorterText .. '<a href="event:misc">misc</a>'
sorterText = sorterText .. '</font>'

ui.addTextArea (1, sorterText, nil, 250, -25)
ui.addTextArea (2, '<font size="16"><a href="event:print">print</a></font>', nil, 600, -25)

nextMap = 1
goNext = 0
lastLoad = os.time()
latest = 0

tfm.exec.newGame(maps[nextMap])

function playNewMap()
    if os.time() - lastLoad > 3050 and goNext == 1 then
        tfm.exec.newGame(maps[nextMap])
    end
end

function printer()
    local buildingText, racingText, artText, mechText, miscText = "building = ", "racing = ", "art = ", "mech =", " misc ="
    for i,map in ipairs(mapsSorted["building"]) do
        buildingText = buildingText .. map .." "
    end
    for i,map in ipairs(mapsSorted["racing"]) do
        racingText = racingText .. map .." "
    end
    for i,map in ipairs(mapsSorted["art"]) do
        artText = artText .. map .." "
    end
    for i,map in ipairs(mapsSorted["mech"]) do
        mechText = mechText .. map .." "
    end
    for i,map in ipairs(mapsSorted["misc"]) do
        miscText = miscText .. map .." "
    end
    print(buildingText .. "\n" .. racingText .. "\n" .. artText .. "\n" .. mechText .. "\n" .. miscText )
end

function eventNewGame()
    goNext = 0
    lastLoad = os.time()
end

function eventLoop()
    if nextMap ~= #maps then
        playNewMap()
    end
end

function eventTextAreaCallback (textAreaId, playerName, eventName)
    if eventName == "print" then
        printer()
    else
        table.insert(mapsSorted[eventName], tfm.get.room.xmlMapInfo.mapCode)
        nextMap = nextMap + 1
        goNext = 1
        latest = tfm.get.room.xmlMapInfo.mapCode
    end
end