[hackeroid] hscool ONLINE: GW-PITON Sutra 
    

0 'GW-PITON.BAS  hscool sutra
10 DEFINT A-Z:MX=80:MY=25:DIM PX(255),PY(255),S(MX,MY):KEY OFF:CLS:X=(MX+1)/2:Y=
(MY-1)/2:C=32:PX(0)=2:PY(0)=2:DX=1
20 LOCATE Y,X-4,0:PRINT"P I":FOR I=2 TO MY-1:LOCATE 1+MY-I,1:PRINT"³";:LOCATE I,
MX:PRINT"³";:S(1,I)=2:S(MX,I)=2:NEXT
30 LOCATE Y,X:PRINT"T O":FOR I=2 TO MX-1:LOCATE 1,I:PRINT"Ä":LOCATE MY,1+MX-I:PR
INT"Ä";:S(I,1)=2:S(I,MY)=2:NEXT:LOCATE Y,X+4:X=(MX-19)/2:PRINT"N
40 WHILE" "<>INKEY$:LOCATE Y+2,X:PRINT"P R E S S   S P A C E":LOCATE Y+2,X:PRINT
 SPC(21):WEND:LOCATE Y,X:PRINT SPC(15):GOSUB 210
100 T!=TIMER:LOCATE PY(PH),PX(PH):PRINT"0";:I=255 AND(PH+1):PX(I)=PX(PH)+DX:PY(I
)=PY(PH)+DY:IF S(PX(I),PY(I))THEN 990ELSE IF X=PX(I)AND Y=PY(I)THEN GOSUB 200
120 LOCATE PY(I),PX(I):PRINT"1";:S(PX(I),PY(I))=1:PH=I:IF DT THEN DT=0:LOCATE MY
,5:PRINT C"="HEX$(C)"h*"255 AND(PH-PT);ELSE LOCATE PY(PT),PX(PT):PRINT" ";:S(PX(
PT),PY(PT))=0:PT=255 AND(PT+1)
140 I=INSTR(" KHPM",RIGHT$(INKEY$,1)):IF I>1 THEN DX=FIX(I-3.5):DY=2*I-7-3*DX
150 WHILE 1.5/MY>TIMER-T!:WEND:GOTO 100
200 X=2+(MX-3)*RND:Y=2+(MY-3)*RND:IF S(X,Y)THEN 200
210 C=33+(C-32)MOD 223:LOCATE Y,X:PRINT CHR$(C);:DT=1:RETURN
990 LOCATE(MY+1)/2,(MX-21)/2:PRINT"  G A M E   0 V E R  ":LOCATE PY(I),PX(I),1,0
,31
995 K$=INPUT$(1):IF" "=K$THEN RUN ELSE IF K$<>CHR$(27)THEN 995

E-mail: hscool@netclub.ru
Hosted by uCoz