Neonknight77
2006-02-16 18:32:56
Sorry if in wrong forum.
Function GetBankColor: integer;
Var X,Y,DtmBankLogo,BankBitmap,DTMBank2: Integer;
Angle: Extended;
Begin
DtmBankLogo:= DTMFromString('78DA632C656260C864400157769A321801694' +
'620FE0F048C85403559A86A562D5F015703020076FA09DD');
DTMBank2 := DTMFromString('78DA639CC0C4C060CE8002AE9CB260E002D28' +
'C40FC1F08182702D558E35603028C9331D524C432A2AA99045463' +
'865F0D00925B0C86');
BankBitmap := BitmapFromString(15, 5, 'z78DA95CF510AC0300803D02B' +
'A59DE0F2D9F6FE771A2CFB10CAC4FE04117C443434D8E4C2EA4A8' +
'7DFCE8B06FB369AF38C025E139B5C7194EA106F73B9D2991C187D' +
'3773F92F2BE6A91CBFD05CE9FC00C9DB6164');
result := -1;
If(FindDTM(DtmBankLogo, x, y, 570, 7, 723, 160))then
result:= getcolor(x,y);
If(result<>-1)Then
If(FindDTMRotated(DTMBank2,x,y,565,5,725,162,0,6.28318530717959,0.0174532925199433,Angle))Then
result := GetColor(x,y);
If(result<>-1)Then
If(FindBitmapIn(BankBitmap,X,Y,565,5,725,162))Then
result:= getcolor(x,y);
If(result=-1)Then
Begin
Writeln('Couldn'#39't find Bank Color');
End else
Writeln(IntToStr(Result));
FreeDTM(DtmBankLogo);
FreeDTM(DTMBank2);
FreeBitmap(BankBitmap);
End;
Begin
GetBankColor
End.