var i = 1
var j = i + 1

var i = j + 1

var r = GetRandomInt(0, 1) + GetRandomReal(0, 1)
var q = GetRandomReal(0, 1) + GetRandomInt(0, 1)

function Trig_Freezing_Shot_Timer takes nothing returns nothing
//===========================================================================================================================//
//                    Local variables                    //
//===========================================================================================================================//
     var t = GetExpiredTimer()
     var hid = GetHandleId(t)
     var caster = LoadUnitHandle(hash, hid, 0)
     var dist = LoadReal(hash, hid, 4)
     var count = LoadInteger(hash, hid, -1)
     var dummy, target, angle, x, y, i = 1    
//===========================================================================================================================//
//                    Timer actions                    //
//===========================================================================================================================//
     if dist <= 750. then
         repeat
             set dummy = LoadUnitHandle(hash, hid, i)
             set angle = GetUnitFacing(dummy) * .017
             set x = GetWidgetX(dummy) + 25. * Cos(angle)
             set y = GetWidgetY(dummy) +25. * Sin(angle)
             call SetUnitPosition(dummy, x, y)
              
             call GroupEnumUnitsInRange(temp, x, y, 75., null)             
             loop
                 set target = FirstOfGroup(temp)
                 exitwhen target == null
                 if IsUnitEnemy(target, GetOwningPlayer(caster)) and not IsUnitType(target, UNIT_TYPE_STRUCTURE) and not IsUnitType(target, UNIT_TYPE_MAGIC_IMMUNE) and GetWidgetLife(target) > .405 then
                     call UnitDamageTarget(caster, target, 100., true, false, ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
                     call FastEffect("Abilities\\Weapons\\FrostWyrmMissile\\FrostWyrmMissile.mdl", x, y)
                     call DummycastToTarget(caster, target, 'A001', 852075)
                     call SaveInteger(hash, hid, -1, count - 1)
                     free dummy
                 endif
                 call GroupRemoveUnit(temp, target)
             endloop
              
             set i = i + 1
         until i > 3
         call SaveReal(hash, hid, 4, dist + 25.)
     elseif dist > 750. or count <= 0 then
         repeat
             free LoadUnitHandle(hash, hid, i)
             set i = i + 1
         until i > 3
         call FlushChildHashtable(hash, hid)
         call PauseTimer(t)
         free t
     endif
//===========================================================================================================================//
//                    Flushing variables                    //
//===========================================================================================================================//
     flush t, caster, dummy
endfunction

function Trig_Freezing_Shot_Actions takes nothing returns boolean
//===========================================================================================================================//
//                    Local variables                    //
//===========================================================================================================================//
     var t, caster, dummy, angle, hid, x, y, i = 1
//===========================================================================================================================//
//                    Trigger actions                    //
//===========================================================================================================================//
     if GetSpellAbilityId() == 'A000' or GetSpellAbilityId() == 'A002' then
         set t = CreateTimer()
         set hid = GetHandleId(t)
         set caster = GetTriggerUnit()
         set x = GetWidgetX(caster)
         set y = GetWidgetY(caster)
         set angle = Atan2(GetSpellTargetY() - y, GetSpellTargetX() - x) * 57.295 + 25.
         call SaveInteger(hash, hid, -1, 3)
         call SaveAgentHandle(hash, hid, 0, caster)
         call SaveReal(hash, hid, 5, angle)
          
         repeat
             set dummy = CreateDummy(GetTriggerPlayer(), "Abilities\\Spells\\Other\\FrostBolt\\FrostBoltMissile.mdl", .3, x, y, 100., angle)
             call SaveAgentHandle(hash, hid, i, dummy)
             set angle = angle - 25.
             set i = i + 1
         until i > 3
         call TimerStart(t, .04, true, function Trig_Freezing_Shot_Timer)
     endif
//===========================================================================================================================//
//                    Flushing variables                    //
//===========================================================================================================================//
     flush t, caster, dummy
     return false
endfunction

//===========================================================================================================================//
//                    Trigger Initialization                    //
//===========================================================================================================================//
function InitTrig_Freezing_Shot takes nothing returns nothing
     call FogMaskEnable(false)
     call FogEnable(false)
     set gg_trg_Freezing_Shot = CreateTrigger()
     call TriggerRegisterAnyUnitEventBJ(gg_trg_Freezing_Shot, EVENT_PLAYER_UNIT_SPELL_EFFECT)
     call TriggerAddCondition(gg_trg_Freezing_Shot, Condition(function Trig_Freezing_Shot_Actions))
endfunction

//requires:
// CreateDummy(player, string, real, real, real, real, real)
// FastEffect(string, real, real)
// DummycastToTarget(unit, unit, int, int)

library_once Hash { constant hashtable Hash = InitHashtable() }
library_once Group { constant group G = CreateGroup() }

define delete = free

scope JASPDemo {
    include "cj_types_priv.j"

    private struct str {
        timer t = CreateTimer()
        int time = 3
        unit caster
        player p
        real dist = .0
        unit dummy[3]
        real dx[3]
        real dy[3]
    }

    callback onUnitSpellEffect() {
        var caster = GetTriggerUnit()
        var x = GetWidgetX(caster)
        var y = GetWidgetY(caster)
        var id = GetSpellAbilityId()
        var i = 0
        var angle, s
        if id == 'A000' || id == 'A002' {
            angle = Atan2(GetSpellTargetY() - y, GetSpellTargetX() - x) * 57.295 + 25.
            s = str.create()
            s.caster = caster
            s.p = GetOwningPlayer(caster)
            loop {
                s.dummy[i] = CreateDummy(s.p, \
                    "Abilities\\Spells\\Other\\FrostBolt\\FrostBoltMissile.mdl", \
                    .3, x, y, 100., angle)
                s.dx[i] = 25. * Cos(angle)
                s.dy[i] = 25. * Sin(angle)
                angle -= 25.
                exitwhen i == 2
                i++
            }
            SaveInteger(Hash, GetHandleId(s.t), 0, s)
            TimerStart(t, .04, true, \
                lambda void() {
                    var t = GetExpiredTimer()
                    str s = LoadInteger(Hash, GetHandleId(s.t), 0)
                    var i = 0, x, y
                    if dist <= 750. {
                        loop {
                            x = GetWidgetX(s.dummy[i]) + s.cosA
                            y = GetWidgetY(s.dummy[i]) + s.sinA
                            SetUnitPosition(s.dummy[i], x, y)
                            for (unit target; UnitsInRange(x, y, 75.) use G) {
                            if IsUnitEnemy(target, s.p) && \
                    IsUnitType(target, UNIT_TYPE_STRUCTURE) == false && \
                    IsUnitType(target, UNIT_TYPE_MAGIC_IMMUNE) == false && \
                    GetWidgetLife(target) > .405
                    UnitDamageTarget(caster, target, 100., true, false, \
                    ATTACK_TYPE_NORMAL, DAMAGE_TYPE_NORMAL, WEAPON_TYPE_WHOKNOWS)
                    FastEffect("Abilities\\Weapons\\" + \
                    "FrostWyrmMissile\\FrostWyrmMissile.mdl", x, y)
                    DummycastToTarget(caster, target, 'A001', 852075)
                    s.time--
                    delete s.dummy[i]
                            endif
                            }
                            exitwhen i == 2
                            i++
                        }
                        s.dist += 25.
                    } elseif s.time <= 0 {
                        RemoveSavedInteger(Hash, GetHandleId(s.t), 0)
                        PauseTimer(s.t)
                        delete s.dummy[0], s.dummy[1], s.dummy[2], s.t, s
                    }
                    flush t
                }
            )
        }
        flush caster, p
    }

#if DEBUG
    callback onInit() {
        FogMaskEnable(false)
        FogEnable(false)
    }
#endif
}

new mystruct abc
//...
delete abc

local mystruct abc = mystruct.create()
//...
call abc.destroy()

//!if Exists(hashtable hash) == false then
new hashtable hash
//!endif

library_once Hash
    globals
        constant hashtable Hash = InitHashtable()
    endglobals
endlibrary

define Hash_def
#if !Hash_def
    constant hashtable Hash = InitHashtable()
    setdef Hash_def = true
#endif

//! if Exists(nothing abc(real, string))
    ...
//! endif
//! if Exists(struct def)
    ...
//! endif
//! if Exists(type ghi extends integer[10])
    ...
//! endif

struct abc: array
endstruct

private type def: integer[10]

struct abc extends array
endstruct

private type def extends integer[10]

int a, b, c
bool b1, b2
new timer t
int id, uid, sid

a = b % c
a %= b
b1 &&= b2
b1 ||= b2
b1 ^= b2
id = &t
uid = &GetTriggerUnit()
sid = &"Hello World"

local integer a
local integer b
local integer c
local boolean b1
local boolean b2
local timer t = CreateTimer()
local integer id
local integer uid
local integer sid

set a = (b - b / c * c)
set a = a - a / (b) * (b)
set b1 = b1 and (b2)
set b1 = b1 or b2
set b1 = b1 != (b2)
set id = GetHandleId(t)
set uid = GetHandleId(GetTriggerUnit())
set sid = StringHash("Hello World")