в data положить папку hanoy с рисунками

Вопрос алгоритма преследования был реализован мной почти два года назад в игрушке под названием четыре шара в версии 2. Отмечу что это была заря изучения RFO. Поэтому код в игре п...ц, но в ней есть тот самый алгоритм. В первой версии использовал направления под углом в 45 и 90 градусов - наипростейший с применением условий. А вот во второй суть сводится к вычислению длины диагонали между двумя точками и вычисления угла относительно друг друга,движение точки это как бы увеличивающийся радиус круга, сам круг и радиус естественно не видно, а вот точка радиуса-окружности показана. Вообщем кому надо.

Видел тут вопрос по кнопкам. Решил помочь. Накатал демку по работе с функцией click(). Коментарии в листинге.

Открыть спойлер

Закрыть спойлер

[копировать] [скачать]

1. ! Демонстрация работы функции click()
2. ! Значения возвращаемые функцией открывают
3. ! богатые возможности для регистрации
4. ! событий и  анимации кнопок.
5. ! В целях демонстрации тут реализована простенькая
6. ! анимация на события.
7. ! Для того, чтобы поймать момент самого клика
8. ! в программе ипользована пауза, чтобы получить
9. ! максимальное быстродействие, читаем листинг
10. ! и выключаем  блок программы с паузой, который
11. ! ловит клик и тормозит процесс, чтобы мы смогли его
12. ! увидеть.
13.  
14.  
15. gr.open 255,100,100,100,0,1
16. gr.screen sw,sh
17. gosub gr_functions
18.  
19. ! Задаем координаты четырех областей касаний,
20. ! а также - цветных прямоугольников (кнопок)
21. ! lt - left, tp - top, rt - right, bt - bottom
22. array.load lt[],        0,  sw/2,  sw/2,         0
23. array.load tp[],       0,         0,   sh/2,   sh/2
24. array.load rt[], sw/2,     sw,       sw,  sw/2
25. array.load bt[], sh/2,  sh/2,        sh,       sh
26.  
27. !Задаем цвета прямоугольникам (кнопкам)
28. array.load r[],  255, 100, 255, 100
29. array.load g[], 100, 255, 255, 100
30. array.load b[], 100, 100, 100, 255
31.  
32. ! И отрисовываем
33. dim rct[4]
34. for i=1 to 4
35.    gr.color 150, r[i], g[i], b[i],1
36.    gr.rect rct[i], lt[i], tp[i], rt[i], bt[i]
37. next
38.  
39. ! Границы кнопок обозначим линиями.
40. gr.color 255,0,0,0,0
41. gr.set.stroke 3
42. gr.line ln,sw/2,0,sw/2,sh
43. gr.line ln,0,sh/2,sw,sh/2
44.  
45. ! Создаем лейблы с информацией о статусе  кнопок.
46. ! Четыре кнопки - четыре лейбла.
47. dim tx[8]
48. gr.color 255,255,255,255,1
49. tx[1]=tx(sw/4,sh/4,"")
50. tx[2]=tx(sw/4*3,sh/4,"")
51. tx[3]=tx(sw/4*3,sh/4*3,"")
52. tx[4]=tx(sw/4,sh/4*3,"")
53.  
54. ! Под лейблами со статусом, покажем информацию о
55. ! том, находится ли программа на паузе.
56. ! Создаем еще четыре лейбла под статусными.
57. ! И сразу делаем их невидимыми, чтобы показывать
58. ! в нужный момент.
59. ps$="Включена пауза"
60. gr.color 0
61. tx[5]=txp(sw/4,sh/4+sh/30,ps$)
62. tx[6]=txp(sw/4*3,sh/4+sh/30,ps$)
63. tx[7]=txp(sw/4*3,sh/4*3+sh/30,ps$)
64. tx[8]=txp(sw/4,sh/4*3+sh/30,ps$)
65.  
66. gr.render
67.  
68. ! Массиву cl[] - будет возвращаться
69. !  значение функции click(),
70. ! а массиву s$[] - будем задавать значение статусных лейблов, для удобочитаемости листинга, хотя
71. ! он (массив) и не нужен.
72. dim cl[4], s$[4]
73.  
74. ! Переменная fltch - ключ управления опросом кнопок
75. ! Прослушивание кнопок начинается в момент
76. ! касания экрана.
77. ! Состояние fltch=1, при загрузке программы,
78. ! установлено для  определения статуса кнопок и вывода на экран их значений.
79. fltch=1
80.  
81. DO
82.   ! Можно было обойтись и без  gr.touch
83.   ! команда нужна для более стабильной работы, чтобы
84.   ! нажатие на кнопку не происходило в середине цикла
85.   ! опроса кнопок, это приводило бы к тому, что более
86.   ! старшая кнопка в цикле не понимала когда нажали
87.   ! не на нее
88.   ! Если мы не хотим регистрировать стабильное
89.   ! состояние 10 функции click(), мы можем смело
90.   ! стереть  ( if !fltch then gr.touch fltch, xtch, ytch),
91.   ! удалить переменную fltch, и оставить в цикле DO
92.   ! только слушатель gosub Listener
93.  
94.   ! fltch обнуляется в подпрогр. stand_by
95.  
96.   if !fltch then gr.touch fltch, xtch, ytch
97.   if fltch then gosub Listener
98. UNTIL 0
99.  
100.  
101. ! Ну понеслась
102. Listener:
103.   for i=1 to 4
104.     ! Массив cl[]  нужен не только
105.     ! для  возвращения
106.     ! значений функции click(),  он нужен еще и
107.     ! для передачи в нее, ее же состояния,
108.     ! поэтому он присутствует одним из
109.     ! аргументов функции, по сути, являясь ее
110.     ! входящими данными.
111.     ! Так же функция принимает координаты
112.     ! нажатий на экран lt,tp,rt,bt, указанные в начале
113.     ! программы
114.  
115.     cl[i]=click(lt[i],tp[i],rt[i],bt[i],cl[i])
116.  
117.     ! click() -  возвращает значения событий кнопок.
118.     ! 0 - режим ожидания (прослушивание).
119.     ! 1 - нажатие и удержание кнопки (кнопка вниз).
120.     ! 2 - нажатие-отпускание кнопки (клик).
121.     ! И 10 - это тот момент, когда что-то нажато, но
122.     ! не сама кнопка.
123.     ! Также click() понимает, когда на кнопку надавили
124.     ! и съехали с нее не отрываясь от экрана,
125.     ! это прекращает регистрацию клика
126.  
127.     !Событие "Клик" происходит одномоментно без
128.     !всяких
129.     !повторений, поэтому далее используем паузу для
130.     !регистрации этого события.
131.  
132.     ! Чтобы не нагромождать код, уводим события в
133.     !  отдельные процедуры
134.     if cl[i]=1 then   gosub Down
135.     if cl[i]=2 then   gosub Clicked
136.     if cl[i]=10 then gosub No_down
137.  
138.   next
139.  
140.       ! Узнаем все ли кнопки перешли в режим ожидания
141.       ! Если все, то stand_by
142.       if !cl[1] & !cl[2] & !cl[3] & !cl[4] then gosub Stand_by
143.  
144.   gr.render
145.  
146. Return
147.  
148.  
149. ! При желании можно расписать процедуры для
150. !  каждой кнопки типа Вutton1_Down, Button1_Click
151. ! Button2_noFocus и так далее...
152. ! Понимающие программисты поймут ;)
153.  
154. Stand_by:
155.    ! Перевод всех значений в стартовое состояние
156.    for i=1 to 4
157.      ! Цвет кнопки
158.      gr.modify rct[i],"alpha",150
159.  
160.      ! Скрываем инфо о паузе
161.      gr.modify tx[i+4],"alpha",0
162.  
163.      !  Выводим статус
164.      s$[i]="Ожидание"
165.      gr.modify tx[i],"text",s$[i]
166.  
167.      ! Указываем, что опрос кнопок надо остановить
168.       fltch=0
169.    next
170. Return
171.  
172.  
173. Down:
174.    !  Цвет нажатой кнопки чуть ярче остальных
175.    !  Стандартное значение 150
176.    gr.modify rct[i],"alpha",210
177.  
178.    ! Выводим статус нажатой кнопки
179.    s$[i]="Кнопка вниз"
180.    gr.modify tx[i],"text",s$[i]
181. Return
182.  
183.  
184. No_down:
185.    !  Кнопка узнает, что нажали не на нее
186.    ! и становится чуть темнее
187.    gr.modify rct[i],"alpha",70
188.  
189.    ! Выводим статус ненажатой кнопки
190.    s$[i]="Нажали не меня :("
191.    gr.modify tx[i],"text",s$[i]
192.  
193.    ! Скрываем инфо о паузе на всякий случай :)
194.      gr.modify tx[i+4],"alpha",0
195. Return
196.  
197.  
198.  
199. Clicked:
200.    ! Момент отпускания
201.  
202.    ! Выводим статус
203.    s$[i]="Был клик"
204.    gr.modify tx[i],"text",s$[i]
205.  
206.    ! Обесцвечиваем кнопку,
207.    ! Становится виден серый фон.
208.    gr.modify rct[i],"alpha",0
209.  
210.    ! Включаем паузу и  сообщение о ней
211.    ! Чтобы увидеть реальную скорость клика -
212.    ! Закоментируйте этот блок ⤵
213.  
214.    gr.modify tx[i+4],"alpha",255
215.    gr.render
216.    pause 2000
217.  
218.    !                                                            ⤴
219.  
220. Return
221.  
222.  
223.  
224.  
225.  
226.  
227. Gr_functions:
228.  
229. ! Это текстовые функции
230. ! Совсем другая история
231. fn.def txp(x,y,s$)
232.   gr.screen w,h
233.   gr.text.align 2
234.   s=h/50 : gr.text.size s
235.   v=-(s*(0.29/2))+s/2
236.   gr.text.draw t,x,y+v,s$
237.   fn.rtn t
238. fn.end
239.  
240. fn.def tx(x,y,s$)
241.   gr.screen w,h
242.   gr.text.align 2
243.   s=h/40 : gr.text.size s
244.   v=-(s*(0.29/2))+s/2
245.   gr.text.draw t,x,y+v,s$
246.   fn.rtn t
247. fn.end
248.  
249. ! Вот она - гордость разработчика :)
250. ! Функция, которая возвращает,
251. ! практически, все необходимые события стандартной
252. ! кнопки. (на самом деле есть еще круче, но
253. !  эта более простая в освоении   :-)
254. fn.def click(lt,tp,rt,bt,f)
255.   gr.bounded.touch btc,lt,tp,rt,bt
256.   gr.touch tc,x,y
257.   if f=1 then c=1
258.   if f=2 then c=0
259.   if f=10 then c=10
260.   if tc=1 & btc=0 & f=0 then c=10
261.   if btc=1 & f<10 then c=1
262.   if btc=0 & tc=0 & f=10 then c=0
263.   if f=1 & btc=0 & tc=0 then c=2
264.   if f=1 & btc=0 & tc=1 then c=0
265.   fn.rtn c
266. fn.end
267.  
268. Return
269.  
270.  
271.  
272. !  Функция click(), при закрытии программы,
273. !  изредка вызывает жалобы на  синтаксис, похоже
274. ! на баг РФО
275. !  Это решается здесь ↴
276.  
277. onerror:
278. end ""

bOing
СПАСИБО !
  Игрушка и Demo классно сделаны!
Demo почти как статья получилась от такого количества коментариев.
А в игрушке я не понял как играть?
Это типа выбираешь цвет и ждешь кто победит?
Едят желтый, а что фиолетовый делает?

частенько блуждаю на сайте https://tutsplus.com/
вот кстати насчет алгоритма поиска пути https://gamedevelopment.tutspl...mentation--cms-24679

Очень прикольно!
Я и сам уже почти понял суть!
И действительно если сильно болеть за
выбранный шар , он побеждает?
  Короче альтернатива игры Конвея "Жизнь" или "Life".
   Мне очень понравилось - уже пару часов
гоняю и почти все понял без описания.
  Но описание поставило все на свои места.
    Буду дальше играть - хотя играть это условно, наверно лучше - считать , что болеть за выбранный шар!

Lion1971
Интересные сайты, хотя первый больше для
Web дизайнеров!
  Они англоязычные, но google chrome помогает понять!

b0ing
По поводу влияния мозга на генератор случайных чисел. Набери в google "генератор случайных событий". Не чисел, а событий. Интересно почитать.

На официальном форуме нашел первую демонстрационную программу виртуальной реальности,
т.е. динамическое стерео ( 3D ).
     Для просмотра нужны очки виртуальной реальности для смартфона, их можно сделать из картона ( можно найти в интернете ) или купить, есть подороже - из пластмассы.
http://info.vrstorecardboard.ru/
     Как один и самый бюджетный вариант это использовать лист бумаги ( картон ), установить на экран смартфона
по середине между двух изображений и смотреть каждое изображение своим глазом.
   В программе есть три режима: 1 - полупрозрачные квадраты; 2 - цветные точки ( звезды ) и 3 - буквы.
Выбираем и смотрим как это летит на Вас.
   Ну очень эффектно смотрится !!!