в данной теме я вам розясню как правельно полозоваться скриптом !(знаю тем на порты очень много но кому какой будет удобней решать каждому отдельно)
Для тех кто не знает как пользоваться скриптами:
Вам нужно нажать Вкладка Автоматизация / Скрипты (Ctrl + E) / Новый скрипт / Пишим название / Стираем всё что есть, и добавляем скрипты / Ставим галочку справа , возле названия скрипта.
команды вводяться в чате так как они написаны!
3.1 или 3.2 и так далее
для асмодиан - исхальген мисии по порятку
1- приказ капитана - команда 1
2- охрана припасов разбойников - команды 3.1-3.2-3.3
3- Пропавшая дочь главаря- команды 1-5.2-5.3
4- Сокровище мертвых команды 6.1-6.2
5- Магический куб команды 6.1-6.2-7.3
6- Месть банды разбойников 6.1-8.2
7- Уничтожение полей аделлы 6.1-8.2
8- Пространственные врата 1-6.1-9.4-9.5
9- Стать даэвом 7.3-1-5.3-9.6
далее на церемонию!порты по панде буду делать ограничено)))сами
понимаете почему))
в дальнейшем залью мисии по остальным городам!!
за старания не откажусь от благодарности!
PHP код:
begin
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='1') then
begin
buf:=HStr('C2 00 57 61 FF 04 02 39 13 44 0A 44 19 45 00 30 8B 43 49');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='3.1') then
begin
buf:=HStr('C2 00 57 61 FF 04 3F DF 05 44 57 4D 17 45 61 26 8A 43 49');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='3.2') then
begin
buf:=HStr('C2 00 57 61 FF 04 89 58 13 44 0E 43 00 45 65 0B 80 43 49');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='3.3') then
begin
buf:=HStr('C2 00 57 61 FF 04 C6 65 DA 43 8F C4 0B 45 1E CB 79 43 49');
SendToServer;
pck:=''
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='5.2') then
begin
buf:=HStr('C2 00 57 61 FF 04 54 5B 55 44 96 A1 0A 45 96 14 85 43 49');
SendToServer;
pck:=''
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='5.3') then
begin
buf:=HStr('C2 00 57 61 FF 04 9F 26 6B 44 A9 76 0F 45 58 D6 84 43 49');
SendToServer;
pck:=''
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='6.1') then
begin
buf:=HStr('C2 00 57 61 FF 04 5D EA 6D 44 EB 04 D5 44 00 D0 81 43 49');
SendToServer;
pck:=''
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='6.2') then
begin
buf:=HStr('C2 00 57 61 FF 04 95 59 15 44 DA 75 EA 44 06 A4 8D 43 49');
SendToServer;
pck:=''
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='7.3') then
begin
buf:=HStr('C2 00 57 61 FF 04 B0 54 C2 43 F3 0E ED 44 27 C9 A3 43 49');
SendToServer;
pck:=''
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='8.2') then
begin
buf:=HStr('C2 00 57 61 FF 04 BA 81 1B 44 7C 20 BC 44 C9 2F 92 43 49');
SendToServer;
pck:=''
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='9.4') then
begin
buf:=HStr('C2 00 57 61 FF 04 9F CE 36 44 BB 18 91 44 8C A2 97 43 49');
SendToServer;
pck:=''
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='9.5') then
begin
buf:=HStr('C2 00 57 61 FF 04 5C B2 21 44 16 9B 66 44 D1 70 9B 43 49');
SendToServer;
pck:=''
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='9.6') then
begin
buf:=HStr('C2 00 57 61 FF 04 E0 BC 8A 44 0F FB D6 44 54 ED 86 43 49');
SendToServer;
pck:=''
end;
end.
Последний раз редактировалось Demboys; 26.03.2012 в 12:17.
да все работает. Кроме ньюшки - там пакеты С2 уже не прокатывают
________________
Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий). Затыкай меня спасибками Для просмотра ссылок или изображений в подписях, у Вас должно быть не менее 10 сообщение(ий). Сейчас у Вас 0 сообщение(ий).
Регистрация: 14.01.2011
Сообщений: 10
Популярность: 24
Сказал(а) спасибо: 0
телепорт по мисиям
