XGM Forum - Ошибки в коде

Здравствуйте! Найдите пожалуйста ошибки в коде, а то при проверке не запускается.

fucntion SaveIntegerType takes integer u, integer id return nothing
local integer c = 0
local integer v = 0
local string conform = I2S(u)
local integer le = StringLength(conform)
local string endcode = ""
local integer rancode = 0
set c=1
loop
exitwhen c >le
     set v= 1
loop
          exitwhen v > 10
          if  SubString(conform, c, c+1) == udg_C_Symbol[v] then
          set rancode = GetRandomInt(1, 2)
          if rancode == 1 then
          set rancode = v
else
          set rancode == v+10
endif
          set endcode = endcode + udg_C_Alphabet[rancode]
endif
          set v= v+1
endloop
          set c = c+2
endloop
          if udg_C_Integer[id] == "" then
          set udg_C_Integer[id] = udg_C_Integer[id] + endcode
else
          set udg_C_Integer[id] = udg_C_Integer[id] + "-" + endcode
endif
endfunction

function SaveStringType takes string u, integer id return nothing
local integer c = 0
local integer v = 0
local integer le = StringLength(u)
local string endcode = ""
local integer rancode = 0
set c=1
loop
exitwhen c >le
     set v= 1
loop
          exitwhen v > 10
          if  SubString(u, c, c+1) == udg_C_Symbol[v] then
          set rancode = GetRandomInt(1, 2)
          if rancode == 1 then
          set rancode = v
else
          set rancode == v+10
endif
          set endcode = endcode + udg_C_Alphabet[rancode]
endif
set v= v+1
endloop
          set c = c+2
endloop
          set udg_C_Integer[id] = endcode
          if udg_C_Integer[id] == "" then
          set udg_C_Integer[id] = udg_C_Integer[id] + endcode
else
          set udg_C_Integer[id] = udg_C_Integer[id] + "-" + endcode
endif
endfunction

Заранее спасибо

udg_C_Integer - строка, массив
udg_C_Alphabet - строка, массив
udg_C_Symbol - строка, массив.

function SaveIntegerType takes integer u, integer id returns nothing local integer c = 0 local integer v = 0 local string conform = I2S(u) local integer le = StringLength(conform) local string endcode = "" local integer rancode = 0 set c=1 loop exitwhen c >le set v= 1 loop exitwhen v > 10 if(SubString(conform, c, c+1) == udg_C_Symbol[v])then set rancode = GetRandomInt(1, 2) if(rancode == 1)then set rancode = v else set rancode = v+10 endif set endcode = endcode + udg_C_Alphabet[rancode] endif set v= v+1 endloop set c = c+2 endloop if(udg_C_Integer[id] == "")then set udg_C_Integer[id] = udg_C_Integer[id] + endcode else set udg_C_Integer[id] = udg_C_Integer[id] + "-" + endcode endif endfunction function SaveStringType takes string u, integer id returns nothing local integer c = 0 local integer v = 0 local integer le = StringLength(u) local string endcode = "" local integer rancode = 0 set c=1 loop exitwhen c >le set v= 1 loop exitwhen v > 10 if SubString(u, c, c+1) == udg_C_Symbol[v] then set rancode = GetRandomInt(1, 2) if rancode == 1 then set rancode = v else set rancode = v+10 endif set endcode = endcode + udg_C_Alphabet[rancode] endif set v= v+1 endloop set c = c+2 endloop set udg_C_Integer[id] = endcode if udg_C_Integer[id] == "" then set udg_C_Integer[id] = udg_C_Integer[id] + endcode else set udg_C_Integer[id] = udg_C_Integer[id] + "-" + endcode endif endfunction

Ваши права в разделе

Вы не можете создавать темы

Вы не можете отвечать на сообщения

Вы не можете прикреплять файлы

Вы можете скачивать файлы

BB-коды Вкл.

Смайлики Вкл.

[IMG] код Вкл.

HTML код Выкл.

Doc offline Опыт: 63,163 Активность:	у тебя синтаксис вообще проверяет?
01.07.2011, 14:48	#3 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

Oxygen D Вернулся offline Опыт: 5,180 Активность:	Doc, в то то и дело, что проверяет только в cJass и vJass а в обычном нет
01.07.2011, 15:35	#4 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

Амбидекстрия Silenced by ScorpioT1000 offline Опыт: 8,237 Активность:	Oxygen_D: set rancode == v+10 2 = вместо одного Voldislav: endcode + udg_C_Alphabet[rancode] Это не может быть ошибкой?.. вроде, больше ничего подозрительного не нашёл... Ты карту пересохранял? в пути к карте есть русские буквы?
04.07.2011, 11:11	#5 +0/−0 Профиль \| Приват \| Поиск \| Цитата \| IP: Записан

Опции темы	Поиск в этой теме
Версия для печати	Поиск в этой теме: Расширенный поиск