prayer AutoPrayer - Burys ANY Bones at multiple locations

[BryceTheCoder]

Please Delete. I Do not want to leave any bots that i am currently not going to ever work on, so i dont basically flood the "scripts" category. Sorry:(

Edited April 30, 2012 by BryceTheCoder

[rsutton]

well, I guess this is ok.

I Have a question though. Why do you keep changing your name bryce. this is the 4th time.

Edited February 26, 2012 by rsutton

[BryceTheCoder]

Idkk haha:/

Edited April 30, 2012 by BryceTheCoder

[shadowrecon]

Idkk makes since to have Epix for EpixBots i guess:/

 

What about ICCY? j/k

Not bad a bad script EpiX, I could see some effiecnty improvements like using a case statement for you antiban like this:

Old Method:

[scar]

if Random(3) = 0 then

begin

Mousespeed := 15;

WriteLn('Antiban: Changed Mouse Speed.');

end;

if Random(3) = 0 then

begin

Mousespeed := 16;

WriteLn('Antiban: Changed Mouse Speed.');

end;

if Random(4) = 0 then

begin

Mousespeed := 17;

WriteLn('Antiban: Changed Mouse Speed.');

end;

if Random(3) = 0 then

begin

Mousespeed := 14;

WriteLn('Antiban: Changed Mouse Speed.');

end;

[/scar]

 

My suggestion:

[scar]

Case Random(5) of

0:Mousespeed := 15;

1:Mousespeed := 16;

2:Mousespeed := 17;

3:Mousespeed := 14;

end;

[/scar]

With your old method you could of possibly if the right condition's were met changed the mouse speed 4 times in a row. This just changes the mouse speed once. if the the proper case is called. If it is random 4 or 5 then the mouse speed stays are its current speed.

Edited February 27, 2012 by shadowrecon

[BryceTheCoder]

Thank you very much shadowrecon, that is much better and will only change once instead of a possbility of changing it more than once at a time. Will use, tyvm:)

[rsutton]

UBBankDoAll would cut the code down Significantly.. and InvItemAll I be;lieve is the one in ubex, anyways here is the code for it

 

Example

 

[scar] function InvItemSingle(Options: TStringArray; WaitTimeMin,WaitTimeMax: LongInt): Boolean;

Var

Slot: Array[0..27] of TBox;

begin

for I := 0 to 27 do begin

Slot := GetItemBounds(i);

MouseBox(Slot.X1, Slot.Y1, Slot.X2, Slot.Y2, ClickRight);

ChooseOptionMultiEx(Options, ClickLeft);

WaitRR(WaitTimeMin, WaitTimeMax);

end;

end;

[/scar]

 

Using both of those should make your script be less than 100 lines probably if you put your form in a different file which I do Advise

 

 

Anyways for all the Item Functions we have go ahead and look in our Items .scar file in UBeX

 

And an example of the UBBankDoAll('Bones',28,Location...);

 

It checks first bank slot though first.. if its not in first bank slot it searches for the 'Bones' in the bank and Withdrawls 28 of those items.

 

 

In my bone bury I believe I have a 300 min and 500 max

So itll look like this for your bury method alone...

 

InvItemSingle(['Bury','ury'],300,500):

Edited February 28, 2012 by rsutton