Oke-doke, I have a script (omg) that I'm writing (even more omg) and I need help with it (I think I'm in the right forum for that
)
BTW, I put a note in it to show you where I need help, I thought that might be more specific 
SCAR Code:
program BoneCollector;
{.include SRL/SRL.scar}
{.include SRL/SRL/extended/xDTM.scar}
var
bones, feather, x, y, totalbones, totalfeathers:Integer;
direction, oppdir:string;
querk:boolean;
Procedure LoadDTMs;
Begin
bones := DTMFromString('78DA63E4656060E062800326203E75F81098C' +
'D08C4FF81805114550D08ECDBBA05AE064C0B000956543577AE5F' +
'4755C309243808A801C9F3A3AAB97CF62C8A1A0079B81073');
feather := DTMFromString('78DA63E4626060E06740015B56AD623801A41' +
'981F83F1030F263AA5934750A986684F2198580040BAA9A9DEBD7' +
'A3AAE100123CA86A766FDA88AA861D4888A0AAD9B86C298A1A005' +
'93C0F4F');
end;
Procedure RandomDir;
Begin
Begin
Case (random(4)) of;
0: direction:='n';
1: direction:='s';
2: direction:='e';
3: direction:='w';
End;
End;
querk:=False;
End;
Procedure OppDir;
Begin
Begin
Case (direction) of;
'n': oppdir:='s';
's': oppdir:='n';
'e': oppdir:='w';
'w': oppdir:='e';
End;
End;
querk:=True;
End;
Procedure FindStuff;
Begin
LowestAngle;
If DTMRotated(bones, x, y, MSX1, MSY1, MSX2, MSY2) Then;
Begin
Mouse(x, y, 5, 5, false);
ChooseOptionEx('ones');
If Result:= True Then;
Begin
totalbones:=totalbones+1;
End;
End Else;
If DTMRotated(feather, x, y, MSX1, MSY1, MSX2, MSY2) Then;
Begin
Mouse(x, y, 5, 5, false);
ChooseOptionEx('eather');
If Result:= True Then;
Begin
totalfeathers:=totalfeathers+1;
End;
End Else;
Begin
Case (querk) of;
True: RandomDir;
RunAway(direction);
False: RunAway(oppdir);
End;
End;
End;
Procedure NoBan;
var
wtfbbq: Integer;
begin
wtfbbq:= Random(11);
case wtfbbq of
0: RandomRClickEvery(2 + Random(13));
1: HoverSkill('Mining', False);
2: RandomChatEvery(10 + Random(5));
3: RotateEvery(20 + Random(10));
4: LeaveScreenEvery(5 + Random(5));
5: HoverEvery(15 + Random(5), 'Attack');
6: PickUpMouse;
7: BoredEvery(9 + Random(24));
8: DragItem(1, 1 + Random(18));
9: GameTab(1 + Random(12));
10: RotateEvery(7 + random(4));
end;
end;
procedure NoRan;
Begin
FindNormalRandoms;
End;
Procedure ProgRep;
Begin
ClearDebug;
Writeln('You have found ' +IntToStr(totalbones) +' bones, ');
Writeln('and ' +IntToStr(totalfeathers) +' little packs of ');
Writeln('feathers. Good job ;)');
Writeln('Thanks for choosing Rotflmfwao''s bone and feather thingy');
AddToReport('I don''t care if you post this wherever the hell you want to, but please put credits up ;)');
End;
{checks the inventory to see if its full, and it it is, the script
will walk to the bank and deposit the stuff, and then walk back. As
you can see, it is terrible, and I need a lot of help ;) Please help
me with this procedure!!! (I need it lol)}
Procedure CheckInv;
var doorcolor:integer;
Begin
InvFull;
If Result:=True Then;
Begin
GetDoorColor;
Result:= doorcolor;
FindMSColor(doorcolor);
End;
Begin
SetUpSrl;
LoadDTMs;
totalbones:=0;
totalfeathers:=0;
While 1:=1 Do;
Begin
NoBan;
NoRan;
CheckInv;
FindStuff;
ProgRep;
End;
end.