Важная информация
Страница 1 из 2 12 ПоследняяПоследняя
Показано с 1 по 10 из 13

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

  1. #1 Игра в хоккей 
    Новичок
    Регистрация
    04.04.2011
    Сообщений
    5
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Игра в хоккей. Вид сбоку. Ворота справа. Шайба летит в ворота из случайной точки слева со случайной скоростью под случайным углом. Перчатка вратаря управляется по вертикали относительно ворот. Шайба либо ловится, либо отскакивает (если попала в край перчатки)


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

    вот часть ее..
    Код 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

    Автор программы: [Ссылки могут видеть только зарегистрированные пользователи. ]
    Последний раз редактировалось Konstantin Shcherba; 12.04.2011 в 15:00. Причина: ss1 - пожалуйста соблюдайте авторские права, не следует размещать чужие программы на форуме без разрешения автора
    Ответить с цитированием  
     

  2. #2  
    Модератор Аватар для pingvin
    Регистрация
    11.02.2011
    Сообщений
    389
    Сказал(а) спасибо
    80
    Поблагодарили 75 раз(а) в 48 сообщениях
    Если во время полёта шайбы нажимаешь пробел и она меняет траекторию, это расчёт или недоработка?
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    04.04.2011
    Сообщений
    5
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    это расчет
    Ответить с цитированием  
     

  4. #4  
    Модератор Аватар для pingvin
    Регистрация
    11.02.2011
    Сообщений
    389
    Сказал(а) спасибо
    80
    Поблагодарили 75 раз(а) в 48 сообщениях
    Проект мне очень понравился, постараюсь помочь ему. Можете всю программу выложить?
    Ответить с цитированием  
     

  5. #5  
    Новичок
    Регистрация
    04.04.2011
    Сообщений
    5
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    это все что есть.
    Ответить с цитированием  
     

  6. #6  
    Модератор Аватар для pingvin
    Регистрация
    11.02.2011
    Сообщений
    389
    Сказал(а) спасибо
    80
    Поблагодарили 75 раз(а) в 48 сообщениях
    Какие координаты Y начала и конца перчатки?
    Последний раз редактировалось pingvin; 05.04.2011 в 12:25.
    Ответить с цитированием  
     

  7. #7  
    Новичок
    Регистрация
    04.04.2011
    Сообщений
    5
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    если в начальном положении то 180
    220

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

  8. #8  
    Модератор Аватар для pingvin
    Регистрация
    11.02.2011
    Сообщений
    389
    Сказал(а) спасибо
    80
    Поблагодарили 75 раз(а) в 48 сообщениях
    А координата шайбы ShX и ShY, так?
    Ответить с цитированием  
     

  9. #9  
    Модератор Аватар для pingvin
    Регистрация
    11.02.2011
    Сообщений
    389
    Сказал(а) спасибо
    80
    Поблагодарили 75 раз(а) в 48 сообщениях
    Да, так. Держите:

    Код 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
    Но вы на этом не останавливайтесь. Я думаю что есть смысл её дорабатывать ещё. Да и вообще - на этом не останавливайтесь
    Ответить с цитированием  
     

  10. #10  
    Новичок
    Регистрация
    04.04.2011
    Сообщений
    5
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Спасибо большое!!
    буду дорабатывать дальше))
    Ответить с цитированием  
     

Страница 1 из 2 12 ПоследняяПоследняя
Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Игра в слова
    от Vladislav в разделе Форумные игры
    Ответов: 94
    Последнее сообщение: 20.06.2013, 10:04
  2. Новая игра: Быки и коровы
    от Kakos_nonos в разделе Проекты на Степлере
    Ответов: 2
    Последнее сообщение: 17.11.2012, 17:45
  3. Игра ASTEROID
    от Kakos_nonos в разделе Проекты на Pascal
    Ответов: 2
    Последнее сообщение: 08.07.2012, 13:44
  4. Игра в числа
    от Lika в разделе QBasic
    Ответов: 2
    Последнее сообщение: 24.10.2011, 21:32
  5. Моя игра DOSSR.
    от Абадябер в разделе Проекты на Basic
    Ответов: 26
    Последнее сообщение: 15.04.2011, 03:05
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •