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('mQwAAAHicY2ZgYGBjZGBgBGJuIA4B8gOhePHcBoZJC0sZmmszGJABIxIGAgDYfgXi');
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('mlwAAAHicY2dgYOCBYlYGCJACYnGoGAgwI2EQ4ABiPiDOTk9nSE1MZIgOD2dwc3ZmmDFpEkNlSQmDjZUVAz7AiAdDAQCy+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('mQwAAAHicY2ZgYGBjZGBgBGJuIA4B8gOhePHcBoZJC0sZmmszGJABIxIGAgDYfgXi');
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('mlwAAAHicY2dgYOCBYlYGCJACYnGoGAgwI2EQ4ABiPiDOTk9nSE1MZIgOD2dwc3ZmmDFpEkNlSQmDjZUVAz7AiAdDAQCy+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