JUEGO M. pPMsrP/1:7:2:2:1: K$="PULSE UNA TECLA" WF=0:EW=0 jT(16,2):CN=0:MO=2000:W(5):WT=0:CM=16:C$(5,8) uC(5):W(1)=10 :W(2)=25:W(3)=15:W(4)=20:W(5)=15 (xC$(1)="MARINERO":C$(2)=" MEDICO":C$(3)="MECANICO":C$(4)=" OFICIAL":C$(5)="COCINERO" 2|U$(4,6):P$(4,5):A(4):P(4):H(4):B(6):D$(6,12 ):JL=8 ((CN*8*H(I))-1)2220 4;A(I)=0"SI NO COMPRAS NADA DE ";P$(I);:2140\ >$"SI SOLO COMPRAS ";A(I);" ";U$(I); H)A(I)=1" DE ";P$(I);:2140\ R"S DE ";P$(I); \" ALGUIEN PODRIA PASAR "; fI=4"SED";:2170z p "HAMBRE" z&"QUIERES VOLVER A PROBAR (S/N)? ";A$ A$"S"A$"N"2170z /A$="S"A(I)=0:I=I-1:2300 A(I)*P(I)MO19,0;"NO TIENES DINERO SUFICIENTE PARA ";A(I);" ";U$(I);" S DE ";P$(I);" POR FAVOR VUELVE APROBAR PULSANDO UNA TECLA":0:A(I)=0:I=I-1:2300 MO=MO-(A(I)*P(I)) ":"PROVISIONES HASTA AHORA:":: K=14: A(K);" ";U$(K); #A(K)=1" DE ";:2290 %A(K)=6"ES DE ";:2290  "S DE "; P$(K) K 7:::"DINERO QUE TIENES AUN: ";MO;" PIEZAS DE ORO."  100d I /19,0;"FIN DEL APROVISIONAMIENTO" 21,0;K$:0 100d L:" ETAPA 3 COMPRA DE MERCANCIAS ================================"::: ~" HAY OTRAS COSAS QUE PODRIAN SERLES UTILES PARA EL VIAJE, POR EJEMPLO ARMAS, MEDICINAS Y MERCANCIAS PARA COMERCIAR." 100d I=16 : 9I=2I=1I=5"UN ";D$(I);:3060 "UNA ";D$(I); " CUESTA ";E(I); +E(I)=1" PIEZA DE ORO":3090 " PIEZAS DE ORO" !"CUANTO QUIERES COMPRAR? : ";A$ A$="0"3160X A$>"0"A$<"2000"31200 & 3090 0 B(I)=(A$) :v(E(I)*B(I))>MO:"NO TIENES DINERO SUFICIENTE PARACOMPRAR ESA CANTIDAD. POR FAVOR INTRODUCE DE NUEVO." :3090 DMO=MO-(E(I)*B(I)) N ::::"DINERO SOBRANTE: ";MO X 75K bI l'19,0;"FIN DE LA ETAPA 3" v21,0;K$:0 W:" AHORA ESTAS LISTO PARA EMPEZAR EL VIAJE."::"CUENTAS CON UNA TRIPULACION DE: " I=15 C(I);" ";C$(I); C(I)1"S":3550 " " I 100d &:" LAS SIGUIENTES PROVISIONES:":: I=14 A(I);" ";U$(I);"S DE ";P$(I) I  100d $':" TAMBIEN POSEES LO SIGUIENTE:":: .I=16 8B(I)=03730 B*B(I)=1B(I);" ";D$(I):3730 L4I=1B(I);" FRASCOS DE MEDICINA":3730 V+I=2B(I);" ";D$(I);"S":3730 `.I=3B(I);" BOLSAS DE SAL":3730 j.I=4B(I);" BALAS DE TELA":3730 t+I=5B(I);" ";D$(I);"S":3730 ~B(I);" ";D$(I);"S" I &:"Y TE QUEDAN ";MO;" PIEZAS DE ORO" 21,0;K$:0 IWT=0:G=1::"COMIENZA EL VIAJE":1:1:7  100d: F:"DIARIO DE NAVEGACION DEL CAPITAN================================" H::" AL EMPEZAR LA SEMANA ";G;" EL ESTADO DE LA TRIPULACION ES:"  I=116 "T(I,1)=04130" C$(T(I,1));" ("; (T(I,2)=-999"MUERTO !!!)" $T(I,2)>75K"MUY SANO)" 6T(I,2)>502T(I,2)75K"SANO)" 9T(I,2)>25T(I,2)502"ENFERMO)" ?T(I,2)>-999T(I,2)25"MUY ENFERMO)" "I ,:100d:100d 1 WW=0 6:I=15 @WW=WW+(C(I)*W(I)) JI T "SALARIOS EN ESTA SEMANA: ";WW ^ :WT=WT+WW h>"TOTAL SALARIAL DEL VIAJE HASTA AHORA ";WT;" PIEZAS DE ORO" r:"DINERO EN FONDO ";MO |21,0;K$:0  C"AL EMPEZAR LA SEMANA ";G;" QUEDAN LAS SIGUIENTES PROVISIONES: " I=14 *A(I)=0A(I)=-9994300 A(I);" ";U$(I);"S DE ";P$(I); Z=(A(I)/(CN*H(I))) $" SUFICIENTES PARA " ;Z;" SEMANAS" I 21,0;K$:0  ="AL EMPEZAR LA SEMANA ";G;" TAMBIEN POSEES LO SIGUIENTE: " I=16 B(I)=04440X 4I=1B(I);" FRASCOS DE MEDICINA":4440X +I=2B(I);" ";D$(I);"S":4440X &.I=3B(I);" BOLSAS DE SAL":4440X 0.I=4B(I);" BALAS DE TELA":4440X :+I=5B(I);" ";D$(I);"S":4440X DB(I);" ";D$(I);"S" XI b*:"DINERO EN FONDO ";MO;" PIEZAS DE ORO" l21,0;K$:0 WT05230n <"NO QUEDA NADA DE ";P$(I) F"::"LA TRIPULACION SE DEBILITA" P WF=10 Z 9300T$ d 5400 nA(I)Z5330 x"QUEDA POCA ";P$(I) S20,0;"QUIERES PONER A LA TRIPULACION A MEDIA RACION DE ";P$(I);" ?" A$ A$"S"A$"N"5260 A$="N"5330 #R(I)=.5:H$="S":WF=5  9300T$ "LA TRIPULACION SE DEBILITA" Z=H(I)*R(I)*CN Z>A(I)Z=A(I)  A(I)=A(I)-Z A(I)0A(I)=-999 (Z;" ";U$(I);"S DE";P$(I);" REPARTIDOS" I "21,0;K$:0 | :"INFORME DE FINAL DE SEMANA"  Z=0 I=116 %T(I,2)-9995570  Z=Z+1 ,T(I,1)=0:T(I,2)=0 CN=CN-1 I Z=05620 "DURANTE ESTA SEMANA "; CN=0"MURIO TODA LA TRIPULACION QUE QUEDABA":::"EL BARCO NAVEGA A LA DERIVA POR EL OCEANO DESIERTO":::"EL JUEGO HA TERMINADO": )Z=1Z;" TRIPULANTE HA FALLECIDO"  Y$="AHORA TE HAS QUEDADO SIN " I=14 A(I)-9995670& Y$;P$(I):Y$="Y " A(I)=0 &I 0 Z=0 :I=116 DZ=Z+T(I,2) NI XZ>7995800 bk::" LA TRIPULACION SE HALLA POR DEBAJO DE LA FORTALEZA TOTAL DE MANERA QUE EL VIAJE PODRIA DURARMAS" l!EW=EW+((800 -Z)/800 ) v JL=JL+(EW) 21,0;K$:0  9998' p MODULO SEIS RC=RM6300  X=(*RM)+1 Q(X)=16300 Q(X)=1:RC=RC+1 X=16110 X16180$ ލ"DURANTE ESTA SEMANA UNA PERSONA CAYO POR LA BORDA DURANTE UNA TORMENTA"''"TU TRIPULACION SE HA REDUCIDO AHORA A ";CN-1;" MIEMBROS" I=116 :T(I,2)0T(I,2)=-9996150 %T(I,2)=-999:I=16 I I$=:I$=""6160:  6300 $X>56310 ) X=X-1 .A(X)06300 8r"DURANTE LA SEMANA PASADA PARTE DE TU ";P$(X);" FUE ARRATRADA"'"POR LA BORDA"''"AHORA TIENES APROXIMADAMENTE "; B*A(X)=A(X)-(A(X)/((*3)+3)) LA(X) 7000X:MODULO SIETE  EVENTO 6 X=76400 X=86500d X=9 6600 X=10 6700, X=11 6800 X=12 6900 X67000X  X=0 =I=116:T(I,2)=-999X=X+1:I (CN-X)<17000X l"DURANTE LA SEMANA UNO DE LOS TRIPULANTES CAPTURO ";:X=(*10 )+11 :X;" KILOS"'"DE PESCADO" )A(3)<0A(3)=0: |A(3)=A(3)+X:X=(A(3)/(CN*H(3))):'"NUESTRA PROVISION DE CARNE ES SUFICIENTE PARA ";X;" SEMANAS"  7000X  EVENTO 7  X=(*10 )+11 (A(4)<0A(4)=0 A(4)=A(4)+X "DURANTE LA SEMANA UN TEMPORAL DE LLUVIA LLENO LOS BARRILES "''"AHORA TU PROVISION DE AGUA ES DE";A(4);" BARRILES SUFICIENTES PARA "'"APROXIMADAMENTE ";(A(4)/(CN*H(4)));" SEMANAS" ( 7000X d EVENTO 8 nEW=EW-.5 x"DURANTE TODA LA SEMANA FUERTES VIENTOS CONTINUIS HACEN BUENA NAVEGACION REDUCIENDO EN MEDIA SEMANA LA DURACION DEL VIAJE"  7000X  EVENTO 9 I=116 #T(I,2)0 6640 1T(I,2)=T(I,2)+(*11 )+5 I T"BUEN TIEMPO DURANTE LA SEMANA. LA TRIPULACION SUBE DE MORAL Y RECUPERA FUERZAS"  7000X , EVENTO10 6 B(1)07000X @"B(1)=(B(1)/2) J~"EN UN DIA DE FUERTE MAREJADA LA MITAD DE LOS MEDICAMENTOS SE HAN ROTO"''"AHORA SOLO TE QUEDAN ";B(1);" FRASCOS" T 7000X  EVENTO 11  B(2)07000X "B(2)=(B(2)/2) r"DESCUBRES QUE LAS ARMAS ESTABAN MAL ALMACENADAS Y LA MITAD SE HAN OXIDADO"'''"TE QUEDAN ";B(2);" ARMAS"  7000X  EVENTO 12  B(4)07000X "B(4)=(B(4)/2) n"LAS RATAS HAN ATACADO VORAZMENTETUS SABROSAS BALAS DE TELA"'''"TE QUEDAN SOLO ";B(4);" BALAS DE TELA" X EVENTO 13 bX13 7300 lA$="S" vo"UN ALBATROS SOBREVUELA EL BARCO"''"ESTE AVE SIEMPRE ES UN BUEN PRESAGIO Y LA TRIPULACION ESTA CONTENTA" 7B(3)(CN*H(3)*(JL-G+1))7300 Y''"SE ESTA TERMINANDO LA CARNE Y EL AVE PESA UNOS 10 KILOS !"''"TE GUSTARIA COGERLA?" I$ %I$(11)="S"7080 G''"EL ALBATROS SE ALEJA VOLANDO"''"TAL VEZ SEA MEJOR ASI":7300 CB(2)0"NO PUEDES,...","NO TIENES ARMAS":7075 &'"HACES UN DISPARO Y ...";:502 #<.5" FALLAS":7075 >'" BUEN TIRO !!"''" EL AVE CAE SOBRE LA CUBIERTA" (A(3)<0A(3)=0  A(3)=A(3)+10 B$="S" u''"AHORA TIENES 10 KILOS MAS DE CARNE, PERO PUEDE SER QUE LA BUENA SUERTE TE ABANDONE A PARTIR DE AHORA"  9998'  MODULO 8  M(6) X=(*10 )+1 X=17390 X=2 EVENTO DEL BOTE  M(1)=17300  M(1)=1 " EL VIGIA INFORMA QUE SE HA AVISTADO UN BOTE SALVAVIDAS A LADERIVA CON CUATRO PERSONAS Y UN COFRE A BORDO"'''" SI ALTERAS TU RECORRIDO PARA RECOGERLOS TARDARAS DOS DIAS MAS"''''"QUIERES RESCATARLOS?" I$ I$"S"I$"N"7440 $I$="S"74808 .:''''"EL BOTE SALVAVIDAS DESAPARECE ENEL HORIZONTE ARRASTRADO CON LA MAREA Y CON LOS POBRES NAUFRAGOSDE LOS QUE NUNCA MAS SE SABRA."'''"ENTRE LA TRIPULACION CORRE EL RUMOR DE QUE HA SIDO INHUMANO Y QUE TRAERA LA MALA SUERTE" 3I$=:I$=""74753 5 7300 8EW=EW+2/7 BCN=16:" NO PUEDES RECOGERLOS PORQUE NO TIENES LUGAR EN EL BARCO"''''" LA MANIOBRA HA SIDO INUTIL, ESTAN CONDENADOS A SER ETERNAMENTE NAUFRAGOS":74753 LX=16-CN VEX<4"EN EL BARCO SOLO HAY SITIO PARA ";X;" PERSONAS MAS"'''' `"RECOGES :"; j X=0 tI=116 ~"T(I,1)07670  X=X+1 #X>4I=16:7670 CN=CN+1 #T(I,1)=(*5)+1 %T(I,2)=(*502)+502 '"1 ";C$(T(I,1)) I '"Y EL COFRE CONTIENE:"  I=14 X=(*10 )+10 X;" ";U$(I);"S DE ";P$(I) (A(I)<0A(I)=0 2 A(I)=A(I)+X <I F 7300 PEVENTO DE EPIDEMIA Z M(2)=17300 d:M(2)=1 n&''"SE DECLARA UNA PAVOROSA EPIDEMIA" x X=1 I=116 BT(I,1)=2T(I,2)>0X=0:I=16 I  Y=1 B(1)>0Y=0 U=((X+Y)*10 )+5 !X=0Y=07900 BX=1Y=1"NO TIENES MEDICO NI MEDICINAS":7900  X=1"NO TIENES MEDICO " *Y=1"NO TIENES NINGUNA MEDICINA " -"MUCHOS DE LOS TRIPULANTES ESTAN AFECTADOS"  X=0 I=116 <.37960 "T(I,2)07960  T(I,2)=T(I,2)-U <T(I,2)<1T(I,2)=-999:X=X+1 I "Y=18000@ ,."SE HAN UTILIZADO LA MITAD DE TUS MEDICINAS" 6-B(1)=((B(1)/2)+.5) @X=08015O E1X=1" Y UN TRIPULANTE MURIO":8015O J!" Y ";X;" TRIPULANTES MURIERON" OI$=:I$=""8060| T 7300 ^ PIRATAS h M(3)=17300 r X=0 |M(3)=1 I=116 #T(I,2)0X=X+1 I X=167300  :K=2 B(2)0K=4 #"EL BARCO ES ATACADO POR PIRATAS" *K=4"NO TIENES ARMAS":8160 "A PESAR DE TUS ARMAS"  X=0 I=116 "T(I,2)08210 &X=X+1:T(I,2)=-999 X=KI=16 I 2X=1"UN TRIPULANTE HA MUERTO":82400 &X;" TRIPULANTES HAN MUERTO" 0I$=:I$=""82400 : 7300 DTIMON N M(4)=17300 X:M(4)=1 b"HAY PROBLEMAS CON EL TIMON" l X=4 vI=116 BT(I,1)=3T(I,2)>0X=1:I=16 I NX=1"A PESAR DE QUE TIENES UN MECANICO EL VIAJE DURARA ";:8360 ;"NO TIENES MECANICO A BORDO, POR LO QUE EL VIAJE DURARA " X;" SEMANAS MAS" EW=EW+X I$=:I$=""8380 7300 TORMENTA M(5)=17300 :M(5)=1 >"DURANTE UNA TORMENTA EL BARCO PIERDE SU RUMBO":X=2 I=116 !BT(I,1)=4T(I,2)>0X=1:I=16 ! I !;X=2"DEBIDO ALA AUSENCIA DE OFICIALES":8490*! ! "PESE A TENER ALGUN OFICIAL" !*"EL VIAJE DURARA "; !/ 8360 !4ISLA !> M(6)=17300 !H:M(6)=1 !R"SEGUN LAS CARTAS MARINAS QUE POSEES VAMOS A PASAR CERCA DE UNA ISLA EN LA QUE QUIZAS ENCUENTRES PROVISIONES Y AGUA, PERO SI TE DESVIAS HACIA ELLA ESO SUPONDRA UNA MAYOR DURACION DEL VIAJE"''''"QUIERES IR A LA ISLA ?" !\I$:I$=I$(11) !fI$"S"I$"N"8540\! !pI$="N"7300 !z"LLEGAS A LA ISLA Y "; !CB$"N""NO ENCUENTRAS NADA"'''"RECUERDA EL ALBATROS":8380 !"ENCUENTRAS:" !I=116 !<.25~8598! !X=(*10 )+5 !A(I)<0A(I)=0 !(A(I)=A(I)+X:X;" ";U$(I);"S DE ";P$(I) !I !D"PERO AHORA EL VIAJE DURARA ";:X=(*2)+1:8360 !MOTIN ! MF=0 !H$="S"F=MF+30 ! NC=0 !I=116 !CT(I,1)=5T(I,2)>0NC=1:I=16 !I !NC=0MF=MF+30 !A$="S"MF=MF-20 !B$="S"MF=MF+30 !CN>12 MF=MF+30 !WT>MOMF=MF+30 ! G>8MF=MF+(*30) !MF<75K7300 !MF>100d8668! !]" LA SITUACION EN EL BARCO ESTA EMPEORANDO Y ALGUNOS DE LOS TRIPULANTES HABLAN YA DE MOTIN" !I$=:I$=""8665! ! 7300 ! :X=0 !,"LA TRIPULACION SE HA AMOTINADO PORQUE:" !PH$="S"X=X+1:'''X;" HAN ESTADO A MEDIA RACION DURANTE PARTE DEL VIAJE" !JNC=0X=X+1:''X;" NO HAY COCINERO Y LA COMIDA ES ASQUEROSA" !CB$="S"X=X+1:''X;" EL ALBATROS ABATIDO TRAJO MALA SUERTE" !>CN>12 X=X+1:''X;"LA TRIPULACION VIVE HACINADA" !MWT>MOX=X+1:''X;" NO HAY SUFICIENTE ORO PARA PAGAR LOS SALARIOS" !GG>8X=X+1:''X;" LLEVAN NAVEGANDO MAS DE OCHO SEMANAS" !"LA TRIPULACION SE APODERA DEL BARCO Y EMPRENDEN EL REGRESO DEJANDOTE A LA DERIVA EN UN BOTE"'"OJALA QUE ALGUIEN TE RECOJA" !&" F I N D E L J U E G O " $TV=116 $^T(V,2)=T(V,2)-WF $c"T(V,2)=09330r$ $h/T(V,2)<1T(V,2)=-999 $rV $| ' G=G+1 'GJL4010 KPULSE UNA TECLA`dH -MARINERO MEDICOMECANICO OFICIALCOCINERO KILO KILO KILOBARRILVEGETFRUTACARNE AGUAbccG!M MEDICAMENTOARMAS LIGERABOLSA DE SALBALA DE TELA CUCHILLO BRILLANTE!~L S6OFA0gzdHNYAHORA TE HAS QUEDADO SIN J