struct omg
  static integer counter = 0
  integer a
  
  static method statix takes nothing returns nothing
    set omg.counter = omg.counter + 1
    call BJDebugMsg(I2S(omg.counter))
  endmethod
  
  method onDestroy takes nothing returns nothing
    set .a = 0
    set this = 0
  endmethod
endstruct

library pi

  function OMG_TEH_FUNC takes integer i returns nothing
    local omg z = omg.create()
    set z.a = i
    call BJDebugMsg(I2S(z.a))
    call TimerStart(CreateTimer(), 1., false, function omg.statix)
    call z.destroy()
  endfunction

endlibrary

globals
  //JASSHelper struct globals:
  constant integer si__omg=1
  integer si__omg_F=0
  integer si__omg_I=0
  integer array si__omg_V
  // члены структуры
  integer s__omg_size= 0
  integer array s__omg_a
  // триггер для запуска методов
  trigger st__omg_destroy
  trigger st__omg_statix
  trigger st__omg_onDestroy
  // переменная для передачи индекса структуры
  integer f__arg_this
endglobals

//Generated method caller for omg.statix
function sc__omg_statix takes nothing returns nothing
    call TriggerEvaluate(st__omg_statix)
endfunction

//Generated method caller for omg.onDestroy
function sc__omg_onDestroy takes integer this returns nothing
    set f__arg_this=this
    call TriggerEvaluate(st__omg_onDestroy)
endfunction

//Generated allocator of omg
function s__omg__allocate takes nothing returns integer
 local integer this=si__omg_F
    if (this!=0) then
        set si__omg_F=si__omg_V[this]
    else
        set si__omg_I=si__omg_I+1
        set this=si__omg_I
    endif
    if (this>8190) then
        return 0
    endif
    set si__omg_V[this]=-1
 return this
endfunction

//Generated destructor of omg
function sc__omg_destroy takes integer this returns nothing
    if this==null then
        return
    elseif (si__omg_V[this]!=-1) then
        return
    endif
    set f__arg_this=this
    // >> вызов метода onDestroy
    call TriggerEvaluate(st__omg_onDestroy)
    set si__omg_V[this]=si__omg_F
    set si__omg_F=this
endfunction

//library p:
function OMG_TEH_FUNC takes integer i returns nothing
  local integer z = s__omg__allocate()
  set s__omg_a[z]=i
  call BJDebugMsg(I2S(s__omg_a[z]))
  call TimerStart(CreateTimer(), 1., false, function sc__omg_statix)
  call sc__omg_destroy(z)
endfunction
//library p ends

// . . .

function main takes nothing returns nothing
  // . . .
  call ExecuteFunc("jasshelper__initstructs3086125")
  call InitGlobals()
endfunction

// . . .

//Struct method generated initializers/callers:
function sa__omg_statix takes nothing returns boolean
  call BJDebugMsg(I2S(s__omg_size))
  set s__omg_size=s__omg_size + 1
  return true
endfunction

function sa__omg_onDestroy takes nothing returns boolean
  local integer this=f__arg_this
  set s__omg_a[this]=0x00
  return true
endfunction

function jasshelper__initstructs3086125 takes nothing returns nothing
    set st__omg_statix=CreateTrigger()
    call TriggerAddCondition(st__omg_statix,Condition( function sa__omg_statix))
    set st__omg_onDestroy=CreateTrigger()
    call TriggerAddCondition(st__omg_onDestroy,Condition( function sa__omg_onDestroy))
endfunction

native TriggerEvaluate (trigger whichTrigger) returns boolean

static method new takes unit new_uc, unit new_us returns polar
        local polar pol = polar.create()
            ...
            ...
            ...
            return pol
        endmethod