//! runtextmacro DeclareDictionary("integer","integer","IntegerComparison","8191")

library_once IntegerComparison {
     public boolean less (integer op1, integer op2) { return op1 <  op2 }
     public boolean equal(integer op1, integer op2) { return op1 == op2 }
}

struct Randomizer {
     define private MAX = $1f
     private static integer array Types
     private static constant thistype create() { return 0 }
     private nothing destroy() { }

     private Dictionary_integer_integer d
     private itempool p = CreateItemPool()
     private integer count = 0

     static thistype Create() { thistype this = allocate(); d = Dictionary_integer_integer.Create(); return this }
     nothing Destroy() { DestroyItemPool(p); d.Destroy(); deallocate() }

     nothing Add(integer value, real chance) {
         if value != 0 && count <= MAX {
             ItemPoolAddItemType(p, Types[count], chance)
             d[Types[count]] = value
             count++
         }
     }

     nothing Remove(integer value) {
         if value != 0 {
             ItemPoolRemoveItemType(p, Types[count])
             d[Types[count]] = 0
             count--
         }
     }

     nothing Rebuild() { d.Rebuild() }

     integer Next() {
         item i = PlaceRandomItem(p, .0, .0)
         integer result = d[GetItemTypeId(i)]
         RemoveItem(i)
         i = null
         return result
     }

     private static nothing onInit() {
         Types[0] = 'spsh'
         Types[1] = 'pmna'
         Types[2] = 'penr'
         Types[3] = 'ward'
         Types[4] = 'ratc'
         Types[5] = 'spsh'
         Types[6] = 'rat6'
         Types[7] = 'rat9'
         Types[8] = 'cnob'
         Types[9] = 'rhth'
         Types[$a] = 'dsum'
         Types[$b] = 'hcun'
         Types[$c] = 'belv'
         Types[$d] = 'rde1'
         Types[$e] = 'rde2'
         Types[$f] = 'rde3'
         Types[$10] = 'rlif'
         Types[$11] = 'sbch'
         Types[$12] = 'rin1'
         Types[$13] = 'rwiz'
         Types[$14] = 'mcou'
         Types[$15] = 'clfm'
         Types[$1a] = 'ciri'
         Types[$1b] = 'gcel'
         Types[$1c] = 'clsd'
         Types[$1d] = 'ssil'
         Types[$1e] = 'stel'
         Types[$1f] = 'bgst'
     }
}

call UnitPoolRemoveUnitType(p, GetUnitTypeId(PlaceRandomUnit(p, Player(0), .0, .0, .0)))

[1] Мрак
Как икать термины, язык программирования,языковая конструкция,скриптовой язык,проблемно-ориентированный язык,событийно-ориентированный язык,лексема(token) ,выражение,тип данных,литерал,оператор, поток выполнения,управляющая конструкция,значение,переменная,встроенный,нативный,JASS2|JASS|Jass|jass.
[2] Джентельментский набор
кодировка,литерал, выражение, оператор, ветвление, цикл, функция, объявление, операторная скобка, арифметика, операторы сравнения, массивы, типы данных,комментарий, set, call,триггер ,некоторые события, вывод текста ,Предопределенные значения,создание удаление движение юнита.
[3] Реализация джасс в варкрафт
место кода в карте тип языка нативки встроенные ошибки потоки порядок выполнения ограничения структура коммон и коммон аи ии близзард вар3мап поведение при ошибках
[4] Основные объекты
координаты локи регионы области игроки группы юниты предметы десруктебли  
[5]утечки
удаление обнуление суперпозиция быстровызов встроенная утечка
[6]правила хорошего кода
концепции программирования-обзор именование документирование комментирование удобочитаемость стадии разработки(не ГОСТ 19.102)
[7]штампы программирования
флажок семафор сортировки стек система весов параллельные массивы полярные координаты
[8] Файлы карты
[100500]рефераты учащихся на свободную тему.