SRL Archive - First Scripts

Alright well its a very small script
my very first so dont expect much lol
I havnt figured out how to do much yet, this checks for ur tinderbox in ur invent and logs :)

So alright this isnt like a thing to go afk with and this script needs a lot of refining I hope to get helped some more suggestions and stuff are welcome, and tips would be great.

Credits go to:
1) bobbohobbo for the mouse coordinates in his woodcutting + firemaking script
2) GumLeren because he helped me.

Alright here it comes:

program BurningDesire;
{.include SRL\SRL.scar}

Var
Burned, LogDTM, TinderDTM, x, y: Integer;

Procedure FindTinder;

begin

TinderDTM := DTMFromString('78DA6314636060106140014B66CE00D38C503' +
       'EA30090E06640038CA86A6481840C01358A408283801A5E20214B' +
       '400D3BA69B31D4A8000961FC6A004EF6030D');
begin
if FindDTM(TinderDTM,x, y, 553, 209, 725, 457) then  //Searches thru whole inventory
begin
Mouse(x, y, 1, 1, True);     // click on tinderbox
WriteLn('Tinderbox found!'); // report tinderbox found!
Flag;
FreeDTM(TinderDTM)
end;
end;
end;

Procedure FindLog;
Begin
LogDTM := DTMFromString('78DA637CC6CCC0708A91011984F9CA333C04D' +
    '220D1FF40C0780FA8E630AA1A882C8C04D22F8850F311A8E62001' +
    '35DF806ACE1350F31AA8E62A01354F806AAE13507317A8E60A013' +
    '537816A4EE357030026DF1521');
begin
if FindDTM(LogDTM,x, y, 553, 209, 725, 457) then  //Searches thru whole inventory
begin
Mouse(x, y, 1, 1, True);     // click on log
WriteLn('log found!'); // report log found!
Flag;
FreeDTM(LogDTM);

end;
end;

end;

begin
repeat
     wait(800)
     Burned:=0
     SetupSrl;
     wait(800)
     FindTinder;
     wait(400)
     FindLog;
     Burned:=Burned+1
     wait(700)
until (burned>28)
end.

And pleaaaase tips and suggestions (Explained please :p) are really apreciated I wanna learn this :p

good try :D get antiban/antirandoms

fix your standards

From: p1nky
good try :D get antiban/antirandoms

fix your standards

Thank you for your responce :p
But what do u mean with fix your standards can you explain how ^^
Im a noob =P

From: fobossss
Thank you for your responce :p
But what do u mean with fix your standards can you explain how ^^
Im a noob =P

http://www.wiki.srl-forums.com/index.php/Scripting_Standards

EDIT: also noticed some extra begins and ends in there, should be able to clean those up when you fix the standards;)

From: munk
http://www.wiki.srl-forums.com/index.php/Scripting_Standards

EDIT: also noticed some extra begins and ends in there, should be able to clean those up when you fix the standards;)

Thank you very much!