Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация

Новые скрипты, которых тут раньше не было + пара багов

-

Скрипты и перехват пакетов

- Скрипты и перехват пакетов

Ответ
 
Опции темы
Старый 22.10.2009, 05:05   #1
 Пехотинец
Аватар для ka3ant1p
 
ka3ant1p скоро будет известенka3ant1p скоро будет известенka3ant1p скоро будет известен
Регистрация: 17.10.2009
Сообщений: 61
Популярность: 210
Сказал(а) спасибо: 5
Поблагодарили 100 раз(а) в 24 сообщениях
 
Exclamation Новые скрипты, которых тут раньше не было + пара багов

Вот поискал я что то новенькое того чего почти нигде нету может отдельное что то встречается, по крайней мере 80% того что тут нету на этом форуме.... теперь будет)))) Не забываем про кнопочку-спасибо))
Начнем с того что мало и постепенно перейдем к теме по интерестнее))
Заранее говорю объем информации очень большой и еще все тут не тестил но если так посмотреть выглядит все работоспособным так что будем помогать тестить и отписыватся в этом топе.
БАГИ:
1) У некра есть скил Arcane Power Когда вы тпхнулись в другую локацию и вас начали бить сразу включайте этот скил и вы неуязвимы СП и ХП остаются полными (можно сделать в два окна) . Баг проверен на laelpy.net Работает 100%

2)ДЮП:
Инструкция:
1. Положите оружие на skillbar (панельку скиллов)
2. Снимите оружие
3. Киньте торговлю (Trade) вашему другу
4. Перетащите оружие в торговое окно
5. Используйте skillbar что-бы одеть оружие
6. Подтвердите торговлю
Ваш друг получит оружие. Оружие будет в руках, но если вы откроете ваш инвентарь вы увидите что оружия в руках у вас нету. Ваши статы будут оставаться таким же, как если бы вы были вооружены этим оружием. Если вы сделайте релог, статы упадут, оружие исчезнет.
Хороший способ для exp и ПВП, если у вас нету оружия.
Работало на Interlude сервере. вероятно, работает так же, с на других версиях клиента.

3) ДЮП через la2phx:
Запускаем ла2пнх заходим в игру и идем в обычный магазин где продают пухи Д грейд.К примеру у вас 4кк пуха стоит 1кк вы покупаете одну пуху и ловите пакет ставите на отправку у вас остаеться 3кк то ест ьвы сможете купить ещё 3 таких же пухи по 1кк, стаим на отправку 1мс через секунд 15-20 убираем и видим вместо 3 у нас докуя пух.
Хочу заметить что баг актуален на lineage-game.ru !(Правда проверял только на х1000)Да кстати есть ещё гм шопы наподобе.

ПОДБОРКА ПАКЕТОВ и ПАКЕТО СТРОЕНИЕ (многие из них встречались в разных темах єтого форума или в сборниках но тут вся сборная колекцыя ну или почти вся)
Код:
Здесь я выложу 1 весьма интересную тему! Внимание!! Готовые пакеты писал не я.
Вот легкий способ сделать любой предмет (Практически любой)!!!
Пример (для примера возьмем меч Сlaymore):

1 )Надо найти ID на этот меч – 70

2 )ID меча перевести в десятичную систему – 46000000

Теперь формируем пакет.

3 )Для всех пакетов первые символы одинаковы – 1F

4 )Дальше выбираем ID пакета (swords - меч D1070000)

5 )Получается 1F D1070000 дальше идут 01000000

6 )Получается 1F D107000001000000 теперь добавляем ID меча

7 )Получается 1F D10700000100000046000000 и опять 01000000

8 )Получаем пакет на меч:

1F D1070000010000004600000001000000 - Сlaymore

ID пакетов на оружие:

•	D9070000 - blunts - топоры
•	???????? - book - книги (как оружие)
•	D5070000 - bows/arrows - лук
•	D4070000 - daggers - кортик
•	D7070000 - dual fists - дуалы для орков
•	D3070000 - duals - дуалы
•	???????? - pet -для животных
•	D8070000 - poliarms - копьё
•	D1070000 - swords – меч

8D2070000 - двуручные мечи

ID пакетов на одежду:

•	EB030000 - boots - ботинки
•	F3030000 - fullbody - целиковый шмот
•	ED030000 - gloves - перчи
•	???????? - hair - короны маски уши
•	EC030000 - helmets - шлем
•	EA030000 - lower Body - низ шмот
•	DB070000 - shields - щиты
•	E9030000 - upper body - верх шмот


•	ID предметов на бижутерию:


•	F0030000 - earrings - серьги
•	F2030000 - necklace - цепочка
•	F1030000 - rings - кольцо


Готовые пакеты, не вошедшие в описание
Просто я не могу описать их получение

•	1F1300000001000000DE02000064000000 - 100 Qick point
•	1FBA0B000001000000B019000001000000 - (D) Bless Tochka-shmot
•	1FBA0B000001000000AF19000001000000 - (D) Bless Tochka
•	1FBA0B000001000000AE19000001000000 - © Bless Tochka-shmot
•	1FBA0B000001000000AD19000001000000 - © Bless Tochka
•	1FBA0B000001000000AC19000001000000 - ( Bless Tochka-shmot
•	1FBA0B000001000000AB19000001000000 - ( Bless Tochka
•	1FB90B0000010000000406000064000000 - 100 Quick Healing Potions
•	1FB90B000001000000B815000064000000 - 100 Christmas Tree (елки)
•	1FBA0B000001000000DB15000001000000 – SP svitok
•	1FBA0B000001000000AA19000001000000 - (A) Bless Tochka-shmot
•	1FBA0B000001000000A919000001000000 - (A) Bless Tochka
•	1FBA0B000001000000BF03000001000000 - (S) Tochka
•	1FD4070000010000001905000001000000 - кортик на 30к
•	1FD8070000010000001705000001000000 - копьё на 30к


Бафы
•	D00600F703000067000000 Battle heal
•	D006007900000067000000 Battle Roar
•	D00600F704000067000000 Benediction
•	D006002604000067000000 Berserk Spirit
•	D00600C404000067000000 Blaze
•	D006004D04000067000000 Blaze Quake
•	D006009304000067000000 Blazing Circle
•	D00600D004000067000000 Blazing Skin
•	D006006000000067000000 Bleed
•	D006001C08000067000000 Bless of eva
•	D006009B04000067000000 Bless Shield
•	D006001504000067000000 Bless the body
•	D006001804000067000000 Bless the soul
•	D00600ED03000067000000 Blessing of paagrio
•	D006000C11000067000000 Blessing prophercy
•	D006005B01000067000000 Blessing of queen
•	D006005E12000067000000 Blessing of seraphim
•	D006004101000067000000 Blinding blow
•	D006000A05000067000000 Blizzard
•	D006001601000067000000 Bluff
•	D006001F05000067000000 Body of avatar
•	D006008504000067000000 Body to mind
•	D006007904000067000000 Bright servitor
•	D006001801000067000000 Burning Fist
•	D006001800000067000000 Burst shot
•	D006002004000067000000 Cancel
•	D00600EF03000067000000 Chant of battle


•	006001D05000067000000 Chant of eagle
•	D00600E404000067000000 Chant of evesion
•	D00600EE03000067000000 Chant of fire
•	D00600EA03000067000000 Chant of flame
•	D00600E304000067000000 Chant of fury
•	D00600CD04000067000000 Chant of life
•	D006001C05000067000000 Chant of predator
•	D00600CD04000067000000 Chant of life
•	D006003604000067000000 Concentration
•	D00600C204000067000000 Greater nattle heal
•	D006002001000067000000 Guard stance
•	D006000B04000067000000 Mental shield
•	D00600EC04000067000000 Party recall
•	D006007B00000067000000 Spirit barrier
•	D006006E00000067000000 Ultima defense
•	D006006F00000067000000 ultima evasion
•	D006001705000067000000 wild magik
•	D006002902000067000000 chant of victory
•	D006002804000067000000 Silence


•	D006003004000067000000 Sleeping Cloud
•	D006007C04000067000000 Death Spike
•	D006004600000067000000 Drain health
•	D00600D204000067000000 Vampiric claw
•	D00600DD04000067000000 Steal essence
•	D006000505000067000000 Seed of fire
•	D006000605000067000000 Seed of water
•	D006000705000067000000 Seed of wind
•	D006000C05000067000000 elemental assult
•	D006000C05000067000000 elemental storm
•	D006000D05000067000000 elemental symphony


•	D006001401000067000000 Dance of Concentration
•	D006001101000067000000 Dance of Mystic
•	D006000801000067000000 Song of Earth
•	D006003001000067000000 Song of Vitality
•	D006000B01000067000000 Song of Warding
•	D006000C01000067000000 Song of Wind


Скилы 
подходим к тому, у кого точить скилы и посылаем эти пакетики:

•	D00700C204000068000000 Greater Battle Heal(121
•	D007000B01000068000000 Song of Warding(267)
•	D007000C01000068000000 Song of Wind(26
•	D007000D01000068000000 Song of Hunter(269)
•	D007000801000068000000 Song of Earth(264)
•	D007003001000068000000 Song of Vitality(304)
•	D00700D300000068000000 Boost HP(211)
•	D007001504000068000000 Bless the Body(1045)
•	D007003504000068000000 Focus(1077)
•	D007003E04000068000000 Haste(1086)
•	D007000C04000068000000 Magic Barrier(1036)
•	D007000B04000068000000 Mental Shield(1035)
•	D007002C04000068000000 Might(106
•	D007001004000068000000 Shield(1040)
•	D00700DA04000068000000 Death Whisper(1242)
•	D00700D804000068000000 Guidance(1240)
•	D007002604000068000000 Berserker Spirit(1062)
•	D00700B404000068000000 Wind Walk(1204)
•	D007001201000068000000 Dance of Fire(274)
•	D007001001000068000000 Dance of Inspiration(272)
•	D007000F01000068000000 Dance of Warrior(271)
•	D007001301000068000000 Dance of Fury(275)
•	D007001A05000068000000 Ritual of Life(1306)


The bow за 0-1а(смотря какие настройки сервера):
1fd5070000010000002201000001000000

Анимация уровня:
1B0F000000

Антитаргет:
48 00 00

Бег виерны и страйдера:
6A0100000001000001

Выбор чара №1:
0D010000000000000000000000000000000000

Вызов виерны:
6A0100000002000000

Вызов страйдера:
6A0100000001000000

Выход из тюрьмы:
b8 00 00 00

Даггер S grade 0-1а(cмотря какие настройки сервера):
1FF303000001000000DF18000001000000

Даггер 30k p.atk:
1FD4070000010000001905000001000000

Adena for L2J:
A74302000005000000D81A0000

Елки:
1F B9 0B 00 00 02 00 00 00 B8 15 00 00 05 00 00
00 B9 15 00 00 05 00 00 00

C5 анимация Зарича:
1B 11 00 00 00

Копьё(п.атк 30k):
1F D8070000 01 00 00 00 17050000 01 00 00 00

Кристальные заточки S(weapon):
1fba0b000001000000c103000001000000

Меч S grade:
1FD1070000010000005200000001000000

Sword Of miracle:
A7140200000300000001000000

Соул боу:
A7140200000300000001000000

Нибл фиш
14A68E104000000000

Ойл:
A70F0200000D00000001000000

Пакет для входа под аккаунтом:
084F0074007200650034006500480048006200490075000000 B56FEF7CBC085383000000000000000001000000

Примерка Coin Of luck:
C6C01300006000000001000000C50F0000

Примерка Drakonic Bow:
C6C01300006000000001000000991D0000

C5 Buy list:
71022

Создание гнома мага:
0B 45 00 6D 00 30 00 30 00 00 00 04 00 00 00 00 00 00 00 35 00 00 00 14
00 00 00 27 00 00 00 2D 00 00 00 1B 00 00 00 1D 00 00 00 0A 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00

Заточка А грейд:
A7140200001500000001000000

Hero accaunt for mml2.net(PvP server):
0843006C006F00750064006B0065000000A3DA856EAF8435BE 000000000000000001000000

Hero свечение:
1B10000000

S grade(weapon):
1F BA0B0000 01000000 BF030000 01000000

S grade(armor):
1F BA0B0000 01000000 C0030000 01000000

A grade(Weapon):
1F BA0B0000 01000000 D9020000 01000000

A grade(armor):
1F BA0B0000 01000000 DA020000 01000000

B grade(weapon):
1F BA0B0000 01000000 B3030000 01000000

B grade(armor):
1F BA0B0000 01000000 B4030000 01000000

C(weapon):
1F BA0B0000 01000000 B7030000 01000000

C(armor):
1F BA0B0000 01000000 B8030000 01000000

D(weapon):
1F BA0B0000 01000000 BB030000 01000000

D(armor):
1F BA0B0000 01000000 B9030000 01000000

1kkCgrade:
A7140200001D00000040420F00

Acumen:
A7250200000500000001000000

Adena for L2J:
A7250200000110000001000000

Admin for L2J,comand:
панель админа:

Код:

•	5B 61 00 64 00 6D 00 69 00 6E 00 00 00

admin_invisible
(иzчезнуть):
Код:

•	21 61 00 64 00 6D 00 69 00 6E 00 5F 00 69 00 6E

00 76 00 69 00 73 00 69 00 62 00 6C 00 65 00 00 00
admin_setlevel 5 (сделать 5 лвл):
Код:

•	21 61 00 64 00 6D 00 69 00 6E 00 5F 00 73 00 65

00 74 00 6C 00 65 00 76 00 65 00 6C 00 20 00 35
00 00 00
admin_para_world (парализовать мир):
Код:

•	21 61 00 64 00 6D 00 69 00 6E 00 5F 00 70 00 61

00 72 00 61 00 5F 00 77 00 6F 00 72 00 6C 00 64
00 00 00
admin_create_item 57 111 (создать 111 аден):
Код:

•	21 61 00 64 00 6D 00 69 00 6E 00 5F 00 63 00 72

00 65 00 61 00 74 00 65 00 5F 00 69 00 74 00 65
00 6D 00 20 00 35 00 37 00 20 00 31 00 31 00 31
00 00 00
admin_changename 234 (переименовать ник в "234"):

Код:

•	21 61 00 64 00 6D 00 69 00 6E 00 5F 00 63 00 68

00 61 00 6E 00 67 00 65 00 6E 00 61 00 6D 00 65
00 20 00 32 00 33 00 34 00 00 00
admin_move_to 123 123 123 (телепорт в локацию 123 123 123):
Код:

•	21 61 00 64 00 6D 00 69 00 6E 00 5F 00 6D 00 6F

00 76 00 65 00 5F 00 74 00 6F 00 20 00 31 00 32
00 33 00 20 00 31 00 32 00 33 00 20 00 31 00 32
00 33 00 00 00
admin_server_shutdown 12 (назначить рестарт через 12 секунд) :
Код:

•	21 61 00 64 00 6D 00 69 00 6E 00 5F 00 73 00 65

00 72 00 76 00 65 00 72 00 5F 00 73 00 68 00 75
00 74 00 64 00 6F 00 77 00 6E 00 20 00 31 00 32
00 00 00
ну и понятно, что эти пакеты можно редактировать

Соски для петомцев:
A7250200000310000001000000

Big White Fish:
A70F0200000900000001000000

Damaskus:
A7140200001300000001000000

Eksian:
A7140200000500000001000000

Haste:
A72502000003000 00001000000

Sage's grace:
A7CB0000002D05000001000000

Пакет на обмен у мамона Sage Staff на Homunkulus Sword:

•	A7CB0000003D05000001000000


•	A7140200000B00000001000000 - dragon_grinder 100k
•	A7140200000D00000001000000 - soul_bow 100k
•	A7140200000F00000001000000 - tallum_glaive
•	A7140200001100000001000000 - dark_legion's_edge
•	A7140200001300000001000000 - sword_of_damascus*sword_of_damascus
•	A7140200001500000001000000 - scrl_of_ench_wp_a
•	A7140200001700000001000000 - dragon_bugle_dusk
•	A7140200001900000001000000 - soulshot_s
•	A7140200001B00000001000000 - spiritshot_s
•	A7140200001D00000001000000 - crystal_c
•	A7140200001F00000001000000 - shining_arrow
•	A7140200002100000001000000 - fishing_shot_none
И СЛЕГКА СОМНИТЕЛЬНЫЕ ПАКЕТЫ НА ГМство от CODERX для Интерлюда и Хелбаунда:
Код:
для интерлюда
38 4F 04 20 00 35 04 31 04 43 04 20 00 33 04 43 04 41 04 35 04 39 04 21 00 21 00 20 00 32 04 3E 04 37 04 31 04 43 04 36 04 34 04 30 04 4E 04 20 00 3A 04 3E 04 3D 04 35 04 39 04 21 00 21 00 21 00 20 00 38 04 20 00 4F 04 20 00 3B 04 4E 04 31 04 3E 04 32 04 3D 04 38 04 3A 04 20 00 30 04 34 04 3C 04 38 04 3D 04 30 04 21 00 21 00 21 00 00 00 01 00 00 00 

для хелбаунда
49 4F 04 20 00 35 04 31 04 43 04 20 00 33 04 43 04 41 04 35 04 39 04 21 00 21 00 20 00 32 04 3E 04 37 04 31 04 43 04 36 04 34 04 30 04 4E 04 20 00 3A 04 3E 04 3D 04 35 04 39 04 21 00 21 00 21 00 20 00 38 04 20 00 4F 04 20 00 3B 04 4E 04 31 04 3E 04 32 04 3D 04 38 04 3A 04 20 00 30 04 34 04 3C 04 38 04 3D 04 30 04 21 00 21 00 21 00 00 00 08 00 00 00
А ТЕПЕРЬ САМОЕ ИНТЕРЕСНОЕ)))
СКРИПТЫ ДЛЯ L2PHX
Бафы gift of Seraphim и Это blessing of queen
Код:
Это gift of Seraphim
begin
if FromClient and (pck=#$2A#$01#$00#$00#$00) then
begin
buf:=#$45#$F3#$03#$00#$00#$00#$00#$00#$00#$00;
SendToServer;
end;
end.
Это blessing of queen
begin
if FromClient and (pck=#$2A#$01#$00#$00#$00) then
begin
buf:=#$45#$EF#$03#$00#$00#$00#$00#$00#$00#$00;
SendToServer;
end;
end.
Писать в анонсы через пати чат
Код:
Включаем скрипт и все что пишем в пати чатвидим в анонсах
var 
temp:string; 
temp2:integer; 
begin 
if FromClient and (pck[1]=#$49) then 
begin 
buf:=#$49; 
temp:= ReadS(2); 
temp2:=readD(4+length(temp)*2); 
if (temp2 = 3) then 
begin 
WriteS(temp); 
WriteD(10); 
SendToServer; 
end; 
end; 
end.
Еще это можно сделать через подмену в конце пакета, меняется с00 00 00 00 на 0A 00 00 00

АВТО БД или СВС
Принимает пати танцует или поет, и следует по необходимости!

Код:
Для того чтобы нормально следовал за целью, нужно основным чаром что ни будь в чат написать, чтобы запомнился айди. 

name- ник БД или СВСа 
name2- ник того перса который будет кидать пати и за кем будет следовать БД или СВС. 

Запускать скрипт ТОЛЬКО ПОСЛЕ того как БД или СВС уже вошел в игру. 
} 
const name2='МойНик' ; name='никБДилиСВС' ; 
  var 
Msg : TMemo; 
FormMain : TForm; //Создаваемая форма 
useskill: TTimer; 
skills:string; 
skillid,skillidold:integer; 
party_have,iswork,skillhave:boolean; 
skillbase: array[1..200,1..2] of integer; 
SkillsName : TStringList; 
listbox1,listbox2: TListBox; 
GB1: TGroupBox; 
Button1,Button2,Button3,Button4: TButton; 
Lb1,Lb2: Tlabel; 
cb3:tcheckbox; 
myOID,myX,myY,myZ: integer;        
targetOID:integer; 

function Create_FormMain : TForm; 
Var 
   Yes : boolean; 
begin 
   Yes := FALSE; 
   Result := TForm.Create(nil); 
   TRY 
     Result.Caption     := 'AutoBD v.0.0.1'; 
     Result.Left        := 397; 
     Result.Top         := 233; 
     Result.Width       := 450; 
     Result.Height      := 650; 
     Result.FormStyle   := fsNormal; 
     Result.Position    := poDesigned; 
     Result.BorderStyle := bsSizeable; 
     Result.BorderWidth := 0; 
     Result.WindowState := wsNormal; 
     Result.Color       := clBtnFace; 
     Result.Font.Name   := 'Tahoma'; 
     Result.Font.Size   := 8; 
     Result.Font.Color  := clWindowText; 
     Result.Font.CharSet:= 1; 
     Result.OnClose := @FormClose; 

     Msg := TMemo.Create(Result); 
     Msg.Parent := Result; 
     Msg.Left    := 0; 
     Msg.Top     := 400; 
     Msg.Width   := 200; 
     Msg.Height  := 200; 
     Msg.Visible := TRUE; 
     Msg.Tag     := 0; 
     Msg.Enabled  := TRUE; 
     Msg.Hint     := ''; 
     Msg.ShowHint := FALSE; 
     Msg.Font.Name  := 'Tahoma'; 
     Msg.Font.Size  := 8; 
     Msg.Font.Color := clWindowText; 
     Msg.Color         := clWindow; 
     Msg.TabOrder      := 2; 
     Msg.TabStop       := TRUE; 
     Msg.Align         := alBottom; 
     Msg.WordWrap      := TRUE; 
     Msg.Alignment     := taLeftJustify; 
     Msg.WantTabs      := FALSE; 
     Msg.WantReturns   := TRUE; 
     Msg.HideSelection := TRUE; 
     Msg.MaxLength     := 0; 
     Msg.OEMConvert    := FALSE; 
     Msg.ReadOnly      := FALSE; 
     Msg.ScrollBars    := ssNone; 

     GB1 := TGroupBox.Create(Result); 
     GB1.Parent := result; 
     GB1.Align         := alRight; 
     GB1.Left    := 1; 
     GB1.Top     := 2; 
     GB1.Width   := 100; 
     GB1.Height  := 95; 
     GB1.Visible := TRUE; 
     GB1.Tag     := 0; 
     GB1.Enabled  := TRUE; 
     GB1.Hint     := ''; 
     GB1.ShowHint := FALSE; 
     GB1.Caption    := 'НЕПРИНИМАЕТ ПАТИ'; 
     GB1.Align      := alTOP; 
     GB1.Color      := clBtnFace; 
     GB1.Font.Name  := 'Tahoma'; 
     GB1.Font.Size  := 8; 
     GB1.Font.Color := clWindowText; 
     GB1.Font.CharSet := 1; 
     GB1.TabOrder     := 3; 
     GB1.TabStop      := FALSE; 

     listbox1 := Tlistbox.Create(Result); 
     listbox1.Parent := Result; 
     listbox1.Left    := 0; 
     listbox1.Top     := 100; 
     listbox1.Width   := 180; 
     listbox1.Height  := 200; 
     listbox1.Visible := TRUE; 
     listbox1.Tag     := 0; 
     listbox1.Enabled  := TRUE; 
     listbox1.Hint     := ''; 
     listbox1.ShowHint := FALSE; 
     listbox1.Font.Name  := 'Tahoma'; 
     listbox1.Font.Size  := 8; 
     listbox1.Font.Color := clWindowText; 
     listbox1.Color         := clWindow; 
     listbox1.TabOrder      := 2; 
     listbox1.TabStop       := TRUE; 
     listbox1.Align         := alLeft; 
     listbox1.OnDblClick :=@button3click; 

     listbox2 := Tlistbox.Create(Result); 
     listbox2.Parent := Result; 
     listbox2.Left    := 0; 
     listbox2.Top     := 100; 
     listbox2.Width   := 180; 
     listbox2.Height  := 200; 
     listbox2.Visible := TRUE; 
     listbox2.Tag     := 0; 
     listbox2.Enabled  := TRUE; 
     listbox2.Hint     := ''; 
     listbox2.ShowHint := FALSE; 
     listbox2.Font.Name  := 'Tahoma'; 
     listbox2.Font.Size  := 8; 
     listbox2.Font.Color := clWindowText; 
     listbox2.Color         := clWindow; 
     listbox2.TabOrder      := 2; 
     listbox2.TabStop       := TRUE; 
     listbox2.Align         := alRight; 
     listbox2.OnDblClick :=@button4click; 

     Button1 := TButton.Create(Result); 
     Button1.Parent := gb1; 
     Button1.Left    := 10; 
     Button1.Top     := 30; 
     Button1.Width   := 75; 
     Button1.Height  := 25; 
     Button1.Visible := TRUE; 
     Button1.Tag     := 0; 
     Button1.Enabled  := true; 
     Button1.Hint     := ''; 
     Button1.ShowHint := FALSE; 
     Button1.Caption    := 'Вкл'; 
     Button1.Font.Name  := 'Tahoma'; 
     Button1.Font.Size  := 8; 
     Button1.Font.Color := clWindowText; 
     Button1.Font.CharSet := 1; 
     Button1.TabOrder     := 1; 
     Button1.TabStop      := TRUE; 
     Button1.Cancel       := FALSE; 
     Button1.ModalResult  := 0; 
     Button1.OnClick     := @Button1click; 

     Button2 := TButton.Create(Result); 
     Button2.Parent := gb1; 
     Button2.Left    := 100; 
     Button2.Top     := 30; 
     Button2.Width   := 75; 
     Button2.Height  := 25; 
     Button2.Visible := TRUE; 
     Button2.Tag     := 0; 
     Button2.Enabled  := true; 
     Button2.Hint     := ''; 
     Button2.ShowHint := FALSE; 
     Button2.Caption    := 'Выкл'; 
     Button2.Font.Name  := 'Tahoma'; 
     Button2.Font.Size  := 8; 
     Button2.Font.Color := clWindowText; 
     Button2.Font.CharSet := 1; 
     Button2.TabOrder     := 1; 
     Button2.TabStop      := TRUE; 
     Button2.Cancel       := FALSE; 
     Button2.ModalResult  := 0; 
     Button2.OnClick     := @Button2click; 

     Button3 := TButton.Create(Result); 
     Button3.Parent := result; 
     Button3.Left    := 200; 
     Button3.Top     := 140; 
     Button3.Width   := 40; 
     Button3.Height  := 25; 
     Button3.Visible := TRUE; 
     Button3.Tag     := 0; 
     Button3.Enabled  := True; 
     Button3.Hint     := ''; 
     Button3.ShowHint := FALSE; 
     Button3.Caption    := '>>>>'; 
     Button3.Font.Name  := 'Tahoma'; 
     Button3.Font.Size  := 8; 
     Button3.Font.Color := clWindowText; 
     Button3.Font.CharSet := 1; 
     Button3.TabOrder     := 1; 
     Button3.TabStop      := TRUE; 
     Button3.Cancel       := FALSE; 
     Button3.ModalResult  := 0; 
     Button3.OnClick     := @button3click; 

     Button4 := TButton.Create(Result); 
     Button4.Parent := result; 
     Button4.Left    := 200; 
     Button4.Top     := 220; 
     Button4.Width   := 40; 
     Button4.Height  := 25; 
     Button4.Visible := TRUE; 
     Button4.Tag     := 0; 
     Button4.Enabled  := True; 
     Button4.Hint     := ''; 
     Button4.ShowHint := FALSE; 
     Button4.Caption    := '<<<<'; 
     Button4.Font.Name  := 'Tahoma'; 
     Button4.Font.Size  := 8; 
     Button4.Font.Color := clWindowText; 
     Button4.Font.CharSet := 1; 
     Button4.TabOrder     := 1; 
     Button4.TabStop      := TRUE; 
     Button4.Cancel       := FALSE; 
     Button4.ModalResult  := 0; 
     Button4.OnClick     := @button4click; 

     Lb1:= Tlabel.Create(result); 
     Lb1.Parent := GB1; 
     Lb1.Left    := 140; 
     Lb1.Top     := 30+200; 
     Lb1.Align         := alLeft; 
     Lb1.Layout     := tlBottom; 
     Lb1.Visible := TRUE; 
     Lb1.Tag     := 0; 
     Lb1.Enabled  := TRUE; 
     Lb1.Hint     := ''; 
     Lb1.ShowHint := FALSE; 
     Lb1.Caption    := 'Все Скилы'; 
     Lb1.Font.Name  := 'Tahoma'; 
     Lb1.Font.Size  := 10; 
     Lb1.Font.Color := clWindowText; 
     Lb1.Font.CharSet := 1; 

     Lb2:= Tlabel.Create(result); 
     Lb2.Parent := GB1; 
     Lb2.Left    := 140; 
     Lb2.Top     := 30+200; 
     Lb2.Align         := alRight; 
     Lb2.Layout     := tlBottom; 
     Lb2.Visible := TRUE; 
     Lb2.Tag     := 0; 
     Lb2.Enabled  := TRUE; 
     Lb2.Hint     := ''; 
     Lb2.ShowHint := FALSE; 
     Lb2.Caption    := 'Те которые использовать'; 
     Lb2.Font.Name  := 'Tahoma'; 
     Lb2.Font.Size  := 10; 
     Lb2.Font.Color := clWindowText; 
     Lb2.Font.CharSet := 1; 

     cb3:= TCheckbox.Create(result); 
     cb3.Parent := GB1; 
     cb3.Left    := 220; 
     cb3.Top     := 60; 
     cb3.Width   := 220; 
     cb3.Checked := TRUE; 
     cb3.Visible := TRUE; 
     cb3.Tag     := 0; 
     cb3.Enabled  := TRUE; 
     cb3.Hint     := ''; 
     cb3.ShowHint := FALSE; 
     cb3.Caption    := 'Следовать послы выхода из пати'; 
     cb3.Font.Name  := 'Tahoma'; 
     cb3.Font.Size  := 10; 
     cb3.Font.Color := clWindowText; 
     cb3.Font.CharSet := 1; 

     Yes := TRUE; 
   FINALLY 
     if not Yes then begin 
         if Result<>NIL then begin 
           Result.Free; 
           Result:=NIL; 
        end; 
     end; 
   END; 
   Result.Show; 
   msg.Lines.Add(timetostr(now)+': '+'Autodance, by Ad'); 
   msg.Lines.Add(timetostr(now)+': '+'Работаем с чаром: '+Name); 

end; 

procedure button1click(Sender: TButton); 
begin 
   iswork:=true; 
   GB1.Caption    := 'ПРИНИМАЕТ ПАТИ'; 
end; 

procedure button2click(Sender: TButton); 
begin 
   iswork:=false; 
   GB1.Caption    := 'НЕПРИНИМАЕТ ПАТИ'; 
end; 

procedure perreshet; 
var i:integer; 
str:string; 
begin 
  str:=''; 
  for i:=1 to ListBox2.items.Count do 
      begin 
      str:=str+Copy(ListBox2.Items.Strings[i-1],1+pos(':',ListBox2.Items.Strings[i-1]),pos(' ',ListBox2.Items.Strings[i-1])-4)+':'; 
      end; 
  skills:=str; 
end; 

procedure button3click(Sender: TButton); 
var m:integer; 
begin 

if ListBox1.Items.Count>0 then 
    begin 
    m:=ListBox1.ItemIndex; 
    if (ListBox1.Items.Count=1) then m:=0 
    else 
    if m=ListBox1.Items.Count-1 then dec(m); 

    ListBox2.Items.Add(ListBox1.Items.Strings[ListBox1.ItemIndex]); 
    ListBox1.Items.Delete(ListBox1.ItemIndex); 
    ListBox1.ItemIndex:=m; 
    perreshet; 
    end; 

end; 

procedure Button4Click(Sender: TObject); 
var m:integer; 
begin 

if ListBox2.Items.Count>0 then 
    begin 
    m:=ListBox2.ItemIndex; 
    if (ListBox2.Items.Count=1) then m:=0 
    else 
    if m=ListBox2.Items.Count-1 then dec(m); 

    ListBox1.Items.Add(ListBox2.Items.Strings[ListBox2.ItemIndex]); 
    ListBox2.Items.Delete(ListBox2.ItemIndex); 
    ListBox2.ItemIndex:=m; 
    perreshet; 
end; 

end; 

procedure FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
   Action:=caNone; 
end; 

procedure Free_FormMain; 
begin 
   TRY 
     if FormMain<>NIL then begin 
        FormMain.Free; 
        FormMain:=NIL; 
     end; 
   FINALLY 
   END; 
end;  

procedure SendMesg(msg:string);  //отправка сообщений клиенту 
begin 
  buf:=#$4A; 
   WriteD(0); 
   WriteD(2); 
   WriteS('->БОГ'); 
   WriteS(msg); 
   SendToClientEx(Name); 
end; 

procedure Init; //Вызывается при включении скрипта 
begin 

  skillsName:=TStringList.Create; 
try 
   skillsName.LoadFromFile('.\SkillsID.ini'); 
   except 
     msg.Lines.Add('itemsid.ini не найден!'); 
     exit; 
   end; 

skillid:=0; 
iswork:=false; 
useskill:=TTimer.Create(nil); 
useskill.OnTimer:=@timerskill; 
useskill.interval:=200; //время задержки 
useskill.enabled:=true; 
skillhave:=false; 
party_have:=false; 
FormMain:=Create_FormMain; 
buf:=HStr('3F'); 
SendToServerEx(name); 

buf:=HStr('0F'); 
SendToServerEx(name); 

end; 

procedure timerskill; 
begin 
if skillid<>0 then 
  begin 
    msg.lines.add('Юзаю скилл'); 
    MagicSkillUse(skillid); 
    skillidold:=skillID; 
    skillID:=0; 
  end; 

end; 

procedure Free; //Вызывается при выключении скрипта 
begin 
  useskill.free; 
  Free_FormMain; 
end; 

procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения 
begin 

end; 

procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения 
begin 

end; 

procedure UserInfo; //обновление данных о себе 
var 
   i:word; 
begin 
   MyOID:=ReadD(18); 
   MyX:=ReadD(2); 
   MyY:=ReadD(6); 
   MyZ:=ReadD(10); 

end; 

procedure MagicSkillUse(MagicID:integer); 
begin 
   buf:=#$2F; 
   WriteD(MagicID); 
   WriteD(00); 
   WriteC(00); 
   SendToServerEx(Name); 
end; 

procedure createskillbase; 
var 
  i, j,n: integer; 
begin 
for i:=1 to 200 do 
     begin 
     skillbase[i,1]:=0; 
     skillbase[i,2]:=0; 
     end; 

  n:=0; 
  J:=10; 
  listbox1.items.Clear; 
for I:=1 to 200 do 
     begin 
     skillbase[i,1]:=ReadD(j); 
     skillbase[i,2]:=ReadD(j); 
     if skillbase[i,2]=0 then break; 
     j:=j+5; 
     inc(n); 
     listbox1.items.Add('ID:'+inttostr(skillbase[i,2])+'   '+SkillsName.Values[IntToStr(skillbase[i,2])]+'  LVL:'+inttostr(skillbase[i,1])); 
     end; 

if N>0 then skillhave:=true; 
end; 

procedure Target(Attacker: Integer); 
begin 
   buf:=#$04; 
   WriteD(Attacker); 
   WriteD(MyX); 
   WriteD(MyY); 
   WriteD(MyZ); 
   WriteC(00); 
   SendToServerEx(Name); 
end; 

procedure TargetAttacker(Attacker: Integer); 
begin 
if Attacker<>0 then 
begin 
   msg.Lines.Add('Attacker='+IntToStr(Attacker)+' Player='+IntToStr(MyOID)); 
   Target(Attacker); 
   delay(800); 
   Target(Attacker); 
   delay(800); 
   end; 
end; 

procedure buffok; 
begin 
   if ReadD(6)=skillIDold then 
   begin 
   msg.lines.add('Прописываем следующий скилл'); 
      if Length(skills)>0 then 
         begin 
           skillID:=strtoint(Copy(Skills,1,pos(':',Skills)-1)); 
           delete(Skills,1,pos(':',Skills)); 
         end else 
            if  party_have=true then 
            begin 
            msg.lines.add('Cледуем за '+name2); 
            if cb3.Checked=true   then     TargetAttacker(targetOID); 
            msg.lines.add('Разрываем пати'); 
            delay(200); 
            buf:=HStr('2B'); 
            SendToServerEx(name); 
            party_have:=false; 
            end; 
        end; 

end; 

var 
   temp : String; 

begin 
if pck='' then exit; 

if (ConnectName=Name) and FromClient then 
     case pck[1] of 
     #$1B: 
         case ReadD(2) of 
           //социальное действие Yes для старта 
           6: begin 
              iswork:=true; 
              GB1.Caption:= 'ПРИНИМАЕТ ПАТИ'; 
              end; 
           //социальное действие No для остановки 
            5: begin 
               iswork:=false; 
               GB1.Caption:= 'НЕПРИНИМАЕТ ПАТИ'; 
               end; 
         end; 
     end; 

if (ConnectName=Name) and FromServer then 
begin 
          case pck[1] of 
          #$39: if iswork then 
               begin 
                 temp:=ReadS(2); 
                 if temp=name2 then 
                   begin 
                   perreshet; 
                   Delay(100); 
                   buf:=HStr('2A 01 00 00 00'); 
                   SendToServerEx(name); 
                   msg.Lines.Add('Принимаю пати'); 
                   party_have:=true; 
                   Delay(200); 
                   if Length(skills)>0 then 
                     begin 
                     msg.Lines.Add('Прописываю скилл'); 
                     skillID:=strtoint(Copy(Skills,1,pos(':',Skills)-1)); 
                     delete(Skills,1,pos(':',Skills)); 
                     end; 
                   pck:=''; 
                   end else msg.Lines.Add('Проигнорирован запрос пати от: '+temp); 
               end; 

          #$76:  begin 
                 if (MyOID=ReadD(2)) then buffok; 
                 end; 
          #$04:  begin //пакет с инфой о моём чаре 
                 UserInfo; 
                 end; 
          #$4A:  begin //пакет с инфой о моём чаре 
                  if ReadS(10)=name2 then 
                      begin 
                      TargetOID:=ReadD(2); 
                      msg.lines.add('Нашли цель следовния: '+inttostr(TARGETOID)); 
                      end; 
                  end; 
          #$58:  begin 
                 if skillhave=false then createskillbase; 
                 end; 

            end; 
end; 

end.
Следим за РБ by NLObP
Код:
{******************************************************************************** 
Возможности скрипта: 
-------------------- 
0.1 
+ Панель управления; 
+ Посылает приватное сообщение игроку, когда увидит РБ; 

Проверялось на TheAbyss.ru x300(interlude) 

Скрипт распространяется как есть, и я не несу ответственности за то, что 
ВЫ натворили у себя, его используя. 

MyICQ 402988808 
********************************************************************************} 

//............................................ 
//Список констант 
const 
   Name='Teremok'; //Вписать сюда имя чара 
   //установить константу в зависимости от типа игры (С4 или Интерлюд) 
   interlude=true; //Interlude - true, C4 - false 
   //kID=1000000; //коэфф вычитаемый из NpcID C4  lagam.net 
   kID=1023000; //коэфф вычитаемый из NpcID C6 theAbyss.ru 

//............................................ 
//Список переменных 
var 
   PlayerID, PlayerOID:integer; 
   PlayerName, TmpName, _message : string; 
   NpcID,NpcOID:integer; 
   ready : boolean; 
   timer : TTimer; 
   FormMain : TForm; //Создаваемая форма 
   Splitter1, Splitter2 : TSplitter; 
   Stats, Msg : TMemo; 
   Panel1 : TPanel; 
   GroupBox2 : TGroupBox; 
   Label2, Label4, Label12, Label13 : TLabel; 
   CheckBoxNpc : TCheckBox; 
   ComboBoxNpc : TComboBox; 
   ButtonStart, ButtonStop : TButton; 
   CheckBoxPlayer : TCheckBox; 
   ComboBoxPlayer : TComboBox; 
   EditNpcID, EditPlayerID, EditPlayerOID, EditNpcOID : TEdit; 
   Label1,  Label3 : TLabel; 
   Edit1,  Edit2 : TEdit; 
//............................................ 
//************************************* 
//Обработчики событий для элементов управления на форме 
//...................................... 
//CheckBoxNpc 
procedure CheckBoxNpc_Click(Sender: TCheckBox); 
//Event : OnClick 
begin 
   if CheckBoxNpc.Checked 
   then begin 
     EditNpcID.text:=Inttostr(NpcID); //inttostr(sumNpc(NpcID)); 
     ComboBoxNpc.Enabled:=false; //выключаем 
   end else begin 
     NpcID:=0;               //отмена 
     NpcOID:=0; 
     ComboBoxNpc.Enabled:=true;&nbs

Бегущая строка в титуле, ©Br1nk v0.2

Код:
// Бегущая строка в титуле, ©Br1nk v0.2 
// пишем rt в пати чате для включения и выключения 

var 
title, temp, titleoff: string; 
activated, mult, safemode: integer; 
tmr: TTimer; 

procedure Init; //Вызывается при включении скрипта 
begin 
title := 'PAHO UJIU I7O3DHO KPEBEDKU 3AXBAT9IT I7JIAHETY '; // текст титула 
titleoff := '~KPEBEDKO~'; 
activated := 0; // Определяет, включается ли бегущая строка сразу при запуске скрипта или только после введения команды rt в патичат 
safemode := 1; // безопасный режим, стандартная длина титула. Если вы играете на кривой яве, поставьте 0, это даст вам более длинный титул, соответственно выглядит пижже..) 
tmr := TTimer.Create(nil); 
tmr.Interval := 200; // Частота обновления (мс) 
tmr.Enabled := False; 
tmr.OnTimer := @Tick; 
mult := 1; // Определяет на сколько букв сдвигается строка в титуле при обновлении 
end; 

procedure Free; 
begin 
tmr.Free; 
SetTitle(titleoff); 
end; 

procedure Tick; 
begin 
temp := copy(title, 2 + mult, Length(title) - 1 - mult) + copy(title, 1, 1 + mult); 
title := temp; 
if safemode then 
SetTitle(Copy(temp, 0, 16)) 
else 
SetTitle(temp); 
end; 

procedure Announce(text:string); // for debug purposes 
begin 
buf := #$4A; 
WriteD(0); 
WriteD(10); 
WriteS(''); 
WriteS(text); 
SendToClient; 
end; 

procedure SetTitle(text: string); 
begin 
buf := HStr('55'); 
WriteS(ConnectName); 
WriteS(text); 
WriteD(0); 
SendToServer; 
end; 

begin 
if FromClient and (pck=HStr('38 72 00 74 00 00 00 03 00 00 00')) then 
begin 
if (activated = 1) then 
begin 
activated := 0; 
SetTitle(titleoff); 
Announce('Title script powered off.'); 
end 
else 
activated := 1; 
pck := ''; 
end; 
if (activated = 1) then 
tmr.Enabled := True 
else 
tmr.Enabled := False; 
end.
Скрипт на краш сервера
Работает по принципу сервер рассылает его рядом стоящим в определённом радиусе. Клиента рядом стоящих попросту не выдерживают такого обёма информации (результат вылет из игры).
Эмм одно но ((= вас тоже кикнет.
П.С Жестокий пакет отправляется, если в роде таргета указать шаут куча клиентов загнутся, думаю даже ОГ боты висеть будут. Если же не стоит фильтр пакетов то возможно приведёт к крэшу и зависанию сервера.
Код:
begin
buf:=#$38;
WriteS('gggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg');
WriteD(1);
SendToServer;
end.
Сори в одном посте все не влезло
  Ответить с цитированием
5 пользователя(ей) сказали cпасибо:
GraNIT (22.10.2009), nick400067 (22.10.2009), obolon_svitle (23.10.2009), Федя (22.11.2009), ZliLO (22.10.2009)
Старый 22.10.2009, 05:06   #2
 Пехотинец
Аватар для ka3ant1p
 
ka3ant1p скоро будет известенka3ant1p скоро будет известенka3ant1p скоро будет известен
Регистрация: 17.10.2009
Сообщений: 61
Популярность: 210
Сказал(а) спасибо: 5
Поблагодарили 100 раз(а) в 24 сообщениях
 
По умолчанию Re: НОВЫЕ СКРИПТЫ КОТОРЫХ ТУТ РАНЬШЕ НЕ БЫЛО А ТАК ЖЕ ПАКЕТЫ И ПАРА БАГОВ

Вот продолжение:

СКРИПТ НА ТП КУДА ХОЧЕШ С КОМАНДАМИ ОЧЕНЬ МНОГИХ ЛОКАЦИЙ
Код:
//Включить скрипт
//Взять себя в таргет
//ну и тп куда хочешь
//После того как тпшнулся нужна сделать какойто скилл..потому что ты для сервера еще на старом месте.   

{Команды скрипта}
//******************===Квест на Валакаса===********************************
//.klein-телепорт к klein
//.hilda-телепорт к hilda
//.kgb-телепорт на поле для Vaculite Ore

//******************===Квест на Антараса===********************************
//.gabrielle-телепорт к Gabrielle
//.kaiena-телепорт к Kaiena
//.marsh-Поляна для дропа (Marsh Drake,Marsh Gargoyle)
//.chakiris-телепорт к Chakiris
//.hamrut-телепорт к Hamrut и Kranrot
//.orven-телпорт к Orven
//.bloody-телепорт к Blood Queen(Seal of Shilen)
//.kendra-телепорт к Kendra
//.harit-телепорт к Harit Lizardman (Matriarch & Shaman)
//.helton-телепорт к Helton
//.jewel2-телепорт к Abyss Jewel 2
//.moke-телепорт к Moke
//.jewel1-телепорт к Abyss Jewel 1
//.gilmore-телепорт к Gilmore
//.theodric-телепорт к Theodric тамже Cave Maiden и Cave Keeper

//******************===Квест на Баюма===********************************
//.hanellin-телепорт к Hanellin
//.lesser giant-телепорт к lesser giant
//.claudia-телепорт к Claudia Athebalt
//.martien-телепорт к Martien
//.harne-телепорт к Harne
//.sunduk1-телепорт к Holy Ark of Secrecy2 (Cemetry)
//.sunduk2-телепорт к Holy Ark of Secrecy3 (Tanor Canyon)
//.ark guard-телепорт к Ark Guard's Corspe (Сначало с ним говорим потом с сундуком)
//.sunduk3-телепорт к Holy Ark of Secrecy1 (Dark Forest)
//.healing-телепорт к Grocery Продавца (Healing Potion & Antidote)
//.treapka-телепорт к мобам (Platinum Tribe Shaman & Overlord)

//******************===ГОРОДА===********************************
//.gludio - телепорт в глудио
//.goddard - телепорт в годдард
//.aden   - телепорт в аден
//.giran - телепорт в гиран
//.rune - телепорт в Руну
//.oren - телепорт в орен
//.heine - телепорт в Хейн
//.dion - телепорт в дион
//.schuttgart - телепорт в шутгарт
//.gludin - телепорт в глудин

//******************===ЗАМКИ===*********************************
//.adencastle - Aden Замок (ТРОН)
//.runecastle - Rune Замок (ТРОН)
//.goddardcastle - Goddard Замок (ТРОН)
//.girancastle - Giran Замок (ТРОН)
//.orencastle - Oren Замок (ТРОН)
//.gludiocastle - Gludio Замок  (ТРОН)
//.dioncastle - Dion Замок  (ТРОН)
//.schuttgartcastle - Шутгарт Замок  (ТРОН)
//.innadrilcastle - Innadril Замок  (ТРОН)

//******************===ЛОКАЦИИ===*******************************
//.dino - телепорт на дино остров
//.vos - телепорт в Valey OF Saints
//.varka - телепорт в Varka
//.mos - телепорт в Monastery Of Silence
//.ketra - телепорт в Ketra Ork

//*****************===РЭЙД БОССЫ===*****************************
//.aq - телепорт к Ант Квин
//.zaken - телепорт к Закену
//.baium - телепорт к Баюму
//.antharas - телепорт к Антарасу
//.valakas - телепорт к Валакасу
//.frintezza - телепорт к Фринтеза

//*****************===ДРУГИЕ МЕСТА===*****************************
//.olympiad   - телепорт на арену
//.jail   - телепорт в тюрьму 
//.adencrest - телепорт на верхушку креста адена
//.vodopad  - телепорт на водопад 
//.coliseum - телепорт в колизей
//.farm-телепорт в Фарм Зону(Lineage2.gh-nt.ru)

//*****************===Noblesse Quest===*****************************
//.talien - Телепорт к Talien
//.gabrielle - Телепорт к Gabrielle
//.gilmore - Телепорт к Gilmore
//.baraham - Телепорт к Baraham
//.melodymaestro - Телепорт к MelodyMaestro
//.marluk - Телепорт в локацию (Marluk Succubus)
//.stedmiel - Телепорт к Stedmiel
//.virgil - Телепорт к Virgil ( Kasandra прямо рядом с ним)
//.rahorakti - Телепорт к Rahorakti
//.splinterstakato - Телепорт в локацию Crimson Moss
//.caradine - Телепорт к Caradine
//.noel - Телепорт к Noel
//.mdk - Телепорт к Mysterious Dark Knight
//.kalis - Телепорт к Kalis
//.matild - Телепорт к Matild
//.unicorn - Телепорт к Unicorn
//.jp Телепорт в локацию Judge & Pilgrim (ring and neklasse)
//.noblrb - телепорт к Ноблесс Рэйд Боссу
//.ladd - телепорт в Ivory Tower(К магистру Ladd)
const
//======================================
Name='V1ntaGe'; //**<-----Ник Персонажа-=
//======================================
var
// переменная
ValidatePosition:string; c:integer; e:integer; n:integer; r:boolean;     
a:integer; b:boolean;  d:integer; f:integer; v:integer;
procedure Init; //Вызывается при включении скрипта
begin
SendMsc('Возьми себя в таргет');
b:=false;
end;
procedure SendMsc(msc:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msc);
SendToClient;
end;
Begin
begin
if FromClient and (pck[1]=#$04)and (not b) then 
begin
a:=ReadD(2); c:=ReadD(6);
d:=ReadD(10); e:=ReadD(14);
f:=ReadC(18);
SendMsc('Запомнен ObjectID = '+inttostr(a));
b:=true;
end;
end;
Begin
If fromclient and (pck=#$38#$2E#$00#$6F#$00#$6C#$00#$79#$00#$6D#$00#$70#$00#$69#$00#$61#$00#$64#$00#$00#$00#$00#$00#$00#$00) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ #$F0#$29#$FE#$FF#$C9#$90#$FC#$FF#$02#$F3#$FF#$FF;
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6C 00 75 00 64 00 69 00 6F 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ #$8E#$CE#$FF#$FF#$99#$DF#$01#$00#$D9#$F3#$FF#$FF;
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6F 00 64 00 64 00 61 00 72 00 64 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('CE 41 02 00 0E 28 FF FF 57 F5 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 64 00 65 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('89 3B 02 00 B0 64 00 00 23 F8 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 69 00 72 00 61 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0A 43 01 00 9E 44 02 00 74 F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 72 00 75 00 6E 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('2A AB 00 00 7E 45 FF FF E7 FC FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 72 00 75 00 6E 00 65 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('11 28 00 00 12 40 FF FF ED FE FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 64 00 65 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('F6 3F 02 00 2C 12 00 00 B1 FE FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6F 00 64 00 64 00 61 00 72 00 64 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('04 40 02 00 6E 43 FF FF 21 F7 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 69 00 72 00 61 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('1B C7 01 00 C7 36 02 00 02 F6 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6F 00 72 00 65 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('90 42 01 00 45 91 00 00 13 F7 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6C 00 75 00 64 00 69 00 6F 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('40 B9 FF FF 65 AB 01 00 45 F6 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 64 00 69 00 6F 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3A 56 00 00 60 72 02 00 83 F5 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 63 00 68 00 75 00 74 00 74 00 67 00 61 00 72 00 74 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('E0 2E 01 00 31 A9 FD FF 80 FE FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 69 00 6E 00 6E 00 61 00 64 00 72 00 69 00 6C 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('39 C5 01 00 09 CD 03 00 F2 FC FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6A 00 61 00 69 00 6C 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('E2 40 FE FF ED 30 FC FF 5B F4 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6F 00 72 00 65 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('91 41 01 00 63 D7 00 00 0C FA FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 65 00 69 00 6E 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0B B2 01 00 89 57 03 00 2A F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 64 00 69 00 6F 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3C 49 00 00 1D 38 02 00 C9 F3 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 68 00 75 00 74 00 74 00 67 00 61 00 72 00 74 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3E 55 01 00 62 D5 FD FF C8 FA FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6C 00 75 00 64 00 69 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('89 BB FE FF 07 4D 02 00 C8 F3 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 64 00 69 00 6E 00 6F 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('E4 28 00 00 07 A0 FF FF C3 F1 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 64 00 65 00 6E 00 63 00 72 00 65 00 73 00 74 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('FF 41 02 00 A5 0F 00 00 FC 11 00 00');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 6F 00 64 00 6F 00 70 00 61 00 64 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('12 A9 02 00 93 62 01 00 33 07 00 00');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 6F 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('D6 18 01 00 39 96 FE FF 74 FA FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 61 00 72 00 6B 00 61 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('59 EA 01 00 18 60 FF FF 79 F1 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 6F 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('9D 9F 01 00 0E A9 FE FF 9D F4 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 65 00 74 00 72 00 61 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0A 3E 02 00 C4 F8 FE FF B9 F1 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 63 00 6F 00 6C 00 69 00 73 00 65 00 75 00 6D 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('46 4A 02 00 8D B6 00 00 B1 F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 71 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('96 AB FF FF 5A C5 02 00 9F E9 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 7A 00 61 00 6B 00 65 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('10 D8 00 00 20 58 03 00 6E F3 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 62 00 61 00 69 00 75 00 6D 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0D C2 01 00 EF 40 00 00 65 27 00 00');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 6E 00 74 00 68 00 61 00 72 00 61 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('6C D5 02 00 7A BE 01 00 E8 DF FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 61 00 6C 00 61 00 6B 00 61 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('88 43 03 00 14 3D FE FF 99 F9 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 66 00 72 00 69 00 6E 00 74 00 65 00 7A 00 7A 00 61 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('9E A8 02 00 44 A2 FE FF BD EB FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 74 00 61 00 6C 00 69 00 65 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('1F 41 02 00 FA 66 00 00 A4 F7 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 61 00 62 00 72 00 69 00 65 00 6C 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('89 3D 01 00 CF 48 02 00 74 F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 69 00 6C 00 6D 00 6F 00 72 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('DA 1D 01 00 DD CE 01 00 92 F1 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 62 00 61 00 72 00 61 00 68 00 61 00 6D 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('1F 53 00 00 70 D0 02 00 F5 F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 65 00 6C 00 6F 00 64 00 79 00 6D 00 61 00 65 00 73 00 74 00 72 00 6F 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('DC A1 01 00 8D 4F 03 00 F5 F1 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 61 00 72 00 6C 00 75 00 6B 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('F5 D1 01 00 DD C7 01 00 63 F1 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 74 00 65 00 64 00 6D 00 69 00 65 00 6C 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('44 D4 01 00 D4 2D 01 00 3D F7 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 69 00 72 00 67 00 69 00 6C 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('DA 80 00 00 9D 43 FF FF F5 06 00 00');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 72 00 61 00 68 00 6F 00 72 00 61 00 6B 00 74 00 69 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('B6 95 00 00 91 3F FF FF 98 FB FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 70 00 6C 00 69 00 6E 00 74 00 65 00 72 00 73 00 74 00 61 00 6B 00 61 00 74 00 6F 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('BD 24 01 00 AD 4A FF FF 63 F3 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 63 00 61 00 72 00 61 00 64 00 69 00 6E 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('7F 4A 02 00 D6 1D FF FF 5C F4 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6E 00 6F 00 65 00 6C 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('20 3C 02 00 45 1A FF FF 64 F4 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 64 00 6B 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('03 7B 01 00 F1 14 FF FF 5C F6 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 61 00 6C 00 69 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('63 74 01 00 AE 56 00 00 C0 F4 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 61 00 74 00 69 00 6C 00 64 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('D4 10 01 00 AF 46 00 00 B4 F1 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 75 00 6E 00 69 00 63 00 6F 00 72 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('7D 4F 01 00 0E D5 FE FF 6E F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6A 00 70 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('B0 47 01 00 10 C7 FE FF 4A F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6E 00 6F 00 62 00 6C 00 72 00 62 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('62 65 01 00 52 AF FE FF 66 F5 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6C 00 61 00 64 00 64 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('1D 4C 01 00 89 3E 00 00 0E F9 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
Begin
If fromclient and (pck=hstr('38 2E 00 66 00 61 00 72 00 6D 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('8B 45 01 00 C2 EB 03 00 9C D3 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 6C 00 65 00 69 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('5F CD 02 00 10 3F FE FF F6 F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 69 00 6C 00 64 00 61 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('E8 3B 02 00 AD 1A FF FF 62 F4 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 62 00 67 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a); 
buf:=buf+ hstr('65 4C 02 00 B3 0C FF FF C5 F3 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 61 00 6E 00 65 00 6C 00 6C 00 69 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a); 
buf:=buf+ hstr('D3 32 02 00 17 5C 00 00 B7 F7 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6C 00 65 00 73 00 73 00 65 00 72 00 20 00 67 00 69 00 61 00 6E 00 74 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);  
buf:=buf+ hstr('75 E0 02 00 48 F5 00 00 D2 E3 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 63 00 6C 00 61 00 75 00 64 00 69 00 61 00 00 00 00 00 00 00 ')) then
begin
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('E3 44 02 00 D1 41 00 00 E6 F9 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 75 00 6E 00 64 00 75 00 6B 00 31 00 00 00 00 00 00 00 ')) then
begin
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('C8 C4 02 00 E3 1B 00 00 58 F5 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 61 00 72 00 74 00 69 00 65 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('0B 49 01 00 82 31 02 00 B2 F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 75 00 6E 00 64 00 75 00 6B 00 32 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('F3 C5 00 00 DC 6B 02 00 72 01 00 00');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 61 00 72 00 6E 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('6B 28 00 00 5D 38 00 00 6D EF FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 72 00 6B 00 20 00 67 00 75 00 61 00 72 00 64 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('77 0B 00 00 4C AC 00 00 5C F5 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 75 00 6E 00 64 00 75 00 6B 00 33 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('7F FE FF FF 9F AC 00 00 26 F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 65 00 61 00 6C 00 69 00 6E 00 67 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('8E 3A 02 00 6C 6D 00 00 30 F7 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 74 00 72 00 65 00 61 00 70 00 6B 00 61 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('8E 3A 02 00 6C 6D 00 00 30 F7 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 61 00 69 00 65 00 6E 00 61 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('62 4D 01 00 D6 40 00 00 0D F9 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 61 00 72 00 73 00 68 00 00 00 00 00 00 00 ')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('6A 9C 02 00 B0 A6 00 00 E1 EC FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 63 00 68 00 61 00 6B 00 69 00 72 00 69 00 73 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('F5 D4 01 00 5F 24 01 00 B9 F6 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 61 00 6D 00 72 00 75 00 74 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('78 C4 02 00 F1 E2 00 00 73 F0 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6F 00 72 00 76 00 65 00 6E 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('FF 3F 02 00 4B 58 00 00 37 F8 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 62 00 6C 00 6F 00 6F 00 64 00 79 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('17 D7 02 00 67 4B 00 00 DF F2 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 65 00 6E 00 64 00 72 00 61 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('E6 46 02 00 0F 64 00 00 B4 F7 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 61 00 72 00 69 00 74 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('B7 60 02 00 71 2F 01 00 82 F4 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 65 00 6C 00 74 00 6F 00 6E 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('DF 46 01 00 3C D9 00 00 17 FA FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6A 00 65 00 77 00 65 00 6C 00 32 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('72 F8 00 00 65 79 00 00 5D F1 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 6F 00 6B 00 65 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('07 C0 FE FF 9F 57 02 00 99 F3 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6A 00 65 00 77 00 65 00 6C 00 31 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('A3 C2 FE FF 4C 27 01 00 D6 F2 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 74 00 68 00 65 00 6F 00 64 00 72 00 69 00 63 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('6E 00 02 00 CF BF 01 00 72 F1 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
end;
end.
Сори то не все копирайты, объем обрабатываемой информации был очень большой 50+ форумов и 25+ сайтов и 10+ блогов, я не то что копирайты не все по вставлял я даже все эти страницы не по сохранял, так что кого обидел извиняйте((

Ну вот в общем на этом все, еще раз повторюсь я еще все это не тестировал но обязательно все протестирую, как только что то протестирую напишу сервер и работает или нет, а лутче всего буду брать сервер и писать что из этого на нем работает что нет. Кому не лень помогайте тестировать сделаем базу читов для жука)) Тестировать буду только на Ц4 и ИНТЕРЛЮДЕ. Не просите тестировать на серверах с онлайном 50<. Планирую проверить на 20 серверах Ц4 и окло 20 Интерлюд, ну хотя как получится.
И НЕЗАБЫВАЕМ ПРО СПАИБКУ
  Ответить с цитированием
4 пользователя(ей) сказали cпасибо:
CrowMaster (29.10.2009), Denisovik (03.11.2009), Федя (22.11.2009), ZliLO (22.10.2009)
Старый 22.10.2009, 07:25   #3
 Разведчик
Аватар для krasty199
 
krasty199 никому не известный тип
Регистрация: 30.03.2009
Сообщений: 1
Популярность: 18
Сказал(а) спасибо: 3
Поблагодарили 4 раз(а) в 1 сообщении
 
По умолчанию Re: НОВЫЕ СКРИПТЫ КОТОРЫХ ТУТ РАНЬШЕ НЕ БЫЛО А ТАК ЖЕ ПАКЕТЫ И ПАРА БАГОВ

протестил на ц4 ... не пашет сервера (lineage2gold.eu , l2g-oldschool.com)
  Ответить с цитированием
Старый 22.10.2009, 09:37   #4
Заблокирован
 Старший сержант
Аватар для GraNIT
 
GraNIT излучает ауруGraNIT излучает ауруGraNIT излучает ауруGraNIT излучает ауруGraNIT излучает ауруGraNIT излучает ауру
Регистрация: 27.07.2009
Сообщений: 237
Популярность: 578
Сказал(а) спасибо: 593
Поблагодарили 329 раз(а) в 147 сообщениях
Отправить сообщение для GraNIT с помощью ICQ Отправить сообщение для GraNIT с помощью Skype™
 
По умолчанию Re: НОВЫЕ СКРИПТЫ КОТОРЫХ ТУТ РАНЬШЕ НЕ БЫЛО А ТАК ЖЕ ПАКЕТЫ И ПАРА БАГОВ

Половина из вышеуказаного тут была, но за старательность получи спасибку)
Правильно написал, что сомнительный пакет на ГМство - потому что он не пашет, ты говоришь клиенту, что ты ГМ, а не серваку....(
Так же и с некторыми пакетами на вещи - тестил на своей корявой домашней сборке L2J - канает токо 1 пакет из 20 и то на телепорт=)
  Ответить с цитированием
Старый 22.10.2009, 12:52   #5
 Пехотинец
Аватар для ka3ant1p
 
ka3ant1p скоро будет известенka3ant1p скоро будет известенka3ant1p скоро будет известен
Регистрация: 17.10.2009
Сообщений: 61
Популярность: 210
Сказал(а) спасибо: 5
Поблагодарили 100 раз(а) в 24 сообщениях
 
По умолчанию Re: НОВЫЕ СКРИПТЫ КОТОРЫХ ТУТ РАНЬШЕ НЕ БЫЛО А ТАК ЖЕ ПАКЕТЫ И ПАРА БАГОВ

Цитата:
Сообщение от krasty199Посмотреть сообщение
протестил на ц4 ... не пашет сервера (lineage2gold.eu , l2g-oldschool.com)

Что именно тестировал?

Добавлено через 2 минуты
Цитата:
Сообщение от granit2008Посмотреть сообщение
Половина из вышеуказаного тут была, но за старательность получи спасибку)
Правильно написал, что сомнительный пакет на ГМство - потому что он не пашет, ты говоришь клиенту, что ты ГМ, а не серваку....(
Так же и с некторыми пакетами на вещи - тестил на своей корявой домашней сборке L2J - канает токо 1 пакет из 20 и то на телепорт=)

А как на счет скриптов? Тестировал?
З.Ы. Может кто из подполья знает эти скрипты и где то может они работаю? Ну так что б меньше тестировать)) Всеравно они в общаке)

Добавлено через 28 минут
Гранит, попробуй у себя пакет на ГМство отправлять каждые 10мсек, я просто забыл это написать. Может где то и пройдет)) Но хотя я очень сомневаюсь что вообще можно получить права ГМа через пакеты) Разве что через скрипт какой то и то маловероятно. там надо совсем другие проги, и именно взламывать сервер, а это уже криминал)
________________
ВОТ ССЫЛКА НА САМЫЕ ПОЛЕЗНЫЕ ТЕМЫ ФОРУМА, И ВСЕ ЧТО ВАМ НУЖНО

Последний раз редактировалось ka3ant1p; 22.10.2009 в 13:21. Причина: Добавлено сообщение
  Ответить с цитированием
Старый 24.10.2009, 00:10   #6
 Разведчик
Аватар для obolon_svitle
 
obolon_svitle никому не известный тип
Регистрация: 24.06.2009
Сообщений: 10
Популярность: 12
Сказал(а) спасибо: 10
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: НОВЫЕ СКРИПТЫ КОТОРЫХ ТУТ РАНЬШЕ НЕ БЫЛО А ТАК ЖЕ ПАКЕТЫ И ПАРА БАГОВ

Весьма понравился пакет на права ГМа)))))))
  Ответить с цитированием
Старый 25.10.2009, 06:06   #7
 Пехотинец
Аватар для ka3ant1p
 
ka3ant1p скоро будет известенka3ant1p скоро будет известенka3ant1p скоро будет известен
Регистрация: 17.10.2009
Сообщений: 61
Популярность: 210
Сказал(а) спасибо: 5
Поблагодарили 100 раз(а) в 24 сообщениях
 
По умолчанию Re: НОВЫЕ СКРИПТЫ КОТОРЫХ ТУТ РАНЬШЕ НЕ БЫЛО А ТАК ЖЕ ПАКЕТЫ И ПАРА БАГОВ

Цитата:
Сообщение от obolon_svitleПосмотреть сообщение
Весьма понравился пакет на права ГМа)))))))

Где тестировал? Работает? Аж сам неверю))
Подробную информацию давай)) сервер, хроники, рейты, версия пакет хака итд
________________
ВОТ ССЫЛКА НА САМЫЕ ПОЛЕЗНЫЕ ТЕМЫ ФОРУМА, И ВСЕ ЧТО ВАМ НУЖНО
  Ответить с цитированием
Старый 29.10.2009, 03:02   #8
 Разведчик
Аватар для Mest
 
Mest на правильном пути
Регистрация: 13.09.2009
Сообщений: 38
Популярность: 42
Сказал(а) спасибо: 5
Поблагодарили 16 раз(а) в 8 сообщениях
 
По умолчанию Re: Новые скрипты, которых тут раньше не было + пара багов

взял скрипт на тп, но щас уже мало где работает, только на явах, на птс не пашет
  Ответить с цитированием
Старый 29.10.2009, 10:42   #9
 Пехотинец
Аватар для wantedboy
 
wantedboy на правильном путиwantedboy на правильном пути
Регистрация: 24.10.2009
Сообщений: 76
Популярность: 161
Сказал(а) спасибо: 532
Поблагодарили 59 раз(а) в 33 сообщениях
Отправить сообщение для wantedboy с помощью ICQ Отправить сообщение для wantedboy с помощью Skype™
 
По умолчанию Re: Новые скрипты, которых тут раньше не было + пара багов

дюп не работает на amazzonia.ru
________________
Zhyk.ru TAKED MY SOUL!
заводим ладу в -20 =)
  Ответить с цитированием
Старый 29.10.2009, 11:26   #10
Заблокирован
 Старший сержант
Аватар для GraNIT
 
GraNIT излучает ауруGraNIT излучает ауруGraNIT излучает ауруGraNIT излучает ауруGraNIT излучает ауруGraNIT излучает ауру
Регистрация: 27.07.2009
Сообщений: 237
Популярность: 578
Сказал(а) спасибо: 593
Поблагодарили 329 раз(а) в 147 сообщениях
Отправить сообщение для GraNIT с помощью ICQ Отправить сообщение для GraNIT с помощью Skype™
 
По умолчанию Re: Новые скрипты, которых тут раньше не было + пара багов

Дюп старенький, скрипт на ТП токо на явах и пахал...
С ГМством ничего не поделаешь, кроме взлома базы...имхо щас на сборках ГМство даеться, вписыванием ID ГМ-чара в xml-файле в сборке сервака, а скрипт никак не проникнет на серверную машину и не изменит его...
  Ответить с цитированием
Старый 29.10.2009, 14:27   #11
 Разведчик
Аватар для CrowMaster
 
CrowMaster никому не известный тип
Регистрация: 29.10.2009
Сообщений: 12
Популярность: 10
Сказал(а) спасибо: 6
Поблагодарили 0 раз(а) в 0 сообщениях
 
Thumbs up Re: НОВЫЕ СКРИПТЫ КОТОРЫХ ТУТ РАНЬШЕ НЕ БЫЛО А ТАК ЖЕ ПАКЕТЫ И ПАРА БАГОВ

Цитата:
Сообщение от ka3ant1pПосмотреть сообщение
Вот продолжение:

СКРИПТ НА ТП КУДА ХОЧЕШ С КОМАНДАМИ ОЧЕНЬ МНОГИХ ЛОКАЦИЙ
Код:
//Включить скрипт
//Взять себя в таргет
//ну и тп куда хочешь
//После того как тпшнулся нужна сделать какойто скилл..потому что ты для сервера еще на старом месте.   

{Команды скрипта}
//******************===Квест на Валакаса===********************************
//.klein-телепорт к klein
//.hilda-телепорт к hilda
//.kgb-телепорт на поле для Vaculite Ore

//******************===Квест на Антараса===********************************
//.gabrielle-телепорт к Gabrielle
//.kaiena-телепорт к Kaiena
//.marsh-Поляна для дропа (Marsh Drake,Marsh Gargoyle)
//.chakiris-телепорт к Chakiris
//.hamrut-телепорт к Hamrut и Kranrot
//.orven-телпорт к Orven
//.bloody-телепорт к Blood Queen(Seal of Shilen)
//.kendra-телепорт к Kendra
//.harit-телепорт к Harit Lizardman (Matriarch & Shaman)
//.helton-телепорт к Helton
//.jewel2-телепорт к Abyss Jewel 2
//.moke-телепорт к Moke
//.jewel1-телепорт к Abyss Jewel 1
//.gilmore-телепорт к Gilmore
//.theodric-телепорт к Theodric тамже Cave Maiden и Cave Keeper

//******************===Квест на Баюма===********************************
//.hanellin-телепорт к Hanellin
//.lesser giant-телепорт к lesser giant
//.claudia-телепорт к Claudia Athebalt
//.martien-телепорт к Martien
//.harne-телепорт к Harne
//.sunduk1-телепорт к Holy Ark of Secrecy2 (Cemetry)
//.sunduk2-телепорт к Holy Ark of Secrecy3 (Tanor Canyon)
//.ark guard-телепорт к Ark Guard's Corspe (Сначало с ним говорим потом с сундуком)
//.sunduk3-телепорт к Holy Ark of Secrecy1 (Dark Forest)
//.healing-телепорт к Grocery Продавца (Healing Potion & Antidote)
//.treapka-телепорт к мобам (Platinum Tribe Shaman & Overlord)

//******************===ГОРОДА===********************************
//.gludio - телепорт в глудио
//.goddard - телепорт в годдард
//.aden   - телепорт в аден
//.giran - телепорт в гиран
//.rune - телепорт в Руну
//.oren - телепорт в орен
//.heine - телепорт в Хейн
//.dion - телепорт в дион
//.schuttgart - телепорт в шутгарт
//.gludin - телепорт в глудин

//******************===ЗАМКИ===*********************************
//.adencastle - Aden Замок (ТРОН)
//.runecastle - Rune Замок (ТРОН)
//.goddardcastle - Goddard Замок (ТРОН)
//.girancastle - Giran Замок (ТРОН)
//.orencastle - Oren Замок (ТРОН)
//.gludiocastle - Gludio Замок  (ТРОН)
//.dioncastle - Dion Замок  (ТРОН)
//.schuttgartcastle - Шутгарт Замок  (ТРОН)
//.innadrilcastle - Innadril Замок  (ТРОН)

//******************===ЛОКАЦИИ===*******************************
//.dino - телепорт на дино остров
//.vos - телепорт в Valey OF Saints
//.varka - телепорт в Varka
//.mos - телепорт в Monastery Of Silence
//.ketra - телепорт в Ketra Ork

//*****************===РЭЙД БОССЫ===*****************************
//.aq - телепорт к Ант Квин
//.zaken - телепорт к Закену
//.baium - телепорт к Баюму
//.antharas - телепорт к Антарасу
//.valakas - телепорт к Валакасу
//.frintezza - телепорт к Фринтеза

//*****************===ДРУГИЕ МЕСТА===*****************************
//.olympiad   - телепорт на арену
//.jail   - телепорт в тюрьму 
//.adencrest - телепорт на верхушку креста адена
//.vodopad  - телепорт на водопад 
//.coliseum - телепорт в колизей
//.farm-телепорт в Фарм Зону(Lineage2.gh-nt.ru)

//*****************===Noblesse Quest===*****************************
//.talien - Телепорт к Talien
//.gabrielle - Телепорт к Gabrielle
//.gilmore - Телепорт к Gilmore
//.baraham - Телепорт к Baraham
//.melodymaestro - Телепорт к MelodyMaestro
//.marluk - Телепорт в локацию (Marluk Succubus)
//.stedmiel - Телепорт к Stedmiel
//.virgil - Телепорт к Virgil ( Kasandra прямо рядом с ним)
//.rahorakti - Телепорт к Rahorakti
//.splinterstakato - Телепорт в локацию Crimson Moss
//.caradine - Телепорт к Caradine
//.noel - Телепорт к Noel
//.mdk - Телепорт к Mysterious Dark Knight
//.kalis - Телепорт к Kalis
//.matild - Телепорт к Matild
//.unicorn - Телепорт к Unicorn
//.jp Телепорт в локацию Judge & Pilgrim (ring and neklasse)
//.noblrb - телепорт к Ноблесс Рэйд Боссу
//.ladd - телепорт в Ivory Tower(К магистру Ladd)
const
//======================================
Name='V1ntaGe'; //**<-----Ник Персонажа-=
//======================================
var
// переменная
ValidatePosition:string; c:integer; e:integer; n:integer; r:boolean;     
a:integer; b:boolean;  d:integer; f:integer; v:integer;
procedure Init; //Вызывается при включении скрипта
begin
SendMsc('Возьми себя в таргет');
b:=false;
end;
procedure SendMsc(msc:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msc);
SendToClient;
end;
Begin
begin
if FromClient and (pck[1]=#$04)and (not b) then 
begin
a:=ReadD(2); c:=ReadD(6);
d:=ReadD(10); e:=ReadD(14);
f:=ReadC(18);
SendMsc('Запомнен ObjectID = '+inttostr(a));
b:=true;
end;
end;
Begin
If fromclient and (pck=#$38#$2E#$00#$6F#$00#$6C#$00#$79#$00#$6D#$00#$70#$00#$69#$00#$61#$00#$64#$00#$00#$00#$00#$00#$00#$00) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ #$F0#$29#$FE#$FF#$C9#$90#$FC#$FF#$02#$F3#$FF#$FF;
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6C 00 75 00 64 00 69 00 6F 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ #$8E#$CE#$FF#$FF#$99#$DF#$01#$00#$D9#$F3#$FF#$FF;
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6F 00 64 00 64 00 61 00 72 00 64 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('CE 41 02 00 0E 28 FF FF 57 F5 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 64 00 65 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('89 3B 02 00 B0 64 00 00 23 F8 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 69 00 72 00 61 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0A 43 01 00 9E 44 02 00 74 F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 72 00 75 00 6E 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('2A AB 00 00 7E 45 FF FF E7 FC FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 72 00 75 00 6E 00 65 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('11 28 00 00 12 40 FF FF ED FE FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 64 00 65 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('F6 3F 02 00 2C 12 00 00 B1 FE FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6F 00 64 00 64 00 61 00 72 00 64 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('04 40 02 00 6E 43 FF FF 21 F7 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 69 00 72 00 61 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('1B C7 01 00 C7 36 02 00 02 F6 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6F 00 72 00 65 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('90 42 01 00 45 91 00 00 13 F7 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6C 00 75 00 64 00 69 00 6F 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('40 B9 FF FF 65 AB 01 00 45 F6 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 64 00 69 00 6F 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3A 56 00 00 60 72 02 00 83 F5 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 63 00 68 00 75 00 74 00 74 00 67 00 61 00 72 00 74 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('E0 2E 01 00 31 A9 FD FF 80 FE FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 69 00 6E 00 6E 00 61 00 64 00 72 00 69 00 6C 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('39 C5 01 00 09 CD 03 00 F2 FC FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6A 00 61 00 69 00 6C 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('E2 40 FE FF ED 30 FC FF 5B F4 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6F 00 72 00 65 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('91 41 01 00 63 D7 00 00 0C FA FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 65 00 69 00 6E 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0B B2 01 00 89 57 03 00 2A F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 64 00 69 00 6F 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3C 49 00 00 1D 38 02 00 C9 F3 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 68 00 75 00 74 00 74 00 67 00 61 00 72 00 74 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3E 55 01 00 62 D5 FD FF C8 FA FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6C 00 75 00 64 00 69 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('89 BB FE FF 07 4D 02 00 C8 F3 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 64 00 69 00 6E 00 6F 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('E4 28 00 00 07 A0 FF FF C3 F1 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 64 00 65 00 6E 00 63 00 72 00 65 00 73 00 74 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('FF 41 02 00 A5 0F 00 00 FC 11 00 00');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 6F 00 64 00 6F 00 70 00 61 00 64 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('12 A9 02 00 93 62 01 00 33 07 00 00');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 6F 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('D6 18 01 00 39 96 FE FF 74 FA FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 61 00 72 00 6B 00 61 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('59 EA 01 00 18 60 FF FF 79 F1 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 6F 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('9D 9F 01 00 0E A9 FE FF 9D F4 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 65 00 74 00 72 00 61 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0A 3E 02 00 C4 F8 FE FF B9 F1 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 63 00 6F 00 6C 00 69 00 73 00 65 00 75 00 6D 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('46 4A 02 00 8D B6 00 00 B1 F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 71 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('96 AB FF FF 5A C5 02 00 9F E9 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 7A 00 61 00 6B 00 65 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('10 D8 00 00 20 58 03 00 6E F3 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 62 00 61 00 69 00 75 00 6D 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0D C2 01 00 EF 40 00 00 65 27 00 00');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 6E 00 74 00 68 00 61 00 72 00 61 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('6C D5 02 00 7A BE 01 00 E8 DF FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 61 00 6C 00 61 00 6B 00 61 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('88 43 03 00 14 3D FE FF 99 F9 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 66 00 72 00 69 00 6E 00 74 00 65 00 7A 00 7A 00 61 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('9E A8 02 00 44 A2 FE FF BD EB FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 74 00 61 00 6C 00 69 00 65 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('1F 41 02 00 FA 66 00 00 A4 F7 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 61 00 62 00 72 00 69 00 65 00 6C 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('89 3D 01 00 CF 48 02 00 74 F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 69 00 6C 00 6D 00 6F 00 72 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('DA 1D 01 00 DD CE 01 00 92 F1 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 62 00 61 00 72 00 61 00 68 00 61 00 6D 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('1F 53 00 00 70 D0 02 00 F5 F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 65 00 6C 00 6F 00 64 00 79 00 6D 00 61 00 65 00 73 00 74 00 72 00 6F 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('DC A1 01 00 8D 4F 03 00 F5 F1 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 61 00 72 00 6C 00 75 00 6B 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('F5 D1 01 00 DD C7 01 00 63 F1 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 74 00 65 00 64 00 6D 00 69 00 65 00 6C 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('44 D4 01 00 D4 2D 01 00 3D F7 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 69 00 72 00 67 00 69 00 6C 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('DA 80 00 00 9D 43 FF FF F5 06 00 00');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 72 00 61 00 68 00 6F 00 72 00 61 00 6B 00 74 00 69 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('B6 95 00 00 91 3F FF FF 98 FB FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 70 00 6C 00 69 00 6E 00 74 00 65 00 72 00 73 00 74 00 61 00 6B 00 61 00 74 00 6F 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('BD 24 01 00 AD 4A FF FF 63 F3 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 63 00 61 00 72 00 61 00 64 00 69 00 6E 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('7F 4A 02 00 D6 1D FF FF 5C F4 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6E 00 6F 00 65 00 6C 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('20 3C 02 00 45 1A FF FF 64 F4 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 64 00 6B 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('03 7B 01 00 F1 14 FF FF 5C F6 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 61 00 6C 00 69 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('63 74 01 00 AE 56 00 00 C0 F4 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 61 00 74 00 69 00 6C 00 64 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('D4 10 01 00 AF 46 00 00 B4 F1 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 75 00 6E 00 69 00 63 00 6F 00 72 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('7D 4F 01 00 0E D5 FE FF 6E F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6A 00 70 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('B0 47 01 00 10 C7 FE FF 4A F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6E 00 6F 00 62 00 6C 00 72 00 62 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('62 65 01 00 52 AF FE FF 66 F5 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6C 00 61 00 64 00 64 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('1D 4C 01 00 89 3E 00 00 0E F9 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
Begin
If fromclient and (pck=hstr('38 2E 00 66 00 61 00 72 00 6D 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('8B 45 01 00 C2 EB 03 00 9C D3 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 6C 00 65 00 69 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('5F CD 02 00 10 3F FE FF F6 F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 69 00 6C 00 64 00 61 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('E8 3B 02 00 AD 1A FF FF 62 F4 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 62 00 67 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a); 
buf:=buf+ hstr('65 4C 02 00 B3 0C FF FF C5 F3 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 61 00 6E 00 65 00 6C 00 6C 00 69 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a); 
buf:=buf+ hstr('D3 32 02 00 17 5C 00 00 B7 F7 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6C 00 65 00 73 00 73 00 65 00 72 00 20 00 67 00 69 00 61 00 6E 00 74 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);  
buf:=buf+ hstr('75 E0 02 00 48 F5 00 00 D2 E3 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 63 00 6C 00 61 00 75 00 64 00 69 00 61 00 00 00 00 00 00 00 ')) then
begin
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('E3 44 02 00 D1 41 00 00 E6 F9 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 75 00 6E 00 64 00 75 00 6B 00 31 00 00 00 00 00 00 00 ')) then
begin
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('C8 C4 02 00 E3 1B 00 00 58 F5 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 61 00 72 00 74 00 69 00 65 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('0B 49 01 00 82 31 02 00 B2 F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 75 00 6E 00 64 00 75 00 6B 00 32 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('F3 C5 00 00 DC 6B 02 00 72 01 00 00');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 61 00 72 00 6E 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('6B 28 00 00 5D 38 00 00 6D EF FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 72 00 6B 00 20 00 67 00 75 00 61 00 72 00 64 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('77 0B 00 00 4C AC 00 00 5C F5 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 75 00 6E 00 64 00 75 00 6B 00 33 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('7F FE FF FF 9F AC 00 00 26 F2 FF FF');
SendToClient;
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 65 00 61 00 6C 00 69 00 6E 00 67 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('8E 3A 02 00 6C 6D 00 00 30 F7 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 74 00 72 00 65 00 61 00 70 00 6B 00 61 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);   
buf:=buf+ hstr('8E 3A 02 00 6C 6D 00 00 30 F7 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 61 00 69 00 65 00 6E 00 61 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('62 4D 01 00 D6 40 00 00 0D F9 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 61 00 72 00 73 00 68 00 00 00 00 00 00 00 ')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('6A 9C 02 00 B0 A6 00 00 E1 EC FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 63 00 68 00 61 00 6B 00 69 00 72 00 69 00 73 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('F5 D4 01 00 5F 24 01 00 B9 F6 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 61 00 6D 00 72 00 75 00 74 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('78 C4 02 00 F1 E2 00 00 73 F0 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6F 00 72 00 76 00 65 00 6E 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('FF 3F 02 00 4B 58 00 00 37 F8 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 62 00 6C 00 6F 00 6F 00 64 00 79 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('17 D7 02 00 67 4B 00 00 DF F2 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 65 00 6E 00 64 00 72 00 61 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('E6 46 02 00 0F 64 00 00 B4 F7 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 61 00 72 00 69 00 74 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('B7 60 02 00 71 2F 01 00 82 F4 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 65 00 6C 00 74 00 6F 00 6E 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('DF 46 01 00 3C D9 00 00 17 FA FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6A 00 65 00 77 00 65 00 6C 00 32 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('72 F8 00 00 65 79 00 00 5D F1 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 6F 00 6B 00 65 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('07 C0 FE FF 9F 57 02 00 99 F3 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6A 00 65 00 77 00 65 00 6C 00 31 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('A3 C2 FE FF 4C 27 01 00 D6 F2 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 74 00 68 00 65 00 6F 00 64 00 72 00 69 00 63 00 00 00 00 00 00 00')) then
begin 
buf:=#$28;
WriteD(a);    
buf:=buf+ hstr('6E 00 02 00 CF BF 01 00 72 F1 FF FF');
SendToClient; 
buf:=#$30;
SendToServerEX(Name);
end;
end;
end;
end.
Сори то не все копирайты, объем обрабатываемой информации был очень большой 50+ форумов и 25+ сайтов и 10+ блогов, я не то что копирайты не все по вставлял я даже все эти страницы не по сохранял, так что кого обидел извиняйте((

Ну вот в общем на этом все, еще раз повторюсь я еще все это не тестировал но обязательно все протестирую, как только что то протестирую напишу сервер и работает или нет, а лутче всего буду брать сервер и писать что из этого на нем работает что нет. Кому не лень помогайте тестировать сделаем базу читов для жука)) Тестировать буду только на Ц4 и ИНТЕРЛЮДЕ. Не просите тестировать на серверах с онлайном 50<. Планирую проверить на 20 серверах Ц4 и окло 20 Интерлюд, ну хотя как получится.
И НЕЗАБЫВАЕМ ПРО СПАИБКУ

Уряяя, пашет)))
qlineage.ru (interlude)
  Ответить с цитированием
Старый 29.10.2009, 15:49   #12
 Пехотинец
Аватар для ka3ant1p
 
ka3ant1p скоро будет известенka3ant1p скоро будет известенka3ant1p скоро будет известен
Регистрация: 17.10.2009
Сообщений: 61
Популярность: 210
Сказал(а) спасибо: 5
Поблагодарили 100 раз(а) в 24 сообщениях
 
По умолчанию Re: Новые скрипты, которых тут раньше не было + пара багов

la2-fenix.ru ничего из єтого не работает, не тестил только баг, дюпы и пакет на краш сервера
________________
ВОТ ССЫЛКА НА САМЫЕ ПОЛЕЗНЫЕ ТЕМЫ ФОРУМА, И ВСЕ ЧТО ВАМ НУЖНО
  Ответить с цитированием
Старый 30.10.2009, 23:27   #13
 Разведчик
Аватар для obolon_svitle
 
obolon_svitle никому не известный тип
Регистрация: 24.06.2009
Сообщений: 10
Популярность: 12
Сказал(а) спасибо: 10
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: Новые скрипты, которых тут раньше не было + пара багов

Краш работает на большистве серверов, где можно хоть как-то запустить phx (т.е. на тех, где не дисконнектит при выборе сервера)
  Ответить с цитированием
Старый 21.11.2009, 19:47   #14
 Разведчик
Аватар для Lafisarrr
 
Lafisarrr неизвестен в этих краяхLafisarrr неизвестен в этих краях
Регистрация: 01.11.2009
Сообщений: 36
Популярность: -189
Сказал(а) спасибо: 10
Поблагодарили 22 раз(а) в 8 сообщениях
 
По умолчанию Re: НОВЫЕ СКРИПТЫ КОТОРЫХ ТУТ РАНЬШЕ НЕ БЫЛО А ТАК ЖЕ ПАКЕТЫ И ПАРА БАГОВ

Цитата:
Сообщение от obolon_svitleПосмотреть сообщение
Весьма понравился пакет на права ГМа)))))))

Где работает ?
________________
Помог? тыкай спасибо КТО знает баги или дюы шок ворлда отпишите в личку
  Ответить с цитированием
Старый 21.11.2009, 20:04   #15
 Сержант
Аватар для Benjamin
 
Benjamin душа компанииBenjamin душа компанииBenjamin душа компанииBenjamin душа компанииBenjamin душа компанииBenjamin душа компанииBenjamin душа компанииBenjamin душа компании
Регистрация: 08.07.2009
Сообщений: 159
Популярность: 913
Сказал(а) спасибо: 305
Поблагодарили 197 раз(а) в 97 сообщениях
Отправить сообщение для Benjamin с помощью ICQ
 
По умолчанию Re: НОВЫЕ СКРИПТЫ КОТОРЫХ ТУТ РАНЬШЕ НЕ БЫЛО А ТАК ЖЕ ПАКЕТЫ И ПАРА БАГОВ

Цитата:
Сообщение от LafisarrrПосмотреть сообщение
Где работает ?

где работает??
ты что издеваешься ?
  Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сервера, на которых играете вы. Loreg Общение и обсуждение, архив Lineage 2 575 05.12.2017 16:11
[Баг] Получить ежедневный подарок на 12 часов раньше Makcumko Архив 0 30.08.2009 11:43
Пара интересных багов Yohan Подполье Lineage 2 (0 уровень) 2 06.09.2008 09:48
Это было весело. Yohan Треп 14 15.07.2008 20:48
Список на которых я играл alert Rising Force Online 4 23.05.2008 22:33

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 10:04.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net