Скрипт проверки отката скила

[Pinko]

systemmsg-e оригинал
systemmsg-e тхт раскодирован
от фреи вывод сообшений на экран
правда не мной нашел в инете

как пример посмотри

[SeregaZ]

зачем мне смотреть? я и так все знаю плюс у меня фреи нет

я ж объяснил уже по пальцам - добавь id и сообщение. а потом шли это самое сообщение в клиент когда нужно - оно и будет тебе всплывать в каком нужно углу. кстати звука "тудум" при откате недостаточно?

[Vetal]

Всем спасибо за подсказки. Хотелось бы поподробней насчет звука, как его воспроизводить?

[J-Fobos]

Сообщение от Vetal

Всем спасибо за подсказки. Хотелось бы поподробней насчет звука, как его воспроизводить?

http://coderx.ru/showthread.php?t=5344

[supernewbie]

Сообщение от J-Fobos

http://coderx.ru/showthread.php?t=5344

нет там решения, в теме в основном все говорят что фс и мессадж бип гавно, проще гря - надо писать плагин

procedure Play(Path:string); - ей проигрывать

[SeregaZ]

надо мне посидеть и вспомнить в каком файле звуковое сопровождение имеется тебе просто нужно будет сопоставить id сообщения с каким либо звуком в игре. в каком-то файла все это прописано... надо вспомнить только в каком

[Vetal]

Сообщение от SeregaZ

надо мне посидеть и вспомнить в каком файле звуковое сопровождение имеется тебе просто нужно будет сопоставить id сообщения с каким либо звуком в игре. в каком-то файла все это прописано... надо вспомнить только в каком

ммм, точно это вроде прописано все в том же systemmsg-e, с сообщением я разобрался, сообщение выводится где я захочу, в файле systemmsg-e добавил новое сообщение, присвоил ему свой айди, и вызываю его когда мне надо. Вот теперь новый вопрос , а если в это сообщение мне надо передать какой то параметр, как это реализовать?

[Breadfan]

опаздываю с ответом, но тем не менее:

вот делал скрипт на контроль откатов (хроники - вроде фрея):

Оффтоп

const
name='Aola';
var
    TimeUse, Skills                 :   TstringList;
    MyOID, rtime, i, from_, count_  :   integer;
    Msc                             :   Ttimer;
    skillId_                        :   string;
procedure Say2(msg:string);
begin
    buf:=#$4A; WriteD(0); WriteD(2); WriteS('SysInfo: '); WriteS(msg);
    SendToClientEx(name);
end;
procedure Init; //Вызывается при включении скрипта
begin
    Skills:=TstringList.Create;
    try
        Skills.LoadFromFile('settings\SkillsIdEng.ini');
    except
        Sendmsg('skillId.ini not found!');
        exit;
    end;
    TimeUse:=TStringList.Create;buf:=#$56;WriteD(0);WriteD(0);WriteC(0);
    SendToServerEx(name); MyOID:=0; Msc:=TTimer.Create(nil);
    Msc.OnTimer:=@Tick; Msc.enabled:=true; Msc.interval:=100; TimeUse:=TstringList.Create;
end;
Procedure Tick;
begin
    for i:=0 to TimeUse.Count-1 do begin
        from_:=pos('=',TimeUse[i])+1; count_:=Length(TimeUse[i])-from_+1;
        skillId_:=(copy(TimeUse[i],1,from_-2)); rtime:=strtoint(copy(TimeUse[i],from_,count_));
        if (rtime>100) then begin 
            rtime:=rtime-100;
            TimeUse.Values[skillId_]:=inttostr(rtime);
        end;
            If (TimeUse.Count<=0) then begin
            Sendmsg('Timer off'); Msc.enabled:=false;
        end;
    end;
end;
procedure Free; //Вызывается при выключении скрипта
begin
    Msc.enabled:=false; Msc.free; TimeUse.free;Skills.free;
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
    If fromserver then begin
        case (pck[1]) of
            #$29: begin
                if (MyOID=0) then begin MyOID:=ReadD(2); buf:=#$56;WriteD(0);WriteD(0);WriteC(0); SendToServerEx(name);
                end;
            end;
            #$48: begin
                Msc.enabled:=false;
                    if (ReadD(2)=MyOID) then begin
                        if ((readd(18))>(readd(22))) then begin rtime:=readd(18); end else begin rtime:=readd(22); end;
                        if (ReadD($0A)<2150)or(ReadD($0A)>2164)then begin
                            Say2('Use: '+Skills.Values[inttostr(ReadD($0A))]);
                            TimeUse.Values[inttostr(ReadD(10))]:=inttostr(rtime);
                        end;
                        if Not(Msc.enabled) then Msc.enabled:=true;
                    end;
               end;
        end;
    end;
    If fromclient and (connectname=name) then begin
          if (pck[1]=#$39) then begin
                if ((TimeUse.Values[inttostr(ReadD(2))])<>'') then begin
                    if (strtoint(TimeUse.Values[inttostr(ReadD(2))])>200)then begin 
                        rtime:=strtoint(TimeUse.Values[inttostr(ReadD(2))]);
                        Say2(Skills.Values[inttostr(ReadD(2))]+' is not ready, wait '+inttostr(round(rtime/1000))+' seconds');
                        pck:='';
                    end;
                end;
        end;
    end;
end.

[SeregaZ]

через $s1 - она будет определятся как переменная. только теперь вопрос как её передавать надо посмотреть аналогичные системы с переменной. например смотри ту же атаку.
в тексте чата пишется ведь:
игрок нанес столько-то урона.
тут даже две переменные. нужно посмотреть каким образом она шлется и таким же макаром послать своему id эту переменную

так! насчет двух переменных - или я тупой или лыжи не едут. суть в чем: для него не существует номера переменной - он понимает как идущая первая, потом идущая вторая. то есть:
петя нанес 500 повреждений
$s1 нанес $s2 повреждений
предположим мне надо изменить это сообщение на:
500 повреждений нанесено петя ("петей" конечно правильно, но линейка склонять имена не умеет )
$s2 повреждений нанесено $s1
но эта конструкция работать не будет он все равно как видит первый значек $s - то присваивает ему первое значение, как видит второй $s присваивает ему второе значение. получится так:
петя повреждений нанесено 500
то есть поменять их местами не получится. по крайней мере у меня не получилось

[Breadfan]

не совсем верно. будет "$s нанес $n повреждений".
Хотя проще распаковать мсг файл и там гянуть, то могу и врать.
И, вдобавок, на разных серверах (я о фришках) - по разному передают, сталкивался что передавали ИД мобов, и думал что так и надо, а потом встретил что вместо ИД текстом передают его имя