Игра в хоккей

**ss1** · 04.04.2011, 02:56

Игра в хоккей. Вид сбоку. Ворота справа. Шайба летит в ворота из случайной точки слева со случайной скоростью под случайным углом. Перчатка вратаря управляется по вертикали относительно ворот. Шайба либо ловится, либо отскакивает (если попала в край перчатки)

есть часть программы но нет условия "Шайба либо ловится, либо отскакивает (если попала в край перчатки)" и если ловится то должна появится на экране надпись...
помогите пожалуйста дополнить программу

вот часть ее..

Код qbasic:

[Ссылки могут видеть только зарегистрированные пользователи. ] Pi = 3.14159265358#, Gr = Pi / 180
[Ссылки могут видеть только зарегистрированные пользователи. ] Tic [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ] ShX [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], ShY [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ] ShU [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], ShSpd [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ] Px [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], Py [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ] Pd [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], StP [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ] 9
 
Begin:
'Shaiba
ShX = 100
ShY = 300
ShU = 10
ShSpd = 0
'Perchatka
Px = 540
Py = 200
Pd = 20
StP = 10
' 0 - Шайба стоит, 1 - Шайба в двжении, 2 - через 0.5 сек новая шайба
ShId% = 0
[Ссылки могут видеть только зарегистрированные пользователи. ] (Px - 2, 0)-(Px + 2, 479), 0, BF ' Perchatka CL
[Ссылки могут видеть только зарегистрированные пользователи. ] (ShX - 5, ShY - 2)-(ShX + 5, ShY + 2), 7, BF
[Ссылки могут видеть только зарегистрированные пользователи. ] (Px - 2, Py - Pd)-(Px + 2, Py + Pd), 14, BF
[Ссылки могут видеть только зарегистрированные пользователи. ] (550, 100)-(550, 300), 15
[Ссылки могут видеть только зарегистрированные пользователи. ] (550, 100)-(638, 300), 15
[Ссылки могут видеть только зарегистрированные пользователи. ] (550, 300)-(638, 300), 15
f = [Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ](1) GOSUB TimeTic
[Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ] "MB ML T255 P64"
 
DO: K$ = [Ссылки могут видеть только зарегистрированные пользователи. ]
IF K$ = " " THEN
ShU = Gr * 24 * [Ссылки могут видеть только зарегистрированные пользователи. ]
ShSpd = 15
ShId% = 1
[Ссылки могут видеть только зарегистрированные пользователи. ] IF
IF K$ = [Ссылки могут видеть только зарегистрированные пользователи. ](0) + "H" [Ссылки могут видеть только зарегистрированные пользователи. ] Py > 100 THEN Py = Py - StP
IF K$ = [Ссылки могут видеть только зарегистрированные пользователи. ](0) + "P" [Ссылки могут видеть только зарегистрированные пользователи. ] Py < 300 THEN Py = Py + StP
IF ShId% > 0 [Ссылки могут видеть только зарегистрированные пользователи. ] Tic > 0 THEN
Tic = Tic - 1
f = [Ссылки могут видеть только зарегистрированные пользователи. ]
IF ShId% = 1 THEN
' Shaiba CL
[Ссылки могут видеть только зарегистрированные пользователи. ] (ShX - 5, ShY - 2)-(ShX + 5, ShY + 2), 0, BF
' Perchatka CL
[Ссылки могут видеть только зарегистрированные пользователи. ] (Px - 2, Py - Pd - 1)-(Px + 2, Py - Pd - StP), 0, BF
[Ссылки могут видеть только зарегистрированные пользователи. ] (Px - 2, Py + Pd + 1)-(Px + 2, Py + Pd + StP), 0, BF
ShX = ShX + [Ссылки могут видеть только зарегистрированные пользователи. ](ShU) * ShSpd
ShY = ShY - [Ссылки могут видеть только зарегистрированные пользователи. ](ShU) * ShSpd
IF ShX > 639 THEN ShId% = 0: GOTO Begin
' Shaiba
[Ссылки могут видеть только зарегистрированные пользователи. ] (ShX - 5, ShY - 2)-(ShX + 5, ShY + 2), 7, BF
' Perchatka
[Ссылки могут видеть только зарегистрированные пользователи. ] (Px - 2, Py - Pd)-(Px + 2, Py + Pd), 14, BF
' Vorota
[Ссылки могут видеть только зарегистрированные пользователи. ] (550, 100)-(550, 300), 15
[Ссылки могут видеть только зарегистрированные пользователи. ] (550, 100)-(638, 300), 15
[Ссылки могут видеть только зарегистрированные пользователи. ] (550, 300)-(638, 300), 15
[Ссылки могут видеть только зарегистрированные пользователи. ] IF
ELSE Tic = 0
' Perchatka CL
[Ссылки могут видеть только зарегистрированные пользователи. ] (Px - 2, Py - Pd - 1)-(Px + 2, Py - Pd - StP), 0, BF
[Ссылки могут видеть только зарегистрированные пользователи. ] (Px - 2, Py + Pd + 1)-(Px + 2, Py + Pd + StP), 0, BF
[Ссылки могут видеть только зарегистрированные пользователи. ] (Px - 2, Py - Pd)-(Px + 2, Py + Pd), 14, BF
[Ссылки могут видеть только зарегистрированные пользователи. ] IF
LOOP UNTIL K$ = [Ссылки могут видеть только зарегистрированные пользователи. ](27)
 
[Ссылки могут видеть только зарегистрированные пользователи. ]
TimeTic: [Ссылки могут видеть только зарегистрированные пользователи. ] "MB ML T255 P32": Tic = Tic + 1: RETURN

Автор программы: [Ссылки могут видеть только зарегистрированные пользователи. ]

**pingvin** · 04.04.2011, 10:47

Если во время полёта шайбы нажимаешь пробел и она меняет траекторию, это расчёт или недоработка?

**ss1** · 04.04.2011, 12:31

это расчет

**pingvin** · 04.04.2011, 19:37

Проект мне очень понравился, постараюсь помочь ему. Можете всю программу выложить?

**ss1** · 04.04.2011, 20:21

это все что есть.

**pingvin** · 05.04.2011, 12:17

Какие координаты Y начала и конца перчатки?

**ss1** · 05.04.2011, 12:35

если в начальном положении то 180
220

а так там есть Py- координата центра перчатки
Pd- расстояние от центра до краев перчатки по оси У

**pingvin** · 05.04.2011, 12:44

А координата шайбы ShX и ShY, так?

**pingvin** · 05.04.2011, 13:11

Да, так. Держите:

Код qbasic:

[Ссылки могут видеть только зарегистрированные пользователи. ] Pi = 3.14159265358#, Gr = Pi / 180
[Ссылки могут видеть только зарегистрированные пользователи. ] Tic [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ] ShX [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], ShY [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ] ShU [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], ShSpd [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ] Px [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], Py [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ] Pd [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ], StP [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ] probel [Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
probel = 0
[Ссылки могут видеть только зарегистрированные пользователи. ] 9
 
begin:
'Shaiba
ShX = 100
ShY = 300
ShU = 10
ShSpd = 0
'Perchatka
Px = 540
Py = 200
Pd = 20
StP = 10
' 0 - Шайба стоит, 1 - Шайба в двжении, 2 - через 0.5 сек новая шайба
ShId% = 0
[Ссылки могут видеть только зарегистрированные пользователи. ] (Px - 2, 0)-(Px + 2, 479), 0, BF ' Perchatka CL
[Ссылки могут видеть только зарегистрированные пользователи. ] (ShX - 5, ShY - 2)-(ShX + 5, ShY + 2), 7, BF
[Ссылки могут видеть только зарегистрированные пользователи. ] (Px - 2, Py - Pd)-(Px + 2, Py + Pd), 14, BF
[Ссылки могут видеть только зарегистрированные пользователи. ] (550, 100)-(550, 300), 15
[Ссылки могут видеть только зарегистрированные пользователи. ] (550, 100)-(638, 300), 15
[Ссылки могут видеть только зарегистрированные пользователи. ] (550, 300)-(638, 300), 15
f = [Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ](1) GOSUB TimeTic
[Ссылки могут видеть только зарегистрированные пользователи. ] [Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ] "MB ML T255 P64"
 
DO: K$ = [Ссылки могут видеть только зарегистрированные пользователи. ]
IF K$ = " " THEN
[Ссылки могут видеть только зарегистрированные пользователи. ]
probel = 1
ShU = Gr * 24 * [Ссылки могут видеть только зарегистрированные пользователи. ]
ShSpd = 15
ShId% = 1
[Ссылки могут видеть только зарегистрированные пользователи. ] IF
IF K$ = [Ссылки могут видеть только зарегистрированные пользователи. ](0) + "H" [Ссылки могут видеть только зарегистрированные пользователи. ] Py > 100 THEN Py = Py - StP
IF K$ = [Ссылки могут видеть только зарегистрированные пользователи. ](0) + "P" [Ссылки могут видеть только зарегистрированные пользователи. ] Py < 300 THEN Py = Py + StP
IF ShId% > 0 [Ссылки могут видеть только зарегистрированные пользователи. ] Tic > 0 THEN
Tic = Tic - 1
f = [Ссылки могут видеть только зарегистрированные пользователи. ]
IF ShId% = 1 THEN
' Shaiba CL
[Ссылки могут видеть только зарегистрированные пользователи. ] (ShX - 5, ShY - 2)-(ShX + 5, ShY + 2), 0, BF
' Perchatka CL
[Ссылки могут видеть только зарегистрированные пользователи. ] (Px - 2, Py - Pd - 1)-(Px + 2, Py - Pd - StP), 0, BF
[Ссылки могут видеть только зарегистрированные пользователи. ] (Px - 2, Py + Pd + 1)-(Px + 2, Py + Pd + StP), 0, BF
ShX = ShX + [Ссылки могут видеть только зарегистрированные пользователи. ](ShU) * ShSpd
ShY = ShY - [Ссылки могут видеть только зарегистрированные пользователи. ](ShU) * ShSpd
' Shaiba
[Ссылки могут видеть только зарегистрированные пользователи. ] (ShX - 5, ShY - 2)-(ShX + 5, ShY + 2), 7, BF
' Perchatka
[Ссылки могут видеть только зарегистрированные пользователи. ] (Px - 2, Py - Pd)-(Px + 2, Py + Pd), 14, BF
' Vorota
[Ссылки могут видеть только зарегистрированные пользователи. ] (550, 100)-(550, 300), 15
[Ссылки могут видеть только зарегистрированные пользователи. ] (550, 100)-(638, 300), 15
[Ссылки могут видеть только зарегистрированные пользователи. ] (550, 300)-(638, 300), 15
[Ссылки могут видеть только зарегистрированные пользователи. ] IF
ELSE Tic = 0
' Perchatka CL
[Ссылки могут видеть только зарегистрированные пользователи. ] (Px - 2, Py - Pd - 1)-(Px + 2, Py - Pd - StP), 0, BF
[Ссылки могут видеть только зарегистрированные пользователи. ] (Px - 2, Py + Pd + 1)-(Px + 2, Py + Pd + StP), 0, BF
[Ссылки могут видеть только зарегистрированные пользователи. ] (Px - 2, Py - Pd)-(Px + 2, Py + Pd), 14, BF
[Ссылки могут видеть только зарегистрированные пользователи. ] IF
 
COLOR [Ссылки могут видеть только зарегистрированные пользователи. ]([Ссылки могут видеть только зарегистрированные пользователи. ] * (15 - 1)) + 1
IF (ShX >= Px) THEN
IF (ShY > Py - Pd [Ссылки могут видеть только зарегистрированные пользователи. ] ShY < Py + Pd) THEN
[Ссылки могут видеть только зарегистрированные пользователи. ] 1, 1: [Ссылки могут видеть только зарегистрированные пользователи. ] "POYMAL"
ShId% = 0
GOTO begin
ELSE
[Ссылки могут видеть только зарегистрированные пользователи. ] 1, 1: [Ссылки могут видеть только зарегистрированные пользователи. ] "NE POYMAL"
ShId% = 0
GOTO begin
[Ссылки могут видеть только зарегистрированные пользователи. ] IF
ShId% = 0
GOTO begin
 
[Ссылки могут видеть только зарегистрированные пользователи. ] IF
LOOP UNTIL K$ = [Ссылки могут видеть только зарегистрированные пользователи. ](27)
[Ссылки могут видеть только зарегистрированные пользователи. ]
TimeTic: [Ссылки могут видеть только зарегистрированные пользователи. ] "MB ML T255 P32": Tic = Tic + 1: RETURN

Но вы на этом не останавливайтесь. Я думаю что есть смысл её дорабатывать ещё. Да и вообще - на этом не останавливайтесь

**ss1** · 05.04.2011, 18:26

Спасибо большое!!
буду дорабатывать дальше))

Тема: Игра в хоккей

Опции темы

Пользователи, просматривающие эту тему

Похожие темы

Игра в слова

Новая игра: Быки и коровы

Игра ASTEROID

Игра в числа

Моя игра DOSSR.