[RBK]

Сделай дополнительный общий тип для хранения передаваемых данных.

;общие данные
Type id_data
  Field id
  ;другие общие данные
End Type

Type bot
  Field privet
  Field poka
  Field id.id_data
End Type

Type bot1
  Field kino
  Field doroga
  Field id.id_data
End Type

For b.bot=Each bot
  Move(b\id)
Next

For a.bot1=Each bot1
  Move(a\id)
Next

Function Move(m.id_data)
  m\id = 8 ;задаем новое значение
  ;m\(другие значения) - меняем другие общие значения
End Function

p.s. пока писал, impersonalis предложил ещё два других варианта, всего теперь три разных решения