Script is compiling, nothing is happening

[darrenhwang]

program Astralcrafter;
{$i srl/srl.simba}
var
x, y, Banker: Integer;


aFound: Extended;

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Pin := '';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];

end;

procedure SetDTM;
begin
Banker := DTMFromString('mQwAAAHicY2ZgYGBjZGBgBGJuIA4B8gOheP HcBoZJC0sZmmszGJABIxIGAgDYfgXi');
end;

procedure FrDTM;
begin

FreeDTM(Banker);
end;

procedure ClickOn(PX:Integer; Click: Boolean);
begin
if FindDTMRotated(PX, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
Mouse(x, y, 3, 3, Click);

end;
end;

procedure Bank
;begin

SetDTM;

MouseSpeed := 18;
MakeCompass('n');
ClickOn(Banker, True);
ChooseOption('Bank');
FrDTM;
End;


Var
z, v, PureEss: Integer;


begin
PureEss := DTMFromString('mlwAAAHicY2dgYOCBYlYGCJACYnGoGAgwI2 EQ4ABiPiDOTk9nSE1MZIgOD2dwc3ZmmDFpEkNlSQmDjZUVAz7A iAdDAQCy+giK');
if FindDTM(PureEss, z, v, MIX1, MIY1, MIX2, MIY2) then
Mouse(x, y, 4, 4, False);
ChooseOption('All');
FrDTM;
end.

[PatDuffy]

I assume you are not trying to use SMART? Because you are not activating/including it

[darrenhwang]

Just on my web browser for now ^_^

[RyGuy]

You have to include your procedures in your main loop

[darrenhwang]

How would I do that? Sorry, new to this whole scripting thing.

[Rezozo]

You have to call your script in your main execution section.
Also, use the window tool in simba to select your browser.

[darrenhwang]

program Astralcrafter;
{$i srl/srl.simba}
var
x, y, Banker: Integer;
z, v, PureEss: Integer;

aFound: Extended;

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Pin := '';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];

end;

procedure SetDTM;
begin
Banker := DTMFromString('mQwAAAHicY2ZgYGBjZGBgBGJuIA4B8gOheP HcBoZJC0sZmmszGJABIxIGAgDYfgXi');
end;

procedure FrDTM;
begin

FreeDTM(Banker);
end;
procedure FrDTM1;
begin
FreeDTM(PureEss);
end;

procedure ClickOn(PX:Integer; Click: Boolean);
begin
if FindDTMRotated(PX, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
Mouse(x, y, 3, 3, Click);

end;
end;

begin

ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
SetDTM;

MouseSpeed := 18;
MakeCompass('n');
ClickOn(Banker, True);.
ChooseOption('Bank');
FrDTM;
PureEss := DTMFromString('mlwAAAHicY2dgYOCBYlYGCJACYnGoGAgwI2 EQ4ABiPiDOTk9nSE1MZIgOD2dwc3ZmmDFpEkNlSQmDjZUVAz7A iAdDAQCy+giK');
if FindDTM(PureEss, z, v, MIX1, MIY1, MIX2, MIY2) then
begin Mouse(x, y, 4, 4, False);
ChooseOption('All');

end;
FrDTM1;
end.
Put everything in main loop and still not doing anything?

[smurg]

You'd probably get more help if you weren't posting in the section "Tutorials for Beginners"

Throw in some Writeln() and TerminateScripts in there randomly, that'll help.

[xtrapsp]

You'd probably get more help if you weren't posting in the section "Tutorials for Beginners"

Throw in some Writeln() and TerminateScripts in there randomly, that'll help.

is this a joke? :P