local integer i = 256
local integer hex = 0x100
local integer money = $100

type terraindeformation extends     handle

void main(void)
{

...

}

//! textmacro DeclarePair takes T1, T2  
struct pair_$T1$_$T2$ {  
     $T1$ first;  
     $T2$ second;  
};  
//! endtextmacro  
//! textmacro DeclareList takes type  
struct List_$type$ {  
     $type$ value;  
     thistype next = 0;  
};  
//! endtextmacro  

//! runtextmacro DeclarePair("int", "real")  
//! runtextmacro DeclareList("pair_int_real")  

struct Drop {  
     List_pair_int_real items = 0;  

     //Деструктор класса  
     void destroy() {  
         whilenot items == 0 {  
             items.value.destroy();  
             items.destroy();  
             items = items.next;  
         }  
         deallocate();  
     }  

     void addItem(int it, real chance) {  
         List_pair_int_real l = items;  
         if l == 0 {  
             items = List_pair_int_real.create();  
             items.value = pair_int_real.create();  
             items.value.first = it;  
             items.value.second = chance;  
         } else {  
             whilenot l.next == 0 { l = l.next; }  
             l.next = List_pair_int_real.create();  
             l.next.value = pair_int_real.create();  
             l.next.value.first = it;  
             l.next.value.second = chance;  
         }  
     }  
};

set items.value = pair_##int##_real.create()