SRL Archive - SRL Archives

Right now FindBank is like this

function FindBank(TheBank: string): Boolean;
var
  bx, by, TheDTM: Integer;
  WhichAngle: Extended;
begin
  case TheBank of
    'feb': TheDTM := DTMFromString('78DA63AC67626088634001FFFFFD63F80FA41' +
        '9416C2060AC01AA4987C83141D5FCF9C3C4C0055503028CAD44A8' +
        'E924AC0600131E11B5');
    'fwb': TheDTM := DTMFromString('78DA636C676260086540038C0CFFC12403C37' +
        'F206004A98986C8304155FCF9C3C4C0055503D6D14C849A6EC26A' +
        '009F5A0EA1');
    'db': TheDTM := DTMFromString('78DA636C67626008644001FFFFFD63F80FA41' +
        '9416C2060AC01AAF182C8B140D5FCF9C304A619A17CB09A204C35' +
        '22E86AC2F09B0300F8811153');
    'veb': TheDTM := DTMFromString('78DA63EC61626008624001FFFFFD63F80FA41' +
        '9416C2060EC00AA8982C83141D5FCF9C3C4C0055503028C138850' +
        'D343580D00122211A9');
    'vwb': TheDTM := DTMFromString('78DA63EC606260B066C000FF819811440301E' +
        '354A01A3B88381354FECF1F260611A81A1000AB3125428D2E7E35' +
        '0087F80E5E');
    'akb': TheDTM := DTMFromString('78DA636C606260F06140019D9D710CFF81342' +
        '310FF0702C652A01A37881C1354CD9F3F4C0C5C5035200056E345' +
        '841A3FFC6A002A3B0F97');
  end;

  if FindDtmRotated(TheDTM, bx, by, MMX1, MMY1, MMX2, MMY2, Radians(-30), Radians(30), 0.05,
        WhichAngle) then
      begin
        Mouse(bx, by, 0, 0, True);
//        FTWait(8);
        FFlag(0);
        if OpenBankQuiet(TheBank) then
        begin
          FixBank;
          Result := True;
          FreeDTM(TheDTM);
          Exit;
        end
        else Result := False;
      end
      else Result := False;
  FreeDTM(TheDTM);
end;

I put "If FindBank('FEB') Then" and got an access violation error because there needs to be a "Lowercase" on the case so you don't get access violation errors.

nice find.

TheBank:= Lowercase(TheBank);
straight after begin.


~RM

Nice Find Use Mine :D?

Added lowercase.