var a[]
   a[0]="narayan ownz"
   a[5000]=345
   a[5]=CreateUnit(Player(15),'ewsp',0,0,0)

 local string  array string_a
 local integer array integer_a
 local unit    array unit_a   
 set string_a[0]="narayan ownz"
 set integer_a[5000]=345
 set unit_a[5]=CreateUnit(Player(15),'ewsp',0,0,0)

 struct test
 
 static method create takes string key returns thistype
  return thistype(-StringHash(key)) // Сопсно тайпкаст one
 endmethod
 
 static method createA takes thistype key returns integer
  return integer(key) // и two
 endmethod
 
 endstruct

 void temp(){
  string s1 = "33.33"
  real f = real(s1)
 
  string s2 = "true"
  boolean b = boolean(s2)
 
  string s = "2z4"
  integer i = integer(s)
 }

 function cjparser_b2i takes boolean b returns integer
  if b then
   return 1
  endif
  return 0
 endfunction
 
 function cjparser_i2b takes integer i returns boolean
  return i!=0
 endfunction

 function cjparser_b2s takes boolean b returns string
  if b then
   return "true"
  endif
  return "false"
 endfunction
 
 function cjparser_s2b takes string s returns boolean
  if s=="true" then
   return true
  endif
  return false
 endfunction
 
 function temp takes nothing returns nothing
  string s1 = "33.33"
  real   f  = S2R(s1)
 
  string s2 = "true"
  boolean b = cjparser_s2b(s2)
 
  string s = "2z4"
  integer i = I2S(s)
 endfunction

 int a = 0
 int b = clone(a)
 
 str c[]
 str d[] = clone(c)
 
 c[0] = "temp"
 
 a = 100
 
 b = 50
 
 b = decapsulation(a)
 
 a = 1000

integer a = 0
integer b = 0

string array c
string array d
// Как бы клонируються переменные по ходу кода.
set c[0] = "temp"
set d[0] = "temp"

set a=100
set b=100
// Как видим b можно ставить отдельно, a при этом не страдает.
set b=50
// прошла декапсуляция, т.е b  не синхронизируеться с a
// а значит не клонируеться более.
set a=1000

 struct temp{}
 
 struct lx extends temp{}
 
 lx this = lx.create
 boolean b = (lx instanceof struct)
 b = (lx instanceof temp)
 b = (lx instanceof lx)
 b = (lx instanceof string)

 #if b
  lx = "Ya stroka"
 #else
  lx = 1
 #endif

 struct temp
 endstruct
 
 struct lx extends temp
 endstruct

 local lx this = lx.create()
 local boolean b = true
 set b = true
 set b = true
 set b = false
 set lx= 1

string s = (3<5?"sex":"mex")
string s2 = (s!="sex"?"vox":"dox")

string s
string s2
if 3<5 then
 set s = "sex"
else
 set s = "mex"
endif
if s!= "sex" then
 set s2="vox"
else
 set s2="dox"
endif

  unit u=CreateUnit()
  int a[]
  a["x"]=0
  a["xx"]=1
  a[u]=2

local unit u=CreateUnit()
local integer array a
set a[Modulo(StringHash("x"),8190)]=0
set a[Modulo(StringHash("xx"),8190)]=1
set a[Modulo(GetHandleId(u),8190)]=2

// Кстати величина цифер может быть большой поэтому можно и под Модуло, если цифр больше 3

typedef<x[type]='value'>={
 #if type = handle
  x[GetHandleId(type)-0x100000] = value
 #elseif type = integer
  x[type] = value
 #elseif type = string
  x[Modulo(StringHash(type),8190)] = value
 #elseif type = real
  x[R2I(type)] = value
 #endif
}

whinenot(++i>10){
 if i == 5{continue}
 else{BJDebugMsg("not 5")}
}

loop
 set cjparse_continue = true
 loop
  set i=i+1
  exitwhen i>10
  if i == 5 then
   set cjparse_continue = false
   exitwhen true
  else
   call BJDebugMsg("not 5")
  endif
 endloop
 exitwhen cjparse_continue
endloop

int x[][20000]
void temp(){
 int z = array(x)
}

globals
 constant integer size_cjparser_x=20000
 integer array x[size_cjparser_x]
endglobals

function temp takes nothing returns nothing
 local integer z = size_cjparser_x
endfunction

 array<int,string> a
 <int,bool,unit> b=nill
 array<int,int>a // Ошибка так как нельзя чтобы два однотипичных значения могли иметь одно имя. Парсер просто должен выдавать ошибку

 globals
  integer array integer_a
  string  array string_a
  // Так как данные обнулены изначально, то и тут они будут обнулены.
  integer integer_b=0
  boolean boolean_b=false
  unit    unit_b   =null
 endglobals

 var a[]
 a[1]="xd"
 a[1]=115.0
 a[2]=11
 a[15]=true
 a[4]="omg"
 namespace a{
  BJDebugMsg(1)
  BJDebugMsg(4)
  BJDebugMsg(15)
 }

 local string  array string_a
 local real    array real_a
 local integer array integer_a
 local boolean array boolean_a
 set string_a [1]="xd"
 set real_a   [1]=111.5
 set integer_a[2]=11
 set boolean_a[15]=true
 set string_a [4]="omg"
 //namespace -> запускает все именные функции, и берет ячейку из массива указанную в полях
 call BJDebugMsg(string_a [1])   // ==> BJDebugMsg(1)
 call BJDebugMsg(R2S(real_a[1])) // ==> BJDebugMsg(1)
 call BJDebugMsg(string_a [4])   // ==> BJDebugMsg(4)
 call BJDebugMsg(cjparser_b2s(boolean_a[15]))   // ==> BJDebugMsg(15)
 // endnamespaces

package eng{
 STRING_HASH = "My mother say"
}
package rus{
 STRING_HASH = "Моя мама сказала"
}
package ger{
 STRING_HASH = "Githler CAPUT!"
}

void temp(){
 BJDebugMsg(STRING_HASH)
}

 function temp takes nothing returns nothing
  call BJDebugMsg(GetLocalizedString("STRING_HASH"))
 endfunction

abstract package('hfoo') eng{
 name = "Footman"
 tooltipbase = "Human rulzz"
}
abstract package('hfoo') rus{
 name = "Пехотинец"
 tooltipbase = "Хуманы жрут водку"
}

abstract package(mapHandle) eng{
 name = "DotA:AllStars 5000"
 description= "5000 heroes"
}
abstract package(mapHandle) rus{
 name = "ЗнД:Все Звезды 5000"
 description= "5000 героев"
}

class vector={
 real x
 real y
 real z
}

// Хочу заметить что данные не МАССИВ!!!!

void temp(){
 vector.x=0
 vector.y=0
 vector.z=0
}

class is={
 bool visible=false
 bool detected=false
 bool dummy=false

 class not={
  bool created=false
  bool destroy=false
 }

}

void temp(){
 if is.not.created{createTemp()}
 if is.dummy{is.visible=false}
 destroyTemp()
 if is.not.destroy{is.detected=true}
 if is.detected{echo("Чит детектед!")}
}

class is={
 bool visible=false
 bool detected=false
 bool dummy=false
}
class not extends is={
 bool created=false
 bool destroy=false
}
void temp(){
 if is.not.created{createTemp()}
 if is.dummy{is.visible=false}
 destroyTemp()
 if is.not.destroy{is.detected=true}
 if is.detected{echo("Чит детектед!")}
}

int  size = 0
bool temp = inline PerfectI2B(){return true}

void temp()
{
	if temp
	{
	    ForGroup(CreateGroup(),inline GetSize(size++))
	}
	else
	{
	    ForGroup(CreateGroup(),inline DecSize(size--))
	}
} 

//! file in common.j (файл обновился и добавился в импорт)
//! в файл common.j заносяться лишь те функции которые объявлены глобалками!!!!
//! остальная же котовасия как парситься смотрим ниже
function inline_PerfectI2B takes nothing returns boolean
    return true
endfunction
//! end  in common.j

globals
 integer size = 0
 boolean temp = inline_PerfectI2B() // inline PerfectI2B -> function Moving to our common.j file!!!!!
endglobals

function inline_GetSize takes nothing returns nothing
    set size = size + 1
endfunction

function inline_DecSize takes nothing returns nothing
    set size = size - 1
endfunction

function temp takes nothing returns nothing
	if temp then
	    call ForGroup(CreateGroup(),function inline_GetSize)
	else
	    call ForGroup(CreateGroup(),function inline_DecSize)
	endif
endfunction

struct parent
{
    struct childA
	{
	    struct childC
		{
		}
	}
	struct childB
	{
	}
}

struct parent
endstruct
struct childA extends parent
endstruct
struct childC extends childA
endstruct
struct childB extends parent
endstruct

struct
{
 float x
 float y
} perfectstruct;superstack;vector