Всё для Warcraft 3

[JASS] Урок 5. Циклы

Волчачка — Fri, 04 Sep 2015 00:56:49 GMT

Приветствую вас дорогие мои друзья, сегодня я вместо Дуосоры Солстикова , поясню о циклах. Начнём с того, что он именуется начальным ключевым словом - loop и закрывается ключевым словом endloop, а условный оператор выхода называется - exitwhen, который прерывает цикл, если условие становиться истинным.
loop - начало цикла
exitwhen - условный выхода из цикла. Условный выход будет выполнен, если условие для выхода из цикла станет истинным.
endloop - конец цикла

Пример простенького цикла:

Код

function Test takes nothing returns nothing
      local integer i = 0
      loop
          set i = i + 1
      exitwhen i == 12
      endloop
endfunction

Цикл может повторяться неограниченное кол-во раз, но однако в зависимости от мощности процессора может обрабатывать в течении микро времени n-ое кол-во повтором, или зациклится совсем или сломает поток, в котором он работает. Это было проверенно в ходе тестов, когда просто тестировал может ли он делать больше повторов.
Когда поставил условие выхода примерно больше 10000 раз, то он неожиданного не завершался, проверял через таймер, было всего 9820 повторов, на другой машине по мощнее он делал больше.

exitwhen {Условие 1,Условие N ...} может принимать несколько условий.
i >= 12 or b or not b2

Примеры:
exitwhen i == 12; exitwhen p == null or b; exitwhen not b; и т.д.
Рекомендую использовать для выхода из цикла or для двух условий и использовал логическую переменную.
Не рекомендую использовать and, т.к. считаю не особо полезным для цикла.

Для циклов с шагом, который использует локальную переменную или одну и туже глобальную переменную, которая используется разными циклами нужно обнулять.

Чаще всего циклы используются для инициализации по умолчанию переменных, в основном глобальных переменных массивов, а так же для для того зарегистрировать несколько игроков на 1 триггер. Самое наибольшее применение для охвата боевых единиц вокруг определённого воина.

А теперь мы рассмотрим один из вариантов использования цикла в данном примере.

Допустим, у нас есть карта, где герой по имени Николай исцеляет здоровье всем союзникам и себе в размере 100 ед., каждые 120 секунд. И нам нужно написать код, который делал бы всё сие данное действие. Для этого мы напишем функцию HealNicholas, в который будет цикл, сортирующий воинов, которые будут исцелены согласно условию.

Код

function HealNicholas takes nothing returns nothing
      local unit p = null
      call GroupEnumUnitsInRange( udg_Group, GetUnitX(udg_Unit), GetUnitY(udg_Unit), 500., null )
      loop
          set p = FirstOfGroup( udg_Group )
      exitwhen p == null
          if not IsUnitType( p, UNIT_TYPE_DEAD ) and IsUnitAlly( p, udg_Player ) and  not IsUnitType( p, UNIT_TYPE_ANCIENT ) and not IsUnitType( p, UNIT_TYPE_STRUCTURE ) then
              call SetUnitState( p, UNIT_STATE_LIFE, GetUnitState( p, UNIT_STATE_LIFE ) + 100. )
          endif
          call GroupRemoveUnit( udg_Group, p )
      endloop
      set p = null
endfunction

native GroupEnumUnitsInRange takes group whichGroup¹, real x², real y³, real radius⁴, boolexpr filter⁵ returns nothing
Охватывает вокруг точки координат x,y боевых единиц.
1 - группа, в которую добавляются боевые единицы сие данной функцией.
2,3 - координаты, где функция перебирает боевых единиц.
4 - радиус, по площади которого функция перебирает боевых единиц
boolexpr filter - фильтр которому, данная боевая единица будет добавлена в группу, иначе сие добавления не будет. Используемый тип для данного filterfunc, для этого создаётся функция фильтра, с возвращением логического значения. Внутри фильтр функции можно написать условия, для включения перечисляемой боевой единицы в группу(Отряд).
native FirstOfGroup takes group whichGroup returns unit - Возвращает первую боевую единицу в группе(Отряде).

constant native IsUnitType takes unit whichUnit, unittype whichUnitType returns boolean - возвращает логическое значение , является ли боевая единица относится к данному типу или классификации.
UNIT_TYPE_DEAD - Если боевая единица труп (т.е. мертвая), то вернёт истину.
UNIT_TYPE_ANCIENT - Если боевая едина древо, то вернёт истину.
UNIT_TYPE_STRUCTURE - Если боевая едина постройка, то вернёт истину.
constant native IsUnitAlly takes unit whichUnit, player whichPlayer returns boolean - возвращает логическое значение, выявляет является ли данная боевая единица союзником для данного игрока.

native SetUnitState takes unit whichUnit, unitstate whichUnitState, real newVal returns nothing - устанавливает текущее значение маны или здоровья боевой единицы.
constant native GetUnitState takes unit whichUnit, unitstate whichUnitState returns real - возвращает текущее или максимальное значение маны или здоровья боевой единицы.
UNIT_STATE_LIFE - текущее значение жизни(здоровья)
native GroupRemoveUnit takes group whichGroup, unit whichUnit returns nothing - удаляет боевую единицу из группы.

В данном примере, мы просто используем условие, по которому отбирается нам нужная боевая единица для исцеления. Цикл завершиться, когда группа станет пустой, т.е. при получении б.е. в переменную p будет равна null (Это будет говорит о том, что группа пуста).

Версия 0.2

[Вопрос] Random в WarCraft 3

Duosora — Thu, 20 Aug 2015 06:37:20 GMT

Всё началось вот с этой темы. Но, думаю, сделать тут обсуждение будет намного лучше.
Предлагаю разобраться в механике работы GetRandomInt/Real.
Для анализа через Preload Exploit я вынул значения случайных чисел при конкретных Random Seed - от 0 до 5999 (могу дополнить аж до 2147483647.

Доподлинно известно, что Варкрафт применяет псевдослучайные числа, генерируемые в определённой последовательности.
Сама последовательность - математическая рекуррентная формула, которая состоит из определённых действий и из предыдущего члена выводит следующий. Первым членом такой последовательности является некое значение Random Seed. В Варкрафте им управляют функции SetRandomSeed и GetRandomSeed (изменение и получение).

Задача - вывести данную рекуррентную формулу. Если у кого-то есть какие-то соображения о том, что стоит попробовать или сделать - обсудим.
Всё-таки, этот вопрос в варкрафте ещё открыт.

Upd.: Из интересного материала на эту тему - распределение случайных чисел варкрафта, которое используется в атаках, уже исследовали в далёком 2008 году и прочитать об этом можно в теме на плейдоте.
Статья на английском языке, но содержит неплохие табличные данные, основанные на математике.

[Система] Anti-Leak Library

SirNikolas — Mon, 17 Aug 2015 13:00:17 GMT

Данная библиотека предназначена для тех, кто не хочет или не может изучать JASS, но имеет проблемы с утечками. Для использования необходимо:
1. Установить JASS NewGen Pack.
2. Скачать, собственно, саму библиотеку и закинуть ее в папку ...\jassnewgenpack5d\AdicHelper\lib\
3. В своей карте написать в нестандартном коде: include "ALL.j"[spoiler="Нестандартный код здесь"][/spoiler]4. Забыть об утечках.

Результат - такое действие, как, например, "Боевая единица - Move (Triggering unit) to ((Position of (Target unit of ability being cast)) offset by 200.00 towards (Angle from (Position of (Triggering unit)) to (Position of (Target unit of ability being cast))) degrees)" не будет оставлять утечных точек.

Если же Вам нужно, к примеру, занести точку или эффект в переменную для дальнейшей работы с ними, перед этим действием нужно прописать Личным сценарием (Custom script): ALL_Remove = false, а после него - ALL_Remove = true.

Однако повторюсь, лучше использовать JASS, ведь вручную можно сделать все гораздо лучше.

[code=jass]#guard Anti_Leak_Library

library ALL {
include "cj_types_priv.j"
native int GetPlayerUnitTypeCount(player p, int unitid)
//Убираем конфликты с AntiBJ base
setdef GetPlayerStartLocationLoc(p) = ALL_RemoveLocation(GetStartLocation##Loc(GetPlayerStartLocation(p)))
setdef GetUnitsInRangeOfLocAll(r, l) = ALL_DestroyGroup(ALL_GetUnitsInRangeOfLocMatching(r, l, null))
setdef GetUnitsInRectAll® = ALL_DestroyGroup(ALL_GetUnitsInRectMatching(r, null))
setdef GetUnitsOfPlayerAll(p) = ALL_DestroyGroup(ALL_GetUnitsOfPlayerMatching(p, null))
setdef (l, s) = call ALL_AddSpecialEffectLocBJ(l, s)
setdef (a, w, s) = call ALL_AddSpecialEffectTargetUnitBJ(a, w, s)
//Области, созданные в функции CreateRegions, не будут прогоняться через RemoveRect
setdef Rect(minX, minY, maxX, maxY) = ALL_RemoveRect(Re##ct(minX, minY, maxX, maxY))
define {
= { InitCustom##Triggers(); ALL_Remove = true }
GetPlayerStartLocationLoc(p) = GetStartLocationLoc(GetPlayerStartLocation(p))
GetUnitsInRangeOfLocAll(r, l) = GetUnitsInRangeOfLocMatching(r, l, null)
GetUnitsInRectAll® = GetUnitsInRectMatching(r, null)
GetUnitsOfPlayerAll(p) = GetUnitsOfPlayerMatching(p, null)
(l, s) = bj_lastCreatedEffect = AddSpecialEffectLoc(s, l)
(a, w, s) = bj_lastCreatedEffect = AddSpecialEffectTarget(a, w, s)

= ALL_RemoveLocation(GetCameraEyePosition##Loc())
= ALL_RemoveLocation(GetCameraTargetPosition##Loc())
GetDestructableLoc(d) = ALL_RemoveLocation(ALL_GetWidgetLoc(d))
GetItemLoc(i) = ALL_RemoveLocation(ALL_GetWidgetLoc(i))
= ALL_RemoveLocation(GetOrderPoint##Loc())
GetRandomLocInRect® = ALL_RemoveLocation(GetRandom##LocInRect®)
GetRectCenter® = ALL_RemoveLocation(GetRect##Center®)
= ALL_RemoveLocation(GetSpellTarget##Loc())
GetStartLocationLoc(i) = ALL_RemoveLocation(GetStartLocation##Loc(i))
GetUnitLoc(u) = ALL_RemoveLocation(GetUnit##Loc(u))
Location(x, y) = ALL_RemoveLocation(Loc##ation(x, y))
MeleeGetLocWithinRect(l, r) = ALL_RemoveLocation(ALL_MeleeGetLocWithinRect(l, r))
MeleeGetProjectedLoc(l, targ, dist, a) = ALL_RemoveLocation(MeleeGet##ProjectedLoc(l, targ, dist, a))
OffsetLocation(l, x, y) = ALL_RemoveLocation(OffsetLoc##ation(l, x, y))
PolarProjectionBJ(l, r, a) = ALL_RemoveLocation(ALL_PolarProjectionBJ(l, r, a))
WaygateGetDestinationLocBJ(u) = ALL_RemoveLocation(Waygate##GetDestinationLocBJ(u))
GetRectFromCircleBJ(l, r) = ALL_RemoveRect(ALL_RectFromCenterSizeBJ_GetRectFromCircleBJ(l, r, .0, false))
OffsetRectBJ(r, x, y) = ALL_RemoveRect(OffsetRect##BJ(r, x, y))
Rect(minX, minY, maxX, maxY) = Re##ct(minX, minY, maxX, maxY)
RectFromCenterSizeBJ(l, width, heigth) = ALL_RemoveRect(ALL_RectFromCenterSizeBJ_GetRectFromCircleBJ(l, width, heigth, true))
RectFromLoc(min, max) = ALL_RemoveRect(RectFrom##Loc(min, max))
CountLivingPlayerUnitsOfTypeId(id, p) = GetPlayerUnitTypeCount(p, id)
GetUnitsInRangeOfLocMatching(r, l, b) = ALL_DestroyGroup(ALL_GetUnitsInRangeOfLocMatching(r, l, b))
GetUnitsInRectMatching(r, b) = ALL_DestroyGroup(ALL_GetUnitsInRectMatching(r, b))
GetUnitsInRectOfPlayer(r, p) = ALL_DestroyGroup(ALL_GetUnitsInRectOfPlayer(r, p))
GetUnitsOfPlayerAndTypeId(p, id) = ALL_DestroyGroup(ALL_GetUnitsOfPlayerAndTypeId(p, id))
GetUnitsOfPlayerMatching(p, b) = ALL_DestroyGroup(ALL_GetUnitsOfPlayerMatching(p, b))
GetUnitsOfTypeIdAll(id) = ALL_DestroyGroup(ALL_GetUnitsOfTypeIdAll(id))
GetUnitsSelectedAll(p) = ALL_DestroyGroup(ALL_GetUnitsSelectedAll(p))
GetForceOfPlayer(p) = ALL_DestroyForce(ALL_GetForceOfPlayer(p))
GetPlayersAllies(p) = ALL_DestroyForce(ALL_GetPlayersAllies(p))
GetPlayersByMapControl(mc) = ALL_DestroyForce(ALL_GetPlayersByMapControl(mc))
GetPlayersEnemies(p) = ALL_DestroyForce(ALL_GetPlayersEnemies(p))
GetPlayersMatching(b) = ALL_DestroyForce(ALL_GetPlayersMatching(b))
MultiboardSetItemStyleBJ(mb, col, row, showVal, showIcon) = ALL_MultiboardSetItemStyleBJ(mb, col, row, showVal, showIcon)
MultiboardSetItemValueBJ(mb, col, row, val) = ALL_MultiboardSetItemValueBJ(mb, col, row, val)
MultiboardSetItemColorBJ(mb, col, row, r, g, b, t) = ALL_MultiboardSetItemValueColorBJ(mb, col, row, r, g, b, t)
MultiboardSetItemWidthBJ(mb, col, row, width) = ALL_MultiboardSetItemWidthBJ(mb, col, row, width)
MultiboardSetItemIconBJ(mb, col, row, icon) = ALL_MultiboardSetItemIconBJ(mb, col, row, icon)
(l, s) = {
if ALL_Remove {
bj_lastCreatedEffect = null
DestroyEffect(AddSpecialEffectLoc(s, l))
} else {
bj_lastCreatedEffect = AddSpecialEffectLoc(s, l)
}
}
(a, w, s) = {
if ALL_Remove {
bj_lastCreatedEffect = null
DestroyEffect(AddSpecialEffectTarget(s, w, a))
} else {
bj_lastCreatedEffect = AddSpecialEffectTarget(s, w, a)
}
}
}

enum (ALL_Leak) {
private LocationLeak
private RectLeak
private GroupLeak
private ForceLeak
}

private constant timer Timer = CreateTimer()
private int MaxVar = -1
private int array LeakNum
private location array LocationVar
private rect array RectVar
private group array GroupVar
private force array ForceVar
private group Group
private force Force
public bool Remove = false

private void RemoveLeak() {
do {
if MaxVar:LeakNum < GroupLeak {
if MaxVar:LeakNum < RectLeak {
RemoveLocation(MaxVar:LocationVar)
} else {
RemoveRect(MaxVar:RectVar)
}
} elseif MaxVar:LeakNum < ForceLeak {
DestroyGroup(MaxVar:GroupVar)
} else {
DestroyForce(MaxVar:ForceVar)
}
} whilenot --MaxVar < 0
}

public rect RemoveRect(rect leak) {
if Remove {
MaxVar++
MaxVar:RectVar = leak
MaxVar:LeakNum = RectLeak
if MaxVar == 0 { TimerStart(Timer, .0, false, function RemoveLeak) }
}
return leak
}
public rect RectFromCenterSizeBJ_GetRectFromCircleBJ(location l, real width, real height, bool b) {
real x = GetLocationX(l), y = GetLocationY(l)
if b {
width *= .5
height *= .5
return Re##ct(x - width, y - height, x + width, y + height)
}
return Re##ct(x - width, y - width, x + width, y + width)
}

public location RemoveLocation(location leak) {
if Remove {
MaxVar++
MaxVar:LocationVar = leak
MaxVar:LeakNum = LocationLeak
if MaxVar == 0 { TimerStart(Timer, .0, false, function RemoveLeak) }
}
return leak
}
public location GetWidgetLoc(widget w) {
return Loc##ation(GetWidgetX(w), GetWidgetY(w))
}
public location PolarProjection##BJ(location l, real r, real a) {
a *= .0174533
return Loc##ation(GetLocationX(l) + Cos(a) * r, GetLocationY(l) + Sin(a) * r)
}
public location MeleeGetLoc##WithinRect(location l, rect r) {
real minX = GetRectMinX®, maxX = GetRectMaxX®, \
minY = GetRectMinY®, maxY = GetRectMaxY®
real x = GetLocationX(l), y = GetLocationY(l)
if x < minX {
x = minX
} elseif x > maxX {
x = maxX
}
if y < minY {
return Loc##ation(x, minY)
} elseif y > maxY {
return Loc##ation(x, maxY)
}
return Loc##ation(x, y)
}

public group DestroyGroup(group leak) {
if Remove {
MaxVar++
MaxVar:GroupVar = leak
MaxVar:LeakNum = GroupLeak
if MaxVar == 0 { TimerStart(Timer, .0, false, function RemoveLeak) }
}
return leak
}
public group GetUnitsInRange##OfLocMatching(real r, location l, boolexpr b) {
Group = CreateGroup()
GroupEnumUnitsInRangeOfLoc(Group, l, r, b)
return Group
}
public group GetUnitsInRect##Matching(rect r, boolexpr b) {
Group = CreateGroup()
GroupEnumUnitsInRect(Group, r, b)
return Group
}
public group GetUnitsInRect##OfPlayer(rect r, player p) {
Group = CreateGroup()
bj_groupEnumOwningPlayer = p
GroupEnumUnitsInRect(Group, r, filterGetUnitsInRectOfPlayer)
return Group
}
public group GetUnitsOfPlayer##Matching(player p, boolexpr b) {
Group = CreateGroup()
GroupEnumUnitsOfPlayer(Group, p, b)
return Group
}
public group GetUnitsOfPlayer##AndTypeId(player p, int id) {
Group = CreateGroup()
bj_groupEnumTypeId = id
GroupEnumUnitsOfPlayer(Group, p, filterGetUnitsOfPlayerAndTypeId)
return Group
}
public group GetUnitsOfTypeId##All(int id) {
group g = CreateGroup()
bj_groupAddGroupDest = CreateGroup()
bj_groupEnumTypeId = id
for (int i = 0) {
GroupEnumUnitsOfPlayer(g, Player(i), filterGetUnitsOfTypeIdAll)
ForGroup(g, function GroupAddGroupEnum)
exitwhen i == 15
i++
}
Destroy##Group(g)
g = null
return bj_groupAddGroupDest
}
public group GetUnits##SelectedAll(player p) {
Group = CreateGroup()
SyncSelections()
GroupEnumUnitsSelected(Group, p, null)
return Group
}

public force DestroyForce(force leak) {
if Remove {
MaxVar++
MaxVar:ForceVar = leak
MaxVar:LeakNum = ForceLeak
if MaxVar == 0 { TimerStart(Timer, .0, false, function RemoveLeak) }
}
return leak
}
public force GetForce##OfPlayer(player p) {
Force = CreateForce()
ForceAddPlayer(Force, p)
return Force
}
public force GetPlay##ersAllies(player p) {
Force = CreateForce()
ForceEnumAllies(Force, p, null)
return Force
}
public force GetPlayersByMap##Control(mapcontrol mc) {
player p = Player(0)
Force = CreateForce()
for (int i = 0) {
if GetPlayerController(p) == mc {
ForceAddPlayer(Force, p)
}
exitwhen i == 15
p = Player(++i)
}
p = null
return Force
}
public force GetPlay##ersEnemies(player p) {
Force = CreateForce()
ForceEnumEnemies(Force, p, null)
return Force
}
public force GetPlay##ersMatching(boolexpr b) {
Force = CreateForce()
ForceEnumPlayers(Force, b)
return Force
}

//! textmacro ALL__RegisterMultiboardUpdater takes NAME, ARGS, PARAMS, PRE
public void Multiboard##SetItem$NAME$BJ(multiboard mb, int col, int row, $ARGS$) {
int rows = MultiboardGetRowCount(mb)
int cols = MultiboardGetColumnCount(mb)
multiboarditem mbi
$PRE$
if col == 0 {
if row == 0 {
MultiboardSetItems$NAME$(mb, $PARAMS$)
} else {
row--
for (int i = 0; i < cols; i++) {
mbi = MultiboardGetItem(mb, row, i)
MultiboardSetItem$NAME$(mbi, $PARAMS$)
MultiboardReleaseItem(mbi)
}
}
} elseif row == 0 {
col--
for (int i = 0; i < rows; i++) {
mbi = MultiboardGetItem(mb, i, col)
MultiboardSetItem$NAME$(mbi, $PARAMS$)
MultiboardReleaseItem(mbi)
}
} else {
mbi = MultiboardGetItem(mb, row - 1, col - 1)
MultiboardSetItem$NAME$(mbi, $PARAMS$)
MultiboardReleaseItem(mbi)
}
mbi = null
}
//! endtextmacro
//! runtextmacro ALL__RegisterMultiboardUpdater("Style", "bool showVal, bool showIcon", "showVal, showIcon", "")
//! runtextmacro ALL__RegisterMultiboardUpdater("Value", "string val", "val", "")
//! runtextmacro ALL__RegisterMultiboardUpdater("ValueColor", "real red, real green, real blue, real trans", "r, g, b, t", "int r = R2I(red * 2.55), g = R2I(green * 2.55), b = R2I(blue * 2.55), t = 255 - R2I(trans * 2.55)")
//! runtextmacro ALL__RegisterMultiboardUpdater("Width", "real width", "width", "width *= .01")
//! runtextmacro ALL__RegisterMultiboardUpdater("Icon", "string icon", "icon", "")
}[/code]

Number Key Press Event v1.1

Samedy_ — Wed, 12 Aug 2015 06:34:37 GMT

Наверное многие это уже видели, но я все же сообщу, так как есть вопросы по поводу того как отследить какие-то кнопки. Так вот, Quilnez относительно недавно написал систему отлова клавиш 1, 2... - ...9, 0.
Мне система жутко понравилась тем, что теперь можно биндить способности в rpg-шках так же, как WoWке.
Единственный недостаток, который я заметил, система вроде как юзает дамми. С юнита слетает выбор в момент нажатия клавиши. Если я правильно понял, то там отслеживается бинд даммика, а не сама нажатая клавиша. Тем не менее, это все равно круто.))

скачать Number Key Press Event v1.1

[ВАЖНО] Общалка кодеров

[DUОS] — Wed, 15 Jul 2015 19:34:47 GMT

У всех общалка есть, давайте у нас тоже сделаем
Правило одно - следовать тематике, не нарушая правила форума.

Апните, кто-нибудь

Вопросы про RtC и WarSoc

ENAleksey — Fri, 19 Jun 2015 18:07:45 GMT

Я нашёл в файле RtCCommon.j вот это, вроде называется WarSoc API:

Code

native SocTCPConnect          takes string ip, integer port, integer mode      returns integer
native SocTCPListen   takes integer port, integer maxqueue, integer mode     returns integer
native SocTCPAccept   takes integer socket, integer mode        returns integer
native SocTCPIP    takes integer socket                 returns string
native SocSetNagle           takes integer socket, boolean on        returns integer
native SocTCPConnected  takes integer socket                              returns boolean
native SocUDPConnect          takes integer port, integer mode        returns integer
native SocSendUDPMessage          takes integer udpsocket, string ip, integer port, integer buffer             returns integer
native SocSendTCPMessage          takes integer tcpsocket, integer buffer               returns integer
native SocReceiveMessage          takes integer socket, integer length, integer buffer            returns integer
native SocPeekMessage          takes integer socket, integer length, integer buffer            returns integer
native SocSetFormat   takes integer socket, integer mode, string delimiter           returns integer
native SocGetLastInIP          takes nothing                              returns string
native SocGetLastInPort          takes nothing                              returns integer
native SocSetSync           takes integer socket, integer mode        returns integer
native SocCloseSocket          takes integer socket                              returns boolean
native SocGetSocketLastError        takes integer socket                              returns integer
native SocGetMyHost          takes nothing                              returns string
native SocCompareIp   takes string ip, string mask         returns boolean
native SocExit            takes nothing                              returns boolean
native SocStart    takes nothing                              returns boolean
native SocNetConnected          takes nothing                              returns boolean

Расскажите, пожалуйста, как этим можно пользоваться. Ещё смотрел на Хайве, но там не очень понятно объясняется, точнее там вообще объяснений не нашёл.

[Библиотека] Битовые сдвиги в WarCraft

Duosora — Sun, 14 Jun 2015 18:24:16 GMT

Код

library BitShifting initializer Init
     globals
         private integer array PowerOfTwo[12]
     endglobals

     function ShiftLeft takes integer x, integer bits returns integer
         return x*PowerOfTwo[bits]
     endfunction

     function ShiftRight takes integer x, integer bits returns integer
         return x/PowerOfTwo[bits]
     endfunction

     private function Init takes nothing returns nothing
         local integer i = 0

         loop
             exitwhen i > 11
             set PowerOfTwo[i] = Pow(2,i)
             set i=i+1
         endloop
     endfunction
endlibrary

Написал простую библиотечку для реализации битового сдвига в варкрафте. Хотел бы узнать мнения знающих людей о том, как можно её оптимизировать. =)

[Вопрос] scope

abidin — Tue, 28 Apr 2015 10:39:31 GMT

Вот допустим создали мы обычный триггер B,который расположен выше триггера A.После компиляции все функции в триггере B будут выше A?И можно ли вызывать функции из того триггера?
Если заключить наши функции в триггере B в область,то где будет распологаться наша область,так же как я описал выше или по другому принципу?

_allocate и _deallocate в структурах

Волчачка — Thu, 23 Apr 2015 20:33:45 GMT

Код который генерирует vJass

Код

//Generated allocator of Ex
function s__Ex__allocate takes nothing returns integer
  local integer this=si__Ex_F
     if (this!=0) then
         set si__Ex_F=si__Ex_V[this]
     else
         set si__Ex_I=si__Ex_I+1
         set this=si__Ex_I
     endif
     if (this>8190) then
         call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,1000.,"Unable to allocate id for an object of type: Ex")
         return 0
     endif

    // установка знчений >>>>|
  return this
endfunction

//Generated destructor of Ex
function s__Ex_deallocate takes integer this returns nothing
     if this==null then
             call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,1000.,"Attempt to destroy a null struct of type: Ex")
         return
     elseif (si__Ex_V[this]!=-1) then
             call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,1000.,"Double free of type: Ex")
         return
     endif
     set si__Ex_V[this]=si__Ex_F
     set si__Ex_F=this
endfunction

Моя версия

Код

function _allocate takes nothing returns integer
  local this = 0
     if (si__N > 0) then
         set this = si__S[si__N]
   set si__N = si__N - 1
     else
   if (this>8190) then
    call BJDebugMsg("Unable to allocate id for an object of type: Ex")
    return -2 //-2 is full
   else
    set si__I=si__I+1
    set this=si__N_I
   endif
     endif
   // установка знчений >>>>|
  return this
endfunction

function _deallocate takes integer this returns nothing

  if this == -1 then //-1 is empty
   call BJDebugMsg("Attempt to destroy a null struct of type: Ex")
  else
   set si__N = si__N + 1
   set this = si__S[si__N] = this
  endif


endfunction

Протестил call TriggerRegisterDeathEvent() на предметах.

Волчачка — Thu, 16 Apr 2015 14:26:52 GMT

Я протестировал на предметах, но результат меня дико огорчил.

Код

native TriggerRegisterDeathEvent takes trigger whichTrigger, widget whichWidget returns event

Это функция вызвалась 4 раза, когда предмет сдыхал.
Теперь к делу: я использовал сравнение виджета с предметом. Путём получения объекта такого предмет через GetTriggerWidget(), оно работает. Но одно но!!!!!!!!!
Стоит одному предмету сдохнуть, сразу срабатывает другое.. Это как понимать?
Оказывается для этого События смерти - Удаление Предмета тоже считается как смерть.

Зачем я делаю такое, что убирать утечки от некоторых предметов типа книг, которые не убираются по донной воле метелей.
Для чего я это сделал такой тест? - ну конечно ради интереса

Код

//?Library NoItemLeaks
scope NoItemLeaks initializer InitFunc
         globals
             //Items Zone
             private constant integer ItemStock_A = 0
             private constant integer ItemStock_Max_A = 4045
             private constant integer ItemStock_B = 4045
             private constant integer ItemStock_Max_B = 8090
             private integer ItemStock_I = 0
             private item array ItemStock
             private item array ItemTempStock
             //Triggers Zone
             trigger TriggerZone = null
             private triggeraction TriggerAct = null
             private timer TriggerZoneTimer = null
         endglobals

         private function RefreshItem takes nothing returns nothing
             local integer i = ItemStock_A
             local integer max = ItemStock_Max_A
             local integer stock = 0
             if ItemStock_I != max then
                 set max = ItemStock_I
             endif
             loop
             exitwhen i == max
              if ItemStock[i] != null then
                 set ItemTempStock[stock] = ItemStock[i]
                 set stock = stock + 1
              endif
              set i = i + 1
             endloop
             set ItemStock_I = stock
             loop
             exitwhen i == ItemStock_I
              if ItemStock[i] != null then
                 set ItemStock[i] = ItemTempStock[i]
                 set stock = stock + 1
              endif
              set i = i + 1
             endloop
         endfunction

         function RegisterItem takes item whichItem returns nothing
             if ItemStock_I <= ItemStock_Max_B then
                 set ItemStock[ItemStock_I] = whichItem
                 set ItemStock_I = ItemStock_I + 1
             else
                 call RemoveItem(whichItem)
                 call BJDebugMsg("I don't registly greather items")
             endif
         endfunction

         private function SeekItem takes widget whichItem returns item
             local integer i = ItemStock_A
             local integer max = ItemStock_Max_A
             local boolean b = false
             if ItemStock_I < max then
                 set max = ItemStock_I
             endif
             loop
             exitwhen i == ItemStock_Max_A or b
                 if whichItem == ItemStock[i] then
                     set b = true
                 endif
                 set i = i + 1
             endloop
             if not b and ItemStock_I >= ItemStock_B then
                 set i = ItemStock_B
                 loop
                 exitwhen i == ItemStock_I or b
                 if whichItem == ItemStock[i] then
                     set b = true
                 endif
                 set i = i + 1
             endloop
             endif
             if not b then
                 return null
             endif
             return ItemStock[i]
         endfunction

         private function ItemDeathEvent takes nothing returns nothing
             local item t = SeekItem(GetTriggerWidget())
             call BJDebugMsg("What?")
             if t != null then
                 call RemoveItem(t)
             endif
             call RefreshItem()
             set t = null
         endfunction

         private function callduos takes nothing returns nothing
             local integer i = ItemStock_A
             local integer max = ItemStock_Max_A
             call TriggerRemoveAction(TriggerZone,TriggerAct)
             call DestroyTrigger(TriggerZone)
             set TriggerZone = CreateTrigger()
             set TriggerAct = TriggerAddAction(TriggerZone, function ItemDeathEvent)
             if ItemStock_I != max then
                 set max = ItemStock_I
             endif
             loop
             exitwhen i == max
              if ItemStock[i] != null then
                 call TriggerRegisterDeathEvent( TriggerZone, ItemStock[i] )
              endif
              set i = i + 1
             endloop
         endfunction

         private function InitFunc takes nothing returns nothing
             set TriggerZoneTimer = CreateTimer()
             set TriggerZone = CreateTrigger()
             set TriggerAct = TriggerAddAction(TriggerZone, function ItemDeathEvent)
             call TimerStart( TriggerZoneTimer, 300., true, function callduos )
         endfunction
endscope

function RegisterItemDeathEvent takes item whichItem returns nothing
         call RegisterItem(whichItem)
         call TriggerRegisterDeathEvent( TriggerZone, whichItem )
endfunction

Код

scope Test initializer Vexbugallant
     private function Vexbugallant takes nothing returns nothing
         call RegisterItemDeathEvent( gg_item_tint_0003 )
         call RegisterItemDeathEvent( gg_item_manh_0004 )
         call RegisterItemDeathEvent( gg_item_tint_0002 )
         call RegisterItemDeathEvent( gg_item_manh_0005 )
     endfunction
endscope