Скрипт на телепорт

pmen · 02.06.2009, 17:12

Вот я написал скрипт на телепорт..Тут много команд.Очень упростит жизнь в линейке..Особенно квест на Нобл.Он очень простой,просто я еще только учусь.

Команда - ''.xxxxx''

Цитата:

//.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)

NLObP · 02.06.2009, 18:39

pmen, немного покритикую. Надо было так сделать (выдержка)

delphi Код:

Var
// переменная
ValidatePosition:string; c:integer; e:integer; n:integer; r:Boolean;
a:integer; b:Boolean;  d:integer; f:integer; v:integer; cmd: string;

Procedure Init; //Вызывается при включении скрипта
begin
    SendMsc('Возьми себя в таргет');
    b:=False;
end;

Procedure SendMsc(msc:string);
begin
    buf:=#$4A;
    WriteD(0);
    WriteD(10);
    WriteS('');
    WriteS(msc);
    SendToClient;
end;

Begin
    //не обрабатываем пустые пакеты
    if pck='' then exit;

    //********************************************************************************
    if FromClient then begin
        case pck[1] of
            //************************************************************************
            #$04: begin
                If (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;
            //************************************************************************
            #$38: begin
                    cmd:=ReadS(2);
                    case  cmd of
                    //****************************************************************
                    '.olympiad': begin
                        buf:=#$28;
                        WriteD(a);
                        buf:=buf+ #$F0#$29#$FE#$FF#$C9#$90#$FC#$FF#$02#$F3#$FF#$FF;
                        SendToClient;
                    end;
                    //****************************************************************
                    '.gludio': begin
                        buf:=#$28;
                        WriteD(a);
                        buf:=buf+ #$8E#$CE#$FF#$FF#$99#$DF#$01#$00#$D9#$F3#$FF#$FF;
                        SendToClient;
                    end;
                    //****************************************************************
                    //...
                    //****************************************************************
                end;
            end;
        end;
    end;
end.

Не совсем понял, как будет телепорт происходить? Ты все команды клиенту шлешь и его же команды перехватываешь. Имхо фейк все эти телепорты, только у тебя в клиенте.

pmen · 02.06.2009, 18:42

Да...Сервер посылает пакет клиенту Teleport To location! А после того как тебя тпшнуло то ты используешь какой-то скилл! Тоесть клиент посылает серверу твой нынешний ValidatePosition и ты в том месте где нужно

z0mbie · 02.06.2009, 18:56

У меня всё получилось но только приходиться рестарт делать потому что он стоит на месте.Правда за этот скрипт и бан можно получить, особенно после выхода из тюрьмы.