unit Unit1;

interface

uses
    System.Classes, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls,RegExpr, lib, IdURI, httpapp;


type
  TMyThread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure bash;
    function hi(name:string): string;
    procedure dela;
    procedure paru;
    procedure ychi;
    procedure mat;
  end;

implementation
uses  Unit3;
var r:TRegExpr;

procedure TMyThread.bash;
var b,anekdot:string;
begin
r:=TRegExpr.Create;
try
  b:=Form3.IdHttp1.Get('http://bash.im/random');
  r.InputString:=b;
  r.Expression:='<div class="text">(.*?)</div>';
  except
  showmessage('Не удалось получить цитату!');
  end;
  if r.Exec then begin
  anekdot:=r.Match[1];
  Form3.Memo1.Lines.Add(anekdot);
  end;
  try
  Form3.IdHttp1.Get('https://api.vk.com/method/messages.send?chat_id=134&message='+HttpEncode(UTF8Encode(anekdot))+'&access_token='+Form3.Edit1.Text);
  except
  showmessage('Не удалось отправить сообщение');
  end;
end;

procedure TMyThread.dela;
var a: array[0..7] of string;
i:integer;
begin
a[0]:='Лучше, чем у тебя ';
a[1]:='Норм';
a[2]:='Всё окок';
a[3]:='Хуево';
a[4]:='А у тебя?';
a[5]:='Тебе не похуй?';
randomize;
i:= 1 + Random(6);
  try
  Form3.IdHttp1.Get('https://api.vk.com/method/messages.send?chat_id=134&message='+HttpEncode(UTF8Encode(a[i]))+'&access_token='+Form3.Edit1.Text);
  except
  showmessage('Не удалось отправить сообщение');
  end;
end;

procedure TMyThread.Execute;
var s,anekdot,id,id2, userid,username:string;
begin
 r:=TRegExpr.Create;
 id2:='';
 repeat
begin
 try
 s:=Form3.IdHttp1.Get('https://api.vk.com/method/messages.get?count=1&access_token='+Form3.Edit1.Text);
 except
 showmessage('Не удалось получить сообщение!');
 end;
 r.InputString:=s;
 r.Expression:='"uid":(.*?),"read_st';
 if r.Exec then
 begin
  userid:=r.Match[1];
 end;
 userid:=Form3.IdHttp1.Get('https://api.vk.com/method/users.get?user_ids=73857562&access_token='+Form3.Edit1.Text);
 r.InputString:=userid;
 r.Expression:='"first_name":"(.*?)","last_name"';
 if r.Exec then
 begin
  username:=r.Match[1];
 end;
 r.InputString:=s;
 r.Expression:='{"mid":(.*?),"date":';
 if r.Exec then
 begin
  id:=r.Match[1];
 end;
 if(id<>id2) then
 begin
 r.Expression:='body":"(.*?)","chat_id';
 if r.Exec then begin
 if(AnsiCompareText(r.Match[1],'цитата')=0) or (AnsiCompareText(r.Match[1],'цытата')=0) then
 bash();
 if(AnsiCompareText(r.Match[1],'привет')=0) or (AnsiCompareText(r.Match[1],'ку')=0) or (AnsiCompareText(r.Match[1],'qq')=0) or (AnsiCompareText(r.Match[1],'Здравст')=0) then
  hi(username);
 if(AnsiCompareText(r.Match[1],'пары')=0) then
 paru();
  if(AnsiCompareText(r.Match[1],'учимся')=0) then
  ychi();
  if(AnsiCompareText(r.Match[1],'хуй')=0) or (AnsiCompareText(r.Match[1],'иди')=0) or(AnsiCompareText(r.Match[1],'пидор')=0) or (AnsiCompareText(r.Match[1],'пидорас')=0) then

  end;
 end;
sleep(5000);
id2:=id;
end;
 until(1>2);
end;



function TMyThread.hi(name: string): string;
var a: array[0..7] of string;
i:integer;
begin
a[0]:='Привет, '+name;
a[1]:='Ку';
a[2]:='Qq';
a[3]:='Здарова';
a[4]:='Шо хочешь?';
a[5]:='Ты по делу или просто попиздеть?';
a[6]:='Здравствуй';
randomize;
i:= 1 + Random(7);
  try
  Form3.IdHttp1.Get('https://api.vk.com/method/messages.send?chat_id=134&message='+HttpEncode(UTF8Encode(a[i]))+'&access_token='+Form3.Edit1.Text);
  except
  showmessage('Не удалось отправить сообщение');
  end;
end;

procedure TMyThread.mat;
var a: array[0..7] of string;
i:integer;
begin
a[0]:='Да пошел ты нахуй сука';
a[1]:='Ты ебанат';
a[2]:='Зашквар';
a[3]:='Хуесос';
a[4]:='Нет, ты';
a[5]:='Неудачник, агришься на бота';
a[6]:='Да по твоему аватару видно, что ты уебан';
randomize;
i:= 1 + Random(7);
  try
  Form3.IdHttp1.Get('https://api.vk.com/method/messages.send?chat_id=134&message='+HttpEncode(UTF8Encode(a[i]))+'&access_token='+Form3.Edit1.Text);
  except
  showmessage('Не удалось отправить сообщение');
  end;

end;

procedure TMyThread.paru;
begin
try
  Form3.IdHttp1.Get('https://api.vk.com/method/messages.send?chat_id=134&message='+HttpEncode(UTF8Encode('Пары на завтра глянь тут http://mk.sumdu.edu.ua/index.php/component/content/article?id=200'))+'&access_token='+Form3.Edit1.Text);
  except
  showmessage('Не удалось отправить сообщение');
  end;

end;

procedure TMyThread.ychi;
begin
try
  Form3.IdHttp1.Get('https://api.vk.com/method/messages.send?chat_id=134&message='+HttpEncode(UTF8Encode('Конечно учимся'))+'&access_token='+Form3.Edit1.Text);
  except
  showmessage('Не удалось отправить сообщение');
  end;
end;

end.