SRL Archive - First Scripts

This, being my first program, probably won't run, but it's an attempt. As a sort of signature, I like to include a little but of humor within the program, but it won't affect the script itself.

The focus of this is to bury bones in your inv, then give a progress report stating how many you have buried and then total exp gained.

Not bad. Simple and to the point. You have the general understanding, keep it up ;)

~Camo

awesome script man

Program TheBoner;
//Wroted by Theo :/
{.include SRL\SRL.scar}

Var
 BonesDTM, x, y, BonesBuried, Exp: Integer;

Procedure Burying;//Can't imagine what this does...
begin
repeat
 BonesDTM:= DTMFromString('78DA63E4606460C86040017BB7EF649004D24' +
       '01986FF40C0C80B6425A1AA6186D28C309A15C8CA4755535D948D' +
       'AA4608C8CA4455C38ACD9C7454356B972F4755F31748A4A2AA397' +
       'DEC10AA1A364C376FDDB006450D008F35121A');
 If FindDTM(BonesDTM, x,y,MIX1,MIY1,MIX2,MIY2) then
 begin
  Mouse(x,y,2,2,True);
  BonesBuried:=BonesBuried+1;
  Wait(500+random(100));
 end;
 until(BonesBuried=28);
 Freedtm(BonesDTM);
end;

Procedure Progress;
begin
 Writeln('Gratz for not getting banned.');
 Writeln('You have buried ' + IntToStr(BonesBuried) + 'bones.');
 Exp:=BonesBuried*2/9;
 Writeln('You have gained a total of' + IntToStr(Exp) + 'experience');
 Writeln('Tell all, you might be cool now.');
end;


begin
 SetupSRL;
 ClearDebug;
 BonesBuried:= 0;
 Burying;
 Progress;
end.

hope you can see what I changed.. didn't fix standards.. read a tut on that :p

looks nice for your first :D

can't believe you used DTMs =X

I should post my first script if pplz fix for me…

[OFFTOPIC]

From: 99_

hope you can see what I changed..

first, this is not a bingo game… he's completely new here so try to help him… :duh:

[/OFFTOPIC]




well…

setupsrl;

you have to make that at mainloop

Procedure Burying
repeat
Begin

first you have to call the begin then the repeat.

//Can't imagine what this does...

also DTM means : Dormed Template mesh.
DTM’s are useful for item finding.




oh and i fixed your standards :

Program TheBoner;
//Wroted by Theo :/
{.include SRL\SRL.scar}

Var
  BonesDTM, x, y, BonesBuried, Exp: Integer;

Procedure Burying;//Can't imagine what this does...
begin
  repeat
    BonesDTM:= DTMFromString('78DA63E4606460C86040017BB7EF649004D24' +
          '01986FF40C0C80B6425A1AA6186D28C309A15C8CA4755535D948D' +
          'AA4608C8CA4455C38ACD9C7454356B972F4755F31748A4A2AA397' +
          'DEC10AA1A364C376FDDB006450D008F35121A');
    If FindDTM(BonesDTM, x,y,MIX1,MIY1,MIX2,MIY2) then
    begin
      Mouse(x,y,2,2,True);
      BonesBuried:=BonesBuried+1;
      Wait(500+random(100));
    end;
  until(BonesBuried=28);
 Freedtm(BonesDTM);
end;

Procedure Progress;
begin
  Writeln('Gratz for not getting banned.');
  Writeln('You have buried ' + IntToStr(BonesBuried) + 'bones.');
  Exp:=BonesBuried*2/9;
  Writeln('You have gained a total of' + IntToStr(Exp) + 'experience');
  Writeln('Tell all, you might be cool now.');
end;


begin
  SetupSRL;
  ClearDebug;
  BonesBuried:= 0;
  Burying;
  Progress;
end.

the rest looks okey, btw if you still need help with something just add me : [email]Tickyy_@msn.com[/email]

A littel buggy but does the job

lol, the "Can't imagine what this does…" was to just make fun of how procedure names always are named after the function, but thanks for taking the time to add that extra part.

Thanks to all that provided the help(especially those that have made tutorials, I spent hours reading + rereading them). I guess that my plans for this program will be to include a more detailed porgress report, ability to bury more then plain ol' bones, and then some anti-bans.

sorry tickyy, I had to go and didn't have time :(

From: Tickyy

//Can't imagine what this does...

also DTM means : Dormed Template mesh.
DTM’s are useful for item finding.

are you sure? I thought it was "Deformed Template Model".

but goodjob at a first attempt, but you should add more ways of burying bones for less dectability ;). and prayer scripts usually suck because you get way to many randoms with burying bones unfortunately.

ill test it for ya