Форумы Архив » Свалка Модификации ТЧ, вопросы и ответы (старое, по 14.06.11)

Исходя из твоих слов: "... мы создаем какие то данные, либо получаем их, и заполняем этими данными окно." - получили неким образом массив локаций, для телепортации на них актора (список упростил):
  local tTeleports = {
    [ 1] = l01_escape,
    [ 2] = l02_garbage,
...
    [17] = l12u_control_monolith,
    [18] = l12_stancia_2
  }
Массив привожу в упрощенном виде, в оригинале в нем и позиция для спавна и направление ...
В данном контексте для создания листинга это не важно.

Основной код создания листинга по элементам имеющегося уже массива это:
  --/ Создаем окно для всего списка локаций
  local list = CUIListWnd() --/ создаем объект окна класса 'листинга'
  list:SetAutoDelete(true)
  list:Init(10,25,135,300) --/ инициируем его в заданых координатах (x,y,width,height)
  list:SetItemHeight(16) --/ высота каждой строки листинга
  list:SetFont( GetFontLetterica16Russian() ) --/ тип шрифта строк листинга
  list:SetTextColor(255,216,188,140) --/ цвет текста строк
  list:EnableScrollBar(true) --/ разрешаем скролл-бар при превышении заполнения окна
  list:ShowSelectedItem(false) --/ пока не показываем выделение
  --/ итерируем по массиву локаций:{[ i]=level_name}
  for _,v in ipairs(tTeleports) do
    local item = CUIListItemEx() --/ строка i-ой локации
    item:SetWndRect(0,0,130,18) --/ x,y,width,height
    item:InitTexture("ui\\ui_scb_scroll_box") --/ текстура подложки
    item:SetStretchTexture(true)
    item:SetHighlightColor(GetARGB(255,255,150,0)) --/ цвет текста при наведении
    item:SetSelectionColor(GetARGB(255,200,200,250)) --/ цвет текста выбраной локации
    item.map = v --/ запоминаем имя локации дл**5002618d69873ce82a42**
else
self.act0:Show(false) --/ скрываем кнопку действия
end
end

function UI_TabController:OnBtnAction0()
if this.Check_StartGame() then --/ телепортируем только в запущенной игре
local iSelect = self.map_list:GetSelectedItem() --/ индекс выбранной строки
if iSelect >= 0 then
local item = self.map_list:GetItem(iSelect) --/ объект выбранной строки
if item then
local sLevelName = item.map --/ имя локации
for _,v in ipairs(tTeleports) do
if v.map == sLevelName then --/ на текущей локации?
if sLevelName == level.name() then --/ меняем позицию на заданную
db.actor:set_actor_position(v.pos)
db.actor:set_actor_direction(v.dir)
else
this.Get_Teleport(sLevelName, v.pos) --/ вызываем алгоритм телепортации
end
self:Quit() --/ выход
end
end
else
self.act0:Show(false) --/ скрываем кнопку действия
end
end
end
end
[/code]

Shape :friends
Благодарствую - пашет...
singapur22 :friends
Файлы как обычно в папке скриптс, а функции в них...
твой вариант щас то-же попробую...