Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
New bug-fix release 1.2.5-r1513
#4
This is the program. This one does not use custom libraries or binary files so it's enough to post the code here.

Remember that it's best viewed with 3D glasses (well, not really, but I guess it wont be much worse either).



Code:
#include <sinclair.bas>
#include <memcopy.bas>
#include <keys.bas>

memcopy (16384,50000,6912)
    DIM seagull (0 to 18,0 to 7) AS uByte => {{  0,  0,  0, 15, 24, 48, 32, 32} , _
    {      0,  0,  0,  7, 12, 24, 60, 39} , _
    {      0,  0,  0,  0,192, 64,200,156} , _
    {      0,  0,  0,  0,120,204,140,138} , _
    {      0,  0,  0,  0, 64, 72, 72, 72} , _
    {      0,  0,144,144,144,144,152,136} , _
    {     24, 60, 52, 63, 63, 60, 60, 60} , _
    {      0,  0,  0,224,192,  0,  0,  0} , _
    {     32, 39, 56, 49,  3, 14,  0,  0} , _
    {     32,176,146,156,  0,  0,  0,  0} , _
    {     52, 38,102, 68,124,  7,  0,  0} , _
    {    251,  1,  1,  9,  9, 15,  0,  0} , _
    {    104, 40, 62, 48,  0,  0,  0,  0} , _
    {    200, 76, 68, 64,112,  0,  0,  0} , _
    {      7,  1, 14, 31, 15,  0,  0,  0} , _
    {    198,251,123,135,254,252, 80,124} , _
    {     12, 16, 32, 33, 35, 38, 60,  0} , _
    {     88,104, 71, 77, 73, 75, 78,  0} , _
    {      0, 28, 52, 36, 60, 32,160,  0}}
    
    DIM trashsmash (0 to 15,0 to 7) AS uByte =>     {{0,120, 72, 72,252,196,196,  0} , _
    {      0,  0,127,127, 24, 27, 27, 27} , _
    {      0,  0,193,193,  1,243,243, 51} , _
    {      0,  0,243,243,179, 27,251,248} , _
    {      0,  0,254,254,  0,246,247, 55} , _
    {      0,  0, 48, 48, 48, 48,240,240} , _
    {     27, 27, 27, 27,  3,  3,  0,  0} , _
    {    118,246,198, 96,103, 55,  0,  0} , _
    {     12, 12, 13,  3,255,254,  0,  0} , _
    {    118,230,192,128,  0,  0,  0,  0} , _
    {     48, 48,  0,  0,  0,  0,  0,  0} , _
    {     63, 33, 32, 63,  3, 35, 63,  0} , _
    {      0,  0,127, 73, 73,109,109,  0} , _
    {      0,  0, 63,  1, 63, 49, 63,  0} , _
    {      0,  0, 63, 32, 63,  3, 63,  0} , _
    {     32, 32, 63, 33, 33, 49, 49,  0}}

77 DIM MUSICA (0 to 291) AS Byte =>  {7,7,7,7,7,7,6,6,6,9,9,9,9,9,9,9,9,6,6,6,6,6,6,4,4,4,4,4,4,4,4,7,7,7,7,7,7,7,7,7,7,6,6,6,4,4,4,-1,-1,-1,-1,-1,-1,-1,-1,2,2,2,7,7,7,6,6,6,9,9,9,9,9,9,9,9,9,9,9,9,7,7,7,11,11,11,11,11,11,11,11,7,7,7,7,7,7,6,6,6,9,9,9,9,9,9,9,9,6,6,6,6,6,6,4,4,4,4,4,4,                                      4,4,7,7,7,7,7,7,7,7,7,7,6,6,6,4,4,4,-1,-1,-1,-1,-1,-1,-1,-1,2,2,2,7,7,7,6,6,6,9,9,9,9,9,9,9,9,9,9,9,9,7,7,7,11,11,11,11,11,11,11,11,                                               7,7,7,7,7,7,6,6,6,9,9,9,9,9,9,9,9,6,6,6,6,6,6,4,4,4,4,4,4,4,4,7,7,7,7,7,7,7,7,7,7,6,6,6,4,4,4,-1,-1,-1,-1,-1,-1,-1,-1,2,2,2,                                               7,7,7,6,6,6,9,9,9,9,9,9,9,9,9,9,9,9,7,7,7,11,11,11,11,11,11,11,11,7,7,7,7,7,7,6,6,6,9,9,9,9,9,9,9,9,6,6,6,6,6,6,4,4,4,4,4,4,4,4}

  PRINT AT 17,11;PAPER 0;INK 7;FLASH 1;" STOP TAPE ";FLASH 0
  PAUSE 1 : PAUSE 350
1 REM INICIO
  PRINT INK 7;PAPER 0;AT 17,11;"           ";AT 18,11;"           ";AT 19,11;"  ";INK 2;"S";INK 7;" START  "

   FOR MUSIC=0 TO 291:LET MUSIQUILLA= MUSICA(MUSIC):BEEP .05,MUSIQUILLA
   IF MULTIKEYS(KEYS)<>0 THEN GOTO 99: END IF
   IF  MUSIC<145 THEN POKE Uinteger 23675, @trashsmash(0,0): PRINT AT 17,11;PAPER 0;INK 3;"\A";INK 4;"\B\C\D\E\F     ";AT 18,11;INK 5;" \G\H\I\J\K";INK 3;"\L\M\N\O\P"
   ELSE POKE Uinteger 23675, @seagull(0,0): PRINT AT 17,11;PAPER 0;INK 3;BRIGHT 1;"\A\B\C\D\E\F ";INK 7;BRIGHT 1;"\G";INK 2;"\H  ";AT 18,11;INK 3;BRIGHT 0;"\I";BRIGHT 1;"\J";BRIGHT 0;"\K";BRIGHT 1;"\L";BRIGHT 0;"\M";BRIGHT 1;"\N";INK 7;BRIGHT 1;"\O\P";INK 4;BRIGHT 0;"\Q";BRIGHT 1;"\R";BRIGHT 0;"\S":END IF
   NEXT
   GOTO 1


99  CLS:RANDOMIZE

100 DIM udg (0 to 20,0 to 7) AS uByte => {  { 166, 86, 132, 94, 151, 68, 170, 73} , _
      { 178, 53, 34, 113, 106, 33, 82, 121} , _
      { 0, 0, 73, 221, 119, 93, 245, 127} , _
      { 170, 85, 170, 85, 170, 85, 170, 85} , _
      { 22, 27, 7, 3, 3, 2, 7, 15} , _
      { 120, 208, 192, 128, 192, 64, 192, 240} , _
      { 0, 51, 17, 68, 109, 1, 108, 102} , _
      { 0, 116, 102, 18, 182, 128, 44, 108} , _
      { 106, 101, 34, 121, 234, 33, 82, 149} , _
      { 140, 77, 164, 78, 150, 68, 138, 94} , _
      { 255, 127, 63, 31, 15, 7, 3, 1} , _
      { 255, 254, 252, 248, 240, 224, 192, 128} , _
      { 24, 60, 66, 145, 153, 66, 60, 126} , _
      { 14, 17, 24, 52, 122, 126, 60, 24} , _
      { 102, 239, 253, 251, 126, 126, 60, 24} , _
      { 4, 127, 255, 132, 33, 255, 254, 32} , _
      { 126, 129, 129, 129, 129, 110, 24, 56} , _
      { 21, 138, 197, 98, 81, 220, 118, 214} , _
      { 80, 165, 73, 151, 61, 87, 245, 93} , _
      { 1, 3, 6, 13, 26, 53, 106, 213} , _
      { 128, 192, 224, 112, 184, 92, 174,87}}













110 POKE Uinteger 23675, @udg(0,0)





800 REM PANTALLA
PRINT AT 1,13;"______"
PRINT AT 2,10;"__\T\D\D\D\D\D\D\U__"
PRINT AT 3,8;"_\T\D\D\D\D\D\D\D\D\D\D\D\D\U_"
PRINT AT 4,6;"_\T\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\U_"
PRINT AT 5,4;"_\T\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\U_"
PRINT AT 6,3;"\T\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\U"
PRINT AT 7,2;"\T\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\U"
PRINT AT 8,1;"\T\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\U"
PRINT AT 9,0;"\T\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\U"
PRINT AT 10,0;"\R\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\S"
PRINT AT 11,0;"\::\R\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\S\::"
PRINT AT 12,0;"\::\::\R\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\S\::\::"
PRINT AT 13,0;"\K\::\::\R\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\S\::\::\L"
PRINT AT 14,1;"\::\::\::\C\R\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\S\C\::\::\::"
PRINT AT 15,1;"\K\::\::\::\::\C\R\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\D\S\C\::\::\::\::\L"
PRINT AT 16,2;"\::\::\::\::\::\::\C\R\D\D\D\D\D\D\D\D\D\D\D\D\S\C\::\::\::\::\::\::"
PRINT AT 17,2;"\K\::\::\::\::\::\::\::\C\C\R\D\D\D\D\D\D\S\C\C\::\::\::\::\::\::\::\L"
PRINT AT 18,3;"\K\::\::\::\::\::\::\::\::\::\C\C\C\C\C\C\::\::\::\::\::\::\::\::\::\L"
PRINT AT 19,4;"\K\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\L"
PRINT AT 20,5;"\K\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\L"
PRINT AT 21,7;"\K\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\::\L"
PRINT AT 22,9;"\K\::\::\::\::\::\::\::\::\::\::\::\::\L"
PRINT AT 23,11;"\K\::\::\::\::\::\::\::\::\L"

120 DIM atrib (0 to 23,0 to 31) AS uByte => {  {40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40} , _
      {40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40} , _
      {40,40,40,40,40,40,40,40,40,40,40,40,40,32,32,32,32,32,32,40,40,40,40,40,40,40,40,40,40,40,40,40} , _
      {40,40,40,40,40,40,40,40,40,40,32,32,32,32,32,32,32,32,32,32,32,32,40,40,40,40,40,40,40,40,40,40} , _
      {40,40,40,40,40,40,40,40,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,40,40,40,40,40,40,40,40} , _
      {40,40,40,40,40,40,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,40,40,40,40,40,40} , _
      {40,40,40,40,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,40,40,40,40} , _
      {40,40,40,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,40,40,40} , _
      {40,40,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,40,40} , _
      {40,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,40} , _
      {4,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,4} , _
      {46,4,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,4,40} , _
      {46,46,4,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,4,40,40} , _
      {46,46,46,4,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,4,40,40,40} , _
      {40,46,46,46,4,4,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,4,4,40,40,40,40} , _
      {40,46,46,46,46,46,4,4,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,4,4,40,40,40,40,40,40} , _
      {40,40,46,46,46,46,46,46,4,4,32,32,32,32,32,32,32,32,32,32,32,32,4,4,40,40,40,40,40,40,40,40} , _
      {40,40,46,46,46,46,46,46,46,46,4,4,4,32,32,32,32,32,32,4,4,4,40,40,40,40,40,40,40,40,40,40} , _
      {40,40,40,46,46,46,46,46,46,46,46,46,46,4,4,4,4,4,4,40,40,40,40,40,40,40,40,40,40,40,40,40} , _
      {40,40,40,40,46,46,46,46,46,46,46,46,46,46,46,46,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40} , _
      {40,40,40,40,40,46,46,46,46,46,46,46,46,46,46,46,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40} , _
      {40,40,40,40,40,40,40,46,46,46,46,46,46,46,46,46,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40} , _
      {40,40,40,40,40,40,40,40,40,46,46,46,46,46,46,46,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40} , _
      {40,40,40,40,40,40,40,40,40,40,40,46,46,46,46,46,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40}}



130   LET LIN=0: LET COL=0
      FOR COLOR=0 TO 767: POKE (22528+COLOR), atrib(LIN,COL)
      LET COL=COL+1: IF COL>31 THEN LET COL=0: LET LIN=LIN+1: END IF
      NEXT

200 PRINT AT 23,0;PAPER 6;INK 2;"\N";PAPER 5;INK 2;" \O \P \Q"; AT 23,25;PAPER 5;INK 1;"\N \O \P \Q"




900 rem arboles
    DIM ARBOL (0 TO 4 ,0 TO 1) AS ubyte => {{7,12} , _
                                 {15,15} , _
                                 {4,20} ,  _
                                 {10,25} ,  _
                                 {12,6} }

    FOR ARB=0 TO 4
    PRINT AT ARBOL (ARB,0), ARBOL (ARB,1);INK 4;PAPER 0;BRIGHT 1;"\G\H";AT ARBOL (ARB,0)+1, ARBOL(ARB,1);INK 2;PAPER 0;"\E\F"
    NEXT

    'PAUSE 1:PAUSE 0

    rem tiempo
    PRINT PAPER 1;INK 7;AT 20,6;"TIME                "
333 LET RELOJX=INT(RND*10)+4: LET RELOJY=INT(RND*15)+10:IF ATTR(RELOJX,RELOJY)<>32 THEN GOTO 333:END IF
600 REM INICIALIZAR FLECHA
    DIM TIEMPO AS UBYTE: LET TIEMPO=207
    DIM PUNTERO AS UBYTE
    LET PUNTERO=0
    DIM FLECHA (0 TO 7,0 TO 2) AS UBYTE => {{0,0,0} ,_
                                             {2,16,1} ,_
                                             {4,32,2} ,_
                                             {6,48,3} ,_
                                             {25,200,4} ,_
                                             {27,216,5} ,_
                                             {29,232,6} ,_
                                             {31,248,7}}


700 REM INICIALIZAR MARCADOR
    LET CONTPIT=0
    LET CONTENE=0
    DIM BLOQUE AS UBYTE
    DIM PUNT AS UBYTE
    DIM MARCADOR (0 TO 7,0 TO 3) AS UBYTE => {{0,8,1,72} ,_
                                             {16,8,2,40} ,_
                                             {32,8,3,24} ,_
                                             {48,8,4,16} ,_
                                             {200,8,4,16} ,_
                                             {216,8,3,24} ,_
                                             {232,8,2,40} ,_
                                             {248,8,1,72}}


850     REM INICIALIZAR PROTA
          DIM PROTA (5) AS ubyte => {10,15,10,15,1,0}


1000 REM INICIALIZAR ENEMIGOS
    DIM ENEMIGO (0 TO 4 ,0 TO 4) AS UBYTE => {{6,4,6,4,1} , _
                                 {8,3,8,3,1} , _
                                 {10,3,10,3,0} ,  _
                                 {11,4,11,4,0} ,  _
                                 {13,5,13,5,1} }


1100 REM INICIALIZAR PITUFOS

    DIM PITUFO (0 TO 4 ,0 TO 4) AS UBYTE => {{6,27,6,27,1} , _
                                 {8,28,8,28,0} , _
                                 {10,27,10,27,0} ,  _
                                 {11,28,11,28,1} ,  _
                                 {13,26,13,26,1} }
1200 REM IMPRESION PROTA, ENEMIGOS Y PITUFOS

    PLOT INK 3;PAPER 1;TIEMPO,24:DRAW INK 3;PAPER 1;0,7

    PRINT AT PROTA(2),PROTA(3);PAPER 4;INK 0;"\D"
    'LET PROT=PROTA(1)
    'LET RESTP=PROT/2-INT (PROT/2)
    IF PROTA(4)=1 THEN IF PROTA(5)=1 THEN PRINT AT PROTA(0),PROTA(1);INK 2;PAPER 4;"\B": END IF:END IF
    IF PROTA(4)=1 THEN IF PROTA(5)=0 THEN PRINT AT PROTA(0),PROTA(1);INK 2;PAPER 4;"\A": END IF :END IF
    IF PROTA(4)=0 THEN IF PROTA(5)=0 THEN PRINT AT PROTA(0),PROTA(1);INK 2;PAPER 4;"\J": END IF: END IF
    IF PROTA(4)=0 THEN IF PROTA(5)=1 THEN PRINT AT PROTA(0),PROTA(1);INK 2;PAPER 4;"\I": END IF: END IF

    FOR ENE=0 TO 4
    'LET ENEM=ENEMIGO(ENE,1)
    'LET RESTE=ENEM/2-INT (ENEM/2)
    PRINT AT ENEMIGO (ENE,2),ENEMIGO (ENE,3);PAPER 4; INK 0;"\D" ':PAUSE 0
    IF ENEMIGO(ENE,4)=0 THEN PRINT  AT ENEMIGO (ENE,0),ENEMIGO (ENE,1);INVERSE 1;INK 4;PAPER 0;"\B" : END IF
    IF ENEMIGO(ENE,4)<> 0 THEN PRINT AT ENEMIGO (ENE,0),ENEMIGO (ENE,1);INVERSE 1;INK 4;PAPER 0;"\A": END IF
    'PRINT AT ENE,0;ENEMIGO (ENE,0);" ";ENEMIGO (ENE,1)/2;" ";ENEMIGO (ENE,2);" ";ENEMIGO (ENE,3)/2;" ";ENEM;" ";ENEM/2;" ";REST:PAUSE 0
    NEXT


    FOR PIT=0 TO 4
    'LET REST=PITUFO (PIT,1)/2-INT (PITUFO(PIT,1)/2)
    PRINT AT PITUFO (PIT,2),PITUFO (PIT,3);PAPER 4; INK 0;"\D" ':PAUSE 0
    IF PITUFO(PIT,4)=0 THEN PRINT  AT PITUFO (PIT,0),PITUFO (PIT,1);INK 1;PAPER 4;"\J" :END IF
    IF PITUFO(PIT,4)<>0 THEN PRINT AT PITUFO (PIT,0),PITUFO (PIT,1);INK 1;PAPER 4;"\I": END IF
    'PRINT AT PIT,20;PITUFO (PIT,0);" ";PITUFO (PIT,1)/2;" ";PITUFO (PIT,2);" ";PITUFO (PIT,3)/2;" ";REST:PAUSE 0
    NEXT
    
    PRINT PAPER 4;INK 0;AT RELOJX,RELOJY;"\M"

1500 REM ACTUALIZAR VALORES BACKUP
     FOR BACK=0 TO 4
     LET ENEMIGO (BACK,2)=ENEMIGO (BACK,0):LET ENEMIGO (BACK,3)=ENEMIGO (BACK,1):LET ENEMIGO(BACK,4)=ENEMIGO(BACK,4)+1:IF ENEMIGO(BACK,4)>1 THEN LET ENEMIGO(BACK,4)=0:END IF
     LET PITUFO (BACK,2)=PITUFO (BACK,0):LET PITUFO (BACK,3)=PITUFO (BACK,1):LET PITUFO (BACK,4)=PITUFO(BACK,4)+1:IF PITUFO(BACK,4)>1 THEN LET PITUFO(BACK,4)=0:END IF
     NEXT

     LET PROTA(2)=PROTA(0): LET PROTA (3)=PROTA (1): LET PROTA(5)=PROTA(5)+1:IF PROTA(5)>1 THEN LET PROTA(5)=0:END IF

1250 REM MOVIMIENTO PROTA
     IF MULTIKEYS (KEYO)<>0 THEN LET PROTA(1)=PROTA(1)-1 :LET PROTA(4)=0: END IF
     IF MULTIKEYS (KEYP)<>0 THEN LET PROTA(1)=PROTA(1)+1 :LET PROTA (4)=1: END IF
     IF MULTIKEYS (KEYQ)<>0 THEN LET PROTA(0)=PROTA(0)-1 : END IF
     IF MULTIKEYS (KEYA)<>0 THEN LET PROTA(0)=PROTA(0)+1 : END IF

     IF MULTIKEYS (KEYM)<>0 THEN GOSUB 5500: END IF



1300 REM ALEATORIO MOVIMIENTO

    FOR MOX=0 TO 4':PAUSE 0
    FOR MOY=0 TO 1
    LET VALOR=INT (RND*3)-1:LET VALORB=INT (RND*3)-1
    LET ENEMIGO (MOX,MOY)=ENEMIGO (MOX,MOY)+VALOR
    LET PITUFO (MOX,MOY)=PITUFO (MOX,MOY)+VALORB
    'IF VALOR<>0 THEN GOTO 1390: END IF
    'IF VALORB<>0 THEN GOTO 1390: END IF
    'PRINT AT MOX,0;ENEMIGO (MOX,0);" ";ENEMIGO (MOX,1)/2;" ";ENEMIGO (MOX,2);" ";ENEMIGO (MOX,3)/2;" ";REST:PAUSE 0
    'PRINT AT MOX,12;PITUFO (MOX,0);" ";PITUFO (MOX,1)/2;" ";PITUFO (MOX,2);" ";PITUFO (MOX,3)/2;" ";REST:PAUSE 0
1390NEXT : NEXT



1400 REM COMPROBAR LIMITES
    LET LIMPRO=ATTR(PROTA(0),PROTA(1))
    IF LIMPRO=32 THEN GOTO 1410:ELSE LET PROTA (0)=PROTA(2):LET PROTA (1)=PROTA (3):END IF
1410FOR COMPLIM=0 TO 4      
        IF PROTA(0)=RELOJX AND PROTA(1)=RELOJY THEN LET TIEMPO=207:GOSUB 7000:END IF
    'IF ENEMIGO(COMPLIM,1)<ENEMIGO (COMPLIM,3)THEN IF (ENEMIGO(COMPLIM,1)-INT (ENEMIGO(COMPLIN,1)/2=0  THEN LET LIMENE=ATTR(ENEMIGO(COMPLIM,0),INT (ENEMIGO(COMPLIM,1)/2)-1):ELSE LET LIMENE=ATTR(ENEMIGO(COMPLIM,0),INT (ENEMIGO(COMPLIM,1)/2)):END IF:END IF
    'IF ENEMIGO(COMPLIM,1)>ENEMIGO (COMPLIM,3)THEN IF ENEMIGO(COMPLIM,1)-INT (ENEMIGO(COMPLIN,1)/2<>0  THEN LET LIMENE=ATTR(ENEMIGO(COMPLIM,0),INT (ENEMIGO(COMPLIM,1)/2)+1):ELSE LET LIMENE=ATTR(ENEMIGO(COMPLIM,0),INT (ENEMIGO(COMPLIM,1)/2)):END IF:END IF

    LET LIMENE=ATTR(ENEMIGO (COMPLIM,0),ENEMIGO (COMPLIM,1))
    LET LIMPIT=ATTR(PITUFO (COMPLIM,0),PITUFO (COMPLIM,1))

    'PRINT AT COMPLIM,0;ENEMIGO (COMPLIM,0);" ";ENEMIGO (COMPLIM,1)/2;" ";ENEMIGO (COMPLIM,2);" ";ENEMIGO (COMPLIM,3)/2;" ";LIMENE:PAUSE 0
    'PRINT AT COMPLIM,12;PITUFO (COMPLIM,0);" ";PITUFO (COMPLIM,1)/2;" ";PITUFO (COMPLIM,2);" ";PITUFO (COMPLIM,3)/2;" ";LIMPIT:PAUSE 0


    IF LIMENE=32 THEN GOTO 1420: ELSE LET ENEMIGO (COMPLIM,0)=ENEMIGO (COMPLIM,2):LET ENEMIGO (COMPLIM,1)=ENEMIGO (COMPLIM,3):END IF
1420IF LIMPIT=32 THEN GOTO 1430:ELSE LET PITUFO (COMPLIM,0)=PITUFO (COMPLIM,2):LET PITUFO (COMPLIM,1)=PITUFO (COMPLIM,3):END IF
1430NEXT

1450  FOR CHOQUEX=0 TO 4
      IF PITUFO(CHOQUEX,0)=PROTA(0) AND PITUFO(CHOQUEX,1)=PROTA(1) THEN LET CONTPIT=1:GOSUB 3000: END IF
      IF ENEMIGO(CHOQUEX,0)=PROTA(0) AND ENEMIGO(CHOQUEX,1)=PROTA(1) THEN LET CONTENE=1:GOSUB 4000: END IF
      'IF PITUFO (CHOQUEX,0)=ENEMIGO (CHOQUEX,0) AND PITUFO (CHOQUEX,1)=ENEMIGO (CHOQUEX,1) THEN LET CONTPIT=CONTPIT+1:LET CONTENE=CONTENE+1:GOSUB 3000:GOSUB 4000:END IF
      NEXT

1505 REM PUNTOS
     LET BLOQUE=INT (RND*8):IF BLOQUE=PUNTERO THEN LET PUNT=1: ELSE LET PUNT=INT (RND*3)-1: END IF
     LET MARCADOR (BLOQUE,1)=MARCADOR(BLOQUE,1)+PUNT
     IF MARCADOR (BLOQUE,1)<8 THEN LET MARCADOR(BLOQUE,1)=8:END IF
     IF MARCADOR (BLOQUE,1)>MARCADOR(BLOQUE,3) THEN LET MARCADOR(BLOQUE,1)=MARCADOR(BLOQUE,3):END IF
     GOSUB 5000

     IF CONTENE>0 THEN LET CONTENE=CONTENE+1:END IF
     IF CONTPIT>0 THEN LET CONTPIT=CONTPIT+1:END IF
     IF CONTENE>9 THEN LET CONTENE=0:GOSUB 4200: END IF
     IF CONTPIT>9 THEN LET CONTPIT=0:GOSUB 3200: END IF
     IF CONTENE>0 THEN LET BLOQUE=INT (RND*4):LET MARCADOR(BLOQUE,1)=MARCADOR(BLOQUE,1)+1:END IF: GOSUB 5000
     IF CONTPIT>0 THEN LET BLOQUE=INT (RND*4)+4:LET MARCADOR(BLOQUE,1)=MARCADOR(BLOQUE,1)+1:END IF: GOSUB 5000

     LET TIEMPO=TIEMPO-1 :IF TIEMPO<80 THEN GOTO 8000 : END IF
     IF TIEMPO<95 THEN PRINT AT 20,12;PAPER 2;INK 6;FLASH 1;"HURRY UP!": END IF

GOTO 1200




3000      DIM pitufina (0 to 20,0 to 7) AS uByte => {  { 0, 0, 0, 1, 2, 4, 8, 16} , _
      { 7, 56, 192, 0, 0, 0, 0, 0} , _
      { 255, 0, 0, 0, 0, 0, 129, 126} , _
      { 0, 192, 32, 32, 32, 64, 128, 0} , _
      { 32, 32, 32, 64, 64, 64, 64, 64} , _
      { 0, 7, 0, 0, 3, 12, 16, 32} , _
      { 16, 255, 48, 192, 0, 3, 63, 192} , _
      { 248, 6, 1, 1, 8, 228, 50, 2} , _
      { 65, 70, 56, 32, 32, 32, 32, 64} , _
      { 192, 71, 65, 71, 33, 32, 32, 16} , _
      { 7, 232, 24, 11, 55, 48, 128, 104} , _
      { 0, 188, 16, 16, 200, 40, 36, 36} , _
      { 64, 0, 0, 16, 32, 32, 33, 33} , _
      { 145, 139, 136, 137, 137, 136, 150, 17} , _
      { 7, 128, 192, 62, 176, 192, 1, 254} , _
      { 4, 4, 10, 9, 17, 97, 129, 2} , _
      { 0, 0, 219, 218, 218, 154, 155, 0} , _
      { 0, 0, 117, 85, 87, 117, 85, 0} , _
      { 0, 0, 105, 109, 107, 105, 105, 0} , _
      { 0, 0, 119, 37, 37, 39, 37, 0} , _
      { 0, 0, 96, 64, 96, 32, 96,0}}



   POKE Uinteger 23675, @pitufina(0,0)


   PRINT AT 0,0;PAPER 5;INK 1;"\A\B\C\D";AT 1,0;"\E\F\G\H";AT 2,0;"\I\J\K\L";AT 3,0;"\M\N\O\P";AT 4,0;"\Q\R\S\T\U"

   IF INT(RND*3)<2 THEN PRINT AT 0,4;PAPER 5;INK 1;INVERSE 1;"     DNJIQUI DNJACA    ":ELSE PRINT AT 0,4;PAPER 5;INK 1;INVERSE 1;"       DNJOSCAZO!      ": END IF

   POKE Uinteger 23675, @udg(0,0)

     IF CONTPIT>9 THEN GOTO 3150: END IF
     IF PUNTERO>3 THEN LET PUNT=1:ELSE LET PUNT=-1:END IF
     LET MARCADOR (PUNTERO,1)=MARCADOR(PUNTERO,1)+PUNT
     IF MARCADOR (PUNTERO,1)<8 THEN LET MARCADOR(PUNTERO,1)=8:END IF
     IF MARCADOR (PUNTERO,1)>MARCADOR(PUNTERO,3) THEN LET MARCADOR(PUNTERO,1)=MARCADOR(PUNTERO,3):END IF
     GOSUB 5000

3150RETURN

3200 REM BORRADO PITUFINA
   FOR L=0 TO 4: PRINT AT L,0;PAPER 5;"     ";AT 0,4;PAPER 5;"                       ";AT 5,0;PAPER 5;"   ":NEXT
   'LET PROTA(0)=INT(RND*11)+4:LET PROTA (1)=15

   RETURN
  
4000 REM WALTER

4100 DIM walter (0 to 20,0 to 7) AS uByte => {  { 192, 128, 128, 143, 175, 239, 239, 239} , _
      { 0, 0, 127, 207, 207, 207, 207, 199} , _
      { 0, 192, 240, 254, 254, 254, 224, 192} , _
      { 31, 15, 15, 14, 12, 9, 2, 3} , _
      { 241, 240, 193, 227, 230, 224, 224, 225} , _
      { 131, 129, 128, 159, 254, 127, 255, 127} , _
      { 0, 192, 112, 128, 128, 192, 192, 224} , _
      { 3, 0, 0, 0, 0, 2, 3, 13} , _
      { 224, 224, 224, 224, 240, 240, 248, 248} , _
      { 127, 255, 127, 127, 63, 0, 0, 63} , _
      { 96, 112, 128, 0, 16, 24, 141, 15} , _
      { 5, 29, 63, 125, 125, 253, 253, 185} , _
      { 255, 253, 253, 0, 10, 123, 247, 255} , _
      { 31, 15, 135, 207, 239, 127, 255, 255} , _
      { 79, 15, 31, 255, 255, 255, 255, 255} , _
      { 193, 224, 224, 224, 224, 192, 192, 128} , _
      { 0, 0, 139, 138, 138, 171, 82, 0} , _
      { 0, 0, 209, 80, 80, 208, 92, 0} , _
      { 0, 0, 221, 145, 153, 145, 157, 0} , _
      { 0, 0, 192, 64, 128, 64, 64, 0} , _
      { 0, 0, 0, 0, 0, 0, 0,0}}

   POKE Uinteger 23675, @walter(0,0)
  



   PRINT AT 0,27;PAPER 6;"\A\B\C\D";AT 1,27;PAPER 6;"\E\F\G\H";AT 2,27;PAPER 6;"\I\J\K\L";AT 3,27;PAPER 6;"\M\N\O\P";AT 4,27;PAPER 6;"\Q\R\S\T"

   IF INT(RND*3)=0 THEN PRINT AT 1,4;PAPER 0;INK 6;INVERSE 1;"    SHOMER SHABBOS     ":ELSE PRINT AT 1,4;PAPER 0;INK 6;INVERSE 1;"SHUT THE FUCK UP, DONNY": END IF


   POKE Uinteger 23675, @udg(0,0)
  
     IF CONTPIT>9 THEN GOTO 4150: END IF
     IF PUNTERO<4 THEN LET PUNT=1:ELSE LET PUNT=-1:END IF
     LET MARCADOR (PUNTERO,1)=MARCADOR(PUNTERO,1)+PUNT
     IF MARCADOR (PUNTERO,1)<8 THEN LET MARCADOR(PUNTERO,1)=8:END IF
     IF MARCADOR (PUNTERO,1)>MARCADOR(PUNTERO,3) THEN LET MARCADOR(PUNTERO,1)=MARCADOR(PUNTERO,3):END IF
     GOSUB 5000

4150RETURN

4200FOR L=0 TO 4: PRINT AT L,27;PAPER 5;"     ";AT 1,3;PAPER 5;"          ______            ":NEXT
   'LET PROTA(0)=INT(RND*11)+4:LET PROTA (1)=15

   RETURN

5000 REM RAYAS
     PAPER 5
     PLOT OVER 1;INK MARCADOR(BLOQUE,2);MARCADOR(BLOQUE,0),MARCADOR(BLOQUE,1)
     DRAW OVER 1;INK MARCADOR(BLOQUE,2);7,0
    
    
     RETURN
    
    
5500REM PUNTERO
        LET PHMENOS=FLECHA(PUNTERO,0)
        LET ATPHM=ATTR(23,PHMENOS)
        setattr (23,PHMENOS,ATPHM-8)
        LET PUNTERO=PUNTERO+1:
        IF PUNTERO>7 THEN LET PUNTERO=0: END IF
        LET PH=FLECHA(PUNTERO,0)
        LET ATPH=ATTR(23,PH)

        setattr (23,PH,ATPH+8)

        
        return

6000 REM PANTALLA
     memcopy (50000,16384,6912)
     RETURN


7000 PRINT AT 20,11;PAPER 1;INK 3;"               "
     LET RELOJX=INT(RND*10)+4: LET RELOJY=INT(RND*15)+10:IF ATTR(RELOJX,RELOJY)<>32 THEN GOTO 7000:END IF
     RETURN


8000 REM FINAL
     LET SCOENE=0: LET SCOPIT=0
     PAUSE 500
     PAPER 0:BORDER 0:CLS
     POKE Uinteger 23675, @pitufina(0,0)
     PRINT AT 0,0;PAPER 5;INK 1;"\A\B\C\D";AT 1,0;"\E\F\G\H";AT 2,0;"\I\J\K\L";AT 3,0;"\M\N\O\P";AT 4,0;"\Q\R\S\T\U"
     IF INT(RND*3)<2 THEN PRINT AT 0,4;PAPER 5;INK 1;INVERSE 1;"     DNJIQUI DNJACA    ":ELSE PRINT AT 0,4;PAPER 5;INK 1;INVERSE 1;"       DNJOSCAZO!      ": END IF
     POKE Uinteger 23675, @udg(0,0)
     POKE Uinteger 23675, @walter(0,0)
     PRINT AT 19,27;PAPER 6;"\A\B\C\D";AT 20,27;PAPER 6;"\E\F\G\H";AT 21,27;PAPER 6;"\I\J\K\L";AT 22,27;PAPER 6;"\M\N\O\P";AT 23,27;PAPER 6;"\Q\R\S\T"
     IF INT(RND*3)=0 THEN PRINT AT 23,4;PAPER 0;INK 6;INVERSE 1;"    SHOMER SHABBOS     ":ELSE PRINT AT 23,4;PAPER 0;INK 6;INVERSE 1;"SHUT THE FUCK UP, DONNY": END IF
     POKE Uinteger 23675, @udg(0,0)
     LET K=INT (RND*9)+1
     PRINT AT 17,0;INK 6;PAPER 0;"INVADERS SCORE:" ;AT 18,0;"POPULATION: ";MARCADOR(0,1)*K;AT 19,0;"WAR SHIPS: ";MARCADOR(1,1)*K;AT 20,0;"BLUE PEOPLE KILLED: ";MARCADOR(2,1)*K;AT 21,0;"BURNED TREES: ";MARCADOR(3,1)*K
     PRINT AT 6,0;INK 1;PAPER 0;"BLUE PEOPLE SCORE:";AT 7,0;"NDJOSCAZOS: ";MARCADOR (4,1)*K;AT 8,0;"NDJASQUETES: ";MARCADOR(5,1)*K;AT 9,0;"NDJUSCULOS TRIFASICOS: ";MARCADOR (6,1)*K;AT 10,0;"NDJUMBER OF NDJOFFAS: ";MARCADOR(7,1)*K
     FOR SCORE=0 TO 3
     LET SCOENE=SCOENE+MARCADOR(SCORE,1)
     LET SCOPIT=SCOPIT+MARCADOR(SCORE+4,1)
     NEXT
     IF SCOENE>SCOPIT THEN PRINT AT 13,1;INK 6;BRIGHT 1;FLASH 1;"INVADERS WIN!!! 'R' TO RESTART":ELSE PRINT AT 13,0;INK 1;BRIGHT 1;FLASH 1;"BLUE PEOPLE WIN ! 'R' TO RESTART": END IF
     PAUSE 1:FOR A=0 TO 350:NEXT
88 IF MULTIKEYS(KEYR)=0 THEN GOTO 88: END IF
     GOSUB 6000
     PAUSE 200

     GOTO 1
Reply


Messages In This Thread

Forum Jump:


Users browsing this thread: 2 Guest(s)