You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
505 lines
13 KiB
505 lines
13 KiB
#ifndef YDWEGeneralBounsSystemIncluded
|
|
#define YDWEGeneralBounsSystemIncluded
|
|
|
|
//===========================================================================
|
|
//修改生命
|
|
//===========================================================================
|
|
|
|
#include "YDWEBase.j"
|
|
library YDWEGeneralBounsSystem initializer Initialize
|
|
|
|
globals
|
|
private integer array ABILITY_COUNT
|
|
private integer array ABILITY_NUM
|
|
private integer array BonusAbilitys
|
|
private integer array PowersOf2
|
|
private integer PRELOAD_DUMMY_UNIT = 'hpea'
|
|
private integer array YDWEBONUS_MyChar
|
|
private boolean PRELOAD_ABILITYS = true
|
|
private constant integer BONUS_TYPES = 4
|
|
private integer array MaxBonus
|
|
private integer array MinBonus
|
|
private unit array Units
|
|
private integer UnitCount = 0
|
|
endglobals
|
|
|
|
<?
|
|
local idx = {
|
|
'0','1','2','3','4','5','6','7','8','9',
|
|
'a','b','c','d','e','f','g',
|
|
'h','i','j','k','l','m','n',
|
|
}
|
|
local slk = require 'slk'
|
|
for i = 1, 24 do
|
|
local o = slk.ability.AItx:new('YDb'..idx[i])
|
|
local v = 2^(i-1)
|
|
if i == 24 then
|
|
v = -v
|
|
end
|
|
o.DataA1 = v
|
|
end
|
|
for i = 1, 13 do
|
|
local o = slk.ability.AId0:new('YDc'..idx[i])
|
|
local v = 2^(i-1)
|
|
if i == 13 then
|
|
v = -v
|
|
end
|
|
o.DataA1 = v
|
|
end
|
|
for i = 1, 16 do
|
|
local o = slk.ability.AIlz:new('YDl'..idx[i])
|
|
local v = 2^(i-1)
|
|
o.levels = 3
|
|
o.DataA1 = 0
|
|
o.DataA2 = v
|
|
o.DataA3 = -v
|
|
end
|
|
for i = 1, 16 do
|
|
local o = slk.ability.AImz:new('YDm'..idx[i])
|
|
local v = 2^(i-1)
|
|
o.levels = 3
|
|
o.DataA1 = 0
|
|
o.DataA2 = v
|
|
o.DataA3 = -v
|
|
end
|
|
?>
|
|
//以下函数仅仅是让技能ID出现在代码里，不然SLK优化器会删除这些技能
|
|
private function DisplayAllAbilityId takes nothing returns nothing
|
|
local integer aid=0
|
|
set aid='YDl0'
|
|
set aid='YDl1'
|
|
set aid='YDl2'
|
|
set aid='YDl3'
|
|
set aid='YDl4'
|
|
set aid='YDl5'
|
|
set aid='YDl6'
|
|
set aid='YDl7'
|
|
set aid='YDl8'
|
|
set aid='YDl9'
|
|
set aid='YDla'
|
|
set aid='YDlb'
|
|
set aid='YDlc'
|
|
set aid='YDld'
|
|
set aid='YDle'
|
|
set aid='YDlf'
|
|
set aid='YDm0'
|
|
set aid='YDm1'
|
|
set aid='YDm2'
|
|
set aid='YDm3'
|
|
set aid='YDm4'
|
|
set aid='YDm5'
|
|
set aid='YDm6'
|
|
set aid='YDm7'
|
|
set aid='YDm8'
|
|
set aid='YDm9'
|
|
set aid='YDma'
|
|
set aid='YDmb'
|
|
set aid='YDmc'
|
|
set aid='YDmd'
|
|
set aid='YDme'
|
|
set aid='YDmf'
|
|
set aid='YDc0'
|
|
set aid='YDc1'
|
|
set aid='YDc2'
|
|
set aid='YDc3'
|
|
set aid='YDc4'
|
|
set aid='YDc5'
|
|
set aid='YDc6'
|
|
set aid='YDc7'
|
|
set aid='YDc8'
|
|
set aid='YDc9'
|
|
set aid='YDca'
|
|
set aid='YDcb'
|
|
set aid='YDcc'
|
|
set aid='YDb0'
|
|
set aid='YDb1'
|
|
set aid='YDb2'
|
|
set aid='YDb3'
|
|
set aid='YDb4'
|
|
set aid='YDb5'
|
|
set aid='YDb6'
|
|
set aid='YDb7'
|
|
set aid='YDb8'
|
|
set aid='YDb9'
|
|
set aid='YDba'
|
|
set aid='YDbb'
|
|
set aid='YDbc'
|
|
set aid='YDbd'
|
|
set aid='YDbe'
|
|
set aid='YDbf'
|
|
set aid='YDbg'
|
|
set aid='YDbh'
|
|
set aid='YDbi'
|
|
set aid='YDbj'
|
|
set aid='YDbk'
|
|
set aid='YDbl'
|
|
set aid='YDbm'
|
|
set aid='YDbn'
|
|
endfunction
|
|
|
|
private function UnitClearBonus takes unit u, integer bonusType returns nothing
|
|
local integer i=ABILITY_COUNT[bonusType+1]-1
|
|
loop
|
|
exitwhen i < ABILITY_COUNT[bonusType]
|
|
call UnitRemoveAbility(u,BonusAbilitys[i])
|
|
set i=i-1
|
|
endloop
|
|
call YDWESaveIntegerByString(I2S(YDWEH2I(u)),"bonusType"+I2S(bonusType),0)
|
|
endfunction
|
|
|
|
private function SetUnitMaxState takes unit u,integer bonusType,real value returns boolean
|
|
local integer v=R2I(value)
|
|
local integer s=0
|
|
local integer o=0
|
|
local unitstate state
|
|
local integer i=ABILITY_COUNT[bonusType+1]- 2
|
|
local integer a=ABILITY_NUM[bonusType]
|
|
if value>65535 or value<=0 then
|
|
debug call BJDebugMsg("输入数据无效")
|
|
return false
|
|
endif
|
|
|
|
if bonusType == 0 then
|
|
set state=UNIT_STATE_MAX_LIFE
|
|
elseif bonusType == 1 then
|
|
set state=UNIT_STATE_MAX_MANA
|
|
else
|
|
debug call BJDebugMsg("无效状态")
|
|
return false
|
|
endif
|
|
set v=v-R2I(GetUnitState(u, state))
|
|
call YDWESaveIntegerByString(I2S(YDWEH2I(u)),"bonusType"+I2S(bonusType),v)
|
|
if v>0 then
|
|
set o=3
|
|
elseif v<0 then
|
|
set o=2
|
|
set v=-v
|
|
else
|
|
return false
|
|
endif
|
|
loop
|
|
exitwhen i < ABILITY_COUNT[bonusType]
|
|
if v >= PowersOf2[i] then
|
|
call UnitAddAbility(u, BonusAbilitys[i])
|
|
call SetUnitAbilityLevel(u, BonusAbilitys[i], o)
|
|
call UnitRemoveAbility(u, BonusAbilitys[i])
|
|
set v=v-PowersOf2[i]
|
|
endif
|
|
set i=i-1
|
|
endloop
|
|
return true
|
|
endfunction
|
|
|
|
private function UnitSetBonus takes unit u, integer bonusType, integer ammount returns boolean
|
|
local integer i
|
|
//设置属性为0不进行Loop
|
|
if ammount==0 then
|
|
call UnitClearBonus(u,bonusType)
|
|
return false
|
|
endif
|
|
if ammount < MinBonus[bonusType] or ammount > MaxBonus[bonusType] then
|
|
debug call BJDebugMsg("BonusSystem Error: Bonus too high or low (" + I2S(ammount) + ")")
|
|
return false
|
|
elseif bonusType < 0 or bonusType >= BONUS_TYPES then
|
|
debug call BJDebugMsg("BonusSystem Error: Invalid bonus type (" + I2S(bonusType) + ")")
|
|
return false
|
|
endif
|
|
|
|
call YDWESaveIntegerByString(I2S(YDWEH2I(u)),"bonusType"+I2S(bonusType),ammount)
|
|
if ammount < 0 then
|
|
set ammount = MaxBonus[bonusType] + ammount + 1
|
|
call UnitAddAbility(u, BonusAbilitys[ABILITY_COUNT[bonusType+1] - 1])
|
|
call UnitMakeAbilityPermanent(u, true, BonusAbilitys[ABILITY_COUNT[bonusType+1] - 1])
|
|
else
|
|
call UnitRemoveAbility(u,BonusAbilitys[ABILITY_COUNT[bonusType+1] - 1])
|
|
endif
|
|
|
|
set i = ABILITY_COUNT[bonusType+1]-2
|
|
loop
|
|
exitwhen i < ABILITY_COUNT[bonusType]
|
|
if ammount >= PowersOf2[i] then
|
|
call UnitAddAbility(u,BonusAbilitys[i])
|
|
call UnitMakeAbilityPermanent(u, true, BonusAbilitys[i])
|
|
set ammount = ammount - PowersOf2[i]
|
|
else
|
|
call UnitRemoveAbility(u,BonusAbilitys[i])
|
|
endif
|
|
|
|
set i = i - 1
|
|
endloop
|
|
|
|
if not YDWEGetBooleanByString(I2S(YDWEH2I(u)),"bonusMark") then
|
|
call YDWESaveBooleanByString(I2S(YDWEH2I(u)),"bonusMark", true)
|
|
set UnitCount = UnitCount + 1
|
|
set Units[UnitCount] = u
|
|
endif
|
|
|
|
return true
|
|
endfunction
|
|
|
|
private function UnitGetBonus takes unit u, integer bonusType returns integer
|
|
return YDWEGetIntegerByString(I2S(YDWEH2I(u)),"bonusType"+I2S(bonusType))
|
|
endfunction
|
|
|
|
private function AddUnitMaxState takes unit u,integer bonusType,real value returns boolean
|
|
local unitstate state
|
|
if bonusType==0 then
|
|
set state=UNIT_STATE_MAX_LIFE
|
|
elseif bonusType==1 then
|
|
set state=UNIT_STATE_MAX_MANA
|
|
else
|
|
return false
|
|
endif
|
|
return SetUnitMaxState( u,bonusType, value+GetUnitState(u,state))
|
|
endfunction
|
|
|
|
private function UnitAddBonus takes unit u, integer bonusType, integer ammount returns boolean
|
|
return UnitSetBonus(u, bonusType, UnitGetBonus(u, bonusType) + ammount)
|
|
endfunction
|
|
|
|
private function FlushUnits takes nothing returns nothing
|
|
local integer i = UnitCount
|
|
local string h
|
|
loop
|
|
exitwhen i < 1
|
|
if GetUnitTypeId(Units[i]) == 0 then
|
|
set h = I2S(YDWEH2I(Units[i]))
|
|
call YDWESaveIntegerByString(h,"bonusType0",0)
|
|
call YDWESaveIntegerByString(h,"bonusType1",0)
|
|
call YDWESaveIntegerByString(h,"bonusType2",0)
|
|
call YDWESaveIntegerByString(h,"bonusType3",0)
|
|
call YDWESaveBooleanByString(h,"bonusMark",false)
|
|
set Units[i] = Units[UnitCount]
|
|
set Units[UnitCount] = null
|
|
set UnitCount = UnitCount - 1
|
|
endif
|
|
set i = i - 1
|
|
endloop
|
|
endfunction
|
|
|
|
function YDWEUnitSetBonus takes unit u, integer bonusType, integer ammount returns nothing
|
|
if bonusType==0 or bonusType==1 then
|
|
call SetUnitMaxState(u,bonusType,ammount)
|
|
else
|
|
call UnitSetBonus(u,bonusType,ammount)
|
|
endif
|
|
endfunction
|
|
|
|
function YDWEUnitAddBonus takes unit u, integer bonusType, integer ammount returns nothing
|
|
if bonusType==0 or bonusType==1 then
|
|
call AddUnitMaxState(u,bonusType,ammount)
|
|
else
|
|
call UnitAddBonus(u,bonusType,ammount)
|
|
endif
|
|
endfunction
|
|
|
|
function YDWEGeneralBounsSystemUnitSetBonus takes unit u,integer bonusType,integer mod,integer ammount returns nothing
|
|
if mod==0 then
|
|
call YDWEUnitAddBonus(u,bonusType,ammount)
|
|
elseif mod==1 then
|
|
call YDWEUnitAddBonus(u,bonusType,0-ammount)
|
|
else
|
|
call YDWEUnitSetBonus(u,bonusType,ammount)
|
|
endif
|
|
endfunction
|
|
|
|
function YDWEGeneralBounsSystemUnitGetBonus takes unit u,integer bonusType returns integer
|
|
return YDWEGetIntegerByString(I2S(YDWEH2I(u)),"bonusType"+I2S(bonusType))
|
|
endfunction
|
|
|
|
//private keyword BonusAbilitys
|
|
private function InitializeAbilitys takes nothing returns nothing
|
|
local integer i=0
|
|
local integer m=0
|
|
|
|
set ABILITY_COUNT[0]=0 //life max
|
|
set ABILITY_COUNT[1]=15 //mana max
|
|
set ABILITY_COUNT[2]=30 //armor
|
|
set ABILITY_COUNT[3]=43 //attack
|
|
set ABILITY_COUNT[4]=67
|
|
|
|
set ABILITY_NUM[0]=15
|
|
set ABILITY_NUM[1]=15
|
|
set ABILITY_NUM[2]=13
|
|
set ABILITY_NUM[3]=24
|
|
|
|
// Bonus Mod - armor abilitys
|
|
loop
|
|
exitwhen i>9
|
|
set YDWEBONUS_MyChar[i]='0'+m
|
|
set m=m+1
|
|
set i=i+1
|
|
endloop
|
|
set m=0
|
|
loop
|
|
exitwhen i>26
|
|
set YDWEBONUS_MyChar[i]='a'+m
|
|
set m=m+1
|
|
set i=i+1
|
|
endloop
|
|
|
|
set i =0
|
|
set m=0
|
|
loop
|
|
exitwhen m>(ABILITY_NUM[0]-1)
|
|
set BonusAbilitys[i] = 'YDl0' -'0'+YDWEBONUS_MyChar[m]// +1
|
|
set i=i+1
|
|
set m=m+1
|
|
endloop
|
|
// Bonus Mod - Damage abilitys
|
|
set m=0
|
|
loop
|
|
exitwhen m>(ABILITY_NUM[1]-1)
|
|
set BonusAbilitys[i] = 'YDm0' -'0'+YDWEBONUS_MyChar[m]// +1
|
|
set i=i+1
|
|
set m=m+1
|
|
endloop
|
|
// Bonus Mod - Life MaxState abilitys
|
|
set m=0
|
|
loop
|
|
exitwhen m>(ABILITY_NUM[2]-1)
|
|
set BonusAbilitys[i] = 'YDc0' -'0'+YDWEBONUS_MyChar[m]// +1
|
|
set i=i+1
|
|
set m=m+1
|
|
endloop
|
|
// Bonus Mod - Mana MaxState abilitys
|
|
set m=0
|
|
loop
|
|
exitwhen m>(ABILITY_NUM[3]-1)
|
|
set BonusAbilitys[i] = 'YDb0' -'0'+YDWEBONUS_MyChar[m]// +1
|
|
set i=i+1
|
|
set m=m+1
|
|
endloop
|
|
endfunction
|
|
|
|
private function Initialize takes nothing returns nothing
|
|
local integer i = 1
|
|
local unit u
|
|
local integer n=0
|
|
local integer add=0
|
|
call InitializeAbilitys()
|
|
loop
|
|
set i=1
|
|
set PowersOf2[add] = 1
|
|
loop
|
|
set PowersOf2[add+1] = PowersOf2[add ] * 2
|
|
set add=add+1
|
|
set i = i + 1
|
|
exitwhen i == ABILITY_NUM[n]
|
|
endloop
|
|
set MaxBonus[n] = PowersOf2[add] - 1
|
|
set MinBonus[n] = -PowersOf2[add]
|
|
set add=add+1
|
|
set n=n+1
|
|
exitwhen n>=4
|
|
endloop
|
|
//预读技能
|
|
if PRELOAD_ABILITYS then
|
|
set u = CreateUnit(Player(15), PRELOAD_DUMMY_UNIT, 0, 0, 0)
|
|
set i = 0
|
|
loop
|
|
exitwhen i == ABILITY_COUNT[5]
|
|
call UnitAddAbility(u, BonusAbilitys[i])
|
|
set i = i + 1
|
|
endloop
|
|
call RemoveUnit(u)
|
|
set u = null
|
|
endif
|
|
//回收数据
|
|
call TimerStart(CreateTimer(), 10, true, function FlushUnits)
|
|
endfunction
|
|
|
|
function YDWELifeChange takes unit u,integer mod,integer ch,integer id returns nothing
|
|
local integer a
|
|
local integer b
|
|
local integer c
|
|
local integer d
|
|
local integer aid = id
|
|
|
|
if mod==1 then
|
|
set ch=-ch
|
|
elseif mod==2 then
|
|
set ch=ch-R2I(GetUnitState(u,UNIT_STATE_MAX_LIFE))
|
|
endif
|
|
//set YDWEADDBONUS_LIFE=YDWEADDBONUS_LIFE+ch
|
|
if ch>99999 then
|
|
set ch=99999
|
|
endif
|
|
if ch<-99999 then
|
|
set ch=-99999
|
|
endif
|
|
if ch<0 then
|
|
set a=2
|
|
set ch=-ch
|
|
else
|
|
set a=7
|
|
endif
|
|
set b=0
|
|
loop
|
|
exitwhen b==5
|
|
set c=ch-ch/10*10
|
|
set d=0
|
|
loop
|
|
exitwhen d==c
|
|
call UnitAddAbility(u,aid)
|
|
call SetUnitAbilityLevel(u,aid,a)
|
|
call UnitRemoveAbility(u,aid)
|
|
set d=d+1
|
|
endloop
|
|
set ch=ch/10
|
|
set a=a+1
|
|
set b=b+1
|
|
endloop
|
|
|
|
endfunction
|
|
|
|
//===========================================================================
|
|
//修改魔法
|
|
//===========================================================================
|
|
function YDWEManaChange takes unit u,integer mod,integer ch,integer id returns nothing
|
|
local integer a
|
|
local integer b
|
|
local integer c
|
|
local integer d
|
|
local integer aid = id
|
|
|
|
if mod==1 then
|
|
set ch=-ch
|
|
elseif mod==2 then
|
|
set ch=ch-R2I(GetUnitState(u,UNIT_STATE_MAX_MANA))
|
|
endif
|
|
//set YDWEADDBONUS_MANA=YDWEADDBONUS_MANA+ch
|
|
if ch>99999 then
|
|
set ch=99999
|
|
endif
|
|
if ch<-99999 then
|
|
set ch=-99999
|
|
endif
|
|
if ch<0 then
|
|
set a=2
|
|
set ch=-ch
|
|
else
|
|
set a=7
|
|
endif
|
|
|
|
set b=0
|
|
loop
|
|
exitwhen b==5
|
|
set c=ch-ch/10*10
|
|
set d=0
|
|
loop
|
|
exitwhen d==c
|
|
call UnitAddAbility(u,aid)
|
|
call SetUnitAbilityLevel(u,aid,a)
|
|
call UnitRemoveAbility(u,aid)
|
|
set d=d+1
|
|
endloop
|
|
set ch=ch/10
|
|
set a=a+1
|
|
set b=b+1
|
|
endloop
|
|
endfunction
|
|
|
|
endlibrary
|
|
|
|
#endif /// YDWEGeneralBounsSystemIncluded
|
|
|