Формат файлов W3M и W3X

If  FirstByte <= 191
	return FirstByte
If 192 <= FirstByte <= 223
	return (FirstByte - 192) * 64 + (SecondByte - 128)
If 224 <= FirstByte <= 239   
	return (FirstByte - 224) * 4096 + (SecondByte - 128) * 64 + (ThirdByte - 128)
If 240 <= FirstByte <= 247 
	return (FirstByte - 240) * 262144 + (SecondByte - 128) * 4096 + (ThirdByte - 128) * 64 + (FourthByte - 128)
If 248 <= FirstByte <= 251 
	return (FirstByte - 248) * 16777216 +	(SecondByte - 128) * 262144 + (ThridByte - 128) * 4096 + (FourthByte - 128) * 64 + (FifthByte - 128)
If 252 <= FirstByte 
	return (FirstByte - 252) * 1073741824 +(SecondByte - 128) * 16777216 + (ThirdByte - 128) * 262144 +(FourthByte - 128) * 4096 + (FifthByte - 128) * 64 + (SixthByte - 128)

If ASCII <= 127   
	FirstByte = ASCII
If 128 <= ASCII <= 2047   
	FirstByte = 192 + (ASCII \ 64) 
	SecondByte = 128 + (ASCII Mod 64)
If 2048 <= ASCII <= 65535 
	FirstByte = 224 + (ASCII \ 4096)
	SecondByte = 128 + ((ASCII \ 64) Mod 64) 
	ThirdByte = 128 + (ASCII Mod 64)
If 65536 <= ASCII <= 2097151 
	FirstByte = 240 + (ASCII \ 262144)
	SecondByte = 128 + ((ASCII \ 4096) Mod 64) 
	ThirdByte = 128 + ((ASCII \ 64) Mod 64) 
	FourthByte = 128 + (ASCII Mod 64)
If 2097152 <= ASCII <= 67108863 
	FirstByte = 248 + (ASCII \16777216) 
	SecondByte = 128 + ((ASCII \ 262144) Mod 64) 
	ThirdByte = 128 + ((ASCII \ 4096) Mod 64) 
	FourthByte = 128 + ((ASCII \ 64) Mod 64)
	FifthByte = 128 + (ASCII Mod 64)
If 67108864 <= ASCII <= 2147483647 
	FirstByte = 252 + (ASCII \ 1073741824) 
	SecondByte = 128 + ((ASCII \ 16777216) Mod 64) 
	ThirdByte = 128 + ((ASCII \ 262144) Mod 64) 
	FourthByte = 128 + ((ASCII \ 4096) Mod 64) 
	FifthByte = 128 + ((ASCII \ 64) Mod 64) 
	SixthByte = 128 + (ASCII Mod 64))

function A, takes real x, real y .....
//внутри можете работать с переменными x,y
endfunction

call A(55.0, 66.00) //передал в аргумент координату x=55 и y=66

function B, takes nothing .....
//код (иначе этот код называют телом функции)
endfunction

call() //внутри скобки ничего не указываем, пусто. Тк nothing - ничего.

function B5 takes nothing returns integer
return 5 <= должно бы вернуть целое число, тут вернет 5
endfunction

set i = B5() //тк функция B5 нам вернет 5, и запишем в переменную i 
call B5() //по идее можно еще вызвать напрямую через call. Однако, вы не сможете так принять значение, оно будет утеряно. Поэтому такое действие бесполезное

function C takes nothing returns nothing
//код, тк функция ничего не принимает nothing, то и возвращать return ничего не надо
endfunction

function D takes nothing returns boolean
//...первая часть кода
return true
//...вторая часть кода, эта вторая часть кода никогда не будет работать. Тк действие прервется. Поток обрубается после return. Такая особенность, стоит учитывать, особенно при обнулении локалок. Обычно пользователи обнуляют локалки во второй части кода
endfunction

function E takes nothing returns nothing
//…первая часть кода
return
//…вторая часть кода, которая не запустится. Да именно после return ничего не вводим, достаточно "return" ввести. Тк принимает тип аргумента nothing, то есть ничего. Это норм. Теперь знаете как обрубать действия
endfunction 

globals
    integer hhh =0
    real ddd = 0
    integer array ew //array - массив переменной
endglobals

function F1 takes nothing returns nothing
local integer a = 0 //<= объявляют тип аргумента и название переменной
//… код
endfunction

set a = 5
set a = a+b

Если "воин ранен" тогда,
     Действие: Восстановить здоровье
Конец

If (…) then
    //…код (пишут действие, если вернет истину)
endif

If (…) then
    //одно действие
Else
    //или другое
Endif

If (…)then
    //действие
elseIf (…)then
   //действие
Endif

Loop - открывает блок цикла
 //сюда пишем код, который будет повторяться. Этот код называется телом цикла. Будет идти сверху вниз, дойдя до низа, конца повторяет действие снова сверху-вниз
Endloop - закрываем блок цикла

Loop
 Exitwhen (…) - условие выхода из цикла, указываем boolean
 //код (тело цикла)
endloop 

Loop
      //код (часть тела цикла)
      Exitwhen (…)
      //код (часть тела цикла)
endloop 

Loop
      //код (тело цикла)
      Exitwhen (…)
endloop 

Loop
    //код (часть тела цикла)
    If(…)then
         Exitwhen true
    Endif
    //код (часть тела цикла)
endloop

native UnitAddItem takes unit whichUnit, item whichItem returns Boolean

local unit array u
set u[0]=юнит 1 //используют квадратные скобки
set u[1]=юнит 2
и др

globals
      integer array AAA
endglobals

set AAA[0]=5
set AAA[1]=6
и др

function InitGlobals takes nothing returns nothing
    local integer i= 0

    set i=0
    loop
        exitwhen ( i > 1 )
        set udg_AAA[i]=0
        set i=i + 1
    endloop
endfunction

function A1 takes nothing returns item
local unit u = …
return u
endfunction

function Int2Handle takes integer I returns handle
return I
return null
endfunction

function Handle2Int takes handle H returns integer
return H
return 0
endfunction