<?
//función para leer elementos de un archivo
function randfile($file) {
$data = file($file);
return $data[rand(0, count($data)-1)];}



//numero generados simultaneamente
$numero=20;

// arrais con las opcioones para una organización

$Tamaño=array(
"1"=>" Domicilio particular. Un quiosco, bar o templo modesto. 1 o 2 miembros/empleados (como mucho).",
"2"=>" Pequeña organización local. 5-10 miembros/empleados.",
"3"=>" Organización de ámbito provincial. 10-100 miembros/empleados.",
"4"=>"Organización con presencia regional. Varios cientos de miembros/empleados.",
"5"=>" Organización nacional.Miles de miembros/empleados.Docenas de delegaciones.",
"6"=>" Organización de ámbito continental. Delegaciones en países vecinos. Decenas de miles de miembros/empleados.",
"7"=>" Ámbito multinacional/global. Delegaciones en todos los continentes. Puede tener hasta cientos de miles de miembros/empleados.",
"8"=>" Presencia en varios planetas o sistemas solares (un sector, como mucho). Millones de miembros/empleados.",
"9"=>" Organización de ámbito galáctico, presente en varios sectores. Todavía más millones de miembros/empleados.",
"10"=>" Corporación transgaláctica, presente en cientos de sectores miles y miles de sistemas solares o incluso en varias galaxias. Cientos o incluso miles de millones de empleados. Recursos prácticamente ilimitados.",
);

$Tenacidad=array(
"1"=>"Nula. Estamos aquí para echar el rato.",
"2"=>"Escasa. Poca motivación.",
"3"=>"Poca. Mientras paguen, serán leales.",
"4"=>"Lo corriente. Es mi trabajo, lo hago y punto.",
"5"=>"Profesionalidad. Los implicados realmente se esfuerzan por la causa.",
"6"=>"Respeto. Por la cuenta que les trae, los implicados harán todo lo posible por cumplir las órdenes.",
"7"=>"Interés absoluto. La organización es lo primero, como una gran familia.",
"8"=>"Completa dedicación. Vivir y morir por y para la organización.",
"9"=>"Fanatismo. La organización ostenta la verdad absoluta e incuestionable.",
"10"=>"Control absoluto. Los miembros de la organización morirían antes de desobedecer la menor de las órdenes.",
);

$Recursos=array(
"1"=>"Subsistencia básica.Los ahorros de sus miembros.",
"2"=>"Presupuesto modesto. Capacidad para pagar nóminas y comprar equipos básicos.",
"3"=>"Presupuesto más desahogado. Pago de nóminas, equipamiento de calidad baja/normal.",
"4"=>"Organización próspera o en ascenso. Medios y equipamiento de calidad normal o incluso buena para ciertos miembros.",
"5"=>"Presupuesto de varios cientos de millones anuales. Equipamiento de buena calidad en general.",
"6"=>"Capacidad para administrar miles de millones. Excelentes instalaciones y equipamiento.",
"7"=>"Presupuestos de muchos miles de millones. Jets privados. Equipamiento excepcional y viviendas de lujo para sus miembros más importantes.",
"8"=>"Presupuestos que superan al PIB de varios países juntos. Enormes recursos disponibles para la mayoría de sus actividades.",
"9"=>"Presupuesto y medios equivalentes al PIB de varios planetas o quizá algún estado galáctico menor.",
"10"=>"Recursos ilimitados. Pueden comprar uno o más planetas si les conviene o disponer de una inmensa flota de astronaves, entre otras muchas cosas.",
);

$Influencia=array(//53
"1"=>"Organización casi desconocida o conocida entre los vecinos más inmediatos.",
"2"=>"Pueden presionar a la comunidad de vecinos del bloque. Cierta importancia en el barrio o aldea.",
"3"=>"Importancia dentro del ámbito provincial. Pueden influir en las decisiones del gobierno local.",
"4"=>"Importancia regional. Pueden ejercer influencia en este ámbito y conseguir un cierto trato de favor.",
"5"=>"Los ayuntamientos de las grandes ciudades del país se pelean por ofrecerles terrenos y escuchan con atención sus peticiones.",
"6"=>"Influencia sobre los gobiernos y los medios de comunicación nacionales. Puede conseguir un cierto trato de favor por parte del gobierno.",
"7"=>"Influencia internacional. Posee algún medio de comunicación y no duda en utilizarlo según convenga a sus intereses.",
"8"=>"Dispone de varios medios de comunicación propios y suficiente presencia como para tener una influencia limitada en las decisiones políticas del gobierno de uno o más países, sin llegar a dictarlas por completo.",
"9"=>"Puede ejercer una gran presión sobre los principales órganos políticos y comprar, o intimidar, un número suficiente de políticos en varios países como para aprobar las leyes que le interese. Dirige numerosos medios de comunicación e influye en la opinión pública.",
"10"=>"La organización toma decisiones y dicta leyes aunque, en apariencia, éstas provengan del gobierno o gobiernos correspondientes. Es posible incluso que la organización represente el único gobierno real que existe.",
);

$Seguridad=array(
"1"=>"Cierran la puerta por la noche... cuando se acuerdan.",
"2"=>"Convencional. Puertas corrientes y molientes cerradas con llave.",
"3"=>"Puertas blindadas. Algunas cámaras de seguridad. Caja fuerte. Vigilante nocturno.",
"4"=>"Diversas puertas blindadas. Más cámaras de seguridad. Caja fuerte. Control de entradas y salidas. Uno o dos vigilantes a todas horas.",
"5"=>"Puertas más gruesas. Cámaras de seguridad en zonas estratégicas. Sistemas de identificación. Alarmas. Importante número de guardias de seguridad contratados.",
"6"=>"Medidas de seguridad físicas (cámaras, identificación, alarmas, control de entradas y salidas), cuenta con un cuerpo de seguridad propio.",
"7"=>"Métodos de verificación de identidad sofisticados (control de huellas, identificación de ADN, sensores, etc.), los guardias disponen de buen armamento y libertad de actuación.",
"8"=>"Métodos de verificación de identidad y alarma sofisticados. Emplea medios y vehículos especializados (casi militar) para su numeroso cuerpo de seguridad.",
"9"=>"Algo muy bestia. Equipo y medios militares para su cuerpo de seguridad. Posiblemente tenga una o más unidades mercenarias a su disposición, actuando como ejército privado.",
"10"=>"Sistemas de verificación de identidad ultra-modernos cada pocos metros. Instalaciones blindadas y superprotegidas con armamento propio. Ejército privado muy motivado e incentivado, fuertemente armado y equipado con las armas y vehículos más avanzados existentes (incluso tal vez superiores a los que utilizan las fuerzas gubernamentales).",
);

for ($cont=0; $cont<$numero; $cont++)
{

echo "<table border=1  width=100% colspan=8 cellspacing=0>";
$nombre=trim(randfile("nombres_1.txt"))." ".trim(randfile("nombres_2.txt"))." ".trim(randfile("nombres_3.txt"));
echo"      <tr> <th colspan=8>$nombre</td> </tr>";
$i=rand(1,10);
echo"      <tr><td> Tamaño: $Tamaño[$i] ($i)</td></tr>";$valor=$valor+$i;

do{$j=$i+rand(-2,2);}while($j<1 or $j>10);
echo"      <tr><td> Tenacidad: $Tenacidad[$j] ($j) </td></tr>";$valor=$valor+$j;

do{$j=$i+rand(-2,2);}while($j<1 or $j>10);
echo"      <tr><td> Recursos: $Recursos[$j] ($j) </td></tr>";$valor=$valor+$j;

do{$j=$i+rand(-2,2);}while($j<1 or $j>10);
echo"      <tr><td> Influencia: $Influencia[$j] ($j) </td></tr>";$valor=$valor+$j;

do{$j=$i+rand(-2,2);}while($j<1 or $j>10);
echo"      <tr><td> Seguridad: $Seguridad[$j] ($j)</td></tr>";$valor=$valor+$j;



if($valor<15){$coste="1";}
if($valor<25 and $valor>=15){$coste="2";}
if($valor<35 and $valor>=25){$coste="3";}
if($valor<45 and $valor>=35){$coste="4";}
if($valor>45){$coste="5";}
$valor=0;

echo"      <tr><td> Coste por nivel de trasfondo: $coste PG</td></tr>";

if($i>"3"){$num_sedes=rand(1,$i);}else{$num_sedes=1;} 

for ($cont=1; $cont<=$num_sedes; $cont++)
{

$cadena=$cadena."sede numero ".$cont." en ".trim(randfile("sedes.txt").", ");
}
echo"      <tr><td>Sede principal y segundarias: $cadena</td></tr>";

$cadena="";

if($i>3){

$num_sucursa=($i-rand(1,3))*rand(1,3);

for ($cont=1; $cont<$num_sucursa; $cont++)
{
$cadena=$cadena."sucursal numero ".$cont." en ".trim(randfile("sucursales.txt").", ");
}
echo"      <tr><td>Principales sucursales menores y principales fábricas: $cadena</td></tr>";
$cadena="";
}
echo "</table>";
echo "<BR>";

}

?>