l2phx 20 -- Arenim's edition

[alexsl]

с таким скриптовым движком это будеть вооще "ВЕЩЬ"
особенно радует поддержка классов, как раз то, чего не хватало.
зы: плз не забудь про реализацию передачи данных между скриптами, типа глобальных переменных или ченить в этом роде (имхо типа глобального модуля вызываемого при инициализации скрипта).

[dmitry501]

не уверен что у него быстродействие на высоте.

[clyr]

dmitry501, быстродействие у подобных скрипт-языков всегда... известно где. Но на ихнем оффсайте всерьез народ занимается разработкой полноценной гуйни на базе скрипт-языка. Значит все таки получше, чем FS будет...

[dmitry501]

зачем мне гуи на скрипте?
скрипты нужны для быстрой проверки идеи, быстрого и легкого написания алгоритма и чтобы не тормозил при большом потоке пакетов.
а объекты - классы и прочие извращения оставьте большим взрослым языкам. вот в хлапексе и л2прокси был необходимый минимум команд и всем хватало.

[clyr]

скрипты нужны для быстрой проверки идеи, быстрого и легкого написания алгоритма и чтобы не тормозил при большом потоке пакетов.

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

Кроме того, я о другом. Если скрипт-язык точится под ГУИ -- значит у него не так все плохо со скоростью.

[alexsl]

вообщем простой тест:

- P4 1,7 512 mb
- l2ph 3.2.0 (Test Init)
- paxScript IDE (Run -> F9)

procedure Init; //Вызывается при включении скрипта
var
  i, k: Integer;
  t,r: double;
begin
  t := time();
  k := 1;
  
  for i := 0 to 200000 do
    k := StrToInt(IntToStr(i));
  r:= (time() - t)/1000;
  showmessage(floattostr(r));
end;

- код в paxScript IDE

uses SysUtils,dialogs;
var
  i, k: Integer;
  t,r: double;
begin
  t := time();
  k := 1;

  for i := 0 to 200000 do
    k := StrToInt(IntToStr(i));
  r:= (time() - t)/1000;
  showmessage(floattostr(r));
end.

-------------------------------------------
результаты:
- l2phx: 1,4282 1,4282 1,4282
- Pax: 2,9837 3,0196 2,9293
------------------------------------------
результаты грят сами за себя.
зы: не совсем ясно с paxScript IDE, возможно при каждом запуске идет компиляция

[dmitry501]

Если он тормознее, чем фастскрипт ажно в 2 раза, то ну его нафик

[Grinch]

Сообщение от dmitry501

Если он тормознее, чем фастскрипт ажно в 2 раза, то ну его нафик

+1 но длл вроде работает по умолчанию paxScript

[xkor]

Сообщение от alexsl

вообщем простой тест:

- P4 1,7 512 mb
- l2ph 3.2.0 (Test Init)
- paxScript IDE (Run -> F9)

procedure Init; //Вызывается при включении скрипта
var
  i, k: Integer;
  t,r: double;
begin
  t := time();
  k := 1;
  
  for i := 0 to 200000 do
    k := StrToInt(IntToStr(i));
  r:= (time() - t)/1000;
  showmessage(floattostr(r));
end;

- код в paxScript IDE

uses SysUtils,dialogs;
var
  i, k: Integer;
  t,r: double;
begin
  t := time();
  k := 1;

  for i := 0 to 200000 do
    k := StrToInt(IntToStr(i));
  r:= (time() - t)/1000;
  showmessage(floattostr(r));
end.

-------------------------------------------
результаты:
- l2phx: 1,4282 1,4282 1,4282
- Pax: 2,9837 3,0196 2,9293
------------------------------------------
результаты грят сами за себя.
зы: не совсем ясно с paxScript IDE, возможно при каждом запуске идет компиляция

твоё сравнение немного некорректно, дело в том что IntToStr и StrToInt в FastScript встроенные функции, а в paxScript они добавляются, из за этого и такая разница в скорости, но в paxScript есть встроенные аналоги этих функций, и вот такой скрипт в paxScript работает абсрлютно так же как и твой но чуть бустрее чем FastScript:

uses SysUtils,dialogs;
var
  i, k: Integer;
  t,r: double;
begin
  t := time();
  k := 1;

  for i := 0 to 200000 do
    k := Integer(String(i));
  r:= (time() - t)*86400000;
  showmessage(String(r));
end.

ну и для FastScript тоже исправил чтоб отображалось количество милисекунд а не непонятное число:

procedure Init; //Вызывается при включении скрипта
var
  i, k: Integer;
  t,r: double;
begin
  t := time();
  k := 1;
  
  for i := 0 to 200000 do
    k := StrToInt(IntToStr(i));
  r:= (time() - t)*86400000;
  showmessage(floattostr(r));
end;

begin
end.

в результате этих изменений результаты тестирования такие:
paxScript: 531 мс, 515 мс, 547 мс
FastScript: 577 мс, 625 мс, 594 мс
результат на лицо)
ЗЫ процессор - AMD Athlon 64 3800+

Добавлено через 12 минут
кстати небольшое разяснение навсякий случай:
String(x) - возвращает результат преобразования x в строку, чем бы x не было изначально, тоесть
если x: Integer = 12, то String(x) = '12'
если x: Double = 52.4234, то String(x) = '52.4234'
тоесть она заменяет наверное почти все ...ToStr функции
аналогично и Integer(x) преобразует x из почти чего угодно в целое число, x может быть и строкой типа '342' и дробным числом, от которого обрежиться дробная часть...

[alexsl]

класс!
ждемс реализ!

Сообщение от xkor

в результате этих изменений результаты тестирования такие:
paxScript: 531 мс, 515 мс, 547 мс
FastScript: 577 мс, 625 мс, 594 мс
результат на лицо)
ЗЫ процессор - AMD Athlon 64 3800+

и это радует

зы:кстати тест был взят из бренча пакса.