JiveTonto@Gmail.com
2006-04-17 01:30:39
Hi im striving for 80 def to night but am to lazy to buy food and do it my self so im going to use the belta fight cave in the srl members but im having problems editing the include liek it asks so if any one can help thanx
That (above)needs ot be added to that(below) so where and every time i do it i get it wrong.
Thanx and soz about the long ass post i know standards have been broken but soz and rep* rep* rep* for the the one who can help
If(Lowercase(Name) = 'red star')Then begin Bitmap := BitmapFromString(15, 15, 'z78DAA594510EC3200C43A' + 'FC4C258C72750EDFE47DA3433C9284D000DA9563E9A8771534270' + 'D72DC4CF63E9EEA2DE5A9AD497A51BBBB8B476DC25CE76D965C65' + '4D31364D41B7C456EF990C78FA9C85D434863D74036DCF65EF0C1' + '64F297893A9722D9CCFF82C93E994F4C569F3C7833B49E724A347' + '5DD336582DE9E2D6A7A079940FDB91D72C679C99BCE99D3F6BFA3' + '9E0DED137C93E94E08BA34997D4EC80BFF0BC89A36612EDF1B170' + 'EFFBE9D76EFBA37B5F62659'); color := 4145863; end;
That (above)needs ot be added to that(below) so where and every time i do it i get it wrong.
//—————————————————————–//
//– Scar Standard Resource Library –//
//– » Symbol Routines –//
//—————————————————————–//
// * function GetSymbolColor(name:string):integer; // * by Stupid3ooo extended by WT-Fakawi
// * function FindSymbol(name:string):boolean; // * by Stupid3ooo
// * Function FindMMSymbolColor: Integer; // * by WT-Fakawi
//****************************************************************************//
var
SymbolAccuracy : Extended; //How accurate it must be, in %, to find symbols or icons on the minimap.
//********************** MiniMap Symbol Constants( Centre Color******************//
{*******************************************************************************
function GetSymbolColor(Name : String) : Integer;
By:
Description: Returns color of minimapsymbol.
Valid Arguments are:
- bank
- mining site, mining spot
- transportation
- magic shop
- water source, water
- furnace
- anvil
- rare trees, tree
- fishing spot, fih
- cookery, cook
- quest
- mill
- weave
- pottery, pot
- spinning wheel, spin
- guide
- shop, store
- shield
- altar
- arrow
- bar
*******************************************************************************}
function GetSymbolColor(var rx,ry:integer; Name : String) : Integer;//Thank you SCAR 2.0 for making this much easier, work in progress
var
Bitmap, Color, c : Integer;
acc : Extended;
begin
if (lowercase(Name) = 'bank') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DA33B434B4343473B' +
'100421364D2D9D2C9C9D4C4CDCDD5D1CCD0C2D5DCC5D00299ED04' +
'8226C824B25E43B0998664990C213175116F32B2F9C824B2F9A4B' +
'A1997F9B842865493890F734C9301ACE46928');
Color := 6417151;
end;
if (lowercase(Name) = 'mining spot') or (lowercase(Name) = 'mining site') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DA95D03B0EC430' +
'0804D02B610C832931D9DCFF48894293C8DAD5464853F07905342' +
'91A67A46FF43BA31914AE602183A9E5686799A64E3C04BA4CFA43' +
'7E98439C770971257CB09F934B8E089F2FE43287A2F534166629A' +
'1121D03DB5BB94C0B1D9D811E2DEF66ED94BCF6BFC97753A33BF3' +
'7ABBCAEB9F0FD413672D');
Color := 4219541;
// Color:=4092315;
end;
if (lowercase(Name) = 'transportation') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DA33303534347074353' +
'4B73032219E34763173348592A62E666E66A6C8B20660330D904C' +
'86A841D6858BC454896C3EA6C9C498899FC465B291A3B193910B3' +
'124A69910715C269317CEC866229B0C00B3496273');
Color := 2650848;
end;
if (lowercase(Name) = 'magic shop') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DA95D0510A80300806' +
'E02B9906B6C77F3AEF7FA4A0066DABC17A1111FD1469A74CC5C46' +
'0D6C60875CEA17288D63CE08C771D02A09BA5CBA499DC99AD3CFA' +
'EB72041B97B9D9C83F6F2ECE69C3D71F46F9EE5C979D155AFDBAA' +
'5BBFF312D915399C927AF756C82');
Color := 1714669;
end;
if (lowercase(Name) = 'water source') or (lowercase(Name) = 'water') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DAA5CF410A80300C44' +
'D12B25B6A964E9907AFF2329CC42A5448A12F874111EA9A89C830' +
'A438C6DB646B7A51BF6C27A75F3C8F659D16BE665F68F7C37B121' +
'3AF8162D2DE2FDF21999E628B3DFE4C7DF1339BB9CE601EA0F684' +
'0');
Color := 14497281;
end;
if (lowercase(Name) = 'furnace') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DA3334353435B470' +
'3101423308696A028466E6C6A6A626E66E6E1640062E12A206A2D' +
'EC90408A1261882CD3424CA6427472320DBCDCDC810C61EFC2653' +
'3F34882171990C0058F36390');
Color := 3508223;
end;
if (lowercase(Name) = 'anvil') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DA95CF510AC0300803D02B' +
'A59DE0F2D9F6FE771A2CFB10CAC4FE04117C443434D8E4C2EA4A8' +
'7DFCE8B06FB369AF38C025E139B5C7194EA106F73B9D2991C187D' +
'3773F92F2BE6A91CBFD05CE9FC00C9DB6164');
Color := 4012591;
end;
if (lowercase(Name) = 'rare trees') or (lowercase(Name) = 'tree') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DA33303400424757270' +
'B4757086960686209128390E6F84833470B20696C618E6E020262' +
'33D99C0C9238938976391269E16A69614192C96012EC6B2889C34' +
'CFC26639A0F516FE46CE80267BB9AB919B8426C413613393400AC' +
'8C5FC9');
Color := 96513;
end;
if (lowercase(Name) = 'fishing spot') or (lowercase(Name) = 'fish') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DA8DCE410E80300844D12B4D5BA' +
'9BAA404EE7F2413675343AA6EFE82D217D061682636ACCCADA779' +
'045B641F117987CDAFB84D2479D67257B28A0EFD90B9C9F9BB3FD' +
'FF02EC337F347B39977D83F37AFFEA2D76EDEA4543DE870B2922F' +
'BB6B6878');
Color := 16743189;
end;
if (lowercase(Name) = 'cook') or (lowercase(Name) = 'cookery') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DAA590410AC0200C04BFB41' +
'B4D5B8F2ACDFF9FD4D25008885EBC0C21EC0E211010EC6CD66EE7' +
'C1A4F869A9524AD74BB2CF3139233E2782D9BB713F52CE37A1D98' +
'4A823D7E678A15FAE4CC4EDDDB5B9B258D932BB61C67DF3FACF0F' +
'3E40632F');
Color := 1194607;
end;
if (lowercase(Name) = 'quest') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DA8D90410A80300C04BF94' +
'B49A36475BD3FF3F497011564AC5CB1042322C2B4954B46B1B2D9' +
'8D53C45F1DEFCCC25D51206629FCBD69F9B437DF8EB576EA74C66' +
'DC83B0B19F9DCC6F33675B71DBCDC257FC9F993BC12F3263E61B7' +
'402AECC73CF9839DBDC33B70DE70515B06618');
Color := 15107954;
end;
if (lowercase(Name) = 'mill') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DAB58F3B0AC0300C43AF24A' +
'75D3CD621BEFF9102D52228822C5D1EC69F878C8140CCA8AEE5D8' +
'DD0BA97C223BED3E5E27C48CBAE7B878ABF54987B5337FB3E995D' +
'26DF2973F323B33C9A9D26573A47303B52569D1');
Color := 655103;
end;
if (lowercase(Name) = 'dungeon') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DAC5CC310E80300C04C1' +
'2F9D2DE5229736C1FF7F121269229922888266BB1D28047248649' +
'CB5D974A8D55A82682E96F670E136F1971CDE9DD5CCC14E7E9157' +
'7FC77C2BAF9DE68E7C01216D6A72');
Color := 2698741;
end;
if (lowercase(Name) = 'weave') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DA33303230343074367472' +
'73724526CD0C4C0C8CDC1C0D2DDD2C5D8DDD8C4C0CA0E2103644D' +
'CDCD1CCD4C40CC246D66B0036D300AFC9986622B3293119979B21' +
'ECC1E966649793EA6600F03E685F');
Color := 926783;
end;
if (lowercase(Name) = 'pottery') or (lowercase(Name) = 'pot') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DA8DCE5B0AC0200C44D1' +
'2D6592691B3F2DD5FD2FA98F08554A410217C9C73102B966673E7' +
'64617AA094DA16349D4B15E96621EED05C13B5F19F9DEFF178E14' +
'3F869CE8479A9267FCFEE619992A55100D7F8519CC37562DBDD6F' +
'AECE76FEEFD55D5A50983FFBCB76A807CE5139EC460AC');
Color := 270148;
end;
if (lowercase(Name) = 'spinning wheel') or (lowercase(Name) = 'spin') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DA7D90510E803' +
'00843AF04B2E1F894B9FB5FC9C4EE0383DB4FD314F22025A642EC' +
'DEC507545B31BECD2FB1715AED872187FFC9ABB21CC891D0CBA44' +
'0AE2E46731A37333FEFB4A155DA9EAC5A9C053EDECAFC8F86CF57' +
'644CA3E256EC2AFE3CFBD99273272B1FF9B91F301FD6076714');
Color := 2710649;
end;
if (lowercase(Name) = 'guide') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DA33303400424717470B27' +
'33086961E168E4EC64E866E264EE0C614349170B0B4B336411143' +
'56059880906860848C06488995432193F89CB47F84D869A8FE14E' +
'8869F8CD24C664E2431E533DC44C00EBA66771');
Color := 13345416;
end;
if (lowercase(Name) = 'shop') or (lowercase(Name) = 'store') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DA95D0410AC4300805D02B' +
'99A889596AECFDAF3461FE26A52D9DD97C41E1A1D251A2E8CCF46' +
'4A41D2306776FC415A929B39E3AD7E92ED0D7A4ABDC8C34669849' +
'73EBCC03D95269F9A15AFBA86A4591E87886C78B8C4D209F527B6' +
'389D2A5E42E236D55F327197FB8317F90D738449E64E72037DCFE' +
'F7CEF8E1267F0053466502');
Color := 3498103;
end;
if (lowercase(Name) = 'shield') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DACDCC3112C0200844D12' +
'B611484920DE4FE47CA8CA63085BDCD9F6DF6511614BE233CEADA' +
'16ECFC9553204DD36055D92EF56E2AFD99DB038EDF97864927C8C' +
'339595EFD9D3CCD9DFC02CAE26976');
Color := 9542286;
end;
if (lowercase(Name) = 'altar') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DA33703574323475767171' +
'7431B670B574B2A4888498630036D300C96464F3DD880610F58E2' +
'E4E8E4E501297C9C49B8F69267E37936732B25EFC26131F1AB84C' +
'06006E357035');
Color := 9542286;
end;
if (lowercase(Name) = 'arrow') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DA33303570333470353437' +
'3372249E343633B33475829026161646E626C8B20660330D904C8' +
'6A841D6858BC454896C3EA6C9C498899FC465B2919BB1A5B12931' +
'24A69910715C269317CEC866229B0C001E5A61CB');
Color := 2782945;
end;
if (lowercase(Name) = 'bar') then
begin
Bitmap := BitmapFromString(15, 5, 'z78DAB5CC310EC0200C43D12B41' +
'E3001D0389EF7FA44ACD82D4952E5F968757B5B4E28EA56B66E33' +
'685908EEEA4115736FF1523A016BD8113A636079B0877A1BE663D' +
'24E73E25A7F99F9CE659F96BEEF2031A5D69A8');
Color := 4433385;
end;
FindDeformedBitmapToleranceIn(Bitmap, x, y, 570, 5, 725, 160, 70, 0, True, acc);
if (acc > SymbolAccuracy) then
begin
repeat
c := c + 5;
if (FindColorTolerance(x, y, Color, x, y, x + 15, y + 5, c)) then
begin
Result := GetColor(x, y);
rx := x;
ry := y;
end;
until (Result > 0) or (c > 70);
end;
FreeBitmap(Bitmap);
end;
{*******************************************************************************
function FindSymbol(Name : String) : Boolean;
By:
Description: Finds minimap symbol by name. Returns color if found.
Finds color even if minimapsymbol is partially obstructed by
players/NPC's.
Valid Arguments are:
- bank
- mining site, mining spot
- transportation
- magic shop
- water source, water
- furnace
- anvil
- rare trees, tree
- fishing spot, fih
- cookery, cook
- quest
- mill
- weave
- pottery, pot
- spinning wheel, spin
- guide
- shop, store
- shield
- altar
- arrow
- bar
*******************************************************************************}
function FindSymbol(var rx,ry:integer; Name : String) : Boolean;
begin
if (GetSymbolColor(rx,ry,Lowercase(Name)) > 0) then
Result := True;
end;
{*******************************************************************************
procedure FindSymbolColorIfNeeded(SymbolName : String; TerminateIfNotFound : Boolean; var Color : Integer);
By:
Description: Finds minimap symbol by name.
Finds color even if minimapsymbol is partially obstructed by
players/NPC's.
*******************************************************************************}
procedure FindSymbolColorIfNeeded(SymbolName : String; TerminateIfNotFound : Boolean; var Color : Integer);
begin // by Stupid3ooo
if (Color = 0) then
begin
Color := GetSymbolColor(x,y,SymbolName);
if (Color > 0) then
begin
Writeln(SymbolName + ': ' + IntToStr(Color));
end
else if (TerminateIfNotFound) then
begin
Writeln('Could not find ' + SymbolName + ' color please restart the script and/or choose your own colors.');
TerminateScript;
end;
end;
end;
{*******************************************************************************
function FindMMSymbolColor : Integer; // by WT-Fakawi
By:
Description: Returns a MiniMap Symbol Centre Color
*******************************************************************************}
function FindMMSymbolColor : Integer; // by WT-Fakawi
var
X, Y, AnySymbol : Integer;
begin
AnySymbol := DTMFromString('78DA63F4666260B8C7C8800CAEF2F330FC07D' +
'220D1FF40C00852731D550D2323230317540D98EF82690E861A90' +
'394F09A809226C0E00E8B30C06');
if FindDTM(AnySymbol, X, Y, 560, 5, 730, 165) then
begin
Result := GetColor(X, Y);
end;
FreeDTM(AnySymbol);
end;
{*******************************************************************************
function FindMMSymbol(BitMap : Integer) : Boolean;
By: WT-Fakawi
Description: Finds a MiniMap Symbol.
*******************************************************************************}
function FindMMSymbol(BitMap : Integer) : Boolean;
var
C, TX, TY : Integer;
begin
Result := False;
while (C < 95) do
begin
C := C + 5;
if FindBitmapToleranceIn(BitMap, TX, TY, MMX1, MMY1, MMX2, MMY2, C) then
begin
Result := True;
break;
end;
end;
end;
{*******************************************************************************
function ClickSymbol(BitMap : Integer) : Boolean;
By: WT-Fakawi
Description: Clicks a MiniMap Symbol.
*******************************************************************************}
function ClickSymbol(BitMap : Integer) : Boolean;
var
C, TX, TY : Integer;
begin
while (C < 65) do
begin
C := C + 5;
if FindBitmapToleranceIn(BitMap, TX, TY, MMX1, MMY1, MMX2, MMY2, C) then
begin
Mouse(TX, TY, 0, 0, True);
Result := True;
break;
end;
end;
end;
Thanx and soz about the long ass post i know standards have been broken but soz and rep* rep* rep* for the the one who can help