forked from blasthavers/blastmud
100 lines
2.0 KiB
Haskell
100 lines
2.0 KiB
Haskell
|
module Main where
|
||
|
|
import Data.List
|
||
|
|
import System.Random
|
||
|
|
import Control.Monad
|
||
|
|
|
||
|
|
first :: [String]
|
||
|
|
first = [
|
||
|
|
"James",
|
||
|
|
"Mary",
|
||
|
|
"Robert",
|
||
|
|
"Patricia",
|
||
|
|
"John",
|
||
|
|
"Jennifer",
|
||
|
|
"Michael",
|
||
|
|
"Linda",
|
||
|
|
"David",
|
||
|
|
"Elizabeth",
|
||
|
|
"William",
|
||
|
|
"Barbara",
|
||
|
|
"Richard",
|
||
|
|
"Susan",
|
||
|
|
"Joseph",
|
||
|
|
"Jessica",
|
||
|
|
"Thomas",
|
||
|
|
"Sarah",
|
||
|
|
"Charles",
|
||
|
|
"Karen",
|
||
|
|
"Christopher",
|
||
|
|
"Lisa",
|
||
|
|
"Daniel",
|
||
|
|
"Nancy",
|
||
|
|
"Matthew",
|
||
|
|
"Betty",
|
||
|
|
"Anthony",
|
||
|
|
"Margaret",
|
||
|
|
"Mark",
|
||
|
|
"Sandra",
|
||
|
|
"Donald",
|
||
|
|
"Ashley",
|
||
|
|
"Steven",
|
||
|
|
"Kimberly",
|
||
|
|
"Paul",
|
||
|
|
"Emily",
|
||
|
|
"Andrew",
|
||
|
|
"Donna",
|
||
|
|
"Joshua"
|
||
|
|
]
|
||
|
|
|
||
|
|
surn :: [String]
|
||
|
|
surn = [
|
||
|
|
"Smith",
|
||
|
|
"Johnson",
|
||
|
|
"Williams",
|
||
|
|
"Brown",
|
||
|
|
"Jones",
|
||
|
|
"Garcia",
|
||
|
|
"Miller",
|
||
|
|
"Davis",
|
||
|
|
"Rodriguez",
|
||
|
|
"Martinez",
|
||
|
|
"Hernandez",
|
||
|
|
"Lopez",
|
||
|
|
"Gonzalez",
|
||
|
|
"Wilson",
|
||
|
|
"Anderson",
|
||
|
|
"Thomas",
|
||
|
|
"Taylor",
|
||
|
|
"Moore",
|
||
|
|
"Jackson",
|
||
|
|
"Martin",
|
||
|
|
"Lee",
|
||
|
|
"Perez",
|
||
|
|
"Thompson",
|
||
|
|
"Harris",
|
||
|
|
"Sanchez",
|
||
|
|
"Clark",
|
||
|
|
"Ramirez",
|
||
|
|
"Lewis",
|
||
|
|
"Robinson",
|
||
|
|
"Walker",
|
||
|
|
"Young",
|
||
|
|
"Allen",
|
||
|
|
"King",
|
||
|
|
"Wright",
|
||
|
|
"Scott",
|
||
|
|
"Torres",
|
||
|
|
"Nguyen",
|
||
|
|
"Hill",
|
||
|
|
"Flores",
|
||
|
|
"Green",
|
||
|
|
"Adams"
|
||
|
|
]
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = do
|
||
|
|
forM_ [1..60] $ \i -> do
|
||
|
|
first_name <- (first!!) <$> randomRIO (0, length first - 1)
|
||
|
|
last_name <- (surn!!) <$> randomRIO (0, length surn - 1)
|
||
|
|
putStrLn $ " NPC {\n code: \"melbs_citizen_" <> (show i) <> "\",\n name: \"" <> first_name <> " " <> last_name <> "\n description: \"A fairly ordinary looking citizen of Melbs, clearly weary from the harst reality of post-apocalyptic life\",\n spawn_location: \"room/melbs_\"\n message_handler: None,\n says: vec!()\n },\n"
|