мда...
Добавлено через 13 минут
скрипт управляющий плагином...
delphi Код:
procedure init;
begin
end;
procedure free;
begin
end;
procedure SendCommand(command:integer);
begin
WinampCommand(command);
pck := '';
end;
var
ChatCommand : string;
begin
if FromClient and (pck[1] = #$38) then
begin
ChatCommand := lowercase(reads(2));
if ChatCommand = '/next' then SendCommand(440048); //next
if ChatCommand = '/prev' then SendCommand(440044); //prev
if ChatCommand = '/play' then SendCommand(440045); //play
if ChatCommand = '/pause' then SendCommand(440046);//pause
end;
end.
__________________
L2Ext - project closed.
Последний раз редактировалось alexteam, 07.08.2009 в 20:39.
Причина: Добавлено сообщение
|