- Рег
- 15 Сен 2015
- Сообщения
- 30
- Реакции
- 0
Помогите.
Суть скрипта;
Меня берут в таргет->проигрывается звук и пишется в клан чат (<--те че надо!!!)
Вопрос ; как сделать так что бы скрипт писал в клан чат или в любой другой ник кто меня взял в таргет к примеру (Ner0<--те че надо!!!)
uses SysUtils, Classes;
var
charT: tl2live;
num: integer;
obj: tl2effect;
s:string;
begin
s:='!';
while engine.status = lsonline do begin
for num:=0 to CharList.Count - 1 do
if (CharList.Items(num).Target=User) and not(CharList.Items(num).Dead) then begin
Engine.Say('<--те че надо!!!',4,s);
PlaySound(exepath + '\sounds\' + 'gm' + '.wav', False);
Delay(5000);
StopSound;
end;
end;
end.
Суть скрипта;
Меня берут в таргет->проигрывается звук и пишется в клан чат (<--те че надо!!!)
Вопрос ; как сделать так что бы скрипт писал в клан чат или в любой другой ник кто меня взял в таргет к примеру (Ner0<--те че надо!!!)
uses SysUtils, Classes;
var
charT: tl2live;
num: integer;
obj: tl2effect;
s:string;
begin
s:='!';
while engine.status = lsonline do begin
for num:=0 to CharList.Count - 1 do
if (CharList.Items(num).Target=User) and not(CharList.Items(num).Dead) then begin
Engine.Say('<--те че надо!!!',4,s);
PlaySound(exepath + '\sounds\' + 'gm' + '.wav', False);
Delay(5000);
StopSound;
end;
end;
end.