Разделить мир на квады

[Program23]

Да,именно

[Mr_F_]

For a.Attracts=Each Attracts
If quadID<>a\Pick Then
CreateAttracts(EntityX#(over),EntityY#(over),quadI D)
EndIf
EndIf

а че тут endif вместо next в конце?

[Program23]

Потерялось при копировании.
Там между Endif'ами Next должен стоять.

[Mr_F_]

значит ошибка где-то ещё (не в запощенном коде)

[Program23]

Я создал массив Dim CELL(10,10)
Теперь я создаю карту:

For x=1 to 10
For y=1 to 10
CELL(x,y)=CreateMap()
Next 
Next

Теперь у меня есть поле,состоящее из клеток.
Мой ГГ появляется в ячейке CELL(1,1).
И когда я передвигаюсь ГГ'ем,мне нужно,чтобы на экране выводился номер той ячейки в которой ГГ в данный момент находится.

Например,в таком виде: ГГ находится в ЯЧЕЙКЕ (3,6) 


[Mr_F_]

ну как проверить нахождение точки в квадрате ты же можешь догадаться?