Добавлена тема оформления "Clickermann" для кода с подсветкой синтаксиса. Выбирается из выпадающего списка "Код" (рядом с "цвет", "размер" и "шрифт") в режиме редактирования поста. Либо просто BB-тегом "code=clickermann"
Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Как курьез его можно использовать, но ни в коем случае как готовое решение.
ArrPush($AActionName, "Город")
ArrPush($AActionName, "Таверна")
ArrPush($AActionName, 100)
ArrPush($AActionName, 100)
ArrPush($AActionName, "Таверна")
ArrPush($AActionName, "Окорок")
ArrPush($AActionName, 10)
ArrPush($AActionName, 10)
sub(Activate, $ActionName)
EnterToSubActivate:
print($ActionName)
$ActionIndex = 0
$ActionRecognized = 1
while (($ActionRecognized = 1) & ($ActionIndex < ArrSize($AActionName)/4))
if ($AActionName[$ActionIndex*4+1] = $ActionName)
$ActionRecognized = 0
ArrPush($ActivateVar, $ActionName)
ArrPush($ActivateVar, $ActionIndex)
ArrPush($ActivateVar, $ActionRecognized)
$ActionName = $AActionName[$ActionIndex*4]
Goto(EnterToSubActivate)
ExitFromSubActivate:
$ActionRecognized = ArrPop($ActivateVar)
$ActionIndex = ArrPop($ActivateVar)
$ActionName = ArrPop($ActivateVar)
Move($AActionName[$ActionIndex*4+2], $AActionName[$ActionIndex*4+3])
LClick(-1, -1)
else
Inc($ActionIndex)
end_if
end_cyc
Goto(ExitFromSubActivate)
end_sub
print("Start")
Activate("Окорок")
print("Finish")
Я не пойму, почему код у меня завершается? 
Название темы не соответствует содержанию.Несколько странное утверждение. Мы на форуме по Кликерману и вопросы на этом форуме предполагают именно его использование.
но зачем пытаться вызывать подпрограмму внутри собственного описания?Рекурсия подразумевает вызов самой себя при описании. Что-то иное рекурсией не является.
Ошибка при вызове функции Popsub(Recursion, $Var)
print($Var)
if ($Var > 0)
ArrPush($AVar, $Var)
Recursion($Var-1)
$Var = ArrPop($AVar)
end_if
end_sub
Recursion(10)
print("Start")
goto(EndFor)
for($n=0, $n<3)
print($n)
if ($n=1)
goto(EndFor)
//$n=3
end_if
end_cyc
:EndFor
print("Finish")Наблюдается полный игнор gotosub(Test0)
for ($i=0, $i<5)
print("Test0",$i)
end_cyc
end_sub
sub(Test1)
for ($i=0, $i<5)
Test0()
print("Test1",$i)
end_cyc
end_sub
LogClear()
Test1()прекращайте уже писать бред на форуме.Спокойнее и без оскорблений. Я признаю, что я не прав, если вы мне процитируете справку где сказано что ВСЕ переменные в рамках ВСЕГО скрипта должны иметь уникальные имена, включая и имена параметров в подпрограммах. Я такого не нашел. А вот то что есть в справке относительно подпрограмм и их параметрах говорит о ином:
Если ваши ФИО БУДУТ ПОЛНОСТЬЮ СОВПАДАТЬ С параметрами вашей матери это по вашему тоже будет полезная фича?
С чего вы сделали вывод, что должно быть, а чего нет?
Совершенно нормально и самоочевидно, для нормальных людей, что название параметра подпрограммы и переменной совпадать не должны.
Встречались до вас извращенцы, которые подпрограмму поток и точку перехода совершенно одинаково называли, но у них хоть хватало ума не заявлять, что это полезная фича.
После выполнения подпрограммы, сценарий продолжится с момента вызова подпрограммы. Локальные переменные подпрограммы (параметры) при этом будут уничтожены.Заметьте локальные переменные и параметры подпрограммы. Это общепринятое поведение подпрограммы, подчищающей за собой. А в приведенном мной примере ничего нормального нет - это баг.
sub (SubTest1, $x, $y)
$x = 1
$y = 1
end_sub
sub (SubTest2, $x1, $y1)
$x1 = 1
$y1 = 1
end_sub
LogClear
$x = 5
$y = 5
print($x, " ", $y) // Результат 0 0
SubTest1($x, $y)
print($x, " ", $y) // Результат 5 5
$x = 5
$y = 5
SubTest2($x, $y)
print($x, " ", $y)Как видно, совпадение имени внешней переменной с именем параметра подпрограммы приводит к обнулению внешней переменной, чего не должно быть. А вот если бы она не обнулялась, а сохраняла результат вычисления в подпрограмме это была бы очень полезная фича с передачей параметра по ссылке.