Millebornes database

Millebornes database (#2597)

(an instance of Root Class made by Sick)

Go to location of this object, Sick.

VERB SOURCE CODE:

random_deck:

deck = {};
cards = this.card_names;
totals = this.card_totals;
for c in [1..length(cards)]
    for x in [1..totals[c]]
        deck = listinsert(deck, cards[c], random(length(deck) + 1));
    endfor
endfor
return deck;
.

match_card:

card = args[1];
cards = this.card_names;
if (i = (card in cards) || $string_utils:find_prefix(card, cards))
    return cards[i];
else
    return "";
endif
.

card_title:

i = (card = args[1]) in this.card_names;
if (this.card_totals[i] == 1)
    return tostr("the ", card, " safety card");
elseif (index("aeiou", card[1]))
    return tostr("an ", card, " card");
else
    return tostr("a ", card, " card");
endif
.

PROPERTY DATA:
card_names
card_totals