[code=jass]function NewTrackable takes string path,real x,real y,player owner,integer herot returns trackable
local trackable tr
if GetLocalPlayer() != owner then // Если игрок,котороый сидит за компьютером
set path=" "//не является тем, для кого trackable был создан,то для него этот trackable будет без модели.
endif//
set tr=CreateTrackable(path,x,y,0.)//создает trackable по заданам параметрав в точке х,y
call SaveReal(udg_Hash,GetHandleId(tr),0,x) // сохраняем координату x нашего trackable
call SaveReal(udg_Hash,GetHandleId(tr),1,y) // сохраняем координату y нашего trackable
call SaveInteger(udg_Hash,GetHandleId(tr),2,GetPlayerId(owner)) // сохраняем владельца нашего trackable
call SaveInteger(udg_Hash,GetHandleId(tr),3,herot) // сохраняем rawcode героя привязанного к нашему trackable
return tr //возвращает созданный trackable
endfunction[/code]

[code=jass]function GetTrackableX takes trackable tr returns real// Данная ф-ия возвращает координату х нужного нам Trackable
return LoadReal(udg_Hash,GetHandleId(tr),0)
endfunction

function GetTrackableY takes trackable tr returns real // Данная ф-ия возвращает координату у нужного нам Trackable
return LoadReal(udg_Hash,GetHandleId(tr),1)
endfunction

function GetTrackableOwner takes trackable tr returns player // Данная ф-ия возвращает владельца нужного нам Trackable
return Player(LoadInteger(udg_Hash,GetHandleId(tr),2))
endfunction
function GetTrackableHero takes trackable tr returns integer // Данная ф-ия возвращает rawcode героя нужного нам Trackable
return LoadInteger(udg_Hash,GetHandleId(tr),3)
endfunction[/code]

[code=jass]
function CreateTrack takes string path,real x, real y,integer herot,integer pl,trigger track,trigger hit returns nothing
local trackable tr
local integer i = 0
loop
exitwhen i == pl//количество игроков (от 0 до 11) для которых мы создадим trackable
if GetPlayerSlotState(Player(i)) == PLAYER_SLOT_STATE_PLAYING and GetPlayerController(Player(i)) == MAP_CONTROL_USER then// проверка на играющих игроков под контролем человека
set tr = NewTrackable(path,x,y,Player(i),herot) //Создание trackable для каждого из них
call TriggerRegisterTrackableTrackEvent(track,tr) //Добавление к trackable событие наведение в нужный нам триггер
call TriggerRegisterTrackableHitEvent(hit,tr) //Добавление к trackable событие клика в нужный нам триггер
endif
set i = i + 1
endloop
endfunction[/code]

[code=jass]function Trig_InitPick_Actions takes nothing returns nothing
set udg_Hash=InitHashtable()
set udg_HeroH[0]='Edem'
endfunction

function InitTrig_InitPick takes nothing returns nothing
set gg_trg_InitPick = CreateTrigger()
call TriggerRegisterTimerEvent( gg_trg_InitPick,.01,false)
call TriggerAddAction( gg_trg_InitPick, function Trig_InitPick_Actions )
endfunction
[/code]

[code=jass]function Trig_InitPick_Actions takes nothing returns nothing
local integer i=0
set udg_Hash=InitHashtable()
set udg_HeroH[0]='Edem'
loop
exitwhen i>11
call FogModifierStart(CreateFogModifierRect(Player(i),FOG_OF_WAR_VISIBLE,gg_rct_HeroPick,true,false))
set udg_CamT[i]=true
set i=i+1
endloop
set i=0
endfunction

function InitTrig_InitPick takes nothing returns nothing
set gg_trg_InitPick = CreateTrigger()
call TriggerRegisterTimerEvent( gg_trg_InitPick,.01,false)
call TriggerAddAction( gg_trg_InitPick, function Trig_InitPick_Actions )
endfunction
[/code]

[code=jass]function Trig_Camera_Actions takes nothing returns nothing
local integer i=0
loop
exitwhen i>11
if GetLocalPlayer() == Player(i) and udg_CamT[i] then//Крепит камеру если за компьютером сидит нужный нам игрок и его переменная CamT==true
call CameraSetupApplyForceDuration(gg_cam_CAMERA,true,.10)
endif
set i=i+1
endloop
endfunction

function InitTrig_Camera takes nothing returns nothing
set gg_trg_Camera = CreateTrigger( )
call TriggerRegisterTimerEvent( gg_trg_Camera,.01,true)
call TriggerAddAction( gg_trg_Camera, function Trig_Camera_Actions )
endfunction

[/code]

[code=jass]function Trig_InitPick_Actions takes nothing returns nothing
local integer i=0
local integer array IconHero
set udg_Hash=InitHashtable()
set udg_HeroH[0]='Edem'
set IconHero[0]='B008'
loop
exitwhen i>11
call FogModifierStart(CreateFogModifierRect(Player(i),FOG_OF_WAR_VISIBLE,gg_rct_HeroPick,true,false))
set udg_CamT[i]=true
set i=i+1
endloop
set i=0
endfunction

function InitTrig_InitPick takes nothing returns nothing
set gg_trg_InitPick = CreateTrigger()
call TriggerRegisterTimerEvent( gg_trg_InitPick,.01,false)
call TriggerAddAction( gg_trg_InitPick, function Trig_InitPick_Actions )
endfunction[/code]

[code=jass]function Trig_InitPick_Actions takes nothing returns nothing
local integer i=0
local integer array IconHero
local real x=-1160
local real y=2455
set udg_Hash=InitHashtable()
set udg_HeroH[0]='Edem'
set IconHero[0]='B008'
loop
exitwhen i>11
call FogModifierStart(CreateFogModifierRect(Player(i),FOG_OF_WAR_VISIBLE,gg_rct_HeroPick,true,false))
set udg_CamT[i]=true
set i=i+1
endloop
set i=0
loop
exitwhen i>0
call SaveDestructableHandle(udg_Hash,udg_HeroH[i],6,CreateDestructable(IconHero[i],x+65*i,y,0,1.,0)) //Создаст декорацию в тчоке x+65*i
call SaveBoolean(udg_Hash,udg_HeroH[i],5,true)//Сохраняем на rawcode героя логическую что бы определит взяли этого героя или нет.
call CreateTrack("4x4Trackable.MDX",x+65*i,y,udg_HeroH[i],11,gg_trg_Track,gg_trg_Click) // Создаем трекаблы и добавляем события в триггеры
set i=i+1
endloop
endfunction

function InitTrig_InitPick takes nothing returns nothing
set gg_trg_InitPick = CreateTrigger()
call TriggerRegisterTimerEvent( gg_trg_InitPick,.01,false)
call TriggerAddAction( gg_trg_InitPick, function Trig_InitPick_Actions )
endfunction
[/code]

[code=jass]function Trig_Click_Actions takes nothing returns nothing

endfunction

function InitTrig_Click takes nothing returns nothing
set gg_trg_Click = CreateTrigger()
call TriggerAddAction( gg_trg_Click, function Trig_Click_Actions )
endfunction
[/code]

[code=jass]function Trig_Track_Actions takes nothing returns nothing

endfunction

function InitTrig_Track takes nothing returns nothing
set gg_trg_Track = CreateTrigger()
call TriggerAddAction( gg_trg_Track, function Trig_Track_Actions )
endfunction
[/code]

[code=jass]function Trig_Track_Actions takes nothing returns nothing
local trackable tr=GetTriggeringTrackable() //реагирующая трекабля
local player p=GetTrackableOwner(tr) //владелец трекабли
local integer id=GetPlayerId(p) //Id игрока который навел
local integer herot=GetTrackableHero(tr) // Получаем равкод героя в переменной udg_HeroH
endfunction

function InitTrig_Track takes nothing returns nothing
set gg_trg_Track = CreateTrigger()
call TriggerAddAction( gg_trg_Track, function Trig_Track_Actions )
endfunction
[/code]

[code=jass]function Trig_Track_Actions takes nothing returns nothing
local trackable tr=GetTriggeringTrackable() //реагирующая трекабля
local player p=GetTrackableOwner(tr) //владелец трекабли
local integer id=GetPlayerId(p) //Id игрока который навел
local integer herot=GetTrackableHero(tr) // Получаем равкод героя в переменной udg_HeroH
local string s = " "
if udg_CamT[id] and LoadBoolean(udg_Hash,herot,5) then // если udg_CamT==trueи нашего героя еще не взяли то
call DestroyEffect(LoadEffectHandle(udg_Hash,herot,7)) //удалить загруженный спецэфект
if GetLocalPlayer() == p then // если игрок за компьютером равен игроку владельцу
set s = "BTNselection.mdx"//установить s-модель эффекта на "BTNselection.mdx"
endif
call SaveEffectHandle(udg_Hash,herot,7,AddSpecialEffect(s,GetTrackableX(tr),GetTrackableY(tr)))//Сохранить тут же созаднный эффект в позиции трекабли
endif
set tr=null
endfunction

function InitTrig_Track takes nothing returns nothing
set gg_trg_Track = CreateTrigger()
call TriggerAddAction( gg_trg_Track, function Trig_Track_Actions )
endfunction
[/code]

[code=jass]function Trig_Click_Actions takes nothing returns nothing
local trackable tr=GetTriggeringTrackable() //реагирующая трекабля
local player p=GetTrackableOwner(tr) //владелец трекабли
local integer id=GetPlayerId(p) //Id игрока который навел
local integer herot=GetTrackableHero(tr) // Получаем равкод героя в переменной udg_HeroH
if udg_CamT[id] and LoadBoolean(udg_Hash,herot,5) then // если udg_CamT==trueи нашего героя еще не взяли то
call DestroyEffect(LoadEffectHandle(udg_Hash,herot,7)) // уничтожаем эффект
set udg_Hero[id]=CreateUnit(p,herot,GetStartLocationX(GetPlayerStartLocation(p)),GetStartLocationY(GetPlayerStartLocation(p)),0) //создаем героя игроку
call SaveBoolean(udg_Hash,herot,5,false) // сохраняем на равкод героя false
call RemoveDestructable(LoadDestructableHandle(udg_Hash,herot,6)) //удаляем декорацию героя
set udg_CamT[id]=false// устанавливаем игроку CamT на false,что бы отпустить камеру и не реагировать на Trackable
call DisplayTextToPlayer(GetLocalPlayer(),0.,0.,GetPlayerName(p)+"|r has choose "+GetUnitName(udg_Hero[id])+".") //Выводим надпись о выборе
endif
set tr=null
endfunction

function InitTrig_Click takes nothing returns nothing
set gg_trg_Click = CreateTrigger()
call TriggerAddAction( gg_trg_Click, function Trig_Click_Actions )
endfunction[/code]