z0mbie86

The script for drawing adenomas and other items Program ItemPainter; //------------------------------------------------------------------ / / Script for drawing objects only for C4 and Interludes / / In the Name write nick / / Draw a picture in a graphics editor. / / In the "Path to Falou" Enter the path to the file and click Load / / Black, red, green, blue, yellow-colored pixels, you can bind to a specific subject / / Choose a color in the box color, then the subject in the box Item (items must be> 1 so that they appear in the list) / / scale - the scale of indentation between subjects from 1:1 to 10:1 / / The most optimal scale of 5:1 / / Direction - under the compass in the game example image Download: http://multi-up.com/124033

thanks

good nice

____________$$$$$$$*$______$$$$$$$$$ __________$$$$$$$$$*$$$__$$$$$$$__$$$$ _________$$$$$$$$$$*$$$$$$$$$$$$$$__$$$ _________$$$$$$$$$$*$$$$$$$$$$$$$$__$$$ _________$$$$$$$$$$*$$$$$$$$$$$$$$__$$$ __________$$$$$$$$$*$$$$$$$$$$$$$__$$$ ____________$$$$$$$*$$$$$$$$$$$$$$$$ _______________$$$$*$$$$$$$$$$$$$ _________________$$*$$$$$$$$$$$ ____________________$$$$$$$$ _____________________$$$$$ ______________________$$$ _______________________$ //****************************************************************************** {version 0.2 от 11.06.2009г. by NLObP 1.write NAME 2.run script 3.V folder \ scripts \ picture.txt should be based on the file with text or pictures 4.load command in the chat> load = picture 5.write how to write a chat, team chat> dest = 1, or chat = 1 (0 - general chat, etc.) 6.start for execution, the command in the chat> start or run 7.stop script, using chat> stop 8.posle output image script stops himself. } //****************************************************************************** program Risuem_w_chat2; const Name='NLObP'; //имя персонажа в игре Pathtxt='.\scripts\'; //путь к файлу NameTxt='picture.txt'; //имя файла с рисунком (текстом) debug=true; //true - чтобы видеть команды в чате DefaultExecuteDelay=500; //.............................................................................. var TextPic : TStringlist; //сюда загружаем текст из файла ExecuteTimer: Ttimer; //основной таймер ExecuteDelay: integer; //задержка между сообщениями в чат strIndex: integer; //номер строки chat: integer; //в какой чат слать //****************************************************************************** procedure Init; //Вызывается при включении скрипта var i, j :integer; begin TextPic:=TStringList.Create; //загружаем файл TextPic.LoadFromFile(PathTxt+NameTxt); strIndex:=0; //начинаем с первой строки ExecuteDelay:=DefaultExecuteDelay; //задержка между сообщениями в чат ExecuteTimer:=TTimer.Create(nil); ExecuteTimer.Enabled:=false; ExecuteTimer.Interval:=ExecuteDelay; //время задержки ExecuteTimer.OnTimer:=@OnExecute; end; //.............................................................................. procedure Free; //Вызывается при выключении скрипта begin ExecuteTimer.Enabled:=False; //остановим на всякий случай Executetimer.Free; TextPic.free; end; //****************************************************************************** { Вспомогательные процедуры и функции } //****************************************************************************** procedure debugMsg(msg: string); begin if debug then begin sendMSG(msg); SendMessage(msg); end; end; //****************************************************************************** { Посылаем пакеты } //****************************************************************************** //послать сообщение в чат (видим только мы) //use: SendMessage(msg); procedure SendMessage(msg:string); //отправка системных сообщений клиенту begin buf:=#$4A; WriteD(0); WriteD(10); WriteS(''); WriteS(msg); SendToClientEx(Name); end; //49=Say2:s(Text)d(Type)s(Target) procedure SendMs(msg: string; dest: integer); begin //buf:=#$49; //Грация buf:=#$38; //Интерлюдия WriteS(Msg); WriteD(dest); WriteS(''); SendToServerEx(Name); end; //.............................................................................. function ExtractValue(sData, sFind: string;): string; {возвращаем конец строки после найденного символа} var s: string; i,j: integer; begin i:=0; result:=''; i:=find(sData, sFind); if i>0 then result:=copy(sData, i+length(sFind), length(sData)); end; function RtrimEx(sData, sDelimiter: string): string; {Удаление из строки S заданные символы справа} var m,i : integer; s: string; begin s:=sData; i:=0; while i=0 do begin m:=length(s); if m>0 then begin if s[m]<>sDelimiter then i:=1; if s[m]=sDelimiter then delete(s,m,1); end; if m <= 0 then i:=1; end; result:=s; end; //.............................................................................. function LtrimEx(sData, sDelimiter:String): string; {Удаление из строки S заданные символы слева} var m,i : integer; s: string; begin s:=sData; i:=0; while i=0 do begin m := length(s); if m > 0 then begin if s[1]<>sDelimiter then i:=1; if s[1]=sDelimiter then delete(s,1,1); end; if m <= 0 then i:=1; end; result:=s; end; //.............................................................................. function Ltrim(sData:String): string; {Удаление из строки S заданные символы слева} begin result:=LtrimEx(sData,' '); end; //.............................................................................. function Rtrim(sData:String): string; {Удаление из строки S заданные символы слева} begin result:=RtrimEx(sData,' '); end; //.............................................................................. function AllTrimEx(sData, sDelimiterLeft, sDelimiterRight: String): string; {Удаление из строки S заданные символы слева и справа} begin result:=LtrimEx(RtrimEx(sData, sDelimiterRight), sDelimiterLeft); end; //.............................................................................. function AllTrim(sData: String): string; {Удаление из строки S заданные символы слева и справа} begin result:=Ltrim(Rtrim(sData)); end; //.............................................................................. function ExtractName(sData, sFind: string): string; {возвращаем строку до найденного символа} var i: integer; begin i:=0; result:=''; i:=find(sData, sFind); if i>0 then result:=copy(sData, 1, i-length(sFind)+1); end; //.............................................................................. function Find(const S, P: string): Integer; {Функция Find ищет подстроку P в строке S и возвращает индекс первого символа подстроки или 0, если подстрока не найдена. Хотя в общем случае этот метод, как и большинство методов грубой силы, малоэффективен, в некоторых ситуациях он вполне приемлем.} var i, j: Integer; begin Result:=0; if Length(P)>Length(S) then begin debugMSG('Несоответствие длин: p='+inttostr(Length(P))+' > S='+inttostr(Length(s))); debugMSG('Строка: '+inttostr(strIndex)); Exit; end; for i:=1 to Length(S)-Length(P)+1 do begin for j:=1 to Length(P) do begin if P[j]<>S[i+j-1] then Break else if j=Length(P) then begin Result:=i; Exit; end; end; end; end; //****************************************************************************** // Парсер/Исполнитель: главный цикл обработки команд Валкера //****************************************************************************** function OnExecute(Sender: TObject): integer; //CommandList: TStringList var s, cmd, param : string; begin try s:=TextPic[strIndex]; //считываем строку рисунка SendMs(s, chat); //выводим в чат inc(strIndex); //следующая строка except ExecuteTimer.Enabled:=False; //остановим end; end; procedure UserCommands; //комманды пользователя var s, cmd: string; begin //если комманда обработана удачно, то в чат сообщение не попадет, а будет выдано системное сообщение прямо в клиент s:=ReadS(2); debugMsg(s); s:=s+'='; //чтобы можно было взять число в конце cmd:=RTrimEx(ExtractName(s, '='), '='); //получили строку вплодь до найденного символа cmd:=UpperCase(alltrim(cmd)); case cmd of //команда загрузки скрипта> load=picture 'LOAD': begin s:=ExtractValue(s, '='); //получили остаток строки начиная с искомого символа s:=RTrimEx(ExtractName(s, '='), '='); //получили строку вплодь до найденного символа TextPic.clear; TextPic.LoadFromFile(PathTxt+s+'.txt'); //загружаем pck:=''; end; 'START','RUN': begin strIndex:=0; //начинаем с первой строки ExecuteDelay:=DefaultExecuteDelay; //задержка между выводом строк на экран ExecuteTimer.Enabled:=true; //включим таймер pck:=''; end; 'STOP': begin ExecuteTimer.Enabled:=false; //выключим интерпретацию скрипта валкера pck:=''; end; 'DEST','CHAT': begin s:=ExtractValue(s, '='); //получили остаток строки начиная с искомого символа s:=RTrimEx(ExtractName(s, '='), '='); //получили строку вплодь до найденного символа chat:=strtoint(s); //сохраним тип чата куда слать сообщение pck:=''; end; end; end; //****************************************************************************** { основная часть скрипта, вызывается при приходе каждого пакета, если скрипт включен } //****************************************************************************** begin //**************************************************************************** //не обрабатываем пустые пакеты if pck='' then exit; //**************************************************************************** if (ConnectName=Name) and FromClient then begin case pck[1] of //************************************************************************ //#$49: UserCommands; //Say2:s(Text)d(Type)s(Target) Gracia #$38: UserCommands; //Say2:s(Text)d(Type)s(Target) Interlud end; end; end.

[hide=100]/ / Insert script / / Get yourself in the Target / / well, etc. wherever you want / / After a teleport need any skill to do .. because you have to have a server on the old place. / / Author pmen / / Insert script / / Get yourself in the Target / / well, etc. wherever you want / / After a teleport need any skill to do .. because you have to have a server on the old place. / / Author pmen {Comands} //******************===ГОРОДА===******************************** //.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 - телепорт в колизей //*****************===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) 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; 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; end; end; end. [/hide]

server lag

I can not edit the host file,host is not saved

Build good, thanks

8

Ha ha ha this is not exploit :D

work with interlude

I think most people used scattering as in the game and in life)))

big thanks

3 servers tested, 2 did not work on another killed worked)

DBSK I agree with you