Hey, I flowed your intrutions but I'm getting error(s).
First of all here is the script. I am not done, Still working on fixing the scipt first, Then Fin
Simba Code:
//HsMMDTM = High Stairs Mini Map
//HSMSDTM = High Stairs Main Screen
//DoorDTM = AutoMating Closing Door
//WheelDTM = Wheel Spinner
//LSMMDTM = Low Stairs Mini Map
//LSMSDTM = Low Stairs Main Screen
program FlaxSpinner;
{$DEFINE SMART8}
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
{$I SRL/srl/misc/SmartGraphics.simba}
Var
x, y, bankcol: Integer;
HsMMDTM, HSMSDTM, DoorDTM, WheelDTM, LSMMDTM, LSMSDTM: Integer;
procedure bank; //Taken From [url]http://villavu.com/forum/showthread.php?t=97148[/url] by kiwiownage
begin
P07_MakeCameraAngleHigh;
P07_MakeCompassNorth;
bankcol:= 6194321
Writeln('Banking');
repeat
if P07_FindObj(x,y, 'Use', bankcol, 5) then
begin
ClickMouse2(mouse_right);
wait(randomrange(100,200));
P07_ChooseOptionMulti(['se-q']);
wait(randomrange(600,1000));
end;
if(P07_BankScreen) then
P07_Deposit(2,28,true);
wait(randomrange(400,700));
until(p07_InvCount <2);
MMouse(422,74,5,5);
wait(randomrange(15,50));
ClickMouse2(mouse_right);
wait(randomrange(400,600));
P07_chooseOptionMulti(['Withdraw All']);
wait(randomrange(500,800));
Mmouse(484,39,5,5);
wait(randomrange(15,100));
ClickMouse2(Mouse_Left);
end;
procedure SetupDTMs;
begin
HsMMDTM := DTMFromString('mlwAAAHicY2dgYGAGYkEg5gViLiBmYYAAViDmBGJGIGaDyvEAMTsDAnx59QmM3717h8LGBxjxYCgAADO/EUQ=');
HSMSDTM := DTMFromString('mPwEAAHic42dgYJAGYnEgFgZiXiDmBGI2BghghmIWIOYAYiUolgViGSBWBGItINYEYjUkrAg1gxlqDiMQcwMxHxQLAbGzoz1DoDknGPuYcDLYaDCAsZMOA4OpCoSGiYHURNtxMoRZQWhKACMFGA0AAEhLCfo=');
DoorDTM := DTMFromString('m5wEAAHicE2dgYBAGYjEglgZiFSBWhWIVJCwLxBJALAjEPEDMDsQsQMwMxIxomAEqLwBVzwTFnEDMBxUDmSUDxIpArAbF6PbKQ9XyAjEX1EwYANkTbiDHkOKiwpDgqMQQGSjPkB2nxtAYZ8RQ5qPKUJyqyeDvLcYQHKbKEIBEmzsqgDFILiBIhcHETo7B2FaOwdtdlCHDTQVsHgjTEqCHFzUxDgAA1XgU7w==');
WheelDTM := DTMFromString('mKgEAAHic42NgYOAEYm4gZgNiRgYIYIZikBgXEAsAsTAQiwOxGJQtBMQySBikjgOIWaF6YWYxQcVA8nxA3BLFxzAxWZChIZyPoSKIjyHajpOhJpSPIcyKk0FPgYEh0JyTwccEIjYjQxCstjtekIFcwEgmRgUA9J4McQ==');
LSMMDTM := DTMFromString('mrAAAAHic42CAAFYg5gRiHiTMDsTMQMwFVcMCFQPxeYGYD0q/e/eO4fWH73AaGYPECAFGAhgGABtMFww=');
LSMSDTM := DTMFromString('mAAEAAHic42FgYGAFYnYg5gZiPiQM4nMBMQsDBDBC2ewMCMAE1Q9SKwDEwkAsAcTiUDYPEKtJMzD4mHCiYBcHG4YER044BqmBYVIBI4kYGQAA3hQG6A==');
end;
procedure FreeTheDTMs;
begin
FreeDTM(HsMMDTM);
FreeDTM(HSMSDTM);
FreeDTM(DoorDTM);
FreeDTM(WheelDTM);
FreeDTM(LSMMDTM);
FreeDTM(LSMSDTM);
end;
procedure MoveToHS;
begin
writeln('Looking for HsMMDTM');
if findDTM(HsMMDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
writeln('Found DTM');
writeln('Moving to HighStairs');
Mmouse(x, y, 3, 3);
Mouse(x, y, 0, 0, True);
P07_MakeCompassEast;
end;
end;
begin
SetupSrl;
Setupp07Include;
ActivateClient;
Wait(RandomRange(500,2000));
repeat
bank;
wait(1000)
MoveToHS;
wait(1000);
FreeTheDTMs;
AddonTerminate('FreeTheDtms');
until(false);
end.
It complies, But I'm getting this error.
Simba Code:
Error: Exception: The given DTM Index[0] doesn't exist at line 58
The following DTMs were not freed: [1, 2, 3, 4, 5]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, SRL - NavBar Bitmap, SRL - Options Bitmap]
I'm working and studying other scipts to fix this,
--------------------------------------------------------------------------------------------------------------------------
My DTMs are not being found, here is the procedure
Simba Code:
procedure MoveToHS;
begin
writeln('Looking for HsMMDTM');
if findDTM(HsMMDTM, x, y, MMX1, MMY1, MMX2, MMY2) then
begin
writeln('Found DTM');
writeln('Moving to HighStairs');
Mmouse(x, y, 3, 3);
Mouse(x, y, 0, 0, True);
P07_MakeCompassEast;
end;
end;