Форум уже полный и трудно отыскать нужные скрипты и тд решил залить свои. Сори ежели посчитаете за флуд тему просто оф бан не давайте ^^.constMaxMessages = 1000;varm: TMemo;frm:TForm;penel: TPanel;etext: tedit;button: tbutton;box : TCheckBox;every : TEdit;Name : TEdit;i: Integer;tm:TTimer;Message, Name: String;procedure SendMs(Sender: TObject);varMsg, Nm: String;dd: integer;beginif etext.text<>'' then beginbuf:=#$38;case etext.text[1] of'!': beginMsg:=Copy(etext.text,2,1000);dd:=1;nm:='';end;'$': beginMsg:=Copy(etext.text,2,1000);dd:=9;nm:='';end;'+': beginMsg:=Copy(etext.text,2,1000);dd:=8;nm:='';end;'': begindd:=pos(' ', etext.text);Msg:=Copy(etext.text,dd+1,1000);nm:=Copy(etext.text,2,dd-3);dd:=2;end;'#': beginMsg:=Copy(etext.text,2,1000);dd:=3;nm:='';end;'@': beginMsg:=Copy(etext.text,2,1000);dd:=4;nm:='';end;else beginMsg:=etext.text;dd:=0;nm:='';end;end;WriteS(Msg);WriteD(dd);if nm<>'' then WriteS(Nm);SendToServerEx(Name.Text);end;end;procedure onNewCommand(obj:TObject;key:string);var i:integer;var symbol:Variant;var after:string;beginif (key[1]=#$0D) then beginSendMs(obj);symbol := etext.Text[1];after := '';if symbol = '#' then after := '#';if symbol = '!' then after := '!';if symbol = '@' then after := '@';if symbol = '$' then after := '$';if symbol = '%' then after := '%';etext.Text := after;end;end;procedure onTimer(Sender:TObject);begintm.Interval := StrToInt(every.Text);if box.checked = true then SendMs(Sender);end;procedure Init;beginfrm := TForm.Create(nil);frm.Caption := 'Chat';frm.BorderStyle := bsSizeable;frm.Position := poDesigned ;frm.Width:=400;frm.Height:=600;m:=TMemo.Create(frm);m.parent:=frm;m.align:=alClient;m.ReadOnly:=true;m.ScrollBars:=ssBoth;penel:=TPanel.Create(frm);penel.parent:=frm;penel.align:=alBottom;penel.height:=48;etext:=tedit.Create(penel);etext.parent:=penel;button:=tbutton.Create(penel);button.parent:=penel;button.top := etext.height;button.caption:='Send';button.onClick:=@SendMs;box := TCheckBox.Create(penel);box.parent := penel;box.Top := etext.height + 2;box.Left := button.width + button.left +2;box.Caption := 'Шторм через: ';every:=tedit.Create(penel);every.parent:=penel;every.Left := box.Left + box.Width;every.Top := button.top;every.Text := IntToStr(3000);tm := TTimer.Create(frm);tm.Interval := 1000;tm.Enabled := true;tm.OnTimer := @OnTimer;etext.OnKeyPress := @onNewCommand;Name:=tedit.Create(frm);Name.parent:=frm;Name.Text := '';frm.Show;end;procedure SaveToFile(prefix:string);var name:string;beginname := prefix+'.'+ConnectName+'.'+DateToStr(Date)+'.'+Tim eToStr(Time)+'.txt';while Pos(':',name) <> 0 do beginname[Pos(':',name)] := '-';end;m.Lines.SaveToFile(name);end;procedure Free;beginSaveToFile('ChatLog');box.Free;every.Free;tm.Free;etext.Free;button.Free;penel.Free;m.Free;frm.Free;end;var tp:integer;var ct:string;var MessageCounter:integer;beginif Name.Text = '' then Name.Text := ConnectName;if FromServer and (ConnectName = Name.Text) and (pck[1]=#$4a) thenbegini:=10;name:=ReadS(i);message:=ReadS(i);tp := ReadD(6);ct := '???';if tp = 0 then ct := 'GNR';if tp = 8 then ct := 'TRD';if tp = 3 then ct := 'PRT';if tp = 4 then ct := 'CLN';if tp = 9 then ct := 'ALY';ct := DateToStr(Date) + ' '+ TimeToStr(Time) + ', '+ ct;if name='' then name:='Объявление: ';m.Lines.Add('['+ct+'] '+Name+': '+message);if MessageCounter > MaxMessages then beginSaveToFile('Backup');//m.Lines.Add('BACKUPED');MessageCounter := 0;end;MessageCounter := MessageCounter+1;end;скрипт на флуд тоесть вставляеш в пхс жмёш галочку и далее увидете.так сказать Работает на почти всех пвп серверах interlude сам инспектировал на l2shard.ru l2tower.com На данный момент выложу еще скриптыДобавлено через 1 минутку//Включить скрипт//Взять себя в таргет//ну и тп куда хочешь//Опосля, как люди привыкли выражаться, того как тпшнулся нужна сделать какойто скилл..так как ты для сервера еще на древнем месте. {Команды скрипта}//******************===Квест на Валакаса===********************************//.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='UniSoul'; //**<-----Ник Персонажа-=//======================================var// переменнаяValidatePosition:string; c:integer; e:integer; n:integer; r:boolean; a:integer; b:boolean; d:integer; f:integer; v:integer;procedure Init; //Вызывается при включении скриптаbeginSendMsc('Возьми себя в таргет');b:=false;end;procedure SendMsc(msc:string);beginbuf:=#$4A;WriteD(0);WriteD(10);WriteS('');WriteS(msc);SendToClient;end;Beginbeginif FromClient and (pck[1]=#$04)and (not b) then begina:=ReadD(2); c:=ReadD(6);d:=ReadD(10); e:=ReadD(14);f:=ReadC(18);SendMsc('Запомнен ObjectID = '+inttostr(a));b:=true;end;end;BeginIf 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#$0 0#$00) thenbeginbuf:=#$28;WriteD(a);buf:=buf+ #$F0#$29#$FE#$FF#$C9#$90#$FC#$FF#$02#$F3#$FF#$FF;SendToClient;buf:=#$30;SendToServerEX(Name);end;end;BeginIf 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')) thenbeginbuf:=#$28;WriteD(a);buf:=buf+ #$8E#$CE#$FF#$FF#$99#$DF#$01#$00#$D9#$F3#$FF#$FF;SendToClient;buf:=#$30;SendToServerEX(Name);end;end;BeginIf 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')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 61 00 64 00 65 00 6E 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 67 00 69 00 72 00 61 00 6E 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 72 00 75 00 6E 00 65 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 6A 00 61 00 69 00 6C 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 6F 00 72 00 65 00 6E 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 68 00 65 00 69 00 6E 00 65 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 64 00 69 00 6F 00 6E 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 64 00 69 00 6E 00 6F 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 76 00 6F 00 73 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 76 00 61 00 72 00 6B 00 61 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 6D 00 6F 00 73 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 6B 00 65 00 74 00 72 00 61 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 61 00 71 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 7A 00 61 00 6B 00 65 00 6E 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 62 00 61 00 69 00 75 00 6D 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 6E 00 6F 00 65 00 6C 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 6D 00 64 00 6B 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 6B 00 61 00 6C 00 69 00 73 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 6A 00 70 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 6C 00 61 00 64 00 64 00 00 00 00 00 00 00')) thenbeginbuf:=#$28;WriteD(a);buf:=buf+ hstr('1D 4C 01 00 89 3E 00 00 0E F9 FF FF');SendToClient;buf:=#$30;SendToServerEX(Name);end;BeginIf fromclient and (pck=hstr('38 2E 00 66 00 61 00 72 00 6D 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 6B 00 6C 00 65 00 69 00 6E 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 68 00 69 00 6C 00 64 00 61 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 6B 00 62 00 67 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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 ')) thenbeginbuf:=#$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;BeginIf 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 ')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf fromclient and (pck=hstr('38 2E 00 68 00 61 00 72 00 6E 00 65 00 00 00 00 00 00 00')) thenbeginbuf:=#$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;BeginIf 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')) thenbeginbuf:=#$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;BeginIf 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')) thenbegin 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;BeginIf 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')) thenbegin 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;BeginIf 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')) thenbegin 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;BeginIf 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')) thenbegin 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;BeginIf fromclient and (pck=hstr('38 2E 00 6D 00 61 00 72 00 73 00 68 00 00 00 00 00 00 00 ')) thenbegin 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;BeginIf 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')) thenbegin 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;BeginIf 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')) thenbegin 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;BeginIf fromclient and (pck=hstr('38 2E 00 6F 00 72 00 76 00 65 00 6E 00 00 00 00 00 00 00')) thenbegin 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;BeginIf 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')) thenbegin 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;BeginIf 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')) thenbegin 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;BeginIf fromclient and (pck=hstr('38 2E 00 68 00 61 00 72 00 69 00 74 00 00 00 00 00 00 00')) thenbegin 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;BeginIf 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')) thenbegin 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;BeginIf 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')) thenbegin 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;BeginIf fromclient and (pck=hstr('38 2E 00 6D 00 6F 00 6B 00 65 00 00 00 00 00 00 00')) thenbegin 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;BeginIf 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')) thenbegin 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;BeginIf 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')) thenbegin 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. Это скрипт на тп в различные локацииДобавлено через 2 минутыbeginif fromserver and (pck[1]=#$9F) then pck[22]:=#$00;end.Скрипт на открывание дверей в мире lineage 2 сам не инспектировал ну молвят рабочийДобавлено через 3 минутки// Бегущая строчка в титуле, ©Br1nk v0.2// пишем rt в пати чате для включения и выключенияvartitle, temp, titleoff: string;activated, mult, safemode: integer;tmr: TTimer;procedure Init; //Вызывается при включении скриптаbegintitle := 'Хати таковой титул как и у меня!!!'; // текст титулаtitleoff := 'хати такойже титул ';activated := 0; // Описывает, врубается ли бегущая строчка сходу при запуске скрипта либо лишь опосля введения команды rt в патичатsafemode := 1; // безопасный режим, обычная длина титула. Ежели вы играете на кривой яве, поставьте 0, это даст для вас наиболее длиннющий титул, соответственно смотрится пижже..)tmr := TTimer.Create(nil);tmr.Interval := 800; // Частота обновления (мс)tmr.Enabled := False; tmr.OnTimer := @Tick;mult := 16; // Описывает на сколько букв двигается строчка в титуле при обновленииend;procedure Free;begintmr.Free;SetTitle(titleoff);end;procedure Tick;begintemp := copy(title, 2 + mult, Length(title) - 1 - mult) + copy(title, 1, 1 + mult);title := temp;if safemode thenSetTitle(Copy(temp, 0, 16))elseSetTitle(temp);end;procedure Announce(text:string); // for debug purposesbeginbuf := #$4A;WriteD(0);WriteD(10);WriteS('');WriteS(text);SendToClient;end;procedure SetTitle(text: string);beginbuf := HStr('55');WriteS(ConnectName);WriteS(text);WriteD(0);SendToServer;end;beginif FromClient and (pck=HStr('38 72 00 74 00 00 00 03 00 00 00')) thenbeginif (activated = 1) thenbeginactivated := 0;SetTitle(titleoff);Announce('Title script powered off.');endelseactivated := 1;pck := '';end;if (activated = 1) thentmr.Enabled := Trueelsetmr.Enabled := False;end.скрипт на бегущий титул разобратся легкоДобавлено через 4 минутки//by mks//помошник в PvP и PK.//пьет CP и HP пробирки в необходимое время(можно как бы добавить и MP для пвп серваков), и высвобождает вас от небоходимости зажатия клавиши Ctrl, которая так меня раздражает!(думаю это раздражает не лишь меня)//////////////////////////////////////////////////////////////////////Master PvP by MKS v.1.0//////////////////////////////////////////////////////////////////////////опосля активации скрипта нужно как бы испить поначалу банку CP, позже HP для получения их IDconstName='Name'; //ник персаvarCurHP,MaxHP,CurCP,MaxCP: integer;CPuse,HPuse: string;TimerCP,TimerHP: TTimer;procedure Init; //Вызывается при включении скриптаbeginTimerCP:=TTimer.Create(nil);TimerCP.OnTimer:=@OnTimerCP;TimerCP.enabled:=false;TimerCP.interval:=10000; //интервал 1сек, т.к. почаще, стало быть, пить CP всеравно не будет, чтобы не, вообщем то, засорять трафикTimerHP:=TTimer.Create(nil);TimerHP.OnTimer:=@OnTimerHP;TimerHP.enabled:=false;TimerHP.interval:=15000; //интервал 15сек, т.к. действие одной бутылки = 15секend;procedure OnTimerCP(Sender: TObject);beginbuf:=CPuse;SendToServerEx(Name);end;procedure OnTimerHP(Sender: TObject);beginbuf:=HPuse;SendToServerEx(Name);end;procedure Free; //Вызывается при выключении скриптаbeginTimerCP.free;TimerHP.free;HPuse:='';CPuse:='';end;//основная часть скрипта//вызывается при приходе каждого пакета ежели скрипт включенbegin//пьем поначалу CP, позже HP банку что б уяснить их ID(я решил взять эти пакеты полностью, чтобы не усложнять)if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse='') then CPuse:=pck;if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse<>pck) and (HPuse='') then HPuse:=pck;//считываем текущие и наибольшие значения CP и HPif FromServer and (pck[1]+pck[6]=#$0E#$04) thenbeginCurHP:=ReadD(14);MaxHP:=ReadD(22);CurCP:=ReadD(30);MaxCP:=ReadD(38);end;if CurHP<>0 thenbegin//ежели вы используете не грэйтер CP то заместо 200 подставьте кол-во CP сколько восстанавливает 1 банкаif (CurCP<MaxCP-200) and (CPuse<>'') then TimerCP.enabled:=true else TimerCP.enabled:=false;if (CurHP<MaxHP) and (HPuse<>'') then TimerHP.enabled:=true else TimerHP.enabled:=false;//ежели используем скилы либо заклинания добавляем флаг Ctrl, что б не нужно было удерживать контролif FromClient and (ConnectName=Name) and (pck[1]=#$2F) then pck[6]:=#$01;//ежели наводим таргет, повторное нажатие по нему подменивается на атаку, снова же что б не удерживать контролif FromClient and (ConnectName=Name) and (pck[1]=#$04) then pck[1]:=#$0A;endelse beginTimerHP.enabled:=false;TimerCP.enabled:=false;end;end.скрипт на авто юзанье сп-хп-мп банокДобавлено через 6 минут//Скрипт на возрождение на месте опосля погибели. //Включите скрипт,когда вы погибли возьмите себя в таргет и нажмите в город. //Вы встанете наместе. //Создатель pmen ICQ - 479917081 //=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+ =+=+=+=+=+=+=+=+=+=+= const //====================================== Name='ник сюды'; //<-----Ник Персонажа //====================================== var a:integer;x:integer;MyID:string; y:integer;z:integer; b:boolean;ValidatePosition:string; procedure Init; //Вызывается при включении скрпта begin SendMsc('Возьми себя в таргет'); //Системное сообщение b:=false; //Условие b первоночально False end; procedure SendMsc(msc:string); begin buf:=#$4A; WriteD(0); WriteD(10); WriteS(''); WriteS(msc); SendToClient; end; begin //Нечитаем пустые пакеты if pck='' then exit; //Ежели Имя соединения Name //И Пакет Action от клиента то if FromClient and (ConnectName=Name) and (pck[1]=#$04) then begin //Сохраняем мой Обжект Ид MyID:= pck[2]+pck[3]+pck[4]+pck[5]; a:=ReadD(2); x:=ReadD(6); //Читаем и запоминаем данные y:=ReadD(10); z:=ReadD(14); SendMsc('Все данные сохранены!'); //Оповещаем о том что все прошло удачно b:=true; end; begin if pck='' then exit; //Не читаем пустые пакеты //Ежели от Клиента пакет RequestRestartPoint //Запоминаем ValidatePosition до revive //Посылаем клиенту TeleportToLocation if FromClient and (ConnectName=Name) and (pck=hstr('6D 00 00 00 00')) then if FromClient and (ConnectName=Name) and (pck[1]=#$48) then ValidatePosition:=pck; if FromServer and (ConnectName=Name) and (pck[1]=#$28) and (MyID= pck[2]+pck[3]+pck[4]+pck[5]) then begin pck:=''; //Убиваем обычный пакет buf:=ValidatePosition; //посылаем ValidatePosition SendToServerEX(Name); buf:=#$28; WriteD(A); http://Obj.ID WriteD(X); http://Coord.X WriteD(Y); http://Coord.Y WriteD(Z); http://Coord.Z SendtoclientEX(Name); buf:=ValidatePosition; //посылаем ValidatePosition SendToServerEX(Name); end; end; end. скрипт на возраждение на том же место где и свалился ^^ Добавлено через 7 минутЕсли както посодействовал тыкаем Спасибо *..<>..*