Hey guys this is my first ever script so don't laugh :P Its a simple auto talker with nice little waits and stuff. Its pretty good IMO for my first one. I use it to sell stuff with in banks and crap. Well umm please critique me on it =]
BTW its set up for smart =]
SCAR Code:
{______________________________________
/ Cheese's TalkSmart \
|--------------------------------------|
|Author: The[Cheese] |
| |
|SRL Version: 415 |
| |
|Description: My First Script! Talk |
| smart with my talker! Random |
| timing makes it much harder to |
| detect! |
| |
|Usage: Fill out the constants, then |
| go! Its S.M.A.R.T. ready! F2 to |
| stop the script. |
\______________________________________/
}
program TalkSmart;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/srl.scar}
const
line1='Hello guys! Im fat!'; //First line of text that will be displayed.
line2='I like cheese!'; //Second line of text that will be displayed. If you want only one,
//then make both lines the same thing.
SmartWorld = 35; // World that S.M.A.R.T. should load.
Signed = true; // Load signed or unsigned?
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :=''; //Name
Players[0].Pass :=''; //Pass
Players[0].Nick :=''; //Nickname 3 - 4 Letter's of character's name.
Players[0].Active :=true; //Dont change this!
end;
procedure TalkSmartly;
begin
TypeSend(line1);
wait(100 + Random(1000));
TypeSend(line2);
wait(100 + Random(1000));
end;
procedure SetupSmart;
begin
SmartSetupEx(SmartWorld, false, Signed);
ClearDebug;
WriteLn('Setting up Smart... Please Hold...');
Wait(10000 + random(5000));
SetTargetDC(SmartGetDC);
While not(SmartReady) do Wait(100);
end;
begin
SetupSRL;
SetupSmart;
DeclarePlayers;
LoginPlayer;
wait(6000);
repeat
TalkSmartly;
until(isFKeyDown(2));
end.
EDIT: Attached a smaller, S.M.A.R.T. free version =]