Fizzi
08-19-2007, 07:52 PM
I am posting this just to make the devs aware of the bugs in SRL 4 Beta. I also posted some fixes if the devs feel like using them, if you do, I would like credit of course ;). Feel free to add to the list, this is what I've found so far.
1) TradeScreen and TradeScreen2 don't work.
Fixes:
function FizTradeScreen : Boolean;
begin
Result := IsTextInAreaEx(127, 30, 407, 50, x, y, 'Trading With',
0, UpChars, True, False, 0, 0, 2070783);
end;
function FizTradeScreen2 : Boolean;
begin
Result := IsTextInAreaEx(118, 30, 375, 50, x, y, 'you sure you',
0, SmallChars, True, False, 0, 0, 16776960);
end;
2) InvCount appears to be completely messed up. A test with an empty inventory resulted as 13. EDIT: Found problem and fixed, problem in ExistsItem() EDIT2: My fix does not seem to be working every time either.
{************************************************* ******************************
function ExistsItem(i: Integer): Boolean;
By: WT-Fakawi
Description: Checks if item in inventory at specified position exists
************************************************** *****************************}
function ExistsItem(i: Integer): Boolean;
var
x, y:Integer;
TB: TBox;
begin
TB := InvBox(i);
Result := FindColor(x, y, 65536, TB.x1+2, TB.y1+2, TB.x2-2, TB.y2-2);
end;
3) AmountItemsDTM does not seem to be working properly. I tested it using this simple script:
var
SoftClayDTM, ClayDTM : integer;
begin
SetupSRL;
ClearDebug;
SoftClayDTM := DTMFromString('78DA639CCAC4C0F0940105E404F23270016 94' +
'620FE0F048C4B806A1E31A00146241248CF05AA794B400DC8 AEF7' +
'04D4F400D5BC2142CD63FC6A00D7F90DE3');
ClayDTM := DTMFromString('78DA639CCCC4C010C2C8800C96F5C631700 16' +
'990E87F20609C85A906220B2381743F504D18013533816A02 09A8' +
'590054E34740CD42A09A00026AA601D544E05703007B220C3 2');
writeln(inttostr(CountItemsDtm('inv', ClayDTM)));
writeln(inttostr(CountItemsDtm('inv', SoftClayDTM)));
end.
My outputs were 12 and 12. I had 12 soft clay, and 7 clay. I don't know why it said I had 12 of each but my DTMs are fine, I guarantee it.
1) TradeScreen and TradeScreen2 don't work.
Fixes:
function FizTradeScreen : Boolean;
begin
Result := IsTextInAreaEx(127, 30, 407, 50, x, y, 'Trading With',
0, UpChars, True, False, 0, 0, 2070783);
end;
function FizTradeScreen2 : Boolean;
begin
Result := IsTextInAreaEx(118, 30, 375, 50, x, y, 'you sure you',
0, SmallChars, True, False, 0, 0, 16776960);
end;
2) InvCount appears to be completely messed up. A test with an empty inventory resulted as 13. EDIT: Found problem and fixed, problem in ExistsItem() EDIT2: My fix does not seem to be working every time either.
{************************************************* ******************************
function ExistsItem(i: Integer): Boolean;
By: WT-Fakawi
Description: Checks if item in inventory at specified position exists
************************************************** *****************************}
function ExistsItem(i: Integer): Boolean;
var
x, y:Integer;
TB: TBox;
begin
TB := InvBox(i);
Result := FindColor(x, y, 65536, TB.x1+2, TB.y1+2, TB.x2-2, TB.y2-2);
end;
3) AmountItemsDTM does not seem to be working properly. I tested it using this simple script:
var
SoftClayDTM, ClayDTM : integer;
begin
SetupSRL;
ClearDebug;
SoftClayDTM := DTMFromString('78DA639CCAC4C0F0940105E404F23270016 94' +
'620FE0F048C4B806A1E31A00146241248CF05AA794B400DC8 AEF7' +
'04D4F400D5BC2142CD63FC6A00D7F90DE3');
ClayDTM := DTMFromString('78DA639CCCC4C010C2C8800C96F5C631700 16' +
'990E87F20609C85A906220B2381743F504D18013533816A02 09A8' +
'590054E34740CD42A09A00026AA601D544E05703007B220C3 2');
writeln(inttostr(CountItemsDtm('inv', ClayDTM)));
writeln(inttostr(CountItemsDtm('inv', SoftClayDTM)));
end.
My outputs were 12 and 12. I had 12 soft clay, and 7 clay. I don't know why it said I had 12 of each but my DTMs are fine, I guarantee it.