Кружок нубов(Вопрос-Ответ)

[Yegor]

TAMBIK, вот написал:

function MsekToString(msek: integer): string;
var
  min, sek: string;
begin
  msek:= msek div 1000;
  min:= IntToStr(msek div 60);
  sek:= IntToStr(msek mod 60);
  if Length(min) = 1 then min:= '0' + min;
  if Length(sek) = 1 then sek:= '0' + sek;
  Result:= min + 'мин ' + sek + 'сек';
end;

[TAMBIK]

А как вместе соединить ?????????????????

[pascalpwnz]

Такой вопрос:
Как реализовать оповещение пользователя? Ну например через проигрывание звука как в валкере.
В мануале нашел "procedure ShowMessage(Msg: Variant);", но оно не очень подходит.

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

А как вместе соединить ?????????????????

Странный вопрос... очевидно, что воспользоваться входным значением.

[Yegor]

pascalpwnz, есть такая Api функция
sndPlaySound('полный путь к аудио файлу', SND_ASYNC);

Будет ли работать в фастскрипте незнаю, попробуй.

[pascalpwnz]

Увы, не компилится. Вопрос актуален.

[alexteam]

сунуть ее ев плагин.
в плагинах сломаны функции readX но расширение функций движка работает.

[TAMBIK]

в пакете запоминается mytext если вначале пишу 01
во

49   30 00 31 00 00 00        00 00 00 00

//Tип: 0x49 (Say2)
begin
  if FromClient and (pck[1]=#$49)and (pck[4]=#$31) then begin
      i:=2;
// КАК убрать из mytext это 30 00 31 00 00 00 
      mytext:=ReadS(i); 
// или дальше
// что делать чтоб в NpcId небыло чифры 1
      NpcId:=StrToInt(mytext);

ПОМОГИТЕ

[Yegor]

TAMBIK, конкретнее сформулируй в чем проблема? Что ты хочешь получить в NpcId ? ты из клиента какое то число шлешь для скрипта?

[TAMBIK]

//Tип: 0x49 (Say2)
begin
  if FromClient and (pck[1]=#$49)and (pck[4]=#$31) then begin
      i:=2;
// КАК убрать из mytext это 30 00 31 00 00 00 
      mytext:=ReadS(i); 
// или дальше
// что делать чтоб в NpcId небыло чифры 1
      NpcId:=StrToInt(mytext);

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

TAMBIK, конкретнее сформулируй в чем проблема? Что ты хочешь получить в NpcId ? ты из клиента какое то число шлешь для скрипта?

ДА. пишу я 01 и далее еще число которое мне нужно.
надо чтобы в mytext не было числа 01
как то его пропустить а далее число уже преобразовать.
или здесь NpcId чтоб не было
тоесть запомнить с определеного места пакет .

[Yegor]

TAMBIK, тю зачем такие заморочки, читаешь из пакета весь mytext, потом просто делаешь например так:

mytext:= Copy(mytext, 3, length(mytext) - 2);

И все.