SRL Archive - RS3 Outdated / Broken Scripts

Hey guys, I need a simple fix to an autotyping script.
I need it to be able to use smart. I had problems trying it myself, because on a tutorial it said that the script has to have SetupSRL; but this one didn't (I was supposed to add the SmartSetupEx after it…etc etc..)
The script is Phantom1's and is located at http://www.villavu.com/forum/showthread.php?t=42968&highlight=autotyper
(I asked for permission if someone could modify the script, if that matters)
If you're asking why I need the script to be in SMART, then my answer is because I will be running two runescape screens at the same time and autotyping on them both.
Thanks guys. I'm hoping this is VERY simple. :sasmokin:

ok add:

{.include SRL/SRL/misc/SMART.scar}
{.include SRL/SRL.scar}

after

program AutoTyper;

then add

setupsrl;
SMARTSetupEx(134, false, true, false);
wait(5000);
SetTargetDC(SMARTGetDC);
repeat
wait(100);
until(SmartGetColor(253, 233)<>1118604);
ActivateClient;

before

repeat
TypeSnd(Write);
until (False);

then change the two procedure names slightly. (eg. typebite -> typebte)

Program AutoTyper;
{.include SRL/SRL/Misc/SMART.SCAR}
{.include SRL/SRL.scar}

Var
  Msgs : TStringArray;
  SMARTWORLD : Integer;

Procedure DeclarePlayers;
Begin
  CurrentPlayer := 0;
  HowManyPlayers  := 1;
  NumberOfPlayers( HowManyPlayers );
  
  Msgs := ['', '', ''];   //messages
  SMARTWORLD := 106;   //world
  
  Players[0].Name        := '';
  Players[0].Pass        := '';
  Players[0].Nick        := '';
  Players[0].Integers[0] := 106; //smart world?
  Players[0].Active      := True;
End;

Function TypeThis : String;
Begin
  Repeat
    Result := Msgs[Random(3)];
  Until(Not Result = '');
End;

Begin
  SetupSRL;
  SMARTSetupEx(SMARTWORLD, False, False, False);
  Wait(1000);
  SetTargetDC(SmartGetDC);
  Repeat
    Wait(100);
  Until(SmartGetColor(253, 233)<>1118604);
  DeclarePlayers;
  LoginPlayer;
  Wait(2500+Random(2500));
  Repeat
    TypeSend(+TypeThis);
    FindNormalRandoms;
  Until(False);
End.

erm not sure if it works…

pure and simple

program AutoTyper;
{.include srl/srl/misc/smart.scar}
const
  write = 'type your message here'; // Type your message here
  speed = 300; // Break between messages (milliseconds 1000 = 1 second)

procedure TypeByte(k: Byte);
begin
  KeyDown(k);
  Wait(10 + Random(50));
  KeyUp(k);
end;

procedure TypeSend(Text: string);
var
  S: string;
  I: Integer;
  C: Byte;
  Shift: Boolean;
begin
  S:= 'ABCDEFGHIJKLMNOPQRSTUVWXZ' + '~!@#$%^&*()_+{}|:"<>?';
  for I:= 1 to Length(Text) do
  begin
    Shift:= (Pos(Text[i], S) > 0);
    if(Shift)then
    begin
      KeyDown(VK_SHIFT) Wait(40 + Random(40));
      while(Pos(Text[i], S) > 0)and(I <= Length(Text))do
      begin
        C := GetKeyCode(StrGet(Text, I));
        TypeByte(c);
        I:= I + 1;
        if(I > Length(Text))then Break;
      end;
    end;
    if(Shift)then
      KeyUp(VK_SHIFT);
    Wait(40 + Random(40));
    if(I <= Length(Text))then
    begin
      C:= GetKeyCode(StrGet(Text, I));
      TypeByte(C);
      Wait(40 + Random(40));
    end;
  end;
  C := GetKeyCode(Chr(13));
  TypeByte(C);
end;

begin
  SmartsetupEX(74, false, true, false);
  SetTargetDC(SmartGetDC);
  activateclient;
  repeat
    TypeSend(Write);
  until (False);
end.