XGM Forum
Сайт - Статьи - Проекты - Ресурсы - Блоги

Форуме в режиме ТОЛЬКО ЧТЕНИЕ. Вы можете задать вопросы в Q/A на сайте, либо создать свой проект или ресурс.
Вернуться   XGM Forum > Warcraft> Академия: форум для вопросов> Jass
Перезагрузить страницу Что-то странное с кодом творится...
Ник
Пароль
Войти через VK в один клик
Сайт использует только имя.

Ответ
 
tgonta
Pixelated Sora Coder
offline
Опыт: 3,160
Активность:
Что-то странное с кодом творится...
» code

Код:
//TESH.scrollpos=41
//TESH.alwaysfold=1
function Conditions takes nothing returns boolean
     return (GetPlayerSlotState(GetFilterPlayer()) == ConvertMapControl(0))and(GetPlayerSlotState(GetFilterPlayer()) == ConvertPlayerSlotState(1))
endfunction

function MultiboardFill takes nothing returns nothing
     local string array PlayerColors
     set PlayerColors[1] = "|cFFFF0303"
     set PlayerColors[2] = "|cFF0042FF"
     set PlayerColors[3] = "|cFF1CE6B9"
     set PlayerColors[4] = "|cFF540081"
     set PlayerColors[5] = "|cFFFFFC01"
     set PlayerColors[6] = "|cFFFE8A0E"
     set PlayerColors[7] = "|cFF20C000"
     set PlayerColors[8] = "|cFFE55BB0"
     set udg_Multiboard_Spots[GetConvertedPlayerId(GetEnumPlayer())] = udg_List
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, udg_List, 1), (PlayerColors[GetConvertedPlayerId(GetEnumPlayer())] + (GetPlayerName(GetEnumPlayer()) + "r")))
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, udg_List, 2), "0")
     call MultiboardSetItemIcon(MultiboardGetItem(udg_Multiboard, udg_List, 0), "ReplaceableTextures\\CommandButtons\\BTNHeroFarseer.blp")
     set udg_List = udg_List + 1
endfunction

function MultiboardCreate takes nothing returns nothing
     local force f = GetPlayersMatching(Condition(function Conditions))
     local integer PlayerCount = CountPlayersInForceBJ(f)
     local integer i = 0
     local integer i2 = PlayerCount + 8
     set udg_Multiboard = CreateMultiboard()
     call MultiboardSetColumnCount(udg_Multiboard, 3)
     call MultiboardSetRowCount(udg_Multiboard, PlayerCount + 8)
     call MultiboardSetTitleText(udg_Multiboard, "Oasis and Desert v 1.0")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, 0, 1), "One")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, 0, 2), "Two")
     loop
         exitwhen i > i2
         call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, i, 0), false, true)
         call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, i, 1), true, false)
         call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, i, 2), true, false)
         call MultiboardSetItemWidth(MultiboardGetItem(udg_Multiboard, i, 0), 2.00)
         call MultiboardSetItemWidth(MultiboardGetItem(udg_Multiboard, i, 1), 6.00)
         call MultiboardSetItemWidth(MultiboardGetItem(udg_Multiboard, i, 2), 7.00)
         set i = i + 1
     endloop
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, 0, 0), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 1, 0), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 1, 1), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 1, 2), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 0), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 1), true, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 2), true, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 0), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 1), true, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 2), true, false)
     //Следует задать значения колонок и строк.     
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 1), "TRIGSTR_419")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 2), "TRIGSTR_420")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 1), "TRIGSTR_421")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 2), "TRIGSTR_422")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 4, 1), "TRIGSTR_423")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 4, 2), "TRIGSTR_424")
     call MultiboardSetItemIcon(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 0), "ReplaceableTextures\\CommandButtons\\BTNImmolationOn.blp")
     call MultiboardSetItemIcon(MultiboardGetItem(udg_Multiboard, PlayerCount + 4, 0), "ReplaceableTextures\\CommandButtons\\BTNImmolationOff.blp")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 6, 1), "TRIGSTR_426")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 7, 1), "TRIGSTR_427")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 6, 2), udg_LifeString[100])
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 7, 2), udg_ManaString[100])
     //List - вспомогательная переменная для хранения данных до филла.
     set udg_List = 2
     call ForForce (f, function MultiboardFill)
     call MultiboardDisplay(udg_Multiboard, true)
endfunction

//===================================================================
function InitTrig_Multiboard takes nothing returns nothing
     call TriggerRegisterTimerEventSingle(gg_trg_Multiboard, 1)
     call TriggerAddAction(gg_trg_Multiboard, function MultiboardCreate)
endfunction
Отредактировано Hellfim, 18.09.2009 в 23:08.
Старый 18.09.2009, 22:54
#1
+0/−0
Профиль | Приват | Поиск | Цитата | IP: Записан
Hellfim
Новичок
offline
Опыт: 79,707
Активность:
» а так? 
//TESH.scrollpos=41
//TESH.alwaysfold=1
function Conditions takes nothing returns boolean
     return (GetPlayerSlotState(GetFilterPlayer()) == ConvertMapControl(0))and(GetPlayerSlotState(GetFilterPlayer()) == ConvertPlayerSlotState(1))
endfunction

function MultiboardFill takes nothing returns nothing
     local string array PlayerColors
     set PlayerColors[1] = "|cFFFF0303"
     set PlayerColors[2] = "|cFF0042FF"
     set PlayerColors[3] = "|cFF1CE6B9"
     set PlayerColors[4] = "|cFF540081"
     set PlayerColors[5] = "|cFFFFFC01"
     set PlayerColors[6] = "|cFFFE8A0E"
     set PlayerColors[7] = "|cFF20C000"
     set PlayerColors[8] = "|cFFE55BB0"
     set udg_Multiboard_Spots[GetConvertedPlayerId(GetEnumPlayer())] = udg_List
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, udg_List, 1), (PlayerColors[GetConvertedPlayerId(GetEnumPlayer())] + (GetPlayerName(GetEnumPlayer()) + "r")))
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, udg_List, 2), "0")
     call MultiboardSetItemIcon(MultiboardGetItem(udg_Multiboard, udg_List, 0), "ReplaceableTextures\\CommandButtons\\BTNHeroFarseer.blp")
     set udg_List = udg_List + 1
endfunction

function MultiboardCreate takes nothing returns nothing
     local force f = GetPlayersMatching(Condition(function Conditions))
     local integer PlayerCount = CountPlayersInForceBJ(f)
     local integer i = 0
     local integer i2 = PlayerCount + 8
     set udg_Multiboard = CreateMultiboard()
     call MultiboardDisplay(udg_Multiboard, false)
     call MultiboardSetColumnCount(udg_Multiboard, 3)
     call MultiboardSetRowCount(udg_Multiboard, PlayerCount + 8)
     call MultiboardSetTitleText(udg_Multiboard, "Oasis and Desert v 1.0")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, 0, 1), "One")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, 0, 2), "Two")
     loop
         exitwhen i > i2
         call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, i, 0), false, true)
         call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, i, 1), true, false)
         call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, i, 2), true, false)
         call MultiboardSetItemWidth(MultiboardGetItem(udg_Multiboard, i, 0), 2.00)
         call MultiboardSetItemWidth(MultiboardGetItem(udg_Multiboard, i, 1), 6.00)
         call MultiboardSetItemWidth(MultiboardGetItem(udg_Multiboard, i, 2), 7.00)
         set i = i + 1
     endloop
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, 0, 0), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 1, 0), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 1, 1), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 1, 2), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 0), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 1), true, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 2), true, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 0), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 1), true, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 2), true, false)
     //Следует задать значения колонок и строк.     
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 1), "TRIGSTR_419")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 2), "TRIGSTR_420")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 1), "TRIGSTR_421")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 2), "TRIGSTR_422")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 4, 1), "TRIGSTR_423")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 4, 2), "TRIGSTR_424")
     call MultiboardSetItemIcon(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 0), "ReplaceableTextures\\CommandButtons\\BTNImmolationOn.blp")
     call MultiboardSetItemIcon(MultiboardGetItem(udg_Multiboard, PlayerCount + 4, 0), "ReplaceableTextures\\CommandButtons\\BTNImmolationOff.blp")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 6, 1), "TRIGSTR_426")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 7, 1), "TRIGSTR_427")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 6, 2), udg_LifeString[100])
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 7, 2), udg_ManaString[100])
     //List - вспомогательная переменная для хранения данных до филла.
     set udg_List = 2
     call ForForce (f, function MultiboardFill)
     call MultiboardDisplay(udg_Multiboard, true)
     call MultiboardMinimize(udg_Multiboard,false)
     call MultiboardMinimize(udg_Multiboard,true)
     call MultiboardMinimize(udg_Multiboard,false)
endfunction

//===================================================================
function InitTrig_Multiboard takes nothing returns nothing
     call TriggerRegisterTimerEventSingle(gg_trg_Multiboard, 1)
     call TriggerAddAction(gg_trg_Multiboard, function MultiboardCreate)
endfunction
Старый 18.09.2009, 23:08
#2
+0/−0
Профиль | Приват | Поиск | Цитата | IP: Записан
tgonta
Pixelated Sora Coder
offline
Опыт: 3,160
Активность:
Hellfim,
Всё равно всё так же черным-черно справа сверху.
Старый 18.09.2009, 23:12
#3
+0/−0
Профиль | Приват | Поиск | Цитата | IP: Записан
Hellfim
Новичок
offline
Опыт: 79,707
Активность:
» а так? 
//TESH.scrollpos=41
//TESH.alwaysfold=1
function Conditions takes nothing returns boolean
     return (GetPlayerSlotState(GetFilterPlayer()) == ConvertMapControl(0))and(GetPlayerSlotState(GetFilterPlayer()) == ConvertPlayerSlotState(1))
endfunction

function MultiboardFill takes nothing returns nothing
     local string array PlayerColors
     set PlayerColors[1] = "|cFFFF0303"
     set PlayerColors[2] = "|cFF0042FF"
     set PlayerColors[3] = "|cFF1CE6B9"
     set PlayerColors[4] = "|cFF540081"
     set PlayerColors[5] = "|cFFFFFC01"
     set PlayerColors[6] = "|cFFFE8A0E"
     set PlayerColors[7] = "|cFF20C000"
     set PlayerColors[8] = "|cFFE55BB0"
     set udg_Multiboard_Spots[GetConvertedPlayerId(GetEnumPlayer())] = udg_List
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, udg_List, 1), (PlayerColors[GetConvertedPlayerId(GetEnumPlayer())] + (GetPlayerName(GetEnumPlayer()) + "r")))
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, udg_List, 2), "0")
     call MultiboardSetItemIcon(MultiboardGetItem(udg_Multiboard, udg_List, 0), "ReplaceableTextures\\CommandButtons\\BTNHeroFarseer.blp")
     set udg_List = udg_List + 1
endfunction

function MultiboardCreate takes nothing returns nothing
     local force f = GetPlayersMatching(Condition(function Conditions))
     local integer PlayerCount = CountPlayersInForceBJ(f)
     local integer i = 0
     local integer i2 = PlayerCount + 8
     set udg_Multiboard = CreateMultiboard()
     call MultiboardDisplay(udg_Multiboard, false)
     call MultiboardSetColumnCount(udg_Multiboard, 3)
     call MultiboardSetRowCount(udg_Multiboard, PlayerCount + 8)
     call MultiboardSetTitleText(udg_Multiboard, "Oasis and Desert v 1.0")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, 0, 1), "One")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, 0, 2), "Two")
     loop
         exitwhen i > i2
         call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, i, 0), false, true)
         call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, i, 1), true, false)
         call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, i, 2), true, false)
         call MultiboardSetItemWidth(MultiboardGetItem(udg_Multiboard, i, 0), 2.00)
         call MultiboardSetItemWidth(MultiboardGetItem(udg_Multiboard, i, 1), 6.00)
         call MultiboardSetItemWidth(MultiboardGetItem(udg_Multiboard, i, 2), 7.00)
         set i = i + 1
     endloop
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, 0, 0), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 1, 0), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 1, 1), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 1, 2), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 0), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 1), true, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 2), true, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 0), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 1), true, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 2), true, false)
     //Следует задать значения колонок и строк.     
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 1), "TRIGSTR_419")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 2), "TRIGSTR_420")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 1), "TRIGSTR_421")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 2), "TRIGSTR_422")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 4, 1), "TRIGSTR_423")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 4, 2), "TRIGSTR_424")
     call MultiboardSetItemIcon(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 0), "ReplaceableTextures\\CommandButtons\\BTNImmolationOn.blp")
     call MultiboardSetItemIcon(MultiboardGetItem(udg_Multiboard, PlayerCount + 4, 0), "ReplaceableTextures\\CommandButtons\\BTNImmolationOff.blp")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 6, 1), "TRIGSTR_426")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 7, 1), "TRIGSTR_427")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 6, 2), udg_LifeString[100])
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 7, 2), udg_ManaString[100])
     //List - вспомогательная переменная для хранения данных до филла.
     set udg_List = 2
     call ForForce (f, function MultiboardFill)
     call MultiboardDisplay(udg_Multiboard, true)
     call MultiboardMinimize(udg_Multiboard,false)
     call MultiboardMinimize(udg_Multiboard,true)
     call MultiboardMinimize(udg_Multiboard,false)
endfunction

//===================================================================
function InitTrig_Multiboard takes nothing returns nothing
     set gg_trg_Multiboard=CreateTrigger()
     call TriggerRegisterTimerEventSingle(gg_trg_Multiboard, 1)
     call TriggerAddAction(gg_trg_Multiboard, function MultiboardCreate)
endfunction
Старый 19.09.2009, 20:21
#4
+0/−0
Профиль | Приват | Поиск | Цитата | IP: Записан
tgonta
Pixelated Sora Coder
offline
Опыт: 3,160
Активность:
Hellfim,
А так работает, но ппц растянуло =-)
Старый 22.09.2009, 18:24
#5
+0/−0
Профиль | Приват | Поиск | Цитата | IP: Записан
Hellfim
Новичок
offline
Опыт: 79,707
Активность:
tgonta, а ты не поверишь, дело было в том, что ты не создавал триггер, который инициализирует мультиборд =)
Чтоб изменить размер мультиборда, тебе надо искать такие строчки
MultiboardSetItemWidth
И менять там второй аргумент (число с точкой), обычно нужно что-то типо 0.2. Покажу на примере:
call MultiboardSetItemWidth(MultiboardGetItem(udg_Multiboard, i, 0), 2.00)
Здесь нам нужно заменить 2.00 на 0.02 (примерно).
Меняем:
call MultiboardSetItemWidth(MultiboardGetItem(udg_Multiboard, i, 0), 0.02)
Собственно ты можешь менять это число на любое произвольное, рамки сам подгоняй.
Старый 22.09.2009, 22:00
#6
+0/−0
Профиль | Приват | Поиск | Цитата | IP: Записан
tgonta
Pixelated Sora Coder
offline
Опыт: 3,160
Активность:
Цитата:
Сообщение от Hellfim
ты не создавал триггер, который инициализирует мультиборд =)

Hellfim,
Ахаха :) Действительно.
Теперь он не отображает игроков.
Старый 23.09.2009, 20:36
#7
+0/−0
Профиль | Приват | Поиск | Цитата | IP: Записан
tgonta
Pixelated Sora Coder
offline
Опыт: 3,160
Активность:
Hellfim,
Мб скажешь, что это?
Старый 25.09.2009, 18:29
#8
+0/−0
Профиль | Приват | Поиск | Цитата | IP: Записан
Hellfim
Новичок
offline
Опыт: 79,707
Активность:
tgonta, я не уверен, но наверное так нужно с каждой частью сделать (т.е. так и надо сделать, но я хз сделал ли ты).
Старый 25.09.2009, 20:44
#9
+0/−0
Профиль | Приват | Поиск | Цитата | IP: Записан
tgonta
Pixelated Sora Coder
offline
Опыт: 3,160
Активность:
Hellfim,
Лично я всё прогнал через цикл.
Старый 03.10.2009, 20:46
+0/−0
Профиль | Приват | Поиск | Цитата | IP: Записан
Hellfim
Новичок
offline
Опыт: 79,707
Активность:
tgonta, кинь еще раз код, я посмотрю.
Старый 03.10.2009, 23:23
+0/−0
Профиль | Приват | Поиск | Цитата | IP: Записан
tgonta
Pixelated Sora Coder
offline
Опыт: 3,160
Активность:
Hellfim,
» Код 
function Conditions takes nothing returns boolean
     return (GetPlayerSlotState(GetFilterPlayer()) == ConvertMapControl(0))and(GetPlayerSlotState(GetFilterPlayer()) == ConvertPlayerSlotState(1))
endfunction

function MultiboardFill takes nothing returns nothing
     local string array PlayerColors
     set PlayerColors[1] = "|cFFFF0303"
     set PlayerColors[2] = "|cFF0042FF"
     set PlayerColors[3] = "|cFF1CE6B9"
     set PlayerColors[4] = "|cFF540081"
     set PlayerColors[5] = "|cFFFFFC01"
     set PlayerColors[6] = "|cFFFE8A0E"
     set PlayerColors[7] = "|cFF20C000"
     set PlayerColors[8] = "|cFFE55BB0"
     set udg_Multiboard_Spots[GetConvertedPlayerId(GetEnumPlayer())] = udg_List
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, udg_List, 1), (PlayerColors[GetConvertedPlayerId(GetEnumPlayer())] + (GetPlayerName(GetEnumPlayer()) + "r")))
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, udg_List, 2), "0")
     call MultiboardSetItemIcon(MultiboardGetItem(udg_Multiboard, udg_List, 0), "ReplaceableTextures\\CommandButtons\\BTNHeroFarseer.blp")
     set udg_List = udg_List + 1
endfunction

function MultiboardCreate takes nothing returns nothing
     local force f = GetPlayersMatching(Condition(function Conditions))
     local integer PlayerCount = CountPlayersInForceBJ(f)
     local integer i = 0
     local integer i2 = PlayerCount + 8
     set udg_Multiboard = CreateMultiboard()
     call MultiboardDisplay(udg_Multiboard, false)
     call MultiboardSetColumnCount(udg_Multiboard, 3)
     call MultiboardSetRowCount(udg_Multiboard, PlayerCount + 8)
     call MultiboardSetTitleText(udg_Multiboard, "Oasis and Desert v 1.0")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, 0, 1), "One")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, 0, 2), "Two")
     loop
         exitwhen i > i2
         call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, i, 0), false, true)
         call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, i, 1), true, false)
         call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, i, 2), true, false)
         call MultiboardSetItemWidth(MultiboardGetItem(udg_Multiboard, i, 0), 0.02)
         call MultiboardSetItemWidth(MultiboardGetItem(udg_Multiboard, i, 1), 0.06)
         call MultiboardSetItemWidth(MultiboardGetItem(udg_Multiboard, i, 2), 0.07)
         set i = i + 1
     endloop
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, 0, 0), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 1, 0), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 1, 1), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 1, 2), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 0), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 1), true, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 2), true, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 0), false, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 1), true, false)
     call MultiboardSetItemStyle(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 2), true, false)
     //Следует задать значения колонок и строк.     
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 1), "TRIGSTR_419")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 2, 2), "TRIGSTR_420")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 1), "TRIGSTR_421")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 2), "TRIGSTR_422")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 4, 1), "TRIGSTR_423")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 4, 2), "TRIGSTR_424")
     call MultiboardSetItemIcon(MultiboardGetItem(udg_Multiboard, PlayerCount + 3, 0), "ReplaceableTextures\\CommandButtons\\BTNImmolationOn.blp")
     call MultiboardSetItemIcon(MultiboardGetItem(udg_Multiboard, PlayerCount + 4, 0), "ReplaceableTextures\\CommandButtons\\BTNImmolationOff.blp")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 6, 1), "TRIGSTR_426")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 7, 1), "TRIGSTR_427")
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 6, 2), udg_LifeString[100])
     call MultiboardSetItemValue(MultiboardGetItem(udg_Multiboard, PlayerCount + 7, 2), udg_ManaString[100])
     //List - вспомогательная переменная для хранения данных до филла.
     set udg_List = 2
     call ForForce (f, function MultiboardFill)
     call MultiboardDisplay(udg_Multiboard, true)
     call MultiboardMinimize(udg_Multiboard,false)
     call MultiboardMinimize(udg_Multiboard,true)
     call MultiboardMinimize(udg_Multiboard,false)
endfunction

//===================================================================
function InitTrig_Multiboard takes nothing returns nothing
     local trigger Multiboard=CreateTrigger()
     call TriggerRegisterTimerEventSingle(Multiboard, 1)
     call TriggerAddAction(Multiboard, function MultiboardCreate)
     set Multiboard = null
endfunction
Отредактировано tgonta, 04.10.2009 в 00:54.
Старый 04.10.2009, 00:04
+0/−0
Профиль | Приват | Поиск | Цитата | IP: Записан
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы можете скачивать файлы
BB-коды Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход



Часовой пояс GMT +3, время: 09:00.

Обратная связь - На сайт - Архив - Вверх