This is My banking procedure for My woodcut and banking script i get this:
Line 26: [Error] (16232:59): Type mismatch in script J:\Home\Program Files\SCAR 3.15\Scripts\HalfWay There\Banking.scar
YewsToDeposit := CountItemsIn( 'inv','bmp', YewLogs , 10 );
Thet is line 26.
SCAR Code:
program Banking;
{.include SRL\SRL.Scar}
procedure OpenDaBank;
var banktime, YewLogs, YewsToDeposit: Integer;
begin
YewLogs := BitmapFromString(35, 30, 'beNrtlr1Lw1AUxfuQ1iY6O' +
'QsGXAqiNWDwqwoWoQ5dunQRREFEECfBQRAE8f/2xFNub3OT5wuareFMTXJ+9/' +
'OlrdbyMpdbVFOI/nY763UGu6vDtDvKogZYTvwnZ/H4OIII2k+SPxSkKHhOL2I' +
'gtOqDch+ECiFmRC7BI2wYAmFVH+RGOxE03ouuL9coayu35C5BWxsrwW1ykzT+' +
'ej6Hbq/WLUsjtAhC1sFJOVII0iwRf9cSECl1QaieZll/ETJF++qkUw7yiFVlO' +
'hiYsLWdja6AIPTL78/14XzmI5p0+pttL8tx6SAPRQZDEBRf5DbJ5pbh3LDXhe' +
'18+9JcesK5VtZW1kr6qCMxrHx3Ph5P3+6PXu8O+SIpErNF2IG3VTWz4aYH8ef' +
'T4P3hREBc28IhY1OwM+8HcUkBQlKzTf8pna6eR1VzYkEwBIjVYzp2JH5FBIJQ' +
'OgHJKeQHhSxvAZS3I40BQvVebrKQjEonn7PNM7/ilJgd2hwATHvpNnlaDxW+W' +
'dWH3sJj+nywkYu/ddaqOh3UA/OPBZdX6l/wD3QO+TAJpcr/X/6BkIIsmvEvaV' +
'xj/qWNW17q+gb53kIg');
MarkTime(banktime); //Sarts Timer
repeat;
if (not(Loggedin)) then break; //Failsafe
OpenBankQuiet('eb'); // Opens Edgeville Bank
until(BankScreen or (TimeFromMark(banktime) > 120000)); // if it took longer then 2 minutis then it will stop trying to open the bank.
if BankScreen then
begin
Writeln('Bankscreen Open');
YewsToDeposit := CountItemsIn( 'inv','bmp', YewLogs , 10 );
Deposit(2,28,2);
CloseBank;
Writeln('You have deposited' +IntToStr(YewsToDeposit) + 'Yew Logs');
end;
end;
Begin
SetupSRL;
OpenDaBank;
End.