[Помогите!] Объеденить скрипты

[CyberCrime'r]

У меня много скриптов работающих по принципу замены пакетов посылки слов в чат на 2 пакета для телепортации по локе!!! Их очень много и я хочу их объеденить в один, чтоб не занимали много места. Но когда после первого скрипта, я вставил второй ниже, тот который ниже не работает, работает только верхний!
Можно ли объеденить их как то в один?? или только на одно полное действие должен быть один скрипт?

[MET1234]

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

[Tr0y]

Попробуй в скрипте свои процедуры на ответы в чат занести в case по шаблону ниже для 2.1:

Структура пакета сообщения в чат от клиента: B9=MSG:h(id2)c(TypeChat)s(MSG)

if FromClient then
 case pck[1] of
 0: exit; // хз, пакет с 1 нулевым байтом - удаляем :)
 #$B9:     // пакет на диалог в чат
     // Тут ставим свою процедуру со старого скрипта на написание в чат
    if ((pck[5]= #$2F)AND(pck[7]= #$4D)AND(pck[9]= #$3B)) then        // сообщение в общ. чат:    /эл  
        begin
         // пишем тут свою процедуру обработки сообщения
        end; // конец if
    if ((pck[5]= #$40) AND (pck[7]= #$35) AND (pck[9]= #$41))then        // в общий чат:   рес  
        begin
         // пишем тут свою процедуру обработки сообщения
        end; // конец if
end; // конец case

((pck[5]= #$2F)AND(pck[7]= #$4D)AND(pck[9]= #$3B)) = перехватывает пакет вида B9 ** ** ** 2F ** 4D ** 3B ** .....

/эл = 2F 00 4D 04 3B 04

[Ссылки могут видеть только зарегистрированные пользователи. ]

Кратко:

if FromClient then
Case pck[1] of // выбор идет по 1 байту пакета (его ид)
// тут перечисляем все пакеты и реагируем
#$22: // если пришел пакет с ид 22
end;

[CyberCrime'r]

вот например один скрипт!!
У меня таких подобных ~10, я ими постоянно пользуюсь

PHP код:

begin
if FromClient and (pck=HStr('B9 57 76 00 25 04 40 04 30 04 3C 04 20 00 37 04 3E 04 3B 04 3E 04 42 04 30 04 00 00'))
then 
begin
buf:=HStr('9E 57 5D 18 E9 A6 44 AD 40 BB 44 48 F0 52 43 37 00');
SendToServer;
buf:=HStr('67 57 04');
sendtoserver;
pck:='';  
end;          
end. 


Добавлено через 1 час 45 минут
Tr0y, спасибо, я разобрался :-)

[MET1234]

Это твой пакет но 2 раза.

Цитата: procedure Init; begin end; procedure Free; begin end; begin if FromClient and (pck=HStr('B9 57 76 00 25 04 40 04 30 04 3C 04 20 00 37 04 3E 04 3B 04 3E 04 42 04 30 04 00 00')) then begin buf:=HStr('9E 57 5D 18 E9 A6 44 AD 40 BB 44 48 F0 52 43 37 00'); SendToServer; buf:=HStr('67 57 04'); sendtoserver; pck:=''; end; if FromClient and (pck=HStr('B9 57 76 00 25 04 40 04 30 04 3C 04 20 00 37 04 3E 04 3B 04 3E 04 42 04 30 04 00 00')) then begin buf:=HStr('9E 57 5D 18 E9 A6 44 AD 40 BB 44 48 F0 52 43 37 00'); SendToServer; buf:=HStr('67 57 04'); sendtoserver; pck:=''; end; end.

Вот пример скрипта он содержит 2 штуки но их можно сделать сколько угодно.
После этого

Цитата: if FromClient and (pck=HStr('C9 57 66 15 01 00 00 00 00 00'))//Эмоция Смех then begin buf:=HStr('63 50 00 97 48 AA 02 01 00 00');// SendToClient; pck:=''; end;

Добавлюй это много раз

Цитата: if FromClient and (pck=HStr('C9 57 66 15 01 00 00 00 00 00'))//Эмоция Смех then begin buf:=HStr('63 50 00 97 48 AA 02 01 00 00');// SendToClient; pck:=''; end;

[CyberCrime'r]

не, я вот по такому принципу сделал:

PHP код:

begin
if fromclient then
case pck[1] of
#$B9:
//Верхняя точка (врата безны)
begin
if pck=HStr('B9 57 76 00 2F 00 1C 04 32 04 42 04 00 00') then
begin
buf:=HStr('9E 57 5D 8C C8 97 43 FF DD 12 45 78 B3 07 44 55 00');
sendtoserver;
buf:=HStr('67 57 04');
SendToServer;
pck:='';
end;
//Привратник
if pck=HStr('B9 57 76 00 2F 00 1C 04 3F 04 40 04 00 00') then
begin
buf:=HStr('9E 57 5D E3 FC 9A 43 F6 01 0E 45 D2 B4 E0 43 65 00');
sendtoserver;
buf:=HStr('67 57 04');
SendToServer;
pck:='';
end;
end;
end;
end. 


[MET1234]

Цитата: Сообщение от CyberCrime'r не, я вот по такому принципу сделал:

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