Script is compiling, nothing is happening

Simba Code:

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.

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

Just on my web browser for now ^_^

You have to include your procedures in your main loop

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

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

Simba Code:

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?

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.

Quote:

---

Originally Posted by 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.

---

is this a joke? :P