#include <stdio.h>
#include <string.h>
int _seed1=1000,_seed2=12000,_seed3=28000;
int C[29],F[71],R,LL,LS,LP,numero1,numero2;
int EL=39,NO=88,NV=57,G=28,LL=0;
char *ES[81],*XS[7],*YS[7],*GS[3],*DS[81],*TS[89],*OS[30];
char X6S[49],X1S[32],X2S[41],X3S[35],X4S[60],X5S[41],X7S[20],X8S[20],X9S[26],XBS[18],GS1[8],GS2[8],BS[172];
char PS[30],RS[100],texto[100],JS[230],JS1[230],direccion[5];
double rand(){
double r;
_seed1=(_seed1%177)*171-(_seed1/177)%2;
if (_seed1<0)_seed1+=30269;
_seed2=(_seed2%176)*172-(_seed2/176)*35;
if (_seed2<0)_seed2+=30307;
_seed3=(_seed3%178)*170-(_seed3/178)*63;
if (_seed3<0)_seed3+=30323;
r=_seed1/30269.0+_seed2/30307.0+_seed3/30323.0;
while(r>1.0)r-=1.0;
return r;
}
void pantalla(){
/*
int i;
LS=1;LP=1;
for (i=1 ; i <= strlen(JS); i++){
if (JS[i]==' ' && LL>EL) {
printf("lo cualo %s ",JS);
LL=i-LS;
LP=LS+1; }
if (JS[i]==' '){LS=i;}
LL=LL+1;
}
*/
printf("%s",JS);
}
void limpiar() {
numero1=0;
numero2=0;
return;
}
void comenzar() {
int i;
double rand();
C[1]=80;
C[2]=70;
C[3]=60;
C[4]=69;
C[5]=74;
C[6]=72;
C[7]=63;
C[8]=52;
C[9]=20;
C[10]=11;
C[11]=1;
C[12]=14;
C[13]=36;
C[14]=54;
C[15]=61;
C[16]=21;
C[17]=32;
C[18]=10;
C[19]=50;
C[20]=29;
C[21]=59;
C[22]=34;
C[23]=13;
C[24]=80;
C[25]=30;
C[26]=81;
C[27]=47;
C[28]=74;
F[1]=1;
F[2]=1;
F[3]=1;
F[4]=1;
F[5]=1;
F[9]=1;
F[12]=1;
F[13]=1;
F[16]=1;
F[17]=1;
F[20]=1;
F[21]=1;
F[22]=1;
F[41]=(900*rand())+100;
F[42]=(3*rand())+2;
F[44]=10;
F[57]=68;
F[58]=54;
F[59]=15;
F[52]=(3*rand());
for (i = 1; i <= 8; i++)
{
numero1=(int)(3*rand()+1)*3;
if (BS[numero1]=='N')
{
strcat(GS1,"N");
strcat(GS2,"S");
}
if (BS[numero1]=='S')
{
strcat(GS1, "S");
strcat(GS2, "N");
}
if (BS[numero1]=='E')
{
strcat(GS1, "E");
strcat(GS2, "O");
}
if (BS[numero1]=='O')
{
strcat(GS1, "O");
strcat(GS2, "E");
}
}
R=77;
strcpy(RS,"SUERTE!");
return;
}
void datos() {
int c=0;
DS[1]="11UNA TUMBA MEDIO ABIERTA";DS[2]="12EL CEMENTERIO DE LOS DUENDES.HAY UNAS LAPIDAS";DS[3]="11EL HUECO DE UNA TUMBA";
DS[4]="23UNAS ESTALACTITAS";DS[5]="11UN LABERINTO DE TUNELES";DS[6]="11UNA CUEVA ABOVEDADA";
DS[7]="23LAS PUERTAS DE CRISTAL";
DS[8]="12UNA HABITACION DE ENTRADA AL PALACIO";
DS[9]="31EL PUESTO DEL CENTINELA";
DS[10]="12LA HABITACLON DEL GUARDA";
DS[11]="31LA ENSENADA PANTANOSA";
DS[12]="23UNAS PUERTAS OXIDADAS";
DS[13]="12LA CASITA DEL GUARDIAN DEL JUEGO";
DS[14]="31EL ESTANQUE CON NIEBLA";
DS[15]="11UN JARDIN CON ALTOS MUROS";
DS[16]="14UNA CUEVA CON INSCRIPCIONES";
DS[17]="34UNA FUENTE ADORNADA";DS[18]="11UN HUMEDO PASADIZO";DS[19]="12UNA LARGA GALERIA";
DS[20]="12LAS COCINAS DE PALACIO";
DS[21]="34UN VIEJO HORNO";DS[22]="44UN CAMINO LLENO DE MALEZA";
DS[23]="31UNA NORIA ESTROPEADA";DS[24]="33LAS COMPUERTAS DEL ESTANQUE";
DS[25]="11UN BOOUETE ENTRE ALGUNAS ROCAS";
DS[26]="41UN CAMINO PELIGROSO";DS[27]="31LA CAMPANA DE PLATA EN LA ROCA";
DS[28]="12LAS MAZNORRAS DE PALACIO";DS[29]="11LA SALA DE BANOUETES";
DS[30]="42LAS TORRES DE PALACIO";
DS[31]="44LA COSTA DE LA ISLA";
DS[32]="31UNA BARCA DE VELA ENCALLADA";
DS[33]="13UN CAMPO SECO";
DS[34]="33UNOS SACOS EN EL PISO SUPERIOR";
DS[35]="46ESTANQUE HELADO";
DS[36]="21LA CABANA DE LA MONTANA";
DS[37]="31UNA HILERA DE BARRILES";
DS[38]="11LA BODEGA DE VINO";
DS[39]="12LA HABITACION DE LOS TAPICES";
DS[40]="11UNA BIBLLOTECA POLVORIENTA";
DS[41]="13MEDIO DE UNAS AGUAS SALVAJES";
DS[42]="11UN CAMPO ARADO";
DS[43]="55EN EL EXTERIOR DE UN MOLINO DE VIENTO";
DS[44]="42EN LA PLANTA BAJA DEL MOLINO";
DS[45]="44UN CAMIND HELADO";
DS[46]="41UN CAMINO INCLINADO Y PEDREGOSO";
DS[47]="12LA CAMARA DE PLATA";
DS[48]="12LA CUEVA DEL MAGO";
DS[49]="11LA HABITACION DE LOS MOSAICOS FLORIDOS";
DS[50]="12LA HABITACLON DEL TRONO DE PLATA";
DS[51]="12MEDIO DEL LAGO";
DS[52]="42LA ORILLA DE UN LAGO HELADO";
DS[53]="41UN CAMINO LLENO DE BACHES";
DS[54]="41LO ALTO DEL PINACULO";
DS[55]="55SOBRE UN GLACIAR";
DS[56]="21UNOS ENORMES ROBLES CAIDOS";
DS[57]="11UNA MABITACION CON UNA MAQUINA TRAGAPERRAS";
DS[58]="11LA HABITACION CON TELAS DE ARANA";
DS[59]="31UNA CAJA FUERTE EN LA CAMARA DE OGBAN";
DS[60]="31UN ARMARIO EN UNA ESQUINA";
DS[61]="11UN PASADIZO ESTRECHO";
DS[62]="16HUECO EN EL PASADIZO";
DS[63]="11LA CABANA DEL LENADOR";
DS[64]="42LA LADERA DEL VALLE CON ARBOLES";
DS[65]="21EL ARROYO EN EL FONDO DEL VALLE";
DS[66]="11UN PROFUNDO Y OSCURO BOSOUE";
DS[67]="11UN SOMBRIO AGUJERO";
DS[68]="34UN CIRCULO DE ANTIQUISIMAS PIEDRAS";
DS[69]="16ESTABLO";
DS[70]="14EL DORMITORIO DEL ATICO CON UNA CAMA";
DS[71]="11EL HUMEDO FONDO DEL POZO";
DS[72]="32UN PROFUNDO POZO";
DS[73]="31UNA HOGERA APAGADA";
DS[74]="16HUERTO CON MANZANOS";
DS[75]="62EL FINAL DEL PUENTE";
DS[76]="62EL FINAL DEL PUENTE";
DS[77]="61UN CRUCE DE CAMINOS";
DS[78]="41UN CAMINO SERPENTEANTE";
DS[79]="11UN PUEBLO DE RUSTICAS CASAS";
DS[80]="11UNA CASITA BLANCA QUE TIENE UNA OLLA";
OS[1]="3MONEDAS";
OS[2]="1SABANA";
OS[3]="3BOTAS";
OS[4]="1HERRADURA";
OS[5]="3MANZANAS";
OS[6]="1CUBO";
OS[7]="4HACHA";
OS[8]="1BOTE";
OS[9]="1FRASCO";
OS[10]="3JUNCOS";
OS[11]="1HUESO";
OS[12]="1ESCUDO";
OS[13]="3TABLAS";
OS[14]="1CUERDA";
OS[15]="1ANILLO";
OS[16]="1JARRA";
OS[17]="1RED";
OS[18]="1ESPADA";
OS[19]="1BANDEJA DE PLATA";
OS[20]="1UNIFORME";
OS[21]="1LLAVE";
OS[22]="3SEMILLAS";
OS[23]="1LAMPARA";
OS[24]="3PAN";
OS[25]="1BROCHE";
OS[26]="3CERILLAS";
OS[27]="2PIEDRA DEL DESTINO";
OS[28]="4MANZANA";
TS[1]="3MONEDAS";
TS[2]="1SABANA";
TS[3]="3BOTAS";
TS[4]="1HERRADURA";
TS[5]="3MANZANAS";
TS[6]="1CUBO";
TS[7]="4HACHA";
TS[8]="1BOTE";
TS[9]="1FRASCO";
TS[10]="3JUNCOS";
TS[11]="1HUESO";
TS[12]="1ESCUDO";
TS[13]="3TABLAS";
TS[14]="1CUERDA";
TS[15]="1ANILLO";
TS[16]="1JARRA";
TS[17]="1RED";
TS[18]="1ESPADA";
TS[19]="1BANDEJA DE PLATA";
TS[20]="1UNIFORME";
TS[21]="1LLAVE";
TS[22]="3SEMILLAS";
TS[23]="1LAMPARA";
TS[24]="3PAN";
TS[25]="1BROCHE";
TS[26]="3CERILLAS";
TS[27]="2PIEDRA DEL DESTINO";
TS[28]="4MANZANA";
TS[29]="CAMA";
TS[30]="ARMARIO";
TS[31]="PUENTE";
TS[32]="ARBOLES";
TS[33]="VELA";
TS[34]="HORNO";
TS[35]="BARCA DE VELA";
TS[36]="LADRILLOS";
TS[37]="MOLINO DE VIENTO";
TS[38]="SACOS";
TS[39]="JABALI DE OGBAN";
TS[40]="RUEDA";
TS[41]="PONY";
TS[42]="LAPIDAS";
TS[43]="ESTANQUES";
TS[44]="COMPUERTAS";
TS[45]="MANILLA";
TS[46]="CABANA";
TS[47]="ENREDADERA";
TS[48]="INSCRIPCIONES";
TS[49]="TROLL";
TS[50]="TIERRA";
TS[51]="BESTIA";
TS[52]="FUENTE";
TS[53]="CIRCULO";
TS[54]="MOSAICOS";
TS[55]="LIBROS";
TS[56]="BARRILES";
TS[57]="POZO";
TS[58]="MUROS";
TS[59]="RATAS";
TS[60]="CAJA FUERTE";
TS[61]="TELAS DE ARANA";
TS[62]="MONEDA";
TS[63]="CAMPANA";
TS[64]="BANDEJA DE PLATA";
TS[65]="PIEDRAS";
TS[66]="COCINAS";
TS[67]="COPA";
TS[68]="VINO";
TS[69]="GRARGS";
TS[70]="PUERTA";
TS[71]="VIGILA";
TS[72]="GUIA";
TS[73]="PROTEGE";
TS[74]="DIRIGE";
TS[75]="AYUDA";
TS[76]="COFRE";
TS[77]="AGUA";
TS[78]="ESTABLOS";
TS[79]="CONPUERTAS";
TS[80]="OLLA";
TS[81]="ESTATUA";
TS[82]="PINACULO";
TS[83]="MUSICA";
TS[84]="PALABRAS MAGICAS";
TS[85]="ESTANQUE CON NIEBLA";
TS[86]="FONDO DEL POZO";
TS[87]="VIEJO HORNO";
TS[88]="CABANA DE LA MONTANA";
XS[1]="EN";
XS[2]="CERCA DE";
XS[3]="AL LADO DE";
XS[4]="EN";
XS[5]="";
XS[6]="EN";
YS[1]="";
YS[2]="";
YS[3]="";
YS[4]="";
YS[5]="";
YS[6]="UN PEQUENO";
strcpy(BS,"NOOEOOSOOOOOROOAOOINVOBTTOMEXALEEDARDECRECPONATAESCIZAUSAABRENCLLEPLAREGBLAVACENTATRQUIALIGIRSUMRESDEJARRINSSOPTIRCOMMOVDENREPCORSOSQUEENVMOSEMPCONBEBCONPAGHACROMROBREUREF");
strcpy(X6S,"SFGMFKBT MB QFOFUSBOUF NJSBEB EFM NBHP! FM NVFSF");
strcpy(X1S,"EL FANTASMA DEL DUENDE GUARDIAN");
strcpy(X2S,"VOB FOPSNF FOSFEBEFSB DSFDF FO TFHVOEPT!");
strcpy(X3S,"UNA PATRULLA DE GRARG SE APROXIMA");
strcpy(X4S,"LAS PALABRAS MAGICAS SE HALLAN EN EL CRUCE, LA FUENTE Y EN ");
strcpy(X5S,"UN MONTON DE TIERRA TE BLOQUEA EL CAMINO");
strcpy(X7S,"LA MONTANA RETUMBA!");
strcpy(X8S,"LAS TORRES SE CAEN!");
strcpy(X9S,"EL MAGO TE MIRA FIJAMENTE");
strcpy(XBS,"TE GUIA HACIA EL ");
ES[1]="E";
ES[2]="ESO";
ES[3]="OE";
ES[4]="EO";
ES[5]="EO";
ES[6]="ESO";
ES[7]="ESO";
ES[8]="ES";
ES[9]="EO";
ES[10]="SO";
ES[11]="S";
ES[12]="N";
ES[13]="ES";
ES[14]="SO";
ES[15]="S";
ES[16]="NO";
ES[17]="N";
ES[18]="N";
ES[19]="ES";
ES[20]="NSO";
ES[21]="NS";
ES[22]="E";
ES[23]="NSO";
ES[24]="N";
ES[25]="NES";
ES[26]="EO";
ES[27]="O";
ES[28]="S";
ES[29]="NS";
ES[30]="N";
ES[31]="NES";
ES[32]="O";
ES[33]="NS";
ES[34]="A";
ES[35]="NES";
ES[36]="SO";
ES[37]="E";
ES[38]="NO";
ES[39]="NS";
ES[40]="S";
ES[41]="NS";
ES[42]="E";
ES[43]="NSEO";
ES[44]="OR";
ES[45]="RA";
ES[46]="NS";
ES[47]="E";
ES[48]="SO";
ES[49]="NSE";
ES[50]="NO";
ES[51]="NE";
ES[52]="EO";
ES[53]="NSO";
ES[54]="E";
ES[55]="ON";
ES[56]="S";
ES[57]="E";
ES[58]="NEO";
ES[59]="NO";
ES[60]="S";
ES[61]="ES";
ES[62]="SO";
ES[63]="NES";
ES[64]="EO";
ES[65]="SO";
ES[66]="NE";
ES[67]="EO";
ES[68]="ESO";
ES[69]="SO";
ES[70]="NA";
ES[71]=".";
ES[72]="E";
ES[73]="NEO";
ES[74]="EO";
ES[75]="NEO";
ES[76]="EO";
ES[77]="EO";
ES[78]="NEO";
ES[79]="NEO";
ES[80]="OR";
limpiar();
printf("QUE QUIERES HACER:\n");
printf(" 1. EMPEZAR \n");
printf(" 2. CONTINUAR AVENTURA \n");
printf("INTRODUCE UN 1 O UN 2 ?");
scanf("%1d%*[^\n]", &c);
while (c < 1 || c > 2 )
{
while (getchar() != '\n')
continue;
printf("INTRODUCE UN 1 O UN 2 ?");
scanf("%1d%*[^\n]", &c);
}
getchar();
if (c==1)
{comenzar();}
fflush(stdin);
return;
}
void main() {
int i,x,VB,B,ch;
char IS[50],VS[50],TS[50],US[50];
char CARACTERES[10],NUMERO[3];
datos();
limpiar();
iniciar:
i=0;
x=0;
LL=0;
IS[0]='\0';
PS[0]='\0';
JS[0]='\0';
JS1[0]='\0';
CARACTERES[0]='\0';
texto[0]='\0';
x=strlen(DS[R])-2;
sprintf(NUMERO, "%d", x);
strcpy(CARACTERES,"%1d%1d%");
strcat(CARACTERES,NUMERO);
strcat(CARACTERES,"c");
/* d%90[^\n] */
sscanf(DS[R], CARACTERES , &numero1,&numero2,texto);
strcpy(PS,XS[numero1] );
if(strlen(PS)>0)
strcat(PS," ");
if(strlen(YS[numero2])>0)
strcat(PS," ");
strcat(JS,RS);
strcat(JS,". ESTAS ");
strcat(JS,PS);
strcat(JS,texto);
strcat(PS," ");
pantalla();
JS[0]='\0';
for (i=1 ; i <= G-1; i++){
sscanf(OS[i],"%1d",&numero1);
strcpy(PS,YS[numero1]);
if (F[i]==0 && C[i]==R){
strcat(JS,PS);
strcat(JS," ");
strcat(JS,OS[i]);
strcat(JS,",");
};
}
if (R==29 && F[48]==0) {strcat(JS," UNA FIESTA DE LOS GRARGS,");}
if (R==29 && F[48]==1) {strcat(JS," UN GRARG DORMIDO,");}
if (R==12 || R==22) {strcat(JS," UN PONY,");}
if (R==64) {strcat(JS," UN HERMITANO,");}
if (R==18 && ES[18]=="N") {strcat(JS," UNA PUERTA DE ROBLE,");}
if (R==59 && F[68]==1) {strcat(JS," OGBAN (MUERTO),");}
if (JS[0]!=0 ) {strcpy(JS1,",PUEDES VER");
strcat(JS1,JS);
strcpy(JS,JS1);}
strcat(JS," Y PUEDES IR ");
pantalla();
strcpy(direccion, ES[R]);
for (i=1 ; i <= strlen(ES[R]); i++){
printf("%c",direccion[i-1]);
if(strlen(ES[R])>i ){ printf(",");}
}
strcpy(RS,"PERDON?");
printf("\nQUE HARAS AHORA?");
fgets(IS,49, stdin) ;
for(i=0;IS[i]!='\0';i++)
{
if(IS[i]>='a'&& IS[i]<='z'){IS[i] = IS[i]-32;}
}
VS[0]='\0';TS[0]='\0';VB=0;B=0;
sscanf(IS,"%s",VS);
x=strlen(IS)-strlen(VS);
sprintf(NUMERO, "%d", x);
strcpy(CARACTERES,"%s%");
strcat(CARACTERES,NUMERO);
strcat(CARACTERES,"c");
sscanf(IS,CARACTERES,VS,TS);
if(TS[0]=='\0'){strcpy(VS,IS);}
if(strlen(VS)<3) {while (strlen(VS)<3)strcat(VS,"O");}
if(strcmp(VS,"PLAY")==0) { strcpy(VS, "BLO"); }
printf("%s %s",VS,TS);
return;
}
