1 CLEAR
DEFINT A-Z
PLAY "MBl20o4"
RANDOMIZE TIMER
Pt=0
Tiro=0
Vida=5
m$="Û              !              Û"
2 VIEW ?1 TO 25:CLS:VIEW ?2 TO 25
c=40
cp=40
z=0
FOR i=1 TO 25
LOCATE 25,c-15:?"Û                             Û"
NEXT
LOCATE 2,cp-1:?"ÛÛÛ";
LOCATE 3,cp-1:?" Û ";
LOCATE 4,cp-1:?"ÛÛÛ";
LOCATE 5,cp-1:?" Û ";
VIEW ?1 TO 1:LOCATE 1,1:?USING "Pontos : ####00 Tiro : ### Vida :\   \";Pt;Tiro;STRING$(Vida,"þ");:VIEW ?2 TO 25
PLAY "l10cdcd#ffal20"
DO:LOOP UNTIL PLAY(0)=0
t!=TIMER:DO:LOOP UNTIL TIMER-t!>1
DO
LOCATE 2,cp-1:?"ÛÛÛ";
LOCATE 3,cp-1:?" Û ";
LOCATE 4,cp-1:?"ÛÛÛ";
LOCATE 5,cp-1:?" Û ";
t!=TIMER:DO:LOOP UNTIL TIMER-t!>.1
c=c+INT(RND*3-1)
IF c>64 THEN c=64
IF c<16 THEN c=16
LOCATE 2,cp-1:?"   ";
LOCATE 3,cp-1:?"   ";
LOCATE 4,cp-1:?"   ";
LOCATE 5,cp-1:?"   ";
z=z+1
IF z>4 THEN
z=0
LOCATE 25,c-15
SELECT CASE INT(RND*100)
CASE IS<50:?USING m$;CHR$(INT(RND*3)+176)
CASE IS<60:?"Û²²²²²²²²²²                   Û"
CASE IS<65:?"Û          ²²²²²²²²²          Û"
CASE IS<70:?"Û                   ²²²²²²²²²²Û"
CASE IS<75:?"Û²²²²²²²²²²²²²²²²²²²          Û"
CASE IS<80:?"Û          ²²²²²²²²²²²²²²²²²²²Û"
CASE IS<85:?"Û²²²²²²²²²²         ²²²²²²²²²²Û"
CASE IS<90:?"Û²²²²²²²²²²²²²²²²²²²²²²²²²²²²²Û"
CASE IS<95
?"Û";
FOR i=1 TO 29
SELECT CASE INT(RND*5)
CASE 0,1,2:?" ";
CASE 3:?"Û";
CASE 4:?CHR$(178);
END SELECT
NEXT
?"Û"
CASE ELSE:?USING m$;""
END SELECT
ELSE
LOCATE 25,c-15:?"Û                             Û"
END IF
VIEW ?1 TO 1
LOCATE 1,1:?USING "Pontos : ####00 Tiro : ### Vida :\   \";Pt;Tiro;STRING$(Vida,"þ");
VIEW ?2 TO 25
SELECT CASE INKEY$
CASE "<",",":cp=cp-1
CASE ">",".":cp=cp+1
CASE " "
IF Tiro>0 THEN
Tiro=Tiro-1
LOCATE 2,cp-1:?"ÛÛÛ";
LOCATE 3,cp-1:?" Û ";
LOCATE 4,cp-1:?"ÛÛÛ";
LOCATE 5,cp-1:?" Û ";
FOR l=6 TO 25
FOR c2=cp-1 TO cp+1
IF SCREEN(l,c2)=219 THEN 3
NEXT
LOCATE l,cp-1:?"";
SOUND l*100,.1
t!=TIMER:DO:LOOP UNTIL TIMER-t!>.01
LOCATE l,cp-1:?"   ";
NEXT
3 LOCATE 2,cp-1:?"   ";
LOCATE 3,cp-1:?"   ";
LOCATE 4,cp-1:?"   ";
LOCATE 5,cp-1:?"   ";
END IF
CASE CHR$(27):EXIT DO
END SELECT
Atingido=0
FOR i=2 TO 5
FOR j=-1 TO 1
p=SCREEN(i,cp+j)
SELECT CASE p
CASE 219:Ev3=-1
CASE 176:Ev1=-1
CASE 177:Ev2=-1
CASE 178:Ev3=-1
CASE 4:Ev4=-1
END SELECT
NEXT
NEXT
av=Vida
IF Ev1 THEN Pt=Pt+1:Ev1=0:PLAY "o4fff"
IF Ev2 THEN Pt=Pt+5:Ev2=0:PLAY "o4gab"
IF Ev3 THEN Pt=Pt-10:Ev3=0:Vida=Vida-1:FOR i!=1700 TO 200 STEP-500:SOUND i!,i!/1000:NEXT:IF Pt<0 THEN Pt=0
IF Ev4 THEN Pt=Pt+10:Tiro=Tiro+5:Ev4=0:FOR i!=500 TO 2000 STEP 500:SOUND i!,i!/1000:NEXT
IF Vida=0 THEN EXIT DO
IF Vida<>av THEN
COLOR 23,0
LOCATE 2,cp-1:?"ÛÛÛ";
LOCATE 3,cp:?"Û";
LOCATE 4,cp-1:?"ÛÛÛ";
LOCATE 5,cp:?"Û";
t!=TIMER:DO:LOOP UNTIL TIMER-t!>=2
COLOR 7,0
GOTO 2
END IF
LOOP
VIEW ?1 TO 25
CLS
?"Fim do jogo"
?
?USING "Pontos : ####00";Pt
?
?"Quer jogar de novo [S/N] ? ";
DO:a$=UCASE$(INPUT$(1)):LOOP UNTIL a$="S" OR a$="N"
?a$
IF a$="S" THEN 1
SYSTEM