program iSpammer;
{$define smart}
{$i srl-6/srl.simba}
{$define debug_on}
///////////////////////////////////
///////////////////////////////////
/////// Start Setup ///////Start setting up the script here. Refer to the comments if you don't know what you're doing.
///////////////////////////////////
///////////////////////////////////
const
(* player info *)
playerName = ['']; //Put your player's name (or nickname, if you set one) here.
playerFile = 'default'; //Put your playerfile's name here. Default is 'default'.
desiredWorld = -1; //Enter your desired world number here. 0 for random, -1 for play button.
(* globals *)
message = 'Testing, testing! One, two, three! Is this thing on?'; //What do you want to say?
///////////////////////////////////
///////////////////////////////////
/////// Stop Setup ///////Don't modify the script ANY FURTHER unless you know what you're doing. You could break stuff!
///////////////////////////////////
///////////////////////////////////
procedure initScript();
var
i:integer;
begin
clearDebug();
addOnTerminate('stop');
smartEnableDrawing := true;
smartShowConsole := false;
smartPlugins := ['opengl32.dll', 'd3d9.dll'];
writeLn('Spawning SMART client...');
setupSrl();
disableSrlDebug := true;
players.setup(playerName, playerFile);
currentPlayer := 0;
for i := 0 to high(players) do
begin
players[i].world := desiredWorld;
players[i].isActive := true;
writeLn('Logging in...');
end;
begin
if (not players[currentPlayer].login()) then
exit;
writeLn('Just logged in, waiting a bit...');
wait(randomRange(5000, 7000));
exitTreasure();
writeLn('Setup complete - player is logged in.');
end;
end;
procedure initPlayer();
begin
writeLn('Setting camera.');
minimap.clickCompass();
minimap.setAngle(MS_ANGLE_HIGH);
writeLn('Setting run.');
if not (minimap.isRunEnabled()) then
minimap.toggleRun(true);
writeLn('Setting gametab.');
if (not gameTabs.isTabActive(TAB_BACKPACK)) then
gameTabs.openTab(TAB_BACKPACK);
end;
procedure stop(); //hammer time
begin
writeLn('*** Terminating script ***');
if isLoggedIn() then
writeLn('Logging out');
players[currentPlayer].logout();
writeLn('Freeing BMPs');
try
except
writeLn('Exception: Not freeing BMPs');
end;
writeLn('Freeing DTMs');
try
except
writeLn('Exception: Not freeing DTMs');
end;
writeLn('*** Terminated script ***');
end;
procedure mainLoop();
begin
typeSend(message);
wait(randomRange(5000,7000));
end;
begin
initScript();
initPlayer();
while (players.getActive() > 0) do mainLoop();
end.