{
++++++++++++++++++++++++++++++++++++++++++++++++++ +
+ 6 Stair Auto Talker +
+ By:sk8terbitu +
+ +
+ This script uses scar! +
+ Please post proggies and Errors +
++++++++++++++++++++++++++++++++++++++++++++++++++ +
}
// setup
// setup what you want to say
// give me some pointers on how to improve
program StairTalker;
{.include SRL/SRL/misc/Smart.scar}
{.include SRL/SRL.scar}
const
talk1='type what you want to say here';
procedure declareplayers;
begin
HowManyPlayers := 1; //don't change unless you know what you're doing
CurrentPlayer := 0;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := ''; //Runescape acc. name
Players[0].Pass := ''; //Runescape acc. pass
Players[0].Nick := ''; //Nickname - 3 or 4 letters from the middle of your R.S. name
Players[0].Active := True; // Set to false if you don't want to use this player
end;
procedure AntiRandom;
begin
FindNormalRandoms;
end;
procedure Talk;
begin
wait(1000)
SendKeys(talk1);
end;
begin
repeat
Talk;
until(false)
end;
begin
SmartSetupEx(141, False, True); //substitute 141 with the world you want
While Not SmartReady Do Wait(100);
SetTargetDC(SmartGetDC);
SetupSRL;
ActivateClient;
DeclarePlayers;
end.