Richard
2009-05-26 03:31:50
So I went through the includes folder, strolled across fletching.scar, and saw that it was rather empty, so I thought I'd make something useful for it:
Comments/suggestions please :)
{*******************************************************************************
Function FletchingInterface: Boolean;
By: Richard
Description: Returns true if the fletching interface is in the chatbox
*******************************************************************************}
Function FletchingInterface: Boolean;
Begin
Result := (GetColor(370, 462) = 0) or (GetColor(421, 446) = 0);
end;
{*******************************************************************************
Function: MakeBow(BowType: String; Amount: Integer): Boolean;
By: Richard
Description: Clicks on the correct bow, and makes the desired amount
*******************************************************************************}
Function MakeBow(BowType: String; Amount: Integer): Boolean;
Var
BoxPoint: TPoint;
Begin
If not(FletchingInterface) then
Exit;
BoxPoint.y := 415;
Begin
If (GetColor(80, 408) = 734808) then
Begin
Case lowercase(BowType) of
'arrow shafts' : BoxPoint.x := 75;
'short bow' : BoxPoint.x := 197;
'long bow' : BoxPoint.x := 317;
'crossbow stock' : BoxPoint.x := 437;
else
srl_Warn('MakeBow', BowType+ ' is not a valid bow type', warn_AllVersions);
end;
end else
Begin
Case lowercase(BowType) of
'short bow' : BoxPoint.x := 109;
'long bow' : BoxPoint.x := 260;
'crossbow stock' : BoxPoint.x := 406;
else
srl_Warn('MakeBow', BowType+ ' is not a valid bow type', warn_AllVersions);
end;
end;
end;
Mouse(BoxPoint.x, BoxPoint.y, 10, 10, False);
If InStrArr(IntToStr(Amount), ['1', '5', '10'], True) Then
Result := ChooseOption('ake ' + IntToStr(Amount))
else
Begin
Result := ChooseOption('ake X');
TypeSend(IntToStr(Amount));
end;
end;Comments/suggestions please :)