Игра "Бомбардировка"

Исходный текст программы на бейсике (Basic)

СКАЧАТЬ

10 SCREEN 2
20 DIM Z(640,2)
200 X1=INT(RND(1)*100)+80:Y1=INT(RND(1)*50)+100
210 X2=INT(RND(1)*100)+460:Y2=INT(RND(1)*50)+100
220 H1=INT(RND(1)*90)+60:H2=INT(RND(1)*80)+50
230 H3=INT(RND(1)*90)+60:L=INT(RND(1)*80)+280
240 A1=0:A2=0:F1=0:F2=0
290 REM ------------------------------

300 CLS:LINE(0,180)-(639,180)
310 LINE(0,170)-(639,170):PAINT(5,175)
320 LINE(40,180)-(X1,Y1+10):LINE(X1,Y1+10)-(X1+30,Y1+10)
330 LINE(X1+30,Y1+10)-(240,H1):LINE(240,H1)-(L,H2)
340 LINE(L,H2)-(400,H3):LINE(400,H3)-(X2,Y2+10)
350 LINE(X2,Y2+10)-(X2+30,Y2+10):LINE(X2+30,Y2+10)-(600,180)
360 PAINT(X1,Y1+20):X=X1:Y=Y1:GOSUB 1000
370 X=X2:Y=Y2:GOSUB 1000
390 REM ------------------------------

400 LOCATE 1,1:PRINT"GAUCHE ( a =";A1;"; F =";F1;")"
410 PRINT"a =";:INPUT A:PRINT"F =";:INPUT F
420 IF A<0 OR A>90 OR F>1000 OR F<5 THEN PRINT"error !":GOTO 400
425 A1=A:F1=F
430 A=(A/180)*3.1415:VX=(F*COS(A))/5:VY=(F*SIN(A))/10
440 X0=X1+15:Y0=Y1-1:K1=VY/VX:K2=1/(2*VX*VX):N=1
450 GOSUB 1100
460 IF X+X0>=X2 AND X+X0= 465 IF INKEY$="" THEN 460
470 FOR I=1 TO U-1:PSET (Z(I,1),Z(I,2)),0:NEXT I
475 LOCATE 2,1:PRINT" ":PRINT" "
480 GOTO 400
490 REM ------------------------------

500 IF INKEY$="" THEN 500
510 GOTO 200
900 X1=X+1:Y1=Y+1
910 FOR I=1 TO 100
920 X=INT(RND(1)*28)+X1:Y=INT(RND(1)*4)+Y1
930 PSET(X,Y),0:PSET(X+1,Y),0
940 PSET(X,Y+1),0:PSET(X+1,Y+1),0:NEXT I
950 IF INKEY$="" THEN 950
960 GOTO 200
990 REM ------------------------------

1000 LINE(X,Y)-(X+30,Y):LINE(X+30,Y)-(X+30,Y+6)
1010 LINE(X+30,Y+6)-(X,Y+6):LINE(X,Y+6)-(X,Y)
1020 PAINT(X+2,Y+2):RETURN
1090 REM ------------------------------

1100 X=0:U=1:GOTO 1140
1110 IF X+X0<0 OR X>639-X0 OR POINT(X+X0,Y)=1 THEN RETURN
1120 IF Y>0 THEN PSET(X+X0,Y)
1125 Z(U,1)=X+X0:Z(U,2)=Y:U=U+1
1130 X=X+N
1140 Y=Y0+INT(X*(K2*X-K1)):GOTO 1110

На главную

Смотрите, скачивайте, читайте, пишите на e-mail

 

Directrix.ru - рейтинг, каталог сайтов