var s:string;
begin
s:='!';
while true do begin
Engine.Say(' ПРОДАМ ДУШУ ДЬЯВОЛУ НЕДОРОГО',1,s);
delay(10000); //ждём 10 секунд и спамим заново
end;
end.
Взято с TopHope
Чтобы изменить чат, в который отправлять сообщения, требуется изменить 2 параметр функции Engine.Say. То есть если 1 - это шаут, то 8 - трейд.
http://rawr.su/topic/126-spam-v-chat/#entry382
begin
s:='!';
while true do begin
Engine.Say(' ПРОДАМ ДУШУ ДЬЯВОЛУ НЕДОРОГО',1,s);
delay(10000); //ждём 10 секунд и спамим заново
end;
end.
Взято с TopHope
Чтобы изменить чат, в который отправлять сообщения, требуется изменить 2 параметр функции Engine.Say. То есть если 1 - это шаут, то 8 - трейд.
http://rawr.su/topic/126-spam-v-chat/#entry382