[Скрипт] Телепорт и небольшой баг

[Fantme]

ну с этим не спорю)

[Dicpano15]

Помоги вот мой скрип что я делаю не так if FromClient then

begin
if pck=HStr('(*B9 57 76 00 42 00 39 00 00 00 *)') then
begin
buf:=HStr('C9 57 66 04 (*B5 42 DD 43 C0 28 0F 45 E6 F8 7D 43 59 00*));
SendToServer;
buf:=HStr('(*B5 42 DD 43 C0 28 0F 45 E6 F8 7D 43 59 00*');
SendToServer;
buf:=HStr('67 57 04');
SendToServer;
pck:='';
end;

[Fantme]

ну во первых убери везде *

во вторых if FromClient and
pck=HStr('B9 57 76 00 42 00 39 00 00 00') then begin

а втретих почитай лучше мануалы по скриптописанию или языку программирования Object Pascal

с такими ошибками ты далеко не уйдешь

[Dicpano15]

Цитата: Сообщение от Fantme ну во первых убери везде *

Убрал а дальше что?


теперь оно вот такво у меня



if FromClient and
pck=HStr('B9 57 76 00 42 00 39 00 00 00') then begin
begin
buf:=HStr('C9 57 66 04 (*B5 42 DD 43 C0 28 0F 45 E6 F8 7D 43 59 00));
SendToServer;
buf:=HStr('(B5 42 DD 43 C0 28 0F 45 E6 F8 7D 43 59 00');
SendToServer;
buf:=HStr('67 57 04');
SendToServer;
pck:='';
end;

но всеравно на 1 строчку пишет что что-то не так

[Fantme]

как то так:

Цитата: if FromClient and pck=HStr(' B9 57 76 00 42 00 39 00 00 00 ') then begin buf:=HStr('C9 57 66 04 B5 42 DD 43 C0 28 0F 45 E6 F8 7D 43 59 00'); SendToServer; buf:=HStr('B5 42 DD 43 C0 28 0F 45 E6 F8 7D 43 59 00'); SendToServer; buf:=HStr('67 57 04'); SendToServer; pck:=''; end;

я исправил лишь твои ошибки, насчет правильности самих пакетов не ручаюсь

[CyberCrime'r]

да он вставил пакет где нету первых 3х байтов в модифицированный и в следующий))

Добавлено через 2 минуты
щас посмотрел в скрипт и увидел, что забыл про скобки кое - где, исправил!
то есть должно вот так быть

if FromClient and (pck=HStr('ваш пакет')) then

[Abler]

можно без скобочек только 2 if

[Fantme]

Цитата: Сообщение от Abler можно без скобочек только 2 if

да все правильно) и так норм

[CyberCrime'r]

мне так удобней, так сказать на этом учился, так и привык по одному сценарию писать

[NEcot]

Меня мучает вопрос как настроить ТП между локациями,так как использование пакетов привратников и телепортации к кебелю не к чему хорошему не ведёт.

Цитата: Сообщение от Tr0y var My_x,My_y,My_z,ID_loc: integer; My_xyz: string; // пакет целиком текущие координаты flag_savePoint: boolean; // true - ищем пакет на координату для запоминания точки сохранения, false - игнорим пакет на изхменение точки сохрания values : array [0..100] of variant; procedure Init; //Вызывается при включении скрипта begin My_xyz:=''; flag_savePoint:=false;My_x:=0;My_y:=0;My_z:=0;ID_l oc:=0; end; procedure SendMSGChat(text: string); // Пишем в чат begin buf:=HStr('17 54 D4 22 00 01 00 00 00 00 00'); WriteS(text); SendToClient; end; ... #$9E: // Move Player if (flag_savePoint=true) then // нужно создать новую точку сохранения? begin // 9E 57 5D x x x x y y y y z z z z id ... ReadMask('hnnnc',2,values); if ((values[1]>0)and(values[2]>0)and(values[3]>0))then // x>0 y>0 z>0 begin My_xyz:= StrToHex(pck); // запоминает первый найденный пакет на передвидение flag_savePoint:= false; // точку запомнили, выключаем флаг запоминания координаты My_x:=values[1];My_y:=values[2];My_z:=values[3];ID_loc:=values[4]; SendMSGChat('Точка перемещения добавлена в X='+inttostr(My_x)+' Y='+inttostr(My_y)+' Z='+inttostr(My_z)); end; end; ... // Запоминаем текущую координату в переменную // B9 57 76 00 2F 00 40 04 35 04 41 04 00 00 // В чат: рес if ((pck[5]= #$40) AND (pck[7]= #$35) AND (pck[9]= #$41))then begin SendMSGChat('*** Добавление точки АКТИВНО! ***'); flag_savePoint:=true; // начинаем ждать пакет на перемещение pck := ''; end; ... // Телепорт к ранее сохраненной точке if ((pck[5]= #$2F)AND(pck[7]= #$39)AND (pck[9]= #$35)AND(pck[11]= #$36)) then // /956 begin buf:=HStr('C9 57 66 04'); WriteN(My_x); WriteN(My_y); WriteN(My_Z+1); WriteC(ID_loc); SendToServerCheck; flag_savePoint:=false; // выключаем флаг запоминания координаты pck := ''; end; ...

Этот скрипт я пока непопробовал (но он всеголишь автоматом задаёт точку?),но ведь и он незаставит переместиться на другую локу?

...
WriteC(ID_loc); офигеть,я прозрел

[Tr0y]

Цитата: Сообщение от NEcot Этот скрипт я пока непопробовал (но он всеголишь автоматом задаёт точку?),но ведь и он незаставит переместиться на другую локу?

это не ид локи, а что-то иное, я пока хз для чего это но это для чего то меняется часто при движении и его я тоже меняю )
Клиенту ровынм счетом "по барабану" в какой вы локе, он лишь обрабатывает графику и он старается вас не уронить в текстуру

Кто не знает давайте немного просветлю. КЛиент айона использует одну и ту же "коробку" для создания уровня локации. Т.е. "коробка" неизменна, меняется лишь ее содержимое, а значит все координатные точки внутри этой коробки будут константными (постоянными) значениями.
Можно сделать так, чтобы перс бегал по воздуху (подменой локации, где перс будет бегать в локации "А", а в клиенте он будет бегать в локации "В", забавно, да).
Я же принцип описал, создаете в игре 2 макросика с сообщением в чат, они будут "сигналить". Если не нравятся макросы, сделайте скилы или др., что может сигнализировать скрипту на необходимость перемещения в пространстве .

Отрывок что я дал, отражает баг из темы "телепортации сидя", все еще работает на одной ид топ серверов. Если и пофиксят, то можно через релог телепортироватся, главное, чтобы окружающая обстановка обновилась.

procedure SendMSGChat(text: string); // процедура, Пишет в чат клиента (только нам) сообщение переменной "text", сделано для информативности

Цитата: #$9E: // Move Player

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

Цитата: // Запоминаем текущую координату в переменную // B9 57 76 00 2F 00 40 04 35 04 41 04 00 00 // В чат: рес if ((pck[5]= #$40) AND (pck[7]= #$35) AND (pck[9]= #$41))then

Тут аналог, выдрано из case где проверка отправляемых сообщения в чат.
Как пример:

 if FromServer then
 case pck[1] of // проверяем отправляемые клиентом пакеты по первому байту (по ид пакета)
#$B9:     // диалог в чат
    begin
      // Запоминаем текущую координату в переменную
      // B9 57 76 00 2F 00 40 04 35 04 41 04 00 00 // вот пакет полностью, пишет общий чат слово на русском (кэп говорит, что лучше юзать другие слова): рес 
      if ((pck[5]= #$40) AND (pck[7]= #$35) AND (pck[9]= #$41))then // если 5 байт в пакете #$40="р", 7 байт #$35="е" и 9 байт #$41="с", тогда... делаем, что нужно
      ...
    end; // конец блока #$B9: 
end; // конец блока оператора выбора  case pck[1] of

Конец урока по программе 9-11 класса, всем спс, урок окончен

[CyberCrime'r]

Tr0y, я думаю если некоторые не могут понять, что в каждой локации координаты одинаковые, то это врядли поймут, но очень информативно

[NEcot]

Спасибо БОЛЬШОЕ за информацию Tr0y, но меня больше волнует не теория,а то что на нашем сервере асмы штурмуют крепость Бертрон,а кв на перемещение в локацию враждебной рассы как бы "пофиксили"- сделали лимит по уровню очень мелким(

Добавлено через 10 минут

Цитата: Сообщение от CyberCrime'r что в каждой локации координаты одинаковые

понимаем)

Цитата: Сообщение от Tr0y по программе 9-11 класса

лично я в школе неизучал програмные языки,только уже в техникуме qBasic и то относительно понимаю скрипты,операторов таких же много (case например для меня новый но я сразу понял что он отвечает за отлов определённых пакетов с определенными байтами)

[CyberCrime'r]

Цитата: Сообщение от NEcot case например для меня новый но я сразу понял что он отвечает за отлов определённых пакетов с определенными байтами

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

[Indeos918]

у меня на сервере не работает(
но всеравно спасибо