Results 1 to 4 of 4

Thread: Need someone to add SMART Capability to AutoTyper

  1. #1
    Join Date
    Apr 2007
    Location
    Behind you...I see your reading my Location. Don't turn around...
    Posts
    119
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need someone to add SMART Capability to AutoTyper

    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/showthr...ight=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.

  2. #2
    Join Date
    Jan 2009
    Location
    Turlock/LA, California
    Posts
    1,494
    Mentioned
    3 Post(s)
    Quoted
    66 Post(s)

    Default

    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)

  3. #3
    Join Date
    Dec 2007
    Posts
    2,112
    Mentioned
    71 Post(s)
    Quoted
    580 Post(s)

    Default

    SCAR Code:
    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...

  4. #4
    Join Date
    Oct 2007
    Location
    brooklyn, new york
    Posts
    258
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    pure and simple

    SCAR Code:
    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.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •