SRL Archive - Non-RuneScape Scripts

program SpamTeenChat;


 {$DEFINE SMART}
{$I SRL/SRL.Simba}
{$I SPS/SPS.Simba}
{$IFDEF SIMBAMAJOR980}
 {$ENDIF}
var
times: integer;

begin
  repeat
    TypeSendEx('/gift karma @entering1', true);
    Times := Times + 1;
  until(Times = 10);



end.
                    

The problem is. I want it to type like. Faster you know.

Or..

Can i do CTRL + V Enter? .. that would be faster.. i guess. =\ hmm how to do CTRL.. -.-

program ChatGifter;


 {$DEFINE SMART}
{$I SRL/SRL.Simba}
{$I SPS/SPS.Simba}
{$IFDEF SIMBAMAJOR980}
 {$ENDIF}
var
times: integer;

begin
  repeat
    TypeSendEx('/gift karma @entering1', true);
    Times := Times + 1;
  until(Times = 10);



end.
                    

The problem is that it types to slowly.. It needs to be doing it in a second.. and pressing enter.

Or..

Can i do CTRL + V Enter? .. that would be faster.. i guess. =\ hmm how to do CTRL.. -.-


its also not hitting enter :(

Use SendKeys, set wait to 0. Instant.

You could edit TypeSendEx (visible/found in the SRL include), to have little/smaller to no wait after each line is sent. Hence faster. Here's something that could happen;

// Modified TypeSendEx procedure...
procedure TypeSendExFast(Text: string; PressEnter: Boolean);
var
  I: Integer;
begin
  for i := 1 to Length(Text) do
  begin
    {$IFDEF SIMBAMAJOR980}
    SendKeys(Text[i], 1);
    {$ELSE}
    SendKeys(Text[i], 1, 1);
    {$ENDIF}
    Wait(1);
  end;

  if (PressEnter) then
    TypeByte(VK_RETURN);
end;

arg why won't it press enter..

tried adding presskey(13) which is enteR?.. but it wont =\

edit: fixed

Thanks guys, awesome. :-)