anchor.diff:      end;
   
       //Disabling buttons will let player know that he cant select new trade without canceling current one
  -    Button_Market[I].Enabled := (R in [aMarket.ResFrom, aMarket.ResTo]) or not aMarket.TradeInProgress;
  +    Button_Market[I].Enabled := (W in [aMarket.ResFrom, aMarket.ResTo]) or not aMarket.TradeInProgress;
     end;
   
     //Position the shape that marks the FROM ware
  
positive.code: end;
  
  
  {School page}
  procedure TKMGUIGameHouse.Create_HouseSchool;
  var
    I: Integer;
  
negative.code: procedure TKMGUIGameHouse.House_MarketFill(aMarket: TKMHouseMarket);
  var
    I, tmp: Integer;
    W: TKMWareType;
  begin
    for I := 0 to STORE_RES_COUNT - 1 do
    begin
      W := TKMWareType(Button_Market[I].Tag);
      if aMarket.AllowedToTrade(W) then
      begin
        Button_Market[I].TexID := gResWares[W].GUIIcon;
        Button_Market[I].Hint := gResWares[W].Title;
        tmp := aMarket.GetResTotal(W);
        Button_Market[I].Caption := IfThen(tmp = 0, '-', IntToStr(tmp));
      end
      else
  