Dwarf Names /* John's D&D Utilities * Copyright (C) 2001-2009, John Evans * Released under GPLv3. */ require("utils.php"); start_html("Dwarven Names"); $Data = fopen("./data/names/dwarf", "r"); if (!$Data) { abort("Error reading datafile!"); } ### Fetch Prefixes while (!feof($Data)) { $line = chop(fgets($Data, 255)); if ($line == ":") { break; } else { $pre[] = $line; } } ### Fetch Male Suffixes while (!feof($Data)) { $line = chop(fgets($Data, 255)); if ($line == ":") { break; } else { $male[] = $line; } } ### Fetch Female Suffixes while (!feof($Data)) { $line = chop(fgets($Data, 255)); if ($line == ":") { break; } else { $female[] = $line; } } ### Fetch Stronghold Suffixes while (!feof($Data)) { $line = chop(fgets($Data, 255)); if ($line == ":") { break; } else { $stronghold[] = $line; } } fclose($Data); function print_base() { global $pre; $base = ""; $num = dice(1, 4); for ($x = 1; $x <= $num; ++$x) { $base .= get_random($pre); } return(ucfirst(strtolower($base))); } ?> Male Names Female Names Stronghold Names for ($x = 1; $x <= 20; ++$x) { print(" \n"); printf(" %s%s\n", get_random($pre), get_random($male)); print (" \n"); printf(" %s%s\n", get_random($pre), get_random($male)); print (" \n"); printf(" %s%s\n", get_random($pre), get_random($female)); print (" \n"); printf(" %s%s\n", get_random($pre), get_random($female)); print (" \n"); printf(" %s%s\n", print_base(), get_random($stronghold)); print (" \n"); printf(" %s%s\n", print_base(), get_random($stronghold)); print(" \n"); } ?> Generate More Dwarven Names end_html(); ?>
Generate More Dwarven Names