1. c/vJass Да
2. Мультиборд
3. Есть три клана, каждый располагается друг под другом. Когда игрок выбирает героя, то его никнейм и вся информация о нем сносится под этот клан. Напротив каждого клана отображается его золото (он как самостоятельных игрок, управляющийся компом) и кол-во юнитов.

В строке каждого игрока расположены: Иконка героя, имя игрока, золото, убийства, смерти, счет.
Еще чуть ниже расположить время игры.

4. Функции: изменение иконки для каждого игрока, изменение золота, убийств, смертей и счета для каждого игрока. Также для кланов изменение золота и юнитов

Когда нужен подобный мультиборд, то он будет динамичным и редактировать (вникать в суть) крайне тяжело, но когда есть управляющие функции, к которым человек может обратиться, все становится гибким и удобным!

/* Список команд:
call MB_ReBuilding_All() - Переформировывает MB.
== Для игроков ==
call MB_Change_HeroLeve(HERO) - Изменение уровня героя в MB
call MB_Change_PlayerScore(PLAYER, SCORE) - Изменение счета игрока
call MB_Change_PlayerGold(PLAYER) - Изменение золота игрока
call MB_Change_PlayerIcon(PLAYER, ICON) - изменение иконки героя
call MB_RemovePlayer(PLAYER) - Удаление игрока из MB
== Для Союзников ==
call MB_Change_PlayerUnits(PLAYER, UNITS, STRUCTURE) - Изменение значений войск и зданий
*/

((код jass

function ThisPlayeIsShopOwner takes player pl returns boolean
local integer gPlayerIndex = 0
loop
exitwhen gPlayerIndex > 10
if( GetOwningPlayer(udg_SEXShop[gPlayerIndex]) == pl) then
return true
endif
return false
set gPlayerIndex = gPlayerIndex + 1
endloop
return false
endfunction

function ShopFilter takes nothing returns boolean
return ( GetUnitState( GetFilterUnit(), UNIT_STATE_LIFE ) != 150001.00 )
endfunction

function SetNewGayShopsOwner takes integer nPlayerIndex returns nothing
local integer nIndex = 1
loop
exitwhen nIndex > 10
call SetUnitOwner( udg_SEXShop[nIndex], Player(nPlayerIndex), false )
set nIndex = nIndex + 1
endloop
endfunction
function GetPlayerTotalNum takes nothing returns integer
return udg_Total_Num_Players
endfunction

function GetPlayerForceId takes integer fp_nPlayerId returns integer
if(IsPlayerInForce(Player(fp_nPlayerId),udg_Naturals) == true) then
return 1
elseif(IsPlayerInForce(Player(fp_nPlayerId),udg_Gays) == true) then
return 2
endif
return 0
endfunction

function GetPlayersState takes integer nPlayerIndex returns string
return udg_ColorString[GetPlayerColorIndex(nPlayerIndex)] + (udg_STR_PlayerState[nPlayerIndex]) + "|r"
endfunction

function GetRowsCount takes nothing returns integer
return (udg_Total_Num_Players+4)
endfunction

function GetEnemyForcePlayer takes integer fp_nForceId returns player
return Player(11)
endfunction

function GetPlayerEnemyForcePlayer takes player pl returns player
local integer nPlayerId
local integer nForceId

set nPlayerId = GetPlayerId(pl)
set nForceId = GetPlayerForceId( nPlayerId )
return GetEnemyForcePlayer( nForceId )
endfunction

function IsSlotPlayer takes integer nPlayerIndex returns boolean
return GetPlayerController(Player(nPlayerIndex)) == MAP_CONTROL_USER and GetPlayerSlotState(Player(nPlayerIndex)) == PLAYER_SLOT_STATE_PLAYING
endfunction

function IsPlayerDefeated takes integer fp_nPlayer returns boolean
return udg_PlayerLeft[fp_nPlayer]
endfunction

function IsSlotCurrentPlayer takes integer nPlayerIndex returns boolean
return GetPlayerController(Player(nPlayerIndex)) == MAP_CONTROL_USER and GetPlayerSlotState(Player(nPlayerIndex)) == PLAYER_SLOT_STATE_PLAYING and not IsPlayerDefeated(nPlayerIndex)
endfunction

function CreateNatural takes integer nPlayerIndex returns nothing
local player pl = Player(nPlayerIndex)
local location loc = GetPlayerStartLocationLoc(pl)
local unit Nat = CreateUnitAtLoc( pl, 'h003',loc,270.00 )
call SetPlayerState( pl, PLAYER_STATE_RESOURCE_GOLD, 25 )
call SetPlayerState( pl, PLAYER_STATE_RESOURCE_LUMBER, 35 )
call SetPlayerState( pl, PLAYER_STATE_RESOURCE_FOOD_CAP, 6 )
call RemoveLocation(loc)

call UnitAddItemById( Nat, 'I009' )
call UnitAddItemById( Nat, 'I00A' )
call UnitAddItemById( Nat, 'I00M' )
call UnitAddItemById( Nat, 'I02I' )
call UnitAddItemById( Nat, udg_StartItems[GetRandomInt(1, 15)] )
call SelectUnitForPlayerSingle(Nat,pl)
set udg_Heroes[nPlayerIndex] = Nat
set Nat = null
endfunction

function GetForcePlayerNum takes integer fp_nForceId returns integer
local integer nNum
local integer nIndex
local integer nPlayerId

set nIndex = 0
set nPlayerId = GetPlayerForceId(fp_nForceId)
set nNum = 0
loop
exitwhen nIndex >= GetPlayerTotalNum()/2 - 1
if ( IsSlotPlayer(nPlayerId) ) then
set nNum = nNum + 1
endif
set nIndex = nIndex + 1
set nPlayerId = nPlayerId + 1
endloop

return nNum
endfunction

function GayFilter takes nothing returns boolean
return IsUnitType(GetFilterUnit(), UNIT_TYPE_HERO) and IsUnitAliveBJ(GetFilterUnit()) and IsUnitType(GetFilterUnit(), UNIT_TYPE_UNDEAD) and (GetUnitTypeId(GetFilterUnit()) != 'N00R' )
endfunction

function CheckGays takes player pl returns integer
local group grp = CreateGroup()
local integer num
call GroupEnumUnitsOfPlayer( grp, pl, Condition( function GayFilter) )
set num = CountUnitsInGroup( grp )
call DestroyGroup( grp )
return num
endfunction

function GetForceCurrentPlayerNum takes integer fp_nForceId returns integer
local integer nNum
local integer nIndex
local integer nPlayerId

set nIndex = 0
set nPlayerId = fp_nForceId * GetPlayerTotalNum() / 2
set nNum = 0
loop
exitwhen nIndex >= GetPlayerTotalNum()/2 - 1
if ( IsSlotCurrentPlayer(nPlayerId) ) then
set nNum = nNum + 1
endif
set nIndex = nIndex + 1
set nPlayerId = nPlayerId + 1
endloop

return nNum
endfunction

function PlayerLeft takes player fp_pl, boolean fp_bShowMessage returns nothing
local integer nPlayerId
local integer nPlayer
local integer nIndex
local group grp
local multiboarditem mbitem

set nPlayerId = GetPlayerId(fp_pl)

if ( fp_bShowMessage ) then
call ShowMsgToAll(GetColoredPlayerName( nPlayerId ) + udg_STR_PLAYERLEFT )
endif
set udg_STR_PlayerState[nPlayerId] = " ливер"
set udg_Total_Num_Players = udg_Total_Num_Players - 1
set udg_PlayerLeft[nPlayerId] = true
if(GetPlayerForceId(nPlayerId) == 0) then
call ShowMsgToAll("Error! unknown force! player "+I2S(nPlayerId) )
return
endif
if(GetPlayerForceId(nPlayerId) == 1) then
set udg_Num_Of_Nat = udg_Num_Of_Nat - 1
call ForceRemovePlayer( udg_Naturals, fp_pl )
call NewOwner(fp_pl)
elseif(GetPlayerForceId(nPlayerId) == 2) then
set udg_Num_Of_Gay = udg_Num_Of_Gay - 1
call ForceRemovePlayer( udg_Gays, fp_pl )
if(ThisPlayeIsShopOwner(fp_pl)) then
call SetNewGayShopsOwner(GetPlayerId(ForcePickRandomPlayer(udg_Gays)))
endif
else
call ShowMsgToAll("Error! unknown force! player "+I2S(nPlayerId) )
endif

set grp = GetUnitsOfPlayerMatching(fp_pl,Condition(function ShopFilter))
call ForGroup(grp, function RemoveEnumUnit)
call DestroyGroup( grp )

set mbitem = MultiboardGetItem(udg_Multiboard,GetPlayerRow(fp_pl),1)
call MultiboardSetItemValue(mbitem,GetPlayersState(nPlayerId))
call MultiboardReleaseItem(mbitem)

set mbitem = MultiboardGetItem(udg_Multiboard,GetPlayerRow(fp_pl),0)
call MultiboardSetItemIcon(mbitem , "ReplaceableTextures\\CommandButtons\\BTNCancel.blp")
call MultiboardReleaseItem(mbitem)

set mbitem = MultiboardGetItem(udg_Multiboard,udg_NatNumInfo,1)
call MultiboardSetItemValue(mbitem,GetColoredString(6,I2S(udg_Num_Of_Nat)))
call MultiboardReleaseItem(mbitem)

set mbitem = MultiboardGetItem(udg_Multiboard,udg_GayNumInfo,1)
call MultiboardSetItemValue(mbitem,GetColoredString(6,I2S(udg_Num_Of_Gay)))
call MultiboardReleaseItem(mbitem)

set grp = null
set mbitem = null

if( udg_ItsForDebug ) then
return
endif

call TriggerExecute( gg_trg_Function_CheckGameOver )
endfunction

function InitPlayers takes nothing returns nothing
local integer nPlayerIndex

set nPlayerIndex = 0
loop
exitwhen nPlayerIndex >= 12

if ( IsSlotPlayer(nPlayerIndex) ) then
set udg_Total_Num_Players = udg_Total_Num_Players + 1
set udg_This_Player_Is_Playing[nPlayerIndex] = true
set udg_STR_PlayerState[nPlayerIndex] = " натурал"
call SetPlayerFlagBJ( PLAYER_STATE_GIVES_BOUNTY, true, Player(nPlayerIndex ) )
endif
set nPlayerIndex = nPlayerIndex + 1
endloop

set nPlayerIndex = 0
loop
exitwhen nPlayerIndex > 9

if ( udg_This_Player_Is_Playing[nPlayerIndex] ) then
call CreateNatural(nPlayerIndex)
set udg_Num_Of_Nat = udg_Num_Of_Nat + 1
set udg_NiconNumber[nPlayerIndex+1] = 8
call ForceAddPlayer( udg_Naturals, Player(nPlayerIndex) )
endif
set nPlayerIndex = nPlayerIndex + 1
endloop
if(IsSlotPlayer(10)) then
set udg_Num_Of_Gay = udg_Num_Of_Gay + 1
set udg_STR_PlayerState[10] = " гей"
call ForceAddPlayer( udg_Gays, Player(10) )
call SetPlayerStateBJ( Player(10), PLAYER_STATE_RESOURCE_FOOD_CAP, 76 )
call SetPlayerStateBJ( Player(10), PLAYER_STATE_RESOURCE_GOLD, 425 )
call SetPlayerStateBJ( Player(10), PLAYER_STATE_RESOURCE_LUMBER, 1000 )
call CreateUnit( Player(10), 'e004', GetUnitX(udg_GayTevern), GetUnitY(udg_GayTevern),270.00)
else
call SetNewGayShopsOwner( 0 )
endif
if(IsSlotPlayer(11)) then
set udg_Num_Of_Gay = udg_Num_Of_Gay + 1
set udg_STR_PlayerState[11] = " гей"
call ForceAddPlayer( udg_Gays, Player(11) )
call SetPlayerStateBJ( Player(11), PLAYER_STATE_RESOURCE_FOOD_CAP, 76 )
call SetPlayerStateBJ( Player(11), PLAYER_STATE_RESOURCE_GOLD, 425 )
call SetPlayerStateBJ( Player(11), PLAYER_STATE_RESOURCE_LUMBER, 1000 )
call CreateUnit( Player(11), 'e004', GetUnitX(udg_GayTevern), GetUnitY(udg_GayTevern),270.00)
endif

if(udg_ItsForDebug) then Проверка карты
return
endif
call TriggerSleepAction( 0.25 )
call TriggerExecute( gg_trg_Function_CheckGameOver )
return
endfunction

function TurnUnitIntoSheep takes unit fp_uUnit returns nothing
local unit uSheeper

call IssueImmediateOrder( fp_uUnit, "stop" )
set uSheeper = CreateUnit( Player(PLAYER_NEUTRAL_PASSIVE), 'n001', GetUnitX(fp_uUnit), GetUnitY(fp_uUnit), 0 )
call SetUnitPathing( uSheeper, false )
call UnitApplyTimedLife( uSheeper, 'BTLF', 5 )
call IssueTargetOrder( uSheeper, "polymorph", fp_uUnit )
endfunction

function DestroyTimedVision takes nothing returns nothing
local timer t = GetExpiredTimer()
call DestroyFogModifier( LoadFogModifierHandle(udg_Hashtable,GetHandleId(t),0))
call FlushChildHashtable(udg_Hashtable, GetHandleId(t))
call DestroyTimer(t)
set t = null
endfunction

function TimedVision takes player fp_pl, location fp_locCenter, real fp_rRadius, real fp_rLast returns nothing
local fogmodifier fm
local timer t = CreateTimer()
set fm = CreateFogModifierRadiusLocBJ( true, fp_pl, FOG_OF_WAR_VISIBLE, fp_locCenter, fp_rRadius )
call SaveFogModifierHandle( udg_Hashtable,GetHandleId(t),0,fm )
call TimerStart(t, fp_rLast, false, function DestroyTimedVision )
set fm = null
set t = null
endfunction

function IsThereEnemyInRangeFilter takes nothing returns boolean
return IsUnitAliveBJ(GetFilterUnit()) and not IsUnitType(GetFilterUnit(), UNIT_TYPE_FLYING) and IsPlayerEnemy( GetOwningPlayer(GetFilterUnit()), bj_groupEnumOwningPlayer )
endfunction

function IsThereEnemyBombTargetInRange takes player fp_pl, location fp_locCenter, real fp_rRadius returns boolean
local group grp = CreateGroup()
local boolean bResult

call GroupEnumUnitsInRange( grp, GetLocationX(fp_locCenter), GetLocationY(fp_locCenter), fp_rRadius, Filter(function IsThereEnemyInRangeFilter))
call DestroyBoolExpr( Filter(function IsThereEnemyInRangeFilter) )

set bResult = FirstOfGroup(grp) != null
call DestroyGroup( grp )
return bResult
endfunction

===========================================================================
function InitTrig_Player_Related_Functions takes nothing returns nothing
endfunction

function Trig_mult_Actions takes nothing returns nothing
local integer nPlayerIndex = 0
local integer nRowIndex = 0
local integer nColIndex = 0
local multiboarditem mbitem = null

set udg_Multiboard = CreateMultiboard()
call MultiboardSetRowCount( udg_Multiboard, GetRowsCount())
call MultiboardSetColumnCount( udg_Multiboard, 3)
call MultiboardSetTitleText(udg_Multiboard,udg_STR_MapVersion)

set mbitem = MultiboardGetItem(udg_Multiboard,0,0)
call MultiboardSetItemValue(mbitem,"|cffEE9A00Имя игрока:|r")
call MultiboardSetItemStyle(mbitem, true, false )
call MultiboardSetItemWidth(mbitem, 10/100. )
call MultiboardReleaseItem(mbitem)

set mbitem = MultiboardGetItem(udg_Multiboard,0,1)
call MultiboardSetItemValue(mbitem,"|cff00f5ffСостояние|r")

call MultiboardSetItemStyle(mbitem, true, false )
call MultiboardSetItemWidth(mbitem, 7/100. )
call MultiboardReleaseItem(mbitem)

set mbitem = MultiboardGetItem(udg_Multiboard,0,2)
call MultiboardSetItemValue(mbitem,"|cFF37FB04K/D|r")
call MultiboardSetItemStyle(mbitem, true, false )
call MultiboardSetItemWidth(mbitem, 3/100. )
call MultiboardReleaseItem(mbitem)

loop
exitwhen nPlayerIndex >= 12
if (udg_This_Player_Is_Playing[nPlayerIndex]) then

set nRowIndex = GetPlayerRow(Player(nPlayerIndex))

set mbitem = MultiboardGetItem( udg_Multiboard, nRowIndex, 0)
if(nRowIndex == 0) then
return
endif

call MultiboardSetItemIcon(mbitem,"ReplaceableTextures\\CommandButtons\\BTNSelectHeroOn.blp")
call MultiboardSetItemValue(mbitem, GetColoredPlayerName(nPlayerIndex))
call MultiboardSetItemStyle(mbitem, true, true )
call MultiboardSetItemWidth(mbitem, 10/100. )
call MultiboardReleaseItem(mbitem)

set mbitem = MultiboardGetItem(udg_Multiboard, nRowIndex, 1)
call MultiboardSetItemValue(mbitem, GetPlayersState(nPlayerIndex) )
call MultiboardSetItemStyle(mbitem, true,false)
call MultiboardSetItemWidth(mbitem, 7/100. )
call MultiboardReleaseItem(mbitem)

set mbitem = MultiboardGetItem(udg_Multiboard, nRowIndex, 2)
call MultiboardSetItemValue(mbitem, " 0/0" )
call MultiboardSetItemStyle(mbitem, true,false)
call MultiboardSetItemWidth(mbitem, 3/100. )
call MultiboardReleaseItem(mbitem)
set nRowIndex = 0
endif
set nPlayerIndex = nPlayerIndex + 1
endloop

set nRowIndex = (GetPlayerTotalNum() + 1)
set udg_NatNumInfo = nRowIndex

set mbitem = MultiboardGetItem(udg_Multiboard,nRowIndex,0)
call MultiboardSetItemValue(mbitem,"|cffff0000Натуралов:|r")
call MultiboardSetItemStyle(mbitem, true, false )
call MultiboardSetItemWidth(mbitem, 10/100. )
call MultiboardReleaseItem(mbitem)

set mbitem = MultiboardGetItem(udg_Multiboard,nRowIndex,1)
call MultiboardSetItemValue(mbitem,GetColoredString(GetRandomInt(0,11),I2S(udg_Num_Of_Nat)))
call MultiboardSetItemStyle(mbitem, true, false )
call MultiboardSetItemWidth(mbitem, 4/100. )
call MultiboardReleaseItem(mbitem)

set mbitem = MultiboardGetItem(udg_Multiboard,nRowIndex,2)
call MultiboardSetItemValue(mbitem,null)
call MultiboardSetItemStyle(mbitem, false, false )
call MultiboardSetItemWidth(mbitem, 5/100. )
call MultiboardReleaseItem(mbitem)

set nRowIndex = nRowIndex + 1
set udg_GayNumInfo = nRowIndex

set mbitem = MultiboardGetItem(udg_Multiboard,nRowIndex,0)
call MultiboardSetItemValue(mbitem,"|cff0000ffГеев:|r")
call MultiboardSetItemStyle(mbitem, true, false )
call MultiboardSetItemWidth(mbitem, 10/100. )
call MultiboardReleaseItem(mbitem)

set mbitem = MultiboardGetItem(udg_Multiboard,nRowIndex,1)
call MultiboardSetItemValue(mbitem,GetColoredString(GetRandomInt(0,11),I2S(udg_Num_Of_Gay)))
call MultiboardSetItemStyle(mbitem, true, false )
call MultiboardSetItemWidth(mbitem, 4/100. )
call MultiboardReleaseItem(mbitem)

set mbitem = MultiboardGetItem(udg_Multiboard,nRowIndex,2)
call MultiboardSetItemValue(mbitem,null)
call MultiboardSetItemStyle(mbitem, false, false )
call MultiboardSetItemWidth(mbitem, 5/100. )
call MultiboardReleaseItem(mbitem)

set nRowIndex = nRowIndex + 1
set udg_TimerRow = nRowIndex

set mbitem = MultiboardGetItem(udg_Multiboard,nRowIndex,0)
call MultiboardSetItemIcon(mbitem,"ReplaceableTextures\\CommandButtons\\BTNclock.blp")
call MultiboardSetItemValue(mbitem,"|cffc3dbffВремя: 00:00|r")
call MultiboardSetItemStyle(mbitem, true, true )
call MultiboardSetItemWidth(mbitem, 10/100. )
call MultiboardReleaseItem(mbitem)

set mbitem = MultiboardGetItem(udg_Multiboard,nRowIndex,1)
call MultiboardSetItemValue(mbitem,null)
call MultiboardSetItemStyle(mbitem, false, false )
call MultiboardSetItemWidth(mbitem, 5/100. )
call MultiboardReleaseItem(mbitem)

set mbitem = MultiboardGetItem(udg_Multiboard,nRowIndex,2)
call MultiboardSetItemValue(mbitem,null)
call MultiboardSetItemStyle(mbitem, false, false )
call MultiboardSetItemWidth(mbitem, 5/100. )
call MultiboardReleaseItem(mbitem)
set mbitem = null

call MultiboardDisplay(udg_Multiboard,true)
call MultiboardMinimize(udg_Multiboard,true)
call MultiboardMinimize(udg_Multiboard,false)
endfunction

===========================================================================
function InitTrig_mult takes nothing returns nothing
set gg_trg_mult = CreateTrigger( )
call TriggerAddAction( gg_trg_mult, function Trig_mult_Actions )
endfunction

))