新規スキル案

「新規スキル案」の編集履歴（バックアップ）一覧に戻る

新規スキル案 - (2008/06/03 (火) 22:35:40) の編集履歴(バックアップ)

---

scope Blur

private constant function GetAbi takes nothing returns integer
return 'AEev' //The spell's raw code
endfunction

function Trig_Blur_Conditions takes nothing returns boolean
return GetLearnedSkillBJ() == GetAbi()
endfunction

globals
private real blur = 100
private unit caster
endglobals

private function Blur_Main takes nothing returns nothing
local real MaxC = GetUnitAbilityLevel(caster,GetAbi()) * 25
local real MinC = ( GetUnitAbilityLevel(caster,GetAbi()) - 1 ) * 25
set blur = blur + GetRandomReal(-3,3)
if ( blur < MinC ) then
set blur = MinC
elseif ( blur > MaxC ) then
set blur = MaxC
endif
call SetUnitVertexColorBJ(caster,100,100,100,blur)
endfunction

private function Trig_Blur_Actions takes nothing returns nothing
local timer tm
if ( GetUnitAbilityLevel(GetLearningUnit(),GetAbi()) == 1 ) then
set caster = GetLearningUnit()
set tm = CreateTimer()
call TimerStart(tm,0.2,true,function Blur_Main)
endif
endfunction

//===========================================================================
function InitTrig_Blur takes nothing returns nothing
set gg_trg_Blur = CreateTrigger( )
call TriggerRegisterAnyUnitEventBJ( gg_trg_Blur, EVENT_PLAYER_HERO_SKILL )
call TriggerAddCondition( gg_trg_Blur, Condition( function Trig_Blur_Conditions ) )
call TriggerAddAction( gg_trg_Blur, function Trig_Blur_Actions )
endfunction

endscope