[Alpha/Beta Testing] Тестируем сырые обновления (ссылки в первом посте)

[Крис Тинка]

  Пока старые скрипты 4.8 в 4.9 оживить не удалось.
 Можно ли в шапке к этой теме сделать  сообщение , как  нужно изменить прежний скрипт 4.8, чтобы он заработал в 4.9?
Или рано ?

Вроде изменения коснулись только сабов
SUB(MYSUB)
END_SUB
Вместо GOSUB(MYSUB) писать MYSUB() и описание подпрограммы должно быть выше её вызова, потому что подпрограммы теперь работают как функции.
P.S. И FOR с нуля теперь

[ЦИТРИН]

Вместо GOSUB(MYSUB) писать MYSUB() и описание подпрограммы должно быть выше её вызова, потому что подпрограммы теперь работают как функции.
P.S. И FOR с нуля теперь

 Спасибо)
Но нельзя ли показать это же самое на простеньком, НО рабочем скрипте, чтобы не было лишних ошибок и вопросов.

[Крис Тинка]

FOR:

Code: (clickermann) [Select]

FOR($a, $a < 5)
   PRINT($a)
END_CYC
HALT
В 4.9 версии результат (0,1,2,3,4). В предыдущих (1,2,3,4,5)

Code: (clickermann) [Select]

//--------------------------------
//--------------------------------
SUB(mysub1)
   print(1)
END_SUB
//--------------------------------
SUB(mysub2)
   print(2)
END_SUB
//--------------------------------
mysub2() //Вызов подпрограммы
mysub1() //Вызов подпрограммы
//--------------------------------
SUB(summa, $a, $b, $c)
   $summa = $a + $b + $c
   print($a," + ", $b," + ", $c ," = ", $summa)
END_SUB
//--------------------------------
summa(5,6,7)
summa(10,20,30)
//--------------------------------
SUB(name, $str)
   PRINT($str , $name, "!")
END_SUB
$name = INPUTBOX("Введите имя", "", 10)
name("Привет ")
name("Пока ")
HALTP.S.  Вот еще пример вызов функции факториал:

Code: (clickermann) [Select]

//--------------------------------
SUB(mysub,$n)
   $f = 1
   FOR($a, $a < $n)
      $f = $f*($a + 1)
   END_CYC
   print($n, "! = ", $f)
END_SUB
//--------------------------------
mysub(5)
HALT

[ЦИТРИН]

Спасибо )
 Так понятнее.
Вопрос по старым скриптам остался.
Сейчас масса сабов  из версии 4.8 должна быть как-то переделана?
Как?
Пример небольшого саба версии  4.8,  переделанный в  4.9 , если можно.
 

[Крис Тинка]

Code: (clickermann) [Select]

//--------------------------------
SUB(mysub1)
   print(1)
END_SUB
//--------------------------------
SUB(mysub2)
   print(2)
END_SUB
//--------------------------------
mysub2() //Вызов подпрограммы в 4.9
GOSUB(mysub2)//Вызов подпрограммы в 4.8
//--------------------------------
mysub1() //Вызов подпрограммы в 4.9
GOSUB(mysub1)//Вызов подпрограммы в 4.8
HALT

[ЦИТРИН]

Теперь понял.
 GOSUB вообще  отсутствует.
 Там где раньше был GOSUB  теперь нужно писать просто название саба .
 Например, mysub ().
  А что в скобках и зачем они?

[Oraven]

Теперь понял.
 GOSUB вообще  отсутствует.
 Там где раньше был GOSUB  теперь нужно писать просто название саба .
 Например, mysub ().
  А что в скобках и зачем они?

В скобках пишут параметры для переменных но если их нет то скобки тоже нужны но пустые. Сколько параметров столько должно быть и переменных.

Code: (clickermann) [Select]

// подпрограмма
SUB(клик,$x,$y)
   MOVE($x,$y)
   WAITMS(100)
   LDOWN($x,$y)
   WAITMS(100)
   LUP($x,$y)
   WAITMS(100)
END_SUB


// вызов подпрограммы (обязательно ниже подпрограммы) передает параметры в переменные
клик(200,350)
клик(400,350)
клик(570,350)


[ЦИТРИН]

Спасибо )
Есть ли особые примечания к 4.9?
Речь  багах , или командах,  которые новичкам ( или простым юзерам )  пока не стоит применять ?

[Oraven]

Спасибо )
Есть ли особые примечания к 4.9?
Речь  багах , или командах,  которые новичкам ( или простым юзерам )  пока не стоит применять ?

С инклудами пока проблема
http://crapware.aidf.org/forum/index.php?topic=1054.0

[aden]

ограничение в 5 значений функции пока нерешаемо? я про print(раз,два,три,четыре,пять, шесть_нерабочий)

[Крис Тинка]

ограничение в 5 значений функции пока нерешаемо? я про print(раз,два,три,четыре,пять, шесть_нерабочий)

print работал и в ранних версиях. Вот проверь

Code: (clickermann) [Select]

$a = "Однажды, "
$b = "в студеную "
$c = "зимнюю "
$d = "пору, "
$e = "Я из лесу "
$f = "вышел; "
$g = "был сильный "
$h = "мороз."
PRINT($a,$b,$c,$d,$e,$f,$g,$h)
halt


[Oraven]

ограничение в 5 значений функции пока нерешаемо? я про print(раз,два,три,четыре,пять, шесть_нерабочий)

Давно уже исправлено

[Vint]

Можно ли добавить поддержку относительных путей для include?
Неудобно все инклюды за собой по проектам таскать дублируя.
Чтобы поддержка была переместиться на уровень вверх и войти в другую папку:
#include "..\lib\mylib.cms"

Или хотя бы жёстко от папки projects... как сделано в LOAD.

[Johnny]

так оно как бы работает.
ты чет с путями перемудрил или за текущей папкой не уследил (выводится в заголовке редактора)

[Vint]

так оно как бы работает.
ты чет с путями перемудрил или за текущей папкой не уследил (выводится в заголовке редактора)

Да, что-то намудрил. Попробовал написать с нуля - заработало.