function Add_00 takes integer i returns ***
function Add_01 takes integer i, integer c returns ***
function Add_02 takes integer i, integer a, integer b returns ***
function Add_03 takes nothing returns ***

function Move_00 takes integer i returns ***
 set i=i+0xffffffff
 if i==0x00then
  // тут должно стоять действие которое предотрватит следующую обработку этого "снаряда"
 endif
endfunction

function Move_01 takes integer i, integer c returns ***
 set i=i-c
 if i<=0x00then
  // тут должно стоять действие которое предотрватит следующую обработку этого "снаряда"
 endif
endfunction

function Move_02 takes integer i, integer a, integer b returns ***
 set i=i-a-b
 if i<=0x00then
  // тут должно стоять действие которое предотрватит следующую обработку этого "снаряда"
 endif
endfunction

function Move_03 takes nothing returns ***
 if GetRandomInt(0x00, 0x01)==0x00then
  // тут должно стоять действие которое предотрватит следующую обработку этого "снаряда"
 endif
endfunction

call Add_00(5)
call Add_02(50, 2, 1)

function Move ...
 loca timer t=GetExpiredTimer()
 local integer i=GetStoredInteger(c, I2S(H2I(t)), "integer i")
 set i=i-0x01
 if i==0x00then
  call FlushStoredMission(c, I2S(H2I(t)))
 else
  call StoreInteger(c, I2S(H2I(t)), "integer i", i) 
 endif
 set t=null
endfunction

 set t=CreateTimer()
 call StoreInteger(c, I2S(H2I(t)), "integer i", 0x05)
 call TimerStart(t, true, .025, function Move)
 set t=null

function Move00 takes unit u, real x, real y returns nothing
function Move01 takes unit u, real x, real y, real z returns nothing
function Move02 takes unit u, real x, real y, integer i returns nothing
function Move03 takes unit u, returns nothing

function Add00 takes unit u, real x, real y returns nothing
function Add01 takes unit u, real x, real y, real z returns nothing
function Add01 takes unit u, real x, real y, integer i returns nothing
function Add02 takes unit u, returns nothing

function Remove00 takes ??? returns nothing
function Remove01 takes ??? returns nothing
function Remove02 takes ??? returns nothing
function Remove03 takes ??? returns nothing

function TimedCycle takes nothing returns nothing
    set GlobalIndex=FirstIndex()
    set WantToDestroy=false        //Вообще то хватит однократной инициализации
    loop
        if codearray[GlobalIndex] != "" then  //Вдруг Add_ в процессе...
            call ExecuteFunc(codeearray[GlobalResult])  //!!!!!!!!!!!!!!!!!!!!!!!
            if WantToDestroy then
                set codearray[GlobalIndex] = ""  //до освобождения 
                call FreeIndex()
                set WantToDestroy=false
            endif
        endif
        set GlobalIndex=NextIndex()
        exitwhen set GlobalIndex==0
    endloop
endfunction

function Add_00 takes integer int1 real real2 returns integer
    local integer i=NewIndex()
    set i1[i]=int1
    set r1[i]=real1
    set codearray[i]="Move_00"
    return i        //Для вызова потом FreeIndex takes integer i returns nothing если хочешь
endfunction

function Move_00 takes nothing returns nothing
    //Считай, что Move_00 takes integer i1[GlobalIndex] real r1[GlobalIndex] returns boolean
    //Делай, что хочешь, меняй переменные...
    
    if хочешь удалить объект then
        set WantToDestroy=true
    endif
endfunction

struct pXX extends proj_if
  // --->> struct members
  method Move takes nothing returns nothing
    // --->> realization
  endmethod
  method Remove takes nothing returns nothing
    // --->> realization
  endmethod
endstruct

function Add_XX takes nothing returns nothing
  local proj p = proj.create(proj_if.create(pXX.typeid))
  // --->> setting parameters for p.p
endfunction