Diferencias

Muestra las diferencias entre dos versiones de la página.

--- es:office_battleships [2022/06/30 00:17] – [Capturas] jevicac
+++ es:office_battleships [2022/06/30 00:23] (actual) – [Descripción] jevicac
@@ Línea 19: / Línea 19: @@
 ===== Descripción =====
+Son las cuatro y media de la tarde de un viernes en el corazón de un ajetreado centro de la ciudad. Usted, el jefe de una gran empresa comercial, tiende a aburrirse bastante simplemente sentado allí contando los clips de papel, por lo que su alegría es abrumadora cuando llega un mensaje a través de su máquina de télex.
+El mensaje dice:
+Estimado,
+¿Estarías interesado en un pequeño juego conmigo para pasar el rato?
+¿horas? Si es así, encienda su computadora e inicie sesión en el mainframe de su empresa: área de usuario 1K97.
+Atentamente, A. Rival.
+Después de haber seguido estas instrucciones, ahora está sentado frente a la terminal de su computadora e inició sesión. La pantalla muestra dos cuadrículas y se le indica que ingrese las ubicaciones de varios muebles de su oficina. Solo ahora te das cuenta de que estás jugando a una versión del juego Battleships, y tu oponente comienza el juego dándote una referencia de cuadrícula y preguntándote si anotó un acierto o un error.
+Si es un acierto, se le pedirá que ingrese un valor correspondiente al acierto del mueble. Una vez hecho esto, o si su oponente falló, se le pide que ingrese una referencia de cuadrícula para intentar golpear el equipo de su adversario. La computadora central, que realiza un seguimiento del juego, le informará si se anotó un golpe.
+El juego continúa hasta que una de las oficinas está completamente vacía y se anuncia el ganador. Sin embargo, tenga cuidado, el mainframe detendrá el juego si hace trampa.
@@ Línea 27: / Línea 43: @@
 <file>
+REM        Office Battleships
+REM          by John Filsak
+REM (c) Computing with the Amstrad
+REM ------------ PCW -------------
+RANDOMIZE PEEK(64504!):e$=CHR$(27):cls$=e$+"E"+e$+"H":ron$=e$+"p":rof$=e$+"q"
+uon$=e$+"r":DEFINT a-z:uof$=e$+"u"
+cof$=e$+"f":con$=e$+"e"
+DEF FNat$(x,y)=e$+"Y"+CHR$(x+32)+CHR$(y+32)
+DIM h(6),h1(6),a$(6),p0$(9,9),p1$(9,9),p2$(9,9),p3$(9,9),na$(6)
+GOSUB 1740:PRINT cof$:k=1:WHILE k=1
+PRINT cls$;ron$;" OFFICE-BATTLESHIPS "rof$;" Please wait while I arrange my furniture."
+GOSUB 1790:GOSUB 180:GOSUB 630
+GOSUB 350:GOSUB 840:GOSUB 1860
+PRINT FNat$(30,0);"Play again? Y/N"
+ans$="YN":GOSUB 1840
+WEND:PRINT cls$;con$:END
+REM Opponent's furniture
+FOR a=6 TO 0 STEP-1:z=(RND*2)+1
+ON z GOSUB 210,280:NEXT:RETURN
+REM Vertical
+x=(RND*10)-a:IF x<0 THEN 210
+y=(RND*9):b=0
+IF x+b>9 THEN 210
+IF p0$(x+b,y)="L" OR p0$(x+b,y)="P" OR p0$(x+b,y)="D" OR p0$(x+b,y)="T" OR p0$(x+b,y)="F" OR p0$(x+b,y)="C" THEN 210
+b=b+1:IF b<=a THEN 230
+FOR c=0 TO a:p0$(x+c,y)=a$(a):NEXT:RETURN
+REM Horizontal
+y=(RND*10)-a:IF y<0 THEN 280
+x=(RND*9):b=0
+IF y+b>9 THEN 280
+IF p0$(x,y+b)="L" OR p0$(x,y+b)="P" OR p0$(x,y+b)="D" OR p0$(x,y+b)="T" OR p0$(x,y+b)="F" OR p0$(x,y+b)="C" THEN 280
+b=b+1:IF b<=a THEN 300
+FOR c=0 TO a:p0$(x,y+c)=a$(a):NEXT:RETURN
+REM Players furniture
+PRINT FNat$(17,0);"My furniture is in position."
+PRINT:PRINT"Now you position yours."
+PRINT:PRINT"Press a key to continue.":WHILE INKEY$="":WEND
+FOR a=6 TO 0 STEP-1:GOSUB 1820
+PRINT FNat$(17,0);"Where would you like to position your ";na$(a);" (";
+FOR z=0 TO a:PRINT a$(a);:NEXT:PRINT")?":PRINT "X co-ordinate (0 to 9) ?";
+GOSUB 1830:x=k-1:PRINT x
+PRINT"Y co-ordinate (0 to 9) ?";
+GOSUB 1830:y=k-1:PRINT y
+IF a>0 THEN PRINT"Horizontal or Vertical ?";:ans$="HV":GOSUB 1840:PRINT MID$(ans$,k,1)
+IF k=1 THEN 520
+REM Vertical
+b=0:IF x+a>9 THEN GOSUB 600:GOTO 390
+IF p1$(x+b,y)="L" OR p1$(x+b,y)="S" OR p1$(x+b,y)="D" OR p1$(x+b,y)="T" OR p1$(x+b,y)="F" OR p1$(x+b,y)="C" THEN GOSUB 600:GOTO 390
+b=b+1:IF b<=a THEN 480
+FOR c=0 TO a:p1$(x+c,y)=a$(a):NEXT:GOTO 560
+REM Horizontal
+b=0:IF y+a>9 THEN GOSUB 600:GOTO 390
+IF p1$(x,y+b)="L" OR p1$(x,y+b)="S" OR p1$(x,y+b)="D" OR p1$(x,y+b)="T" OR p1$(x,y+b)="F" OR p1$(x,y+b)="C" THEN GOSUB 600:GOTO 390
+b=b+1:IF b<=a THEN 530
+FOR c=0 TO a:p1$(x,y+c)=a$(a):NEXT
+FOR p=0 TO 9:FOR q=0 TO 9
+IF p1$(p,q)<>"" THEN PRINT FNat$(13-p,4+q*2);p1$(p,q)
+NEXT:NEXT:NEXT:GOSUB 1820
+d$="Your":x=2:y=27:GOSUB 810:RETURN
+GOSUB 1820:PRINT FNat$(17,0);CHR$(7);"It won't fit there."
+GOSUB 1860:RETURN
+REM Draw grids
+PRINT FNat$(0,0);ron$;SPC(89);rof$
+title$="* * * O F F I C E - B A T T L E S H I P S * * *"
+PRINT FNat$(0,(89-LEN(title$))/2);ron$;title$;rof$
+PRINT FNat$(2,7);ron$;" YOUR OFFICE "rof$;
+PRINT FNat$(8,0);"X";FNat$(15,13);"Y"
+FOR a=0 TO 9:PRINT FNat$(13-a,1);a
+PRINT FNat$(13-a,46);a
+PRINT FNat$(14,3+a*2);a
+PRINT FNat$(14,48+a*2);a
+FOR b=0 TO 9
+PRINT FNat$(13-a,4+b*2);":"
+PRINT FNat$(13-a,49+b*2);":":NEXT:NEXT
+PRINT FNat$(2,53);ron$;" MY OFFICE ";rof$
+PRINT FNat$(8,45);"X";FNat$(15,58);"Y"
+d$="My":x=2:y=72:GOSUB 810:RETURN
+FOR a=0 TO 9:FOR b=0 TO 9
+IF p0$(a,b)="" THEN PRINT FNat$(13-a,49+b*2);":" ELSE PRINT FNat$(13-a,49+b*2);p0$(a,b)
+NEXT:NEXT:RETURN
+PRINT FNat$(x,y);uon$;d$;" objects";uof$;FN at$(x+1,y);uon$;"not destroyed:";uof$
+FOR g=0 TO 6:n$=na$(g):n$=UPPER$(LEFT$(n$,1))+RIGHT$(n$,LEN(n$)-1)
+PRINT FNat$(x+g+4,y);n$:NEXT:RETURN
+REM Your go or opponent's go?
+PRINT FNat$(16,0);
+PRINT"Press a key":WHILE INKEY$="":WEND
+go=0:empty=0:empty1=0:WHILE empty=0 AND empty1=0
+go=go+1:IF go/2<>INT(go/2) THEN GOSUB 1190 ELSE GOSUB 950
+WEND
+IF empty=1 THEN PRINT FNat$(17,0);CHR$(7);"You have destroyed all my furniture. I surrender"
+IF empty1=1 THEN PRINT FNat$(17,0);CHR$(7);"I have destroyed all your furniture. You have lost.":GOSUB 1860
+PRINT:PRINT"Would you like to see where all furniture was ? (Y/N)":ans$="YN":GOSUB 1840:IF k=1 THEN GOSUB 780
+RETURN
+REM Your go
+PRINT:PRINT"Type the co-ordinates of the spot you want to blast."
+PRINT"X co-ordinate (0-9) ?";:GOSUB 1830:x=k-1:PRINT x
+PRINT"Y co-ordinate (0-9) ?";:GOSUB 1830:y=k-1:PRINT y
+GOSUB 1820:empty$="":hit$=""
+IF p2$(x,y)<>"" THEN PRINT FNat$(17,0);CHR$(7);"You have already tried that postion. Pick another.":GOTO 950
+p2$(x,y)=p0$(x,y)
+IF p2$(x,y)="" THEN p2$(x,y)="*":PRINT FNat$(17,0);"Missed!"
+FOR z=6 TO 0 STEP-1
+IF p2$(x,y)=a$(z) THEN hit$=na$(z):h(z)=h(z)-1
+NEXT
+IF hit$<>"" THEN PRINT FNat$(17,0);"You hit my ";hit$;".":GOSUB 1850
+FOR z=6 TO 0 STEP-1
+IF hit$=na$(z) AND h(z)=0 THEN PRINT CHR$(7):PRINT"You have destroyed my ";hit$".":empty$=UPPER$(LEFT$(hit$,1)):GOSUB 1850
+NEXT
+FOR i=0 TO 9:FOR j=0 TO 9
+IF empty$<>"" THEN IF p0$(i,j)=empty$ THEN p2$(i,j)="$"
+NEXT:NEXT
+IF empty$<>"" THEN PRINT FNat$(6+INSTR(initial$,empty$)-1,72);SPACE$(16)
+FOR i=0 TO 9:FOR j=0 TO 9
+IF p2$(i,j)<>"" THEN PRINT FNat$(13-i,49+j*2);p2$(i,j)
+NEXT:NEXT
+IF h(6)=0 AND h(5)=0 AND h(4)=0 AND h(3)=0 AND h(2)=0 AND h(1)=0 AND h(0)=0 THEN GOSUB 1820:empty=1:RETURN
+GOSUB 1820:PRINT FNat$(17,0);"Now is my turn.":RETURN
+REM Opponent's go
+check=0:GOSUB 1580
+IF check=1 THEN GOSUB 1620:GOTO 1220
+xx=INT(RND*10):yy=INT(RND*10):IF p3$(xx,yy)<>"" THEN 1210
+PRINT:PRINT"I am aiming a shot at your grid position X";xx;", Y;yy
+PRINT:PRINT"Is it a hit or a miss? (H/M)"
+k=0:k$="":WHILE k=0 OR k$=""
+IF p1$(xx,yy)="" THEN PRINT FNat$(13-xx,4+yy*2);":":GOSUB 1850 ELSE PRINT FNat$(13-xx,4+yy*2);p1$(xx,yy):GOSUB 1850
+IF p1$(xx,yy)="" THEN PRINT FNat$(13-xx,4+yy*2);ron$;":";rof$:GOSUB 1850 ELSE PRINT FNat$(13-xx,4+yy*2);ron$;p1$(xx,yy);rof$:GOSUB 1850
+k$=UPPER$(INKEY$):k=INSTR("HM",k$):WEND:GOSUB 1820
+IF k=2 THEN c$="":PRINT"Please confirm: I have missed. (Y/N)":ans$="YN":GOSUB 1840:IF k=2 THEN GOSUB 1820:GOTO 1230 ELSE 1350
+IF k=1 THEN GOSUB 1380
+IF k=11 AND k1=7 THEN c$="":GOTO 1350
+IF k=11 THEN h1(k1)=h1(k1)-1
+IF k=12 THEN PRINT:PRINT"Have I hit or missed?  (H/M)":GOTO 1240
+IF c$="hit" THEN p3$(xx,yy)="#" :GOSUB 1480
+IF h1(k1)=0 THEN GOSUB 1510
+IF c$="" THEN p3$(xx,yy)="*":GOSUB 1480
+GOSUB 1820:IF empty1=0 THEN PRINT FNat$(17,0);"Now its your turn."
+RETURN
+c$="hit":PRINT"What have I hit?"
+FOR g=0 TO 7:IF g=7 THEN n$="nothing" ELSE n$=na$(g)
+n$=UPPER$(LEFT$(n$,1))+RIGHT$(n$,LEN(n$)-1)
+PRINT TAB(4)g+1;") ";n$:NEXT
+PRINT "Type the number corresponding to the vessel I have hit. ";
+ans$="12345678":GOSUB 1840:k1=k-1:GOSUB 1820
+IF k=8 THEN PRINT FNat$(17,0);"Please confirm: I have missed.  (Y/N)"
+IF k<8 THEN IF h1(k1)=0 THEN PRINT CHRS(7)"Don't be daft. Your ";na$(k1);" is at the bottom of the sea!":GOSUB 1860:GOSUB 1820:GOTO 1380
+IF k<8 THEN PRINT FNat$(17,0);"Please confirm: I have hit your ";na$(k1)". (Y/N)"
+ans$="YN":GOSUB 1840:k=k+10:RETURN
+FOR p=0 TO 9:FOR q=0 TO 9
+IF p3$(p,q)<>"" THEN PRINT FNat$(13-p,4+q*2);p3$(p,q)
+NEXT:NEXT:RETURN
+PRINT FNat$(20,0);CHR$(7);"I have destroyed your ";na$(k1)
+down=0:FOR i=0 TO 9:FOR j=0 TO 9
+IF p1$(i,j)=a$(k1) THEN p3$(i,j)="$"
+NEXT:NEXT
+PRINT FNat$(6+k1,27);SPACE$(16):GOSUB 1480
+IF h1(0)=0 AND h1(1)=0 AND h1(2)=0 AND h1(3)=0 AND h1(4)=0 AND h1(5)=0 AND h1(6)=0 THEN GOSUB 1820:empty1=1
+RETURN
+FOR i=0 TO 9:FOR j=0 TO 9
+IF p3$(i,j)="#" THEN check=1:RETURN
+NEXT:NEXT:RETURN
+REM Calculate move after hit scored
+IF down=1 THEN 1700
+IF j+1<10 THEN xx=i:yy=j+1:IF p3$(xx,yy)="" THEN RETURN
+FOR t=2 TO 9:IF p3$(xx,yy)="#" AND xx=i THEN IF j+t<10 THEN yy=j+t:IF p3$(xx,yy)="" THEN RETURN
+NEXT
+IF j-1>=0 AND xx=i THEN yy=j-1:IF p3$(xx,yy)="" THEN RETURN
+IF i+1<10 THEN yy=j:xx=i+1:IF p3$(xx,yy)=""THEN RETURN
+FOR t=2 TO 9:IF p3$(xx,yy)="#" AND yy=j THEN IF i+t<10 THEN xx=i+t:IF p3$(xx,yy)="" THEN RETURN
+NEXT
+IF i-1>=0 THEN yy=j:xx=i-1:IF p3$(xx,yy)="" THEN down=1:RETURN
+PRINT FNat$(9,0);CHR$(7);ron$;"I can't find your furniture."
+PRINT " You must have made a mistake. Please start again.";rof$;con$:END
+REM Assorted subroutines
+FOR a=0 TO 6:READ na$(a):NEXT
+initial$="HCFTDPL":FOR a=0 TO 6:a$(a)=MID$(initial$,a+1,1):NEXT:RETURN
+DATA hat stand,chair,filing cabinet
+DATA telex machine,drinks cabinet
+DATA photocopier,large oak desk
+FOR a=0 TO 6:h(a)=a+1:h1(a)=a+1
+NEXT:FOR a=0 TO 9:FOR b=0 TO 9
+p0$(a,b)="":p1$(a,b)="":p2$(a,b)="":p3$(a,b)="":down=0:NEXT:NEXT:RETURN
+PRINT FNat$(17,0);e$+"J":RETURN
+ans$="0123456789"
+k=0:k$="":WHILE k=0 OR k$="":k$=UPPER$(INKEY$):k=INSTR(ans$,k$):WEND:RETURN
+FOR temp=1 TO 800:NEXT:RETURN
+FOR temp=0 TO 2500:NEXT:RETURN
 </file>
@@ Línea 33: / Línea 234: @@
 ===== Controles =====
-        N = NORTE
+        A través de la información en pantalla.
-        S = SUR
-        E = ESTE
-        W = OESTE
-        L = OBSERVAR
-        I = INVENTARIO
-        TOMAR, SALTAR, GOLPEAR, DECIR...
 ===== Carga del programa =====
@@ Línea 52: / Línea 247: @@
   * Listado del programa en revista de gran tirada de la época
-{{:otros:Office_Battleships_01.jpg?170}} {{:otros:Office_Battleships_02.jpg?170}}
+{{:otros:Office_Battleships_01.jpg?170}} {{:otros:Office_Battleships_02.jpg?170}} {{:otros:Office_Battleships_03.jpg?170}}
 ===== Descarga =====
   * {{:otros:Office_Battleships.zip|Office_Battleships }}(juego en formato dsk, comprimido con zip)