program tradespam;


//notes
//hit the + key on your numberpad to change the text that is being repeated


const
  CHANNELS = 15; //set this to the number of trade channels you want it to spam, it starts at /trade 1


var
  x:integer;
  _text:string;



procedure loaddtms;
  begin

  end;


procedure paster;
  var
    x,y :Integer;

  begin
    wait(1325);

    presskey(13);
    wait(50);
    presskey(38);
    wait(25);
    presskey(38);
    wait(25);
    presskey(13);
    wait(1325);
  end;


procedure spammer;

begin


  while x < CHANNELS do
  begin

    presskey(13);
    wait(50);
    sendkeys('/trade ' + tostr(x),1,1);
    wait(50);
    presskey(13);
    wait(50);

    paster;
    x := x + 1;

    if iskeydown(116) then
    begin
    while not iskeydown(116) do
    begin
    sleep(250);
    end;
    end;


  end;
end;



procedure script;
  begin
  repeat
  spammer;
  sleep(500);
  until x := CHANNELS;
  x := 1;
  end;

begin
  x := 1;
  loaddtms;
  //inputquery('tj loves','horsecock',_text);
  //setclipboard(_text);
  ActivateClient;

  repeat
  script;
  until false;



end.