SRL Archive - First Scripts

Hello im Craig-
Im making my copywrited program 'Six.Feet.Under

And it is a simple program that picks up bones in sight and then when your inv. is full it drops them. all i need help with is where i can learn to put loops and other needed things in ;)

replie pls

Craig-

{ Six.Feet.Under By Craig- }

program SixFeetUnder;

var
  Bone: integer;

procedure LoadBitmap;
begin
 Bone := BitmapFromString(33, 26, 'beNpjYBgFQxkwghENzV+/eHFF' +
       'QT6SLVS3jnH3hg3ttTUwkxnnTJxIPVsg4cN4eNfOad1dcPbahQvhU' +
       'hQafu3ihZMHD+7etAkYUH0tLZmJiUDBy2fP7t28eemsmRPa2lBDj1' +
       'gHQ9CR3bu3rVm9aNq06b09E9vbgeYjuxnoi7rS0rSEuAAvT6KtYLx' +
       '97drZY8f2bd26av68KZ2dDeXlNcXFTZWVGAHCeGD7tuzkZLICChQC' +
       'wKDIz8goy8uFaD+2bx9qsDPevHwZ6CkKooARydkg7t2bN08cOLBh6' +
       'VKg74B+BPp007JlkBjBjQhYMbO/DzlMgObvXL9u3uTJW1etBProzN' +
       'EjwADsqK8DRhAwuoGCwNR14eRJoEuAaqqKComLGhQFQDcvmDq1p7k' +
       'J6DugCcDYB3oByOhqbAA6Zvmc2ZtXrAB6cMmM6ajeJydfABHQKGA0' +
       'YQ0cYBoG5pqk6GgKswkwmeE2gRGYd3S1tSnxBTDEYsLC8JpAZihdO' +
       'nPm/Injpw4fbq2uplFJe/HUKWA2nz1hgqeLCy0Lc1BmCfXzo6kVwC' +
       'QaFxFB6yqJxuaPYAAARpLJBw==');
end;

procedure FreeBitmaps;
begin
  FreeBitmap(Bone);
end;

procedure FBitmap;
var
  x, y :integer;
begin
  if FindBitmapToleranceIn(Bone, x, y, 560, 214, 734, 457, 45) then
  begin
    WriteLn('Bitmap found! x: '+IntToStr(x)+', y: '+IntToStr(y));
  end;
end;

begin
  LoadBitmap;
  FBitmap;
  FreeBitmaps;
end.

From: Craig-


picks up bones in sight and then when your inv. is full it drops them.

Craig-

don't you mean bury them? if it dropped it, it would be a pointless script. also post the script witht he thread, if you don't the thread is pointless.

Heres a simple loop.

Repeat
FindcolorSpiral(x,y,329746,5,5,515,340)
Mouse(x,y,1,1,true)
Wait(3400)
a:=a+1
Until(a=NumberofRepeats)

If you use that you have to add

Var x,y,a : Integer;

-Edited-
Srry, wrong thread ;l

Why2u stop spamming you did that to get 10 posts. and i mean bury btw sebo… like i kinda know what to add in just not where… lol

And iv changed the name knows its Six.Feet.Under

also ©-ed

From: Why2u
-Edited-
Srry, wrong thread ;l

Funny how it doesn't say edit on your post?

can some1 help and stop spamming?

works ok but when there r no bones iot turns off