MultiBoard System

Инструкция

function SetItem(integer a, integer b, string icon, real size, string val)

 - **Integer a** - номер по горизонтали
 - **Integer b** - номер по вертикали
 - **String icon** - здесь указываем адрес иконки. (Формат адреса "UI\\Widgets\\EscMenu\\Human\\checkbox-check.blp")
 - **Real size** - это размер ячейки. (Посмотрите как выглядят размеры на карте-примере)
 - **String val** - как будет подписана ячейка.

library MultiBoard initializer Init

globals
 multiboard mb
 private string name_MB =      "AoS - LordSerga"
 private trigger trig   =       CreateTrigger()
 private real init      =       2.  //Время инициализация мультибоарда
endglobals

private function SetItem takes integer a, integer b, string icon, real size, string val returns nothing
    local multiboarditem mbitem
    local boolean bl_1=true
    local boolean bl_2=true
    set mbitem = MultiboardGetItem(mb,a,b)
    if icon!="" then
        call MultiboardSetItemIcon(mbitem,icon)
    else
        set bl_1=false
    endif
    if val!="" then
        call MultiboardSetItemValue(mbitem,val)
    else
        set bl_2=false
    endif
    call MultiboardSetItemWidth(mbitem,size*.01)
    call MultiboardSetItemStyle(mbitem,bl_2,bl_1)
    call MultiboardReleaseItem(mbitem)
    set mbitem=null
endfunction

private function Start takes nothing returns nothing
    set mb=CreateMultiboard()
    call MultiboardSetRowCount(mb,9)    //вниз
    call MultiboardSetColumnCount(mb,4)    //по горизонтали
    call MultiboardSetTitleText(mb,name_MB)
    
    
    
    call MultiboardDisplay(mb,true)
endfunction

private function Init takes nothing returns nothing
    call TriggerRegisterTimerEvent(trig,init,false)
    call TriggerAddAction(trig,function Start)
endfunction

endlibrary

private function Init takes nothing returns nothing
    call TriggerRegisterTimerEvent(trig,init,false)
    call TriggerAddAction(trig,function Start)
endfunction

private function Start takes nothing returns nothing
    call DestroyTimer(GetExpiredTimer())
    ...
endfunction

private function Init takes nothing returns nothing
    call TimerStart(CreateTimer(),init,function Start)
endfunction