Игры на Бейсике своими руками 1996 г.

Игры - текст игры "RIFLE RANGE".


Эта незатейливая игра представляет собой тир. Вам надо нажати-
ем на любую клавишу стрелять по движущимся мишеням из движущегося
влево и вправо ружья. Стреляя, помните, что цели - движутся, поэто-
му необходимо делать некоторое упреждение, стреляя в точку перед
целью.

1 GO ТО 100

2 CLEAR 59999: LOAD "chr"CODE
64600

4 GO SUB 20: RUN

5 SAVE "RIFLE" LINE 2: STOP

8 POKE 23606,88: POKE 23607,2
51: RETURN

9 POKE 23606,0: POKE 23607,60
: RETURN

20 RESTORE 20

22 FOR F=60000 TO 60011: READ
A: POKE F,A: NEXT F

24 FOR F—60050 TO 60061: READ
A POKE F,A: NEXT F

26 FOR F=60100 TO 60134: READ
A: POKE F,A: NEXT F

28 FOR F»60200 TO 60241: READ
A: POKE F,A: NEXT F FOR F=60250
TO 60266:READ A:POKE F,A:NEXT F

30 FOR F=0 TO 167. READ A: РОК
E USR "A,l + F, A: NEXT F

38 DATA 17,64,156,33,0,64,1,0,
27,237,176,201,17,0,64,33,64,156
,1,0.27,237,176,201,33,0,88,1,0,
3,197,62,0,1,100,0,11,60,211,254
,120,177,32,248,54,7,35,54,54,19
3,11,120,177,32,231,201,32,228,2
01

40 data 1,2,0,197,33,0,64,1,0,
4,126,15,119,35,126,7,119,35,11,
120,177,32,243,193,11,120,177,32
,1,201,33,0,80,120,177,197,1,0,4
,32,225,201,33,0,88,1,0,3,58,86,
234,119,35,11,120,177,32,246,201
42 data 108,182,182,182,182,18
2,182,182,182,182,1B2,182,182,18
2,182,182,0,0,28,30,40,126,30,28
,60,62v31,31,15,15,7,3,31,124,25
2,252,248,248,240.224

44 data 3,12,16,35,68,72,145,1
46.146,145,72,68,35,16,12,3,192,
48.8,196,34,18,137,73,73,137,18,
34,196,8,48,192

46 data 1,1,1,3,3,3,31,255,255
,31,3,3,3,1,1,1,128,128,128,192,
192,192.248,255,255,248,192,192,
192,128,128.128

4b data 15,16,36,42,68,64,127,
64,224,16,72,168,68,4,252,4,32,2
4,5,7,53,73,129.255,8,48,64,192,
56,36,2,254

50 data 1,1,1,3,3,255,63,7,128
,128,128,192,192,255,252,224,7,1
5,14,28,56,112,224,192,224,240,1
12,56,28,14,7,3
52 return
100 go sub b: dim h(5): dim hs(
5,10)

110 for f=1 to 5: let h(f)=6000
-(f*1000): next f

120 for f=1 to 5: let н$(г)="сп
ектрум": next f

150 paper 2: ink 0: bright о: в
order 2: cls

160 for f=0 to 3: print paper
5;at f,0; "

": next f
170 for f=0 to pit2 step .1: pl

от ink 6;235+sin (f/pi)*14,160+
cos (f/pi) *14 : draw bright 1; i
nk 6;-(((235+sin (f/pi)*14)-235)
*2),0: next f

175 plot inverse 1; paper 0, i
nk 6;225,156: draw inverse 1; i
nk 6; paper 0:20,0,1.5: draw in
verse*1; paper 0; ink 6;-20,0,-.
75

177 circle inverse 1; ink 6; p
aper 0;232,162,3- plot inverse
1; ink 6; paper 0:233,162

17b circle inverse 1; ink 6; p
aper 0:238,162,3: plot inverse
1; ink 6; paper 0:237,162

179 circle inverse 1; ink 6; p
aper 0:235,157,2

180 plot 0,0: for f=0 to 15: pl
от f,f: draw 15-f.o: plot 255-f,
-f draw f-15,0: next f

200 plot 0,0: draw 4b,48: draw
159,0: draw 48,-48: draw 0,140
draw -250,0: draw 0,-140
210 plot 48,48: draw 0,92- plot
207,48: draw 0,92: plot 16,16:
draw 223,0

220 plot 10,10: draw 0,130: plo
t 20,20- draw 0,120: plot 30,30:
draw 0,110: plot 40,40: draw 0,
100

230 plot 245,10: draw 0,130: pl
от 235,20: draw 0,120: plot 225,
30: draw 0,110: plot 215,40: dra
w 0,100

240 plot 58,48: draw -24,-32: p
lot 68,48: draw -14,-32: plot 78
,48. draw -9,-32: plot 88,4b: dr
aw -5,-32

250 plot 98,48: draw -4,-32: pl
от 108,4b: draw -3,-32: plot 118
,48: DRAW -2,-32: PLOT 128,48 D
RAW 0,-32

260 PLOT 138,48: DRAW 2,-32: PL
ОТ 148,48- DRAW 3,-32: PLOT 158,
48 DRAW 4,-32: PLOT 168,48 DRA
W 5,-32

270 PLOT 178,48: DRAW 9,-32: PL
ОТ 188,48: DRAW 14,-32: PLOT 198
,48: DRAW 24,-32

280 PLOT 48,95: DRAW 159,0: DRA
W 10,-3: DRAW -179,0: DRAW 8,3:
PLOT 38,92: DRAW 0,-2: DRAW 179,
0: DRAW 0,2

290 PLOT 0,140: DRAW 0,2: DRAW
255,0: DRAW 0,-2

300 FOR F=67 TO 187 STEP 20 CI
RCLE INK 7;F,106,10: CIRCLE IN
К 7;F,106,7: NEXT F

310 PRINT PAPER 0; INK 7;AT 2,
6;" МЕТКИЙ СТРЕЛОК

320 PLOT 45,149: DRAW 165,0 DR
AW 0,13: DRAW -165,0: DRAW 0,-13
330 PLOT 80,149: DRAW 0,-6: PLO
T 82,149: DRAW 0,-6 PLOT 175,14
9: DRAW 0,-6: PLOT 173,149' DRAW
0,-6

340 PLOT 80,142: PLOT 82,142: P
LOT 175,142: PLOT 173,142

345 PRINT PAPER 2; INK 6,AT 5,
В;"С";AT 6,B;"DE";AT 5,22;"C";AT
6,22;"DE"

350 PRINT PAPER 7,AT 5,11."<-П
ОПАДИ- > ";AT 11,12:"ВАШ СЧЕТ" ;< PA
PER 0;AT 12,13;" ";AT 14,6;

" ";AT 15,6;"

360 PRINT PAPER 7;AT 0,11;"ПАТ
•РОНЫ "; PAPER 0;" ": PRINT PA
PER 0;AT 20,2;"

";AT 21,1; INK 7;"

НАЖМИТЕ ЛЮБУЮ КЛАВИШУ "
363 PAUSE 0: PRINT AT 21.1; PAP
ER 0;"

": RANDOMIZE USR 60000
365 GO TO 2000

367 BORDER 0

368 LET SC=0: LET BON=1000: LET
TAM=51

369 RANDOMIZE USR 60050

370 LET C0=0: LET A=15: LET F=0
: LET X-l: LET AM=TAM: LET G0=10
00

375 PRINT PAPER 0, INK 6;AT 0,
19; AM
380 GO SUB GO
390 LET F=0 LET AM=AM-1
400 PRINT PAPER 0, INK 6;AT 0,
19;AM;" "

500 PRINT PAPER 0; INK IN;AT 1
4,6,A$;AT 15,6;B$
510 IF INKEYSO"" THEN LET F-=l
: BEEP .01,-10

520 LET A$=AS(2 TO )+AS(1): LET
B$=B$(2 TO )+B$(l)
530 PRINT INK 5; PAPER 0;AT 20
,A;" A ";AT 21,А;" В "
540 LET A=A+X
550 IF A<7 THEN LET X=1
560 IF A>23 THEN LET X=-l
570 IF F=1 AND CODE (B$(A-5))>3
2 THEN GO TO 600

580 IF F=1 THEN LET F=0: LET A
M=AM-1

585 IF AM=0 THEN GO TO 3000
590 GO TO 400
600 BEEP 01,20
610 LET CO=CO+l
620 LET BS(A-5)=" "
630 IF CODE (B$(A-6 J)>32 THEN
LET BS(A-6)=" "
640 if code (b$(a-4))>32 then
let b$(a-4)-" "
650 let a$(a-6 to a-4)-" "
660 let sc-sc+va: print ink rn
d*6+l, paper 0;at 12,13;sc;" "
670 if co-5 then let go=go+10:
go to 380

675 if am=»0 then go to 3000
680 go to 580
1000 let va-100: let in-6: let a
$-"c с с с с "• let
b$="de as d£ de de ": retur
n

1010 let co-o: let va=»200: let i
n-7: let a$-"fh fh fh fh ffl
let b$-"gi ci si и 51
": return
1020 let co-o: let va=300: let i
n—4: let a$="jl 3l 3l jl jl
" . let b$-"km km km km km
": return
1030 let c0=0: let va=400: let i
n-5: let a$-"no no no no no
" : let b$="pq pq pfi pq pfl
": return
1040 let c0=0: let va=500 let i
n=3: let a$="r£ rs rs rs rs
" : let b$-"tu tu tu tu tu
": return
1050 let co-o. let va-600 let i
n=7: let a$="rs с fh 3l no
" . let b$-"tu de gi km pq
": return
1060 for f-0 to 10: for g=7 to 0
step -1: poke 59990,g: randomiz
e usr 60250- beep .001,f*2+20: n
ext g: next f

1065 randomize usr 60050- beep
01,20

1070 print at 20,a;" ";at 21,a;

" ": let sc-sc+bon: let tam-tam
-5

1080 if tam<30 then let sc-sc+1
0000: go to 3000
1090 go to 370

2000 border 0: paper 0: ink 7: с
ls

2001 let col=rnd*5+l

2005 for f-4 to 5: print ink co
l;at f . 0 : "32*1(76" : at f+13,0;
"32*q7". next f
2010 print ink col;at 8,6;
"jg*,tg?I1Я4,Q2,jqS,sp,
ia4 ,a2,so,ia4,ig7.iq4,iaS.igl,
2*qS , q3 , <j5 ,Q3 ,11* sp, iq4 , iq7 ,(75 ,
sp.ia4,sp,ia5,sp,ig4,2*so.ia4,
i<77 , i<74 . 2*iaS . q7 , 3*qS , cj2 .11*SD ,
2*q2 ,ct3 ,2*42 ,sp,q3 ,Q2 ,Q3 ,a2 ,sp,
5*a2,2*al,g3,ql,a3"
2020 print at 12,0;

нажмите: 1 - инструкция"11"
2 - старт игры"
2025 for f=0 to 500
2028 randomize usr 60200
2030 if inkeys="1" then beep .0
1,10: go to 2060

2040 if inkey$="2" then beep .0

1,10: go to 367

2050 next f

2055 cls go to 3190

2060 cls : ink 0

2070 print '" стрельба по мишен

ям произво-......дится любой клав

ИШЕЙ."

2080 print '" когда у вас не ос

танется пат-......ронов, игра буде

т закончена."

2090 print '" если вы сумеете п
оразить все"' "'цели, вы получит
е призовые очки"''"и игра будет

ПРОДОЛЖЕНА С ПОЛ-......НЫМ БОЕЗАП

АСОМ."

2095 PRINT .....НАЖМИТЕ ЛЮБУЮ КЛА

ВИШУ.": RANDOMIZE USR 60100: BOR
DER О

2096 PAUSE 0: CLS

2100 PRINT " ВО ВРЕМЯ ИГРЫ ВАШЕ
РУЖЬЕ ПЕ-"'•"РЕМЕЩАЕТСЯ ВЛЕВО
И ВПРАВО В НИЖ-"1'"НЕЙ ЧАСТИ ЭК
РАНА. КОГДА ОНО ДОС-"''"ТИГАЕТ

КРАЯ ЭКРАНА, НАПРАВЛЕ-......НИЕ

ПЕРЕМЕЩЕНИЯ МЕНЯЕТСЯ."
2110 PRINT '" ПОМНИТЕ: ТАК КАК
ОГОНЬ ВЕДЕТСЯ" ' ' "ПО ДВИЖУЩИМСЯ ц
ЕЛЯМ, НЕОБХОДИМО"''"ПРИ ВЫСТРЕЛ
Е ДЕЛАТЬ УПРЕЖДЕНИЕ."

2120 PRINT .....НАЖМИТЕ ЛЮБУЮ КЛА

ВИШУ.": RANDOMIZE USR 60100: BOR
DER О

2130 PAUSE 0: CLS
2140 PRINT

С С С С С ДАЕТСЯ ПО

DE DE DE DE D£ 100 ОЧКОВ"
2150 PRINT '

FH FH FH FH FH ДАЕТСЯ ПО
GI GI GI GI GI 200 ОЧКОВ"
2160 PRINT 1 "

JL JL JL JL JL ДАЕТСЯ ПО
КМ КМ КМ КМ КМ 300 ОЧКОВ"
2170 PRINT '

NO NO NO NO NO ДАЕТСЯ ПО
£2 £2 PQ PQ PQ 400 ОЧКОВ"
2180 PRINT ' "

RS RS RS RS RS ДАЕТСЯ ПО
TU TU TU TU TU 500 ОЧКОВ"
2190 PRINT ' "

С FH OL NO RS ДАЕТСЯ ПО
DE GI KM PQ TU 600 ОЧКОВ"

2200 PRINT .....НАЖМИТЕ ЛЮБУЮ КЛА

ВИШУ.": RANDOMIZE USR 60100: BOR
der о

2210 pause 0: ink 7: cls : go to
2001

3000 for f»0 to 0 step -1: poke
59990,f: randomize usr 60250: be
ep .01,f*2: pause 10: next f: bo
rder 0: beep .2,-20: cls
3010 if sc>h(5) then go to 3050
3020 print flash 1;at 8,9;"ваш
счет " ;sc

3030 print ink 7;at 16, 6: "нажми

те любую клавишу"

3040 pause о: go то 2000

3050 let н$ ( 5 )="" : print " пожа
луйста введите ваше имя"

3051 print at 10,10;"(----------

)": print at 15,9;"ваш счет ";sc

3052 let g=l: poke 23658,0
3054 pause 0

3056 let l$=inkey$: beep .005,10

3058 if ls=chr$ 13 then go to 3
080

3059 if g>1 and l$=chr$ 12 then
let h$(5,g)="": print chr$ 8;"-

";chr$ 8;: let g=g-1: go to 3054

3060 let h$(5,g)=l$

3062 print at 10,g+10;l$;
3064 let g=g+1

3066 if g<11 then go to 3054
3080 cls

3100 let h(5)=sc
3110 let zx=4
3120 for f=1 to zx
3130 if h(f)>=h(f+1) then go to
3160

3140 let v=h(f): let h(f)»h(f+1)
: let h(f+1)=v

3150 let v$=h$(f): let h$(f)=h$(
f+l): let hj(f+1)=v$
3160 next f
3170 let zx=zx-1
3180 if zx>0 then go to 3120
3190 print at 0,2; ink rnd*6+1;
"2*ia5. ia4 ,a2,sp, 2*iaS, ia4 , 2*ig5,
sp,ia5,2*sp,ia4,ias,ia4,a2.sp.
io4,q2.ia4,ia5,2*ia4,ia5.ia4.a2.
4*sp ,a7 ,q2 , ia4, 2*SP ,ia4, ia5 . ia4 ,
2*xa5 .sp, ia5 ,2*sp. 2*ia5 , ia4 ,
2*sp,iq4,sp,ia4,4*ia5,ia4,5*sp,
al,sp,a3,32,so,4*Q2,аЗ,a2,аз,a2.
sp,a3,2*a2,2*SP,Q2.sp,5*a2.a3.
Я2'
3200 for f=1 to 5: print ink f+

2 ; at (f*2) +3,0; f;11--------";h$

(f);at (f*2) + 3,21;" ---- ";h(f)

next f

3400 print at 18,6;"нажмите любу

Ю КЛАВИШУ."

3405 for f-0 to 1000

3410 if inkey$<>"" then go to 3

65

34 20 next f: go to 2000




СОДЕРЖАНИЕ:


  Оставте Ваш отзыв:

  НИК/ИМЯ
  ПОЧТА (шифруется)
  КОД



Темы: Игры, Программное обеспечение, Пресса, Аппаратное обеспечение, Сеть, Демосцена, Люди, Программирование

Похожие статьи:
В приложении - демо-версия игры "CМАГЛИ-3".
REX for GS - Очередная картинка из Рекса. :-)
Железо - Чей компьютер является более фирменным.
Inferno - Вступление от редактора.
НАM ПИШУT - Moroz, Nuts, Shiru Оtaku.

В этот день...   29 марта